Detta funkar inte, får det här felmeddelandet:
ADODB.Recordset fel '800a0bb9'

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.

/marin_fritid/admin/beg_boats/do_upload_thumbs.asp, rad 36



Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../_data/begBoat.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

doit = "SELECT ID FROM TBL_IMAGES WHERE ID = " & Request.QueryString("thumbID") & " "


RecSet.Open doit, Connect, adOpenStatic, adLockOptimistic <<<<< RAD 36

'-------------------------------------------------------------------------------------------------------------------------

RecSet("Thumbs") = File.FileName

RecSet.Update

RecSet.Close
Connect.Close

Snälla hjälp.........

Du har inte inkluderat dklarationen för ado konstanterna adOpenStatic, adLockOptimistic. Tolkas därför som 0 vilket är en ogiltlig kombination.

<!--#include virtual="/adovbs.inc"-->

Detta är kodsnutten som behövs! I bla. SAMS Lär dig ASP på tre veckor så kan det vara lite svårt och se att det skall vara TVÅ bindestreck efter utropstecknet......har själv haft problem med dessa konstanter ett bra tag innan jag insåg felet!

Du kan skriva ,3,3 så slipper du adovbs.inc filen.

/Pelle

Enklaste lösningen är nog dock:

<code>
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../_data/begBoat.mdb")

doit = "UPDATE TBL_IMAGES SET Thumbs = '" & Replace(File.FileName, "'", "''") & "' WHERE ID = " & Request.QueryString("thumbID") & " "

Connect.Execute doit

Connect.Close
</code>