<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% sub getMSDS(id) 'Download file and add to d/l count Dim strConnString, db strConnString = "driver={MySQL ODBC 3.51 Driver};server=32.91.22.4;port=3306;uid=root;pwd=myecom_6373;database=www_patchrubber_com" 'strConnString = "driver={MySQL ODBC 3.51 Driver};server=10.4.4.32;port=3306;uid=root;pwd=myecom_6373;database=www_patchrubber_com" set db = Server.CreateObject("ADODB.Connection") db.Errors.Clear Err.Clear db.Open strConnString Dim msdsrs,msdsSQL id = killchars(id) msdsSQL="Select msdsPartPDF, msdsCount from msds WHERE id = '" & id & "'" set msdsrs = db.execute(msdsSQL) if not msdsrs.EOF then PartPDF = msdsrs("msdsPartPDF") db.execute "update msds set msdsCount = " & msdsrs("msdsCount") & " + 1 where id = '" & id & "'" end if msdsrs.Close Set msdsrs = Nothing response.Redirect "/msds/" & PartPDF End sub id = killChars(request("id")) call getMSDS(id) %>