Freunde, die Asp lernen, müssen <% verstehen
set conn=server.createobject(adodb.connection)
connstr=Provider=Microsoft.jet.oledb.4.0;data source=&server.mappath(cou.mdb) //cou ist der Datenbankname
conn.open connstr
wenn Sitzung(besucht)<>ja dann
application.Lock()
conn.execute(update counter set hits=hits+1 where kid=1) //counter ist der Name der Tabelle, die zum Speichern von Daten in der Datenbank verwendet wird
application.UnLock()
session(visited)=yes
Ende wenn
set rs=conn.execute(select * from kuo where kid=1)
wenn rs.eof und rs.bof dann
Zähler=0
anders
counters=rs(hits)
Ende wenn
rs.close
Verbindung schließen
setze rs=nichts
setze conn=nichts
%>