Microsoft JET Database Engine error '80004005'
Operation must use an updateable query.
/add_file.asp, line 27
<%
Option Explicit
%>
<html>
<head>
<title>Add File To Data Base</title>
<style fprolloverstyle>A:hover {color: #FF0000; font-family: Verdana; font-size: 12pts.}
</style>
</head>
<body bgcolor="#FFE4CA" vlink="#0000FF">
<%
Dim FilePath, Description, conn, path, DsnAccess, rs, sqlstring
FilePath = Trim(Cstr(Request.Form("Fi
lePath")))
Description = Trim(Cstr(Request.Form("De
scription"
)))
If FilePath <> "" and Description <> "" Then
set conn = server.createobject("adodb
.connectio
n")
path = server.mappath("filedb.mdb
")
DsnAccess = "Provider=Microsoft.Jet.OL
EDB.4.0;Da
ta Source="& path
conn.open DsnAccess
set rs = server.createobject ("adodb.recordset")
sqlstring = "insert into list(description, filepath) values('" & Description & "', '" & FilePath & "')"
set rs = conn.execute(sqlstring)
conn.close
set rs = nothing
set conn = nothing
Response.Write "<font face=""Verdana"" size=""2"">File successfully submited!</font>"
Response.Write "<p><font face=""Verdana"" size=""2""><a href=""add_file.asp"">Subm
it More Files</a> | <a href=""default.asp"">Execu
te Files</a> | <a href=""delete.asp"">Delete
Files</a></font></p>"
Else
%><form method="POST" action="add_file.asp">
<p>
<font face="Verdana"><b>Choose File to Add to Data Base</b></font></p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="13%">
<font face="Verdana" size="2">File Path:</font></td>
<td width="87%">
<input type="file" name="FilePath" size="60" style="font-family: Verdana; font-size: 12pts."><font face="Verdana" size="2"> </font>
<font size="2">(*)</font></td>
</tr>
<tr>
<td width="13%">
<font face="Verdana" size="2">File Description:</font></td>
<td width="87%">
<input type="text" name="Description" size="60" style="font-family: Verdana; font-size: 12pts."></td>
</tr>
</table>
<p>
<font face="Verdana"><font size="1">(*) only .exe files are supported!<br>
</font><br>
<input type="submit" value="Submit" name="Submit" style="font-family: Verdana; font-size: 12pts.">
<input type="reset" value="Reset" name="Reset" style="font-family: Verdana; font-size: 12pts."></font></p>
</form>
<p><font face="Verdana" size="2"><a href="upl.asp">Execute Files</a> | <a href="delete.asp">Delete Files</a></font></p>
<%
End If
%>
</body>
</html>
Any suggestions?