%@LANGUAGE="VBSCRIPT"%> <% Set Counter = Server.CreateObject("ADODB.Recordset") Counter.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/ehhosbac-db.mdb") Counter.Source = "SELECT * FROM Counter" Counter.Open() %> <% Hits = Counter("Hits") + 1 ID = Counter("ID") set conn=Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/ehhosbac-db.mdb") sql= "UPDATE Counter SET Hits = " & Hits & " WHERE ID = " & ID conn.Execute sql conn.Close %>