Problemer med update af recordset....
når jeg skyder dette af:\'Create and Open Connection Object
Set OBJdbConn = Server.CreateObject(\"ADODB.Connection\")
OBJdbConn.Open sConnStr
\'Create and Open Recordset Object
Set RsEmails = Server.CreateObject(\"ADODB.Recordset\")
RsEmails.ActiveConnection = OBJdbConn
RsEmails.CursorType = adOpenKeyset
RsEmails.LockType = adLockOptimistic
RsEmails.Source = \"EmailAddresses\"
RsEmails.Open
RsEmails.AddNew
RsEmails(\"Created\") = Now()
Select Case Request.Form(\"newsletter\")
Case \"bymail\"
RsEmails(\"By_Mail\") = True
Case \"byemail\"
RsEmails(\"By_Email\") = True
Case \"both\"
RsEmails(\"By_Mail\") = True
RsEmails(\"By_Email\") = True
End select
If Request.Form(\"courtesy_title\") <> \"<Select>\" Then
RsEmails(\"courtesy_title\") = Request.Form(\"courtesy_title\")
End if
RsEmails(\"fname\") = \"\" & Request.Form(\"fname\")
RsEmails(\"lname\") = \"\" & Request.Form(\"lname\")
RsEmails(\"position\") = \"\" & Request.Form(\"position\")
RsEmails(\"address\") = \"\" & Request.Form(\"address\")
RsEmails(\"city\") = \"\" & Request.Form(\"city\")
RsEmails(\"country\") = \"\" & Request.Form(\"country\")
RsEmails(\"state\") = \"\" & Request.Form(\"state\")
RsEmails(\"zip\") = \"\" & Request.Form(\"zip\")
RsEmails(\"phone\") = \"\" & Request.Form(\"phone\")
RsEmails(\"emailAddress\") = \"\" & Request.Form(\"emailAddress\")
RsEmails.Update
RsEmails.MoveFirst
RsEmails.Close
Set RsEmails = Nothing
OBJdbConn.Close
Får jeg fejlen:
Microsoft OLE DB Provider for ODBC Drivers error \'80004005\'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/docs/EmailFunctions.inc, line 117
