<%
Set Rs_Sch = Server.CreateObject("ADODB.Recordset")
If Request("r")="1" Then
SQL="Update Store Set Counter=Counter+1 Where UserID='"&Request("UserID")&"'"
Rs_Sch.Open SQL, Conn, 1, 3
End if
'Response.Write("StoreID="&Session("StoreID"))
'Response.Write("UserID="&Session("UserID"))
If Request("StoreID")<>"" Then
SQL="Select * From Store Where UserID='"&Request("StoreID")&"' And StoreStatus='open'"
Rs_Sch.Open SQL, Conn, 1, 3
If Rs_Sch.Eof = False Then
StoreID=Rs_Sch("StoreID")
UserID=Rs_Sch("UserID")
PackageID=Rs_Sch("PackageID")
StoreName=Rs_Sch("StoreName")
Slogan=Rs_Sch("Slogan")
AboutUs=Rs_Sch("AboutUs")
HowToPay=Rs_Sch("HowToPay")
Logo=Rs_Sch("Logo")
Banner=Rs_Sch("Banner")
RegisterDate=Rs_Sch("RegisterDate")
LastUpdate=Rs_Sch("LastUpdate")
Counter=Rs_Sch("Counter")
StoreStatus=Rs_Sch("StoreStatus")
End if
Rs_Sch.Close
End if
If Request("StoreID")="" Then Response.Redirect("index.asp")
%>
Clasic Amulet
