<% thisURL = Request.ServerVariables("PATH_INFO") Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "FILEDSN=D:\Inetapps\Bazypzg\Counter.dsn" sql = "SELECT url,hitcnt,lasthit " & _ "FROM hitcounts " & _ "WHERE url ='" & thisURL &"';" Set rsHits =Server.CreateObject("ADODB.Recordset") rsHits.Open sql, Conn, adOpenDynamic, adLockPessimistic, adCmdText If rsHits.EOF Then rsHits.AddNew rsHits("url") = thisURL curCount = 1 Else curCount = rsHits("hitcnt") + 1 End If rsHits("hitcnt") = curCount rsHits("lasthit")=Now() rsHits.Update rsHits.Close Set rsHits = Nothing Conn.Close Set Conn = Nothing %>