<%
'Get Current Category
cat = TRIM( Request( "cat" ) )
IF cat = "" THEN cat = "Home"
CustCata = TRIM( Request( "tCustCat" ) )
CustIdn = TRIM( Request( "CustId" ) )
' Open Database Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "ibs_eshop"
if CustIdn = "" then
session("CustId") = ""
session("CustCat") = "1"
CustIdn = ""
CustCata = "1"
end if
today = date()
'insert date dan update no of hit
sqlsearch = "SELECT * FROM Hit WHERE HIT_DATE='"& today &"'"
set rs = Con.Execute( sqlsearch )
if rs.EOF then
' sql = "INSERT INTO Hit values('" & date() & "', 1)"
sql = "INSERT INTO Hit " &_
"(HIT_DATE,DEFAULT_HIT ) " &_
"VALUES ('" & date & "', 1)"
Con.Execute sql
rs.Close
set rs = Nothing
else
if session("login") = "" then
'sql = "INSERT INTO Hit values('" & date() & "', 1)"
sql = "UPDATE Hit SET DEFAULT_HIT=DEFAULT_HIT+1 WHERE HIT_DATE='" & today & "'"
session("login") = "1"
Con.Execute sql
rs.Close
set rs = Nothing
end if
end if
'get the current record of no of hit
sqlget = "SELECT * FROM Hit WHERE HIT_DATE='"& today &"'"
set rs = Con.Execute( sqlget )
%>
IBS Synergy
Date : <%=date()%>
Your are visitor :
<%=rs("DEFAULT_HIT")%>
Search
Categories
<% if CustIdn <> "" then %>
Dear' customer : <%response.write session("CustId")%>
<% else %>
<% end if %>
<% if cat = "Home" then %>
<% else %>
<% end if %>