<%
if trim(session("SessionID")) ="" then
Dim cn
Dim RS
Dim SQLs,VarStatus
Set Cn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
varserver = Request.ServerVariables("APPL_PHYSICAL_PATH")
Cn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/RRB.mdb"))
sqls="select * from HitCounter"
RS.Open sqls,cn
session("Hit")=rs("HitCounter")
session("Hit")=Session("Hit") +1
session("SessionID")=session.SessionID
' cn.Execute "Update Hitcounter set hitcounter=" & session("Hit")
cn.Close
end if
%>
RAILWAY RECRUITMENT CONTROL BOARD