Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath ("info.mdb") & ";"
objConn1.Open
objconn1.execute("update light_a_candle set Paid='1' ,Activated='True' where LitCandleId=(select max(LitCandleId) from light_a_candle)")
objConn1.close()
