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
Frågan#1
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
%>