<%
        strDB = "Borel.mdb"	'Database MapPath

		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
		"DATA SOURCE=" & server.MapPath(strDB)

        MySQL="UPDATE tblcomments SET page4=""" & request("commentPage4") & """ Where username=""" & session("username") & """"
		Set MyRs=MyConn.Execute(MySQL)
		response.redirect("Tour_Slide4htm.asp")


%>