Syntax error in INSERT INTO statement.
Jeg har stirret mig blind på dette problem.Jeg har en side til en nyhedsside men så kommer pdoblemet. Jeg har tilføjet en ekstra række i DB og nu vil siden ikke godtage den.
Siden er som følger.
********
<%
Option Explicit
Dim Conn, DSN, vbGenerel, strNyhed, strOverskrift, strNavn, strSQL, VisNyheder
Response.Buffer=True
%>
<%
If session("godkendt") = False then
Response.Redirect "login.asp"
Else
End If
%>
<!--#include file="../include/dbconn.inc"-->
<html>
<head>
<title>Velkommen til Nyheds-administration...</title>
</head>
<body>
<center>
<h3>Opret nyhed...</h3>
</center>
<%
If Request.Form("nyhed")<>"" And Request.Form("overskrift")<>"" And Request.Form("navn")<>"" Then
strNyhed = Replace(Request.Form("nyhed"), vbcrlf, "<br>")
strNyhed = Replace(strNyhed, "'", "''")
strOverskrift = Replace(Request.Form("overskrift"), "'", "''")
strNavn = Replace(Request.Form("navn"), "'", "''")
strSQL = "Insert into Nyheder ("
strSQL = strSQL & "Nyhed, "
strSQL = strSQL & "Dato, "
strSQL = strSQL & "Oskrift "
strSQL = strSQL & "IndsatAF) "
strSQL = strSQL & "values("
strSQL = strSQL & "'" & strNyhed & "', "
strSQL = strSQL & "'" & Request.Form("dato") & "', "
strSQL = strSQL & "'" & strOverskrift & "') "
strSQL = strSQL & "'" & strNavn & "') "
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Redirect ("pw_admin.asp")
Else
Response.Write "<center><b>Du skal udfylde alle felter, ellers bliver der IKKE <br>oprettet nogen nyhed!</b></center><br>"
%>
<FORM method="post" action="../nyhed/pw_opret.asp" name="pwopret">
<table border=1 cellspacing=0 cellpadding=3 width="500" align=center>
<tr>
<td width="35%"> Oprettet
<% Response.Write FormatDateTime(Now, 2) %> <input type="hidden" name="dato" size="30" readonly=yes value="<% Response.Write FormatDateTime(Now, 2) %>"></td>
<td width="35%"><input type="text" name="overskrift" size="20" value="Overskrift..">
</td>
<td width="30%"><input type="text" name="navn" size="20" value="Dit navn..">
</td>
</tr>
<tr>
<td colspan="3"> <TEXTAREA NAME="nyhed" ROWS="5" COLS="60" WRAP="off">
Skriv nyhed her...</TEXTAREA>
</td>
</tr>
<tr>
<td colspan="3"> <INPUT TYPE="Submit" VALUE="Opret nyhed">
<INPUT TYPE="Reset" VALUE="Nulstil alt"> </td>
</tr>
</table>
</FORM>
<%
End if
%>
<center>
<b><a href="../admin.asp">Gå tilbage uden at oprette en nyhed...</a></b>
</center>
</body>
</html>
