Adovbs.inc indeholder en række konstanter som ADO bruger. Du kan læse mere præcist om hvad den bruges til på:
http://www.asp101.com/articles/john/adovbs/default.aspPrøv dette:
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"
rs.CursorLocation = adUseServer
rs.CursorType = adOpenForwardOnly
rs.LockType = adLockOptimistic
rs.Open "SELECT * FROM booking WHERE bookid = "& Session("ID") &" ", Conn, , , adCmdText
While Not rs.EOF
rs("tlf") = Session("tlf")
rs("kommentar") = Session("kommentar")
rs("samletpris") = Session("Samletpris")
rs("sagsnr") = Session("Sagsnr")
rs("antal") = Session("antal")
rs("bordopstilling") = Session("bordopstilling")
rs("foldevæg") = Session("foldevæg")
rs("projektør") = Session("projektør")
rs("KaffeThe") = Session("Kaffe/The")
rs("kaffekande") = Session("kaffekande")
rs("kaffekandeantal") = Session("kaffekandeantal")
rs("tekande") = Session("tekande")
rs("tekandeantal") = Session("tekandeantal")
rs("Rundstykker") = Session("Rundstykker")
rs("ost") = Session("ost")
rs("Eftermiddagskage") = Session("Eftermiddagskage")
rs("Småkager") = Session("Småkager")
rs("Frugt") = Session("Frugt")
rs("isvandkande") = Session("isvandkande")
rs("opdækning_uden_dug") = Session("opdækning_uden_dug")
rs("opdækning_med_dug") = Session("opdækning_med_dug")
rs("buffet") = Session("buffet")
rs("buffetantal") = Session("buffetantal")
rs("andet") = Session("andet")
rs("fest") = Session("Familiefest")
rs("Ølvand") = Session("Øl/vand")
rs("Ølvandantal") = Session("øl/vandantal")
rs.update
rs.movenext
Wend
rs.close
conn.Close
Set rs = Nothing
Set conn = Nothing
Det er lang tid siden jeg har lavet ASP, men skulle mene at det fungerer.