ok, så kan jeg igen ikke finde ud af det..
Hejjeg forstår ikke hvad jeg gør galt... jeg har prøvet nøjagtig samme kode på en anden maskine og det virkede, men hjemme på min egen maskine virker det ikke...
jeg får følgende fejl:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Databasen eller objektet er skrivebeskyttet og kan ikke opdateres.
/bolignet/addKontakt.asp, line 32
linie 32 er ved : rs.Update
her er koden:
<!--#include file=\"menu.asp\"-->
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set tempConn = Server.CreateObject(\"ADODB.Connection\")
tempConn = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"log/bolignet.mdb\")
If Request.Form(\"gem\") <> \"\" Then
afsender = Trim(Request.Form(\"afsender\"))
email = Trim(Request.Form(\"email\"))
telefon = Trim(Request.Form(\"telefon\"))
emne = Trim(Request.Form(\"emne\"))
tekst = Trim(Request.Form(\"tekst\"))
strSQL = \"SELECT * FROM kontakt WHERE (kontaktid=0)\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF OR rs.EOF) Then
rs.AddNew
rs(\"afsender\") = afsender
rs(\"email\") = email
rs(\"telefon\") = telefon
rs(\"emne\") = emne
rs(\"tekst\") = tekst
rs.Update
End If
rs.Close
Set rs = Nothing
If Request.Form(\"gem\") <> \"\" Then
response.redirect \"takkontakt.htm\"
end if
end if
%>
<html>
<head>
<title>Tilføj kontakt henvendelse til database</title>
</head>
<body bgcolor=\"#FFFFFF\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\">
<form method=\"post\" name=\"kontaktform\" action=\"addKontakt.asp\">
<table width=\"593\" border=\"0\" cellspacing=\"5\" cellpadding=\"0\">
<tr valign=\"bottom\">
<td colspan=\"5\"> </td>
</tr>
<tr>
<td width=\"14%\" height=\"14\" valign=\"middle\">afsender</td>
<td height=\"14\" valign=\"middle\" colspan=\"4\">
<input type=\"text\" name=\"afsender\" size=\"50\">
</td>
</tr>
<tr>
<td width=\"14%\">email</td>
<td height=\"14\" valign=\"middle\" colspan=\"4\">
<input type=\"text\" name=\"email\" size=\"50\">
</td>
</tr>
<tr>
<td width=\"14%\" height=\"28\">telefon</td>
<td valign=\"middle\" height=\"14\" colspan=\"4\">
<input type=\"text\" name=\"telefon\">
</td>
</tr>
<tr>
<td width=\"14%\" height=\"28\">emne</td>
<td valign=\"middle\" height=\"14\" colspan=\"4\">
<input type=\"text\" name=\"emne\">
</td>
</tr>
<tr>
<td width=\"14%\">Spørgsmål</td>
<td height=\"14\" valign=\"middle\" colspan=\"4\">
<textarea name=\"tekst\" size=\"255\" cols=\"38\" rows=\"7\" wrap=\"VIRTUAL\"></textarea>
</td>
</tr>
<tr>
<td width=\"14%\" valign=\"top\"> </td>
<td colspan=\"4\"> </td>
</tr>
<tr>
<td width=\"14%\" valign=\"top\"> </td>
<td width=\"17%\">
<input type=\"submit\" name=\"gem\" value=\"send\">
</td>
<td width=\"31%\" valign=\"bottom\">
<input type=\"reset\" name=\"Submit2\" value=\"reset\">
</td>
<td valign=\"bottom\" colspan=\"2\" width=\"38%\"> </td>
</tr>
</table>
</form>
</body>
</html>
