<%

strDB = "Borel.mdb"	'Database MapPath
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"DATA SOURCE=" & server.MapPath(strDB)

dim counter

counter = 0

MySQL="SELECT * from tbluser"
Set MyRs=MyConn.Execute(MySQL)

counter = MyRs("Number_of_Times")

while not MyRs.EOF

	if MyRs("username") = request("login") then

		session("username") = request("login")

			counter = counter + 1
			MySQL="UPDATE tbluser SET Number_of_Times = '" & counter & "' Where username=""" & session("username") & """"
			' MySQL="UPDATE tblcomments SET page3=""" & request("commentPage3") & """ Where username=""" & session("username") & """"
			Set MyRs=MyConn.Execute(MySQL)

		response.redirect("Tour_Licence.asp")

	end if

MyRs.MoveNext()

wend

response.redirect("../index.htm")

%>