Indsæt data i database
Jeg har lavet et lille news system med en access database, den henter fint nyhederne, men når jeg skal sætte nogle ind med dette kode, så laver den denne fejl:jeg har indsat fejlen og koden på de 2 filer.
Tekniske oplysninger (for supportteknikere)
Fejltype:
Microsoft JET Database Engine (0x80004005)
Handlingen skal bruge en opdaterbar forespørgsel.
/michael/insert.asp, line 17
Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 1.0.3705)
Side:
POST 60 bytes to /michael/insert.asp
POST Data:
overskrift=asdasd&forfatter=asdasd&email=asdasd&nyhed=asdasd
Klokkeslæt:
18. august 2004, 09:23:43
Yderligere oplysninger:
Microsoft Support
News.asp:
<table width="100%" border="1">
<tr>
<td width="100%" Class=MenuTop><b>Opret Nyhed</td>
</tr>
<tr>
<td width="100%">
<form method="post" action="insert.asp">
Overskrift:<br>
<input type="text" name="overskrift" size="40"><br>
Forfatter:<br>
<input type="text" name="forfatter" size="40"><br>
E-Mail:<br>
<input type="text" name="email" size="40"><br>
Nyheden:<br>
<TEXTAREA id="Textarea1" name="nyhed" rows="5" cols="30"></TEXTAREA>
<br>
<input type="submit" value="Send" class="button"> <input type="reset" value="Slet" class="button">
</form>
</td>
</tr>
</table>
Insert.asp:
<%
Dim strSQL
' Server.MapPath ("database.mdb")
' ADODB Connection objekt
Set Conn = Server.CreateObject("ADODB.Connection")
'
' DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\michael\database.mdb;"
Conn.Open DSN
strSQL = "INSERT INTO news (Overskrift,forfatter,nyhed) VALUES ('" & Request.Form("overskrift") & "','" & Request.Form("forfatter") & "','" & Request.Form("nyhed") & "')"
Conn.Execute(strSQL)
Response.Redirect "news.asp"
Conn.Close
Set Conn = nothing
%>
