<%Session.LCID = 1053
Session.Codepage = 65001
Response.CharSet = "utf-8"
Dim strErrorMessage, Conn, rs, Conn2, rs2, statsVal
dim DBPath
DBPath = Server.MapPath("calendar/martin.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";"
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";"
Set rs = conn.Execute("SELECT * FROM Stats WHERE Stats.[ID] = 1")
Do While Not rs.EOF
statsVal = rs("count").value
rs.MoveNext
Loop
statsVal=statsVal+1
Set rs2 = conn.Execute("UPDATE Stats SET Stats.[count] = "&statsVal&" WHERE Stats.[ID] = 1")
%>
Martin Stenmarck
