<% fText = Request.QueryString("C") fBack = Request.QueryString("B") Kunde = Request.QueryString("K") C_Nummer = Request.QueryString("N") Set Conn = Server.CreateObject("ADODB.Connection") Set Zaehler = Server.CreateObject("ADODB.RecordSet") Conn.Open("Counter") sql = "SELECT * FROM Counter WHERE Kunde = '" & Kunde &"' AND C_Nummer = " & C_Nummer Zaehler.Open sql, Conn aktZaehler = Zaehler("Wert") aktZaehler = aktZaehler + 1 sql = "UPDATE Counter SET Wert=" & aktZaehler & " WHERE Kunde = '" & Kunde &"' AND C_Nummer = " & C_Nummer Conn.Execute(sql) Zaehler.Close Conn.Close Set Zaehler = Nothing Set Conn = Nothing %> Zugriffszähler

 <% =aktZaehler %>