Når jeg prøver at skrive til min database fra default.asp kommer
den med en fejl meddelelse:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an
updateable query.
/default.asp, line 18
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Q312461)
Page:
POST 62 bytes to /default.asp
Min default.asp ser sådan ud:<%
'Åbn databasen
Set conntemp = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
server.mappath("db.mdb") & "; UID=Administrator; PWD="
conntemp.open DSN
response.write "<HTML><HEAD><TITLE>Nyhedsoversigt</TITLE><LINK
rel=""stylesheet"" type=""text/css""
href=""style.css""></HEAD><BODY bgcolor=""#999999"">"
response.write "<DIV align=""center""><TABLE width=""70%""
cellspacing=""0"" cellpadding=""5"" BORDER=""0""
height=""80%""><TR><TD style=""BORDER: #000000 1px solid""
bgcolor=""#c0c0c0"" valign=""top"">"
mode=request("mode")
' ********************************* Tilføj nyhed
if mode="news" and request("functions") = "add" then
If Request.Form("Add") <> "" Then
'Indsæt i databasen
SQL = "INSERT INTO [Nyheder] (navn,mail,emne,kommentar)
VALUES ('" & request("navn") & "', '" & request("mail") & "', '"
& request("emne") & "', '" & request("kommentar") & "')"
conntemp.execute(sql)
response.write "<FONT face=""arial"" size=""2""><B>Nyheden
er nu oprettet!, klik <a
href=""default.asp""><B>her</B></a></FONT>"
Else
response.write "<FORM
action=""default.asp?mode=news&functions=add""
method=""post""><FONT face=""arial"" size=""2"">"
response.write "<B>Navn:<br></B><input name=""navn""
size=""35"" class=""oneline""><br><br>"
response.write "<B>Email:<br></B><input name=""mail""
size=""35"" class=""oneline""><br><br>"
response.write "<B>Emne:<br></B><input name=""emne""
size=""35"" class=""oneline""><br><br>"
response.write "<B>Kommentar:<br></B><TEXTAREA
name=""kommentar"" cols=""35"" rows=""8""
class=""box""></TEXTAREA><br><br>"
response.write "<input type=""submit"" name=""add""
class=""box"" value=""OPRET NYHED""></FORM>"
response.write "Bemærk at nyheden ikke vil blive vist før
at den er blevet accepteret!!</FONT>"
End if
' ********************************* Vis nyhed
Elseif mode="news" and request("id") <> "" then
sql = "SELECT * from Nyheder WHERE id="& request("id") &" "
set rstemp = conntemp.execute(sql)
'Hvis nyheden er accepteret
if rstemp("vis") = true then
response.write "<FONT face=""arial"" size=""2"">" &
rstemp("emne") & " (<B>" & rstemp("dato") & " " &
rstemp("tid") & "</B>)<br>"
response.write "" & rstemp("kommentar") & ""
response.write "<br><br>Af: <a href=""mailto:" &
rstemp("mail") & """>" & rstemp("navn") & "</a></FONT>"
'Hvis nyheden ikke er accepteret
else
response.write "<FONT face=""arial"" size=""2""><B>Denne
nyhed kan ikke vises!!</B></FONT>"
end if
rstemp.close
' ********************************* Vis alle nyheder
else
sql = "SELECT * from [Nyheder] where vis=-1 ORDER BY dato
desc,tid desc"
set rstemp = conntemp.execute(sql)
response.write "<FONT face=""arial""
size=""2""><B>Nyheder:</B><BR>"
do while not (rstemp.eof or rstemp.bof)
response.write "<a href=""default.asp?mode=news&id=" &
rstemp("id") & """>" & rstemp("emne") & " <B>(" & rstemp("dato")
& " " & rstemp("tid") & ")</B></a><br>"
rstemp.movenext
loop
rstemp.close
response.write "<br><br>Klik <a
href=""default.asp?mode=news&functions=add""><B>her</B></a> for
at tilføje en nyhed..</FONT>"
end if
response.write "</TD></TR></TABLE></DIV>"
response.write "</BODY></HTML>"
'Luk databasen
conntemp.close
set conntemp=nothing
%>
Håber der er en der kan hjælpe mig
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials