<%@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
Make your own free website on Tripod.com
            
This page has been accessed <%=i_flag%> times

 
Best viewed with