Il re Pastore

<%@Language=VBScript%> <% Dim thisURL, cnnl, openStr, SQL thisURL = Request.ServerVariables("PATH_INFO") Set cnn1 = Server.CreateObject("ADODB.Connection") openStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Domains\cantodelmaggio.info\db\maggio.mdb" cnn1.Open openStr,"","" sql = "SELECT url, hitcnt " & _ "FROM hitcounts " & _ "WHERE url = '" & thisURL & "';" Set rsHits = Server.CreateObject("ADODB.Recordset") rsHits.Open sql, cnn1, 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.update rsHits.Close Set rsHits = Nothing cnn1.Close Set cnn1 = Nothing %> Il re Pastore