Skrive til Access
jeg sidder og prøver at lave et script til digte.... når jeg vil sende digtet til databasen så gemmer den ikke de informationer jeg skriver. Jeg får denne fejl:Microsoft JET Database Engine error '80040e14'
Syntax error in INSERT INTO statement.
form_ac.asp, line 36
----------------
add.asp
<html>
<head>
<title></title>
</head>
<body>
<FONT FACE="VERDANA" SIZE="2"><b>Bemærk:</b> Dit digt bliver <b>ikke</b> vist før jeg har svaret og godkendt dit digt.</FONT><p>
<center><FONT FACE="VERDANA" SIZE="2">Tilføj digt</FONT></center><br>
<form action="form_ac.asp" method="post">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="381">
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">Navn:</FONT></td>
<td width="381"><input type="text" name="Name" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">E-Mail:</FONT></td>
<td width="381"><input type="text" name="Email" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="31%" valign="top"><font face="verdana" size="2">Kategori:</font></td>
<td width="69%">
<select size="1" name="kategori">
<option>Vælg kategori</option>
<option value="Mænd">Mænd</option>
<option value="Kvinder">Kvinder</option>
<option value="Kærlighed">Kærlighed</option>
</select>
</td>
</tr>
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">Forfatter:</FONT></td>
<td width="381"><input type="text" name="Forfatter" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="2">Overskrift:</FONT></td>
<td width="381"><input type="text" name="Topic" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81" valign="top"><FONT FACE="VERDANA" SIZE="2">Digt:</FONT></td>
<td width="381"><textarea class="area" rows="4" name="Text" cols="33"></textarea></td>
</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="Send digt" name="Send" class="button"></p>
<p align="center"><font face="Verdana" size="1"><a href="digte.asp">Tilbage </a></font></p>
</form>
</FONT> </td>
</tr>
</table></center>
</body>
</html>
</body>
</html>
form_ac.asp
<html>
<head>
<title></title>
</head>
<body>
<center><FONT FACE="VERDANA" SIZE="2">Tilføj digt</FONT></center><br>
<%
' Declaring variables
Dim Name, Email, kategori, Forfatter, Topic, Text, data_source, con, sql_insert
' A Function to check if some field entered by News is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function
' Receiving values from Form
Name = ChkString(Request.Form("Name"))
Email = ChkString(Request.Form("Email"))
kategori = ChkString(Request.Form("kategori"))
Forfatter = ChkString(Request.Form("Forfatter"))
Topic = ChkString(Request.Form("Topic"))
Text = ChkString(Request.Form("Text"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("digte.mdb")
sql_insert = "insert into News (Name, Email, kategori, Forfatter, Topic, Text, date) values ('" & _
Name & "', '" & Email & "', '" & kategori & "','" & Forfatter & "', '" & Topic & "', '" & Text & "','"&date()&"')"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert
' Done. Close the connection
con.Close
Set con = Nothing
Response.Write "<FONT FACE='VERDANA' SIZE='2'>Tak for dit digt.</FONT><br>"
%>
</td>
</tr>
</table></center>
</body>
</html>
