<%
Dim Db
Dim RS0
Set DB = Server.CreateObject ("ADODB.Connection")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "mrmwr_count.mdb")
Set RS = Server.CreateObject ("ADODB.Recordset")
Mno=32006
rs.Open "Select * From mrmwr_countt ",db,3,2
if not rs.BOF THEN
'Response.Write(rs("monthno"))
end if
if not rs.bOF then
Vvar=rs("NoHits_count")
Vvar=Vvar+1
rs("NoHits_count")=Vvar
rs("count_date")=date()
else
rs.addnew
rs("NoHits_count")=100000
vvar=100000
rs("MonthNo")=mno
rs("count_date")=date()
end if
RS.Update
rs.close
db.close
%>