Syntax error
I min rettefunktion i mit nyhedsmodul får jeg denne fejl:Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/admin/administrator/ret.asp, line 112
Jeg har så prøvet at response.write(strSQL)
og får så denne besked: Update News Set Date='', Subject= '', Text= '' Where ID=;
Er der nogen der kan hjælpe mig?
Koden på hele siden er:
<!-- #INCLUDE FILE="../brugercheck.inc" -->
<!--------#include file="../pro-lag.inc"----->
<%
'Option Explicit
Dim Conn, DSN, retid, strSQL, rs, frmRetid, strDate, strSubject, strText
Response.Buffer=false
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../log/safarinews.mdb")
Conn.Open connString
%>
<html>
<head>
<title>Ret Menu</title>
</head>
<body background="../images/t.gif" topmargin="15">
<br><br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber3">
<tr>
<td width="150" style="border-bottom: 1px solid #000000" > </td>
<td width="500" style="border-bottom: 1px solid #000000" ><font face="verdana" size="2">Administration i det valgte område
= <font color="#FF0000">Nyheder</font></font></td>
</tr></table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber2">
<tr>
<td width="150" valign="top"><!---#include file="menu_includ.asp"---></td>
<td width="500">
<%
If Request.Querystring("retid") <> "" Then
retid = Request.Querystring("retid")
strSQL ="Select * From News Where ID =" & retid
Set rs = Conn.Execute(strSQL)
do while not rs.eof
%>
<FORM method="post" name="ret" action="ret_main.asp">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber1">
<tr>
<td width="100%" align="left"> </td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="500" height="106" bordercolor="#111111" >
<tr>
<td width="100" height="25" ><font face="verdana" size="2"><b> Ændret den:</b></font></td>
<td width="400" height="25" colspan="2" ><INPUT name="Dato" size="40" value="<%Response.Write rs("Date")%>"></td>
</tr>
<tr>
<td width="100" height="25" ><font face="verdana" size="2"><b> Overskrift:</b></font></td>
<td width="400" height="25" colspan="2" ><INPUT name="Navn" size="40" value="<%Response.Write rs("Subject")%>"></td>
</tr>
<tr>
<td width="100" height="25" valign="top" ><font face="verdana" size="2"><b> Tekst:</b></font></td>
<td width="400" height="25" colspan="2" ><textarea rows="4" cols="30" name="Tekst"><%Response.Write rs("Text")%></textarea></td>
</tr>
<tr>
<td width="100" height="25" ><font face="verdana" size="2"><b> </b></font></td>
<td width="156" height="25" >
<align="center">
<input type="hidden" NAME="frmRetid" value="<%Response.Write Request.Querystring("retid")%>">
<INPUT type="submit" value="UPDATE" style="font-family: Verdana; font-size: 8pt"></td>
<td width="244" height="25" >
</td>
</tr>
<tr>
<td width="100">
<align="center">
</td>
</tr>
</table>
</center>
</div>
</td>
</FORM>
<%
rs.MoveNext
loop
Elseif Request.Querystring("retid") = "" Then
frmRetid = Request.Form("frmRetid")
strDate = Replace(Request.Form("Date"), vbcrlf, "<br>")
' strDate = Replace(strDate, "'", "''")
strSubject = Replace(Request.Form("Subject"), "'", "''")
strText = Replace(Request.Form("Text"), "'", "''")
strSQL = "Update News Set Date='" & strDate & "', Subject= '" & strSubject & "', Text= '" & strText & "' Where ID=" & frmRetid & ";"
response.write(strSQL)
'Conn.Execute(strSQL)
'Response.Redirect ("ret_main.asp")
End if
%>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
