<%@language = VBScript%>
<%
Set Dataconn = Server.CreateObject("ADODB.Connection")
DataConn.Open "DSN=samik"
Set DataCmd = Server.CreateObject("ADODB.Command")
DataCmd.CommandText = "SELECT count FROM pagehit where key = 'Samik2'"
Set DataCmd.ActiveConnection = DataConn
Set Rs = Server.CreateObject("ADODB.RecordSet")
Set Rs = DataCmd.execute
i_flag = session("Count")
If i_flag = "" Then
session("Count") = Rs(0)
session("Count") = session("Count") + 1
s_Sql = "Update pagehit set count = " & session("Count") & " where key = 'Samik2'"
Dataconn.Execute(s_Sql)
End If
i_flag = session("Count")
%>
Atoshkach
This page has been accessed <%=i_flag%> times
