panik med databas

Heja!
Det är panik, måste funka innan jul. Som vanligt funkar det lokalt men inte på hotellet.

Mycket, mycket tacksam för svar...
// Reka

ADODB.Recordset.1 error '80004005'

Statement with cursor named in this statement's CURRENT-OF-CURSOR clause is not a SELECT FOR UPDATE.

/upr/laggtill.asp, line 91

<% dim Vecka
Vecka = DatePart("ww",Date(),2,2)
[bortklippt]
gris = "26"
elseif request.form("login") = "stso" then
gris = "27"
else
response.write "Fel på 1:a satsen eller felaktigt login"
end if

dim sok
sok = weekday(date, 2)

' Omvandla datum
if sok = "1" then
sok = "Mon"
elseif sok = "2" then
sok = "Tues"
elseif sok = "3" then
sok = "Wed"
elseif sok = "4" then
sok = "Thu"
elseif sok = "5" then
sok = "Fri"
else
response.write "Fel på 2:a satsen eller Lördag / Söndag"
end if

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN=XXX;Password=XXX"

Set RecSet = Server.CreateObject("ADODB.Recordset")
Uppdatera = "SELECT * FROM narvaro WHERE ID=" & CInt(Request.Form("AnvID") & gris)

RecSet.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic, adCmdText

RecSet(sok) = "X"
RecSet.Update <== RAD 91

RecSet.Close
Connect.Close

%>

Antagligen använder du fel cursortype, eftersom du inte valt någon blir det en förvald, som inte alltid passar. Jag har ingen jättekoll på de olika typerna, men prova att skriva RecSet.CursorType = adOpenKeyset
på raden före RecSet.Open Uppdatera