% 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 %>