Mailingliste

Jeg har en mailingliste jeg anvender på to forskellige websteder. På det ene fungerer det fint, mens det melder fejl på det andet...?!


Microsoft OLE DB Provider for ODBC Drivers error \'80004005\'

[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

/nybruger.asp, line 21

Filen ser således ud:<% response.buffer = True %>

<%
email = Trim(Request.Form(\"email\"))

If Len(email) = 0 Then
besked = \"Du skal indtaste en email adresse\"

Else

if Request.Form(\"valg\") = \"1\" then

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"mail.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM mail WHERE email=\'\" & email & \"\'\"
rs.Open strSQL, Conn, 1, 3
if rs.EOF then
rs.AddNew
rs(\"email\") = email
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
Besked = \"Du er nu optaget på mailinglisten\"
else
Besked = \"Emailen er allerede på listen\"
end if
end if

if Request.Form(\"valg\") = \"2\" then

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"mail.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM mail WHERE email=\'\" & email & \"\'\"
rs.Open strSQL, Conn, 1, 3
if rs.EOF then
Besked = \"Emailen er IKKE på listen\"
else
Conn.Execute (\"DELETE * FROM mail WHERE email=\'\" & email & \"\'\")
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
Besked = \"Du er nu fjernet fra mailinglisten\"
end if

end if

end if
%>

Any suggestions?