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