När jag kör detta så får jag
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/submit.asp, line 22
<% response.buffer = true %>
<html>
<head><title></title>
</head>
<%
if request.form("namn") = "" OR request.form("meddelande") = "" OR request.form("email") = "" then
response.write "<font face=verdana size=2>Du måste fylla i alla fält!"
else
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\databas.mdb") & ";pwd=lösenordet;"
SQL = "SELECT * From Inlagg"
rs.Open SQL, Conn, 1, 2
rs.AddNew
rs("Namn") = request.form("namn")
rs("Meddelande") = Server.HTMLEncode(request.form("meddelande"))
rs("Email") = request.form("email")
rs("Url") = request.form("Url")
rs("IP") = request.servervariables("REMOTE_ADDR")
rs.Update
response.write "<font face=verdana size=2>Tack för ditt inlägg.<br>"
response.write "<a href=gastbok.asp>Gå till gästboken</a>"
rs.Close
Conn.Close
end if
%>
</body>
</html>