Fejl i INSERT INTO sætning..

Hej eksperter...

Jeg får en syntaksfejl i denne insert into sætning.. forstår det ikke...


<!--#include virtual="/_global/dbconn.asp"-->

<%
openConn()
cmd = Request.Querystring("cmd")

If cmd = "write" Then

    strDebatid    = Request.Form("userid")
    strName        = Replace(Request.Form("name"),"'","´")
    strEmail    = Replace(Request.Form("email"),"'","´")
    strContext    = Replace(Request.Form("context"),"'","´")
    strDate        = Now()
    strIp        = Request.servervariables("REMOTE_ADDR")

    strSQL = "INSERT INTO debat_comment (debatid, name, email, context, date, ip) values ( '" & strDebatid & "', '" & strName & "', '" & strEmail & "', '" & strContext & "', '" & strDate & "', '" & strIp & "')"
    Response.Write(strSQL)
    connection.Execute(strSQL)

Else

strId = Cint(Request.Querystring("id"))
strSQL = "SELECT debat.id,debat.headline,debat.context,debat.date,debat.name FROM debat ORDER BY debat.date desc"
Set rs = connection.Execute(strSQL)

If (rs.EOF or rs.BOF) Then
    Response.Write("Artiklen kunne ikke findes")
Else
%>

    Dato:<br>
    <%=Replace(FormatDateTime(rs("date"),2),"-",".")%><br><br>
    Klokken:<br>
    <%=FormatDateTime(rs("date"),4)%><br><br>
    Navn:<br>
    <%=rs("name")%><br><br>
    Overskrift:<br>
    <%=rs("headline")%><br><br>
    Indhold:<br>
    <%=rs("context")%><br><br>
    <hr>

    <%
    strDebatId = rs("id")
    strSQL = "SELECT debat_comment.id,debat_comment.debatid,debat_comment.name,debat_comment.email,debat_comment.context,debat_comment.date,debat_comment.ip,debat_comment.deleted FROM debat_comment WHERE debat_comment.debatid=" & strDebatID
    Set rsDebat = connection.Execute(strSQL)
    i = 0

    If (rsDebat.EOF or rsDebat.BOF) Then
        Reponse.Write("Der er ingen kommentarer.")
    Else
        Do while not (rsDebat.EOF or rsDebat.BOF)

        If rsDebat("deleted") = True Then
            Response.Write("")
        Else
        i = i + 1
    %>
            Indlæg nummer: <%=i%><br>
            Navn: <%=rsDebat("name")%><br>
            Email: <%=rsDebat("email")%><br>
            Dato: <%=Replace(FormatDateTime(rs("date"),2),"-",".")%><br>
            Klokken: <%=FormatDateTime(rs("date"),4)%><br>
            Indhold:<br> <%=rsDebat("context")%>
            <hr>
    <%
        End if   
        rsDebat.Movenext
        loop
    End if
    %>
    <form method="post" action="?cmd=write">
    Navn: <input type="text" name="name"><br>
    Email: <input type="text" name="email"><br>
    Indhold:<br><textarea name="context"></textarea><br>
    <input type="hidden" name="userid" value="<%=rs("id")%>">
    <input type="submit" value="send">
    </form>
<%
End if
End if
closeConn()
%>