<% Response.Buffer = TRUE Response.Redirect("http://www.onlineprescriptionsources.com") Dim KeyId KeyId = Request.Querystring("trac") If KeyId <> "" Then AdId = Left(KeyId,3) Select Case( AdId ) Case "gog" AffiliateID = 120101 Case "ove" AffiliateID = 120102 Case "cxc" AffiliateID = 120103 Case "mic" AffiliateID = 120104 End Select KeyId = Right(KeyId,3) End If %> <% If AffiliateID <> "" Then Response.Cookies("ref")("aff") = AffiliateID Response.Cookies("ref").Expires = DATE + 2 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * FROM 1sp_Aff_Tracking WHERE AffiliateID = '" & AffiliateID & "'", "DSN=main;", adOpenKeyset, adLockPessimistic, adCmdText If rs.EOF Then rs.AddNew rs.Fields("AffiliateID") = AffiliateID rs.Fields("AffHits") = "1" rs.Update rs.Close Set rs = NOTHING Else rs.Fields("AffHits") = Cint(rs.Fields("AffHits").Value + 1) rs.Update rs.Close Set rs = NOTHING End IF End If %> Send us a question or comment.
 
   

 

 

Send Us Your Question

 

Please complete the form and click the submit button.

If you do not enter your email address, you will not receive a response.
Email:

 

 
Question or Comment:

 
Copyright ©2003 1Stop Pharmacy  |  Home  |  Contact Info | Legal | Trademarks
<% If KeyId <> "" Then Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * FROM Click_Tracking_Ads", "DSN=main;", adOpenKeyset, adLockPessimistic, adCmdText rs.Addnew rs.Fields("KeywordId") = KeyId rs.Fields("Timestamp") = Now() rs.Fields("IpNumber") = Request.ServerVariables("REMOTE_HOST") rs.Update rs.Close Set rs = NOTHING End If %>