Fejl = Hjælp :)
Microsoft OLE DB Provider for ODBC Drivers error '80004005'[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/files/admin.asp, line 18
------------------------Koden ------------------------
<%
'Åbn databasen
Set conntemp = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("artikle.mdb") & "; UID=Administrator; PWD="
conntemp.open DSN
response.write "<HTML><HEAD><TITLE>Artikleoversigt</TITLE><LINK rel=""stylesheet"" type=""text/css"" href=""style.css""></HEAD><BODY bgcolor=""#000000"">"
response.write "<DIV align=""center""><TABLE width=""70%"" cellspacing=""0"" cellpadding=""5"" BORDER=""0"" height=""80%""><TR><TD style=""BORDER: #c0c0c0 1px solid"" bgcolor=""#c0c0c0"" valign=""top"">"
mode=request("mode")
' ********************************* Tilføj Artikle
if mode="news" and request("functions") = "add" then
If Request.Form("Add") <> "" Then
'Indsæt i databasen
SQL = "INSERT INTO [Artikle] (navn,mail,emne,kommentar,vis) VALUES ('" & request("navn") & "', '" & request("mail") & "', '" & request("emne") & "', '" & request("kommentar") & "', true)"
conntemp.execute(sql)
response.write "<FONT face=""arial"" size=""2""><B>Artikle er nu oprettet!, klik <a href=""admin.asp""><u><B>her</B></u></a> for at gå tilbage til nyhedsoversigten</FONT>"
Else
response.write "<FORM action=""admin.asp?mode=news&functions=add"" method=""post""><FONT face=""arial"" size=""2"">"
response.write "<B>Navn:<br></B><input type=text name=""navn"" size=""35"" class=""tolines""><br><br>"
response.write "<B>Email:<br></B><input type=text name=""mail"" size=""35"" class=""tolines""><br><br>"
response.write "<B>Emne:<br></B><input type=text name=""emne"" size=""35"" class=""tolines""><br><br>"
response.write "<B>Kommentar:<br></B><TEXTAREA name=""kommentar"" cols=""35"" rows=""8"" class=""toboxs""></TEXTAREA><br><BR>"
response.write "<input type=""submit"" name=""add"" class=""box"" value=""OPRET ARTIKLE""></FORM>"
End if
' ********************************* Slet Artikle
Elseif mode="news" and request("nr") <> "" then
SQL = "DELETE FROM [Artikle] WHERE ID=" & request("nr")
conntemp.execute(sql)
response.write "<FONT face=""arial"" size=""2""><B>Artiklen er nu slettet!, klik <a href=""admin.asp""><u><B>her</B></u></a> for at gå tilbage til nyhedsoversigten</FONT>"
' ********************************* Vis Artikle
Elseif mode="news" and request("id") <> "" then
If Request.Form("update") <> "" Then
'Opdater Artiklen
SQL = "UPDATE Artikle SET navn ='" & request("navn") & "', mail ='" & request("mail") & "', emne ='" & request("emne") & "', Kommentar ='" & request("kommentar") & "', vis =" & request("vis") & " WHERE id="& request("id")&""
conntemp.execute(SQL)
response.write "<FONT face=""arial"" size=""2""><B>Artiklen er nu opdateret!, klik <a href=""admin.asp""><u><B>her</B></u></a> for at gå tilbage til Artiklenoversigten</FONT>"
Else
sql = "SELECT * from Artikle WHERE id="& request("id") &" "
set rstemp = conntemp.execute(sql)
response.write "<FORM action=admin.asp?mode=news&id=" & request("id")&" method=post><FONT face=arial size=2>"
response.write "<B>Navn:<br></B><input type=text name=navn size=35 class=oneline value="& rstemp("navn") &"><br><br>"
response.write "<B>Email:<br></B><input name=mail size=35 class=oneline value='"& rstemp("mail") &"'><br><br>"
response.write "<B>Emne:<br></B><input name=emne size=35 class=oneline value='"& rstemp("emne") &"'><br><br>"
response.write "<B>Kommentar:<br></B><TEXTAREA name=kommentar cols=35 rows=8 class=box>"& rstemp("kommentar") &"</TEXTAREA><br><br>"
response.write "<B>Vis</B><br>"
if rstemp("vis") = true then
response.write "<select size=1 class=box name=vis><option selected value=1>Ja</option><option value=0>Nej</option></select><br><br>"
else
response.write "<select size=1 class=box name=vis><option selected value=0>Nej</option><option value=1>Ja</option></select><br><br>"
end if
response.write "<input type=submit name=update class=box value=OPDATER ARTIKLEN></FORM>"
rstemp.close
End if
' ********************************* Vis alle Artikler
else
sql = "SELECT * from [Artikle] where vis=0 ORDER BY dato desc,tid desc"
set rstemp = conntemp.execute(sql)
response.write "<FONT face=""arial"" size=""2""><B>Ikke godkendte Artikler:</B><BR>"
do while not (rstemp.eof or rstemp.bof)
response.write "<a href=""admin.asp?mode=news&id=" & rstemp("id") & """>" & rstemp("emne") & " (" & rstemp("dato") & " " & rstemp("tid") & ") <a href=""admin.asp?mode=news&nr=" & rstemp("id") & "&functions=delete""><B>(slet)</B></a></a><br>"
rstemp.movenext
loop
rstemp.close
response.write "<br><br>"
sql = "SELECT * from [Artikle] where vis=-1 ORDER BY dato desc,tid desc"
set rstemp = conntemp.execute(sql)
response.write "<FONT face=""arial"" size=""2""><B>Godkendte Artikler:</B><BR>"
do while not (rstemp.eof or rstemp.bof)
response.write "<a href=""admin.asp?mode=news&id=" & rstemp("id") & """>" & rstemp("emne") & " (" & rstemp("dato") & " " & rstemp("tid") & ") <a href=""admin.asp?mode=news&nr=" & rstemp("id") & "&functions=delete""><B>(slet)</B></a></a><br>"
rstemp.movenext
loop
rstemp.close
response.write "<br><br>Klik <a href=""admin.asp?mode=news&functions=add""><B><u>her</u></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
%>
