Counter Code

אפשר


set con = server.CreateObject("ADODB.Connection")
con.Open DSN
SQL = "UPDATE counter SET theHits=theHits+1 WHERE id=1"

con.Execute SQL
con.close
set con = Nothing

נסה
נראה לי שזה מספיק
(אבל אני לא בטוח )

מה יותר קל מ:
ADO הכי פשוט לדעתי!

set Conn=Server.CreateObject("ADODB.connection")
Set SRs=Server.CreateObject("ADODB.Recordset")

ConnString="DBQ=" & Server.Mappath("forum.mdb")& ";Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open ConnString

SQLs = "select count from pages where page_id=1"
SRs.open SQLs, Conn

SRs.fields("enters") = SRs.fields("enters") +1

SRs.close
set SRs = Nothing
Conn.close
set Conn = Nothing

נראה לי שאפשר
להשתמש גם רק בשאילתת עדכון אחת בשביל לעשות את זה
ואז לא צריך להסתבך גם עם ה-ADO והרקורדסט (לא שזה מסובך)

אתה יכול להכין
מיני-אתר…כמה עמודים כאלה..
עמוד אחד זה עמוד בית, מידע, הורדה, דמו וכ'ו… או לעשות עמוד הורדה בלבד.