Counter

Hvordan får jeg tælleren og SQL UPDATE koden flette sammen, sådan at antal sidevisninger tælles i databasen.



<% @LANGUAGE = VBScript %>
<%
Option Explicit
Dim sql, Hits, ObjConn, ObjRS, DSNName

Set objConn = Server.CreateObject(\"ADODB.Connection\")
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
DSNName = \"DRIVER=Microsoft Access Driver (*.mdb);DBQ=\"
DSNName = DSNName & Server.MapPath(\"database.mdb\")

Hits = \"Hits\" & Request.ServerVariables(\"SCRIPT_NAME\")

Application.Lock
Application(Hits) = Application(Hits) + 1
Application.Unlock



ObjConn.Open DSNName
Set objRS.ActiveConnection = objConn
sql = \"UPDATE Tabel SET Kolonne = Kolonne + 1\"
Set ObjRS = ObjConn.Execute(sql)
ObjConn.Close
%>