Feltyp:
Microsoft JET Database Engine (0x80004005)
Operationen måste använda en fråga som kan uppdateras.

<%
Function SQLText(Value)
If Len(Value) > 0 Then
SQLText = "'" & Replace(Value, "'", "''") & "'"
Else
SQLText = "Null"
End If
End Function

Dim Connect
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("db/logindata.mdb")

Uppdatera = "UPDATE users SET adress = " & SQLText(Request.Form("adress")) & ", " & vbCrLf & _
" postnr = " & SQLText(Request.Form("postnr")) & ", " & vbCrLf & _
" postort = " & SQLText(Request.Form("postort")) & ", " & vbCrLf & _
" email = " & SQLText(Request.Form("email")) & ", " & vbCrLf & _
" tele = " & SQLText(Request.Form("tele")) & vbCrLf & _
"WHERE ID = " & Session("ID")


Connect.Execute=Uppdatera

Connect.Close
Set Connect = Nothing

Session("adress") = Request.Form("adress")
Session("postnr") = Request.Form("postnr")
Session("postort") = Request.Form("postort")
Session("email") = Request.Form("email")
Session("tele") = Request.Form("tele")

%>

Låter som rättighetsproblem: http://www.pellesoft.nu/login/faq/t_view4.asp?tid=676

Nej det är inte det som är felet :(

Ok. Hur ser din sql-fråga ut om du skriver ut den? Borde det inte vara
<code>
Connect.Execute Uppdatera
</code>

Om du kör en update, insert, eller delete kan/ska du göra på fäljande sätt:
<code>
Connect.Execute(Uppdatera),,128
</code>
,,128 gör så att inget recordset returneras vid execute statementet