<%@LANGUAGE="VBSCRIPT"%> <% Dim rsstores__varid rsstores__varid = "0" if(request("s") <> "") then rsstores__varid = request("s") %> <% Dim rsdept__varstoreid rsdept__varstoreid = "0" if(request("s") <> "") then rsdept__varstoreid = request("s") %> <% Dim rscontent__varstoreid rscontent__varstoreid = "0" if(request("s") <> "") then rscontent__varstoreid = request("s") %> <% set rsstores = Server.CreateObject("ADODB.Recordset") rsstores.ActiveConnection = "dsn=sworld" rsstores.Source = "SELECT storename, storeid, live, logo, image FROM dbo.tblstores WHERE storeid =" + Replace(rsstores__varid, "'", "''") + " and live = 1" rsstores.CursorType = 0 rsstores.CursorLocation = 2 rsstores.LockType = 3 rsstores.Open rsstores_numRows = 0 %> <% set rsdept = Server.CreateObject("ADODB.Recordset") rsdept.ActiveConnection = "dsn=sworld" rsdept.Source = "SELECT deptid, storeid, deptname, live FROM dbo.tbldepartments WHERE storeid =" + Replace(rsdept__varstoreid, "'", "''") + " AND live =1" rsdept.CursorType = 0 rsdept.CursorLocation = 2 rsdept.LockType = 3 rsdept.Open rsdept_numRows = 0 %> <% set rscontent = Server.CreateObject("ADODB.Recordset") rscontent.ActiveConnection = "dsn=sworld" rscontent.Source = "SELECT storeid, areaid, image, text FROM dbo.tblstorecontent where storeid =" + Replace(rscontent__varstoreid, "'", "''") + " and areaid = 1" rscontent.CursorType = 0 rscontent.CursorLocation = 2 rscontent.LockType = 3 rscontent.Open rscontent_numRows = 0 %><% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsdept_numRows = rsdept_numRows + Repeat1__numRows %> <% dim store, dept, userid, productid store = request("s") dept = request("d") productid = request("p") userid = request.cookies("cswuserid") %> <% if store = "" then store = 0 end if if dept = "" then dept = 0 end if if userid = "" then userid = 0 end if if productid = "" then productid = 0 end if set cmdinsertadv = Server.CreateObject("ADODB.Command") cmdinsertadv.ActiveConnection = "dsn=sworld" cmdinsertadv.CommandText = "dbo.spSessionTracker" cmdinsertadv.Parameters.Append cmdinsertadv.CreateParameter("@storeid", 3, 1,8,store) cmdinsertadv.Parameters.Append cmdinsertadv.CreateParameter("@deptid", 3, 1,8,dept) cmdinsertadv.Parameters.Append cmdinsertadv.CreateParameter("@productid", 3, 1,8,productid) cmdinsertadv.Parameters.Append cmdinsertadv.CreateParameter("@date", 135, 1,20,date()) cmdinsertadv.Parameters.Append cmdinsertadv.CreateParameter("@time", 135, 1,20,time()) cmdinsertadv.Parameters.Append cmdinsertadv.CreateParameter("@userid", 3, 1,8,userid) cmdinsertadv.Parameters.Append cmdinsertadv.CreateParameter("@ip", 200, 1,20,request.servervariables("REMOTE_ADDR")) cmdinsertadv.Parameters.Append cmdinsertadv.CreateParameter("@page", 200, 1,150,request.servervariables("URL") & "?" & request.querystring) cmdinsertadv.CommandType = 4 cmdinsertadv.CommandTimeout = 0 cmdinsertadv.Prepared = true cmdinsertadv.Execute() %>

home|news|terms and conditions|links|contact

BCM LifeWorks, London, WC1N 3XX, England. Tel: +44(0) 7791-773-917 or Fax: +44(0) 845-456-3534

This website accepts secure online payments via