Set oCon = Server.CreateObject("ADODB.Connection") ConnStr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PageCnt.dbf;Extended Properties=dBASE III;" oCon.Open ConnStr set oRec = Server.CreateObject("ADODB.RecordSet") ' on error resume next sql="SELECT * FROM PAGECNT WHERE PAGEID='MINUTES'" oRec.Open sql,oCon,adOpenDynamic,adLockPessimistic HitSince=cstr(oRec("Firstdate")) HitCount=cdbl(oRec("HitCount"))+1 oRec("HitCount")=HitCount oRec("Lastdate")=cstr(date) oRec.Update oRec.Close If err.number<>0 then HitCount=0 err.clear Response.Redirect("default.asp") end if