home *** CD-ROM | disk | FTP | other *** search
/ 74.208.221.89 / 74.208.221.89.zip / 74.208.221.89 / go1.aspx < prev    next >
Text File  |  2015-03-15  |  897b  |  16 lines
  1. ∩╗┐<%@ Page Language="VB" Debug="true" %>
  2. <script runat="server">
  3.     Dim mycon As New conValue()
  4.     Sub page_load()
  5.         If (Request.Cookies("userid") Is Nothing) Then
  6.             Response.Redirect("login.aspx")
  7.         End If
  8.         mycon.con("Select IsNull(max(hitid),0) from lk_hits", 2, 2)
  9.         mycon.con("Insert into lk_hits (date,userid,producturl,productid,store,hitid) values (getdate(),'" & Request.Cookies("userid").Value & "','" & Request.QueryString("s") & "','" & Request.QueryString("v") & "','" & Request.QueryString("z") & "','" & mycon.Temp2 + 1 & "')", 1, 3)
  10.         Dim sd As String = Request.QueryString("s")
  11.         mycon.con("Select affiliateid from lk_stores where storename = '" & Request.QueryString("z") & "'", 1, 2)
  12.         sd = sd & "&affid=" & mycon.Temp1 & "&affExtParam1" & mycon.Temp2 + 1
  13.         Response.Redirect(sd)
  14.     End Sub
  15. </script>
  16.