Fejl ved skrivning til database
Hej jeg har problemer med at opdatere min database via asp.Her er fejlen:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/bif/admin/opdater.asp, line 53
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)
Page:
POST 53 bytes to /bif/admin/opdater.asp
POST Data:
txtinfo=456&cmdOpdater=Opdater&kommando=opdater&id=11
Her er min kode:
<%@language=vbscript%>
<% Response.Buffer= true%>
<html>
<head>
<title>Retning</title>
</head>
<body>
<%
'on error resume next
if Request.Form("kommando") <> "opdater" then
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={Microsoft Access Driver (*.mdb)};;DBQ=C:/inetpub/wwwroot/bif/admin/database.mdb;"
SQL_query = "SELECT * FROM Info WHERE id=" & Request.QueryString("id")
set rs = Con.Execute(SQL_query)
%>
<p>Skriv teksten enden for</p>
<form method="post" action='<%=Request.ServerVariables("SCRIPT_NAME")%>' name="brugerdata">
<table border="0" width="100%">
<tr>
<td width="1%">Info tekst:</td>
<td width="59%"><input name="txtinfo" size="30" value='<%=rs("tekst")%>'
></td>
</tr>
</table>
<p><input type="submit" value="Opdater" name="cmdOpdater"></p>
<input type="hidden" value="opdater" name="kommando">
<input type="hidden" value='<%=rs("id")%>' name="id">
</form>
<%
rs.Close
con.close
set rs=nothing
set con=nothing
else
'Opret et Connection-objekt
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};;DBQ=C:/inetpub/wwwroot/bif/admin/database.mdb;"
'Gem formulardata
id =Request.Form("id")
fn =Request.Form("txtinfo")
strSQL= "UPDATE Info SET tekst='" & fn & "'"
strSQL= strSQL & "WHERE id=" & id
cn.Execute(strSQL)
cn.Close
set cn=nothing
Response.Redirect "dbadgang.asp"
end if
%>
</body>
</html>
