%@LANGUAGE="VBSCRIPT"%> <% Set con = Server.CreateObject("ADODB.Connection") con.Open "DBQ=" & Server.MapPath("counter.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" SQL = "SELECT * FROM counter" SET RS = con.Execute(SQL) RS.MoveFirst If session("count") = empty then count = RS("counts") + 1 Else count = Rs("counts") End If session("count") = count SQL = "UPDATE counter SET counts = '"&count&"' " SET RS = con.Execute(SQL) con.CLOSE %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||