<% @LANGUAGE="VBScript" ENABLESESSIONSTATE=False %> <% ' On Error Resume Next Response.Buffer = True Response.Expires=0 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-control", "no-store" Response.ExpiresAbsolute = CDate("01/01/2011") nPageId = Trim(Request.QueryString("PageId")) If Not IsNumeric(nPageId) Then Response.End strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("..\PageCounter\Roth-Bauspenglerei\PageCounterRoth-Bauspenglerei.mdb") Dim dataConn,dataRec, strSQL Set dataConn = Server.CreateObject("ADODB.Connection") dataConn.Open strDSN strSQL = "UPDATE PageCounter SET PageHitCount=PageHitCount+1 WHERE PageId=" & nPageId dataConn.Execute strSQL strSQL = "SELECT PageHitCount FROM PageCounter WHERE PageId=" & nPageId Set dataRec = dataConn.Execute(strSQL) If (dataRec.Eof and dataRec.Bof) Then nHitCount = 0 Else nHitCount = dataRec.Fields(0).Value End If dataRec.Close dataConn.Close Set dataRec = Nothing Set dataConn = Nothing %>