Förbannade INSERT!!!

Varför får jag felmeddelandet
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.
forum.asp, line 188

forum.asp(har inte gjort så mycket):

<%
Response.Buffer = True
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("forum")
%>
<html>
<head>
<title>Forum</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
function kollaform()   {
var namn = document.form.av.value;
if(namn.length == 0) {
alert("Inget inlägg utan namn..."); return false;
}
var rubrik = document.form.rubrik.value;
if(rubrik.length == 0) {
alert("Ditt inlägg måste ha en rubrik!"); return false;
}
var inlagg = document.form.inlagg.value;
if(inlagg.length == 0) {
alert("Du måste skriva ett inlägg!"); return false;
}
}
</script>
</head>
<body>

<center><img src="images/forum.jpg" alt="   FORUM   " border="0"></center>
<br>

<table align="center" width="750" cellspacing="0" cellpadding="2" class="border">
 <tr>
  <td>

<% If Request.QueryString("page") = "" Then %>

<table width="750">
 <tr>
  <td width="255">
<strong>Rubrik</strong>
  </td>
  <td width="235">
<strong>Av</strong>
  </td>
  <td width="150">
<strong>Datum:</strong>
  </td>
  <td width="80">
<strong>Svar</strong>
  </td>
 </tr>
<%
MyPage = Request("nextpage")
If MyPage = "" then
MyPage = 1
End If
MyPagesize = 25
SQL = "SELECT IID, rubrik, av, datum, svar FROM data WHERE svar = False ORDER BY IID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.CacheSize = 5
rs.open SQL, Connection
If rs.EOF OR rs.BOF Then
Response.Write"</td></tr></table>"
Response.Write"<center><font class=orange><strong>Det finns inga inlägg i forumet!</strong></font></center>"

Else
rs.MoveFirst
rs.PageSize = MyPageSize
MaxCount = Cint(rs.PageCount)
rs.AbsolutePage = MyPage
HowManyRecs = 0
HowManyFields = rs.Fields.Count -1

Do While Not rs.EOF AND HowManyRecs < rs.PageSize
Counter = Counter + 1
%>
<tr>
 <td width="255">
<a href="forum.asp?page=read&IID=<%=rs("IID")%>"><%=rs("rubrik")%></a>
  </td>
  <td width="235">
<%=rs("av")%>
  </td>
  <td width="150">
<%=rs("datum")%>
  </td>
  <td>
<%=rs("antalsvar")%>
  </td>
 </tr>
<%
rs.MoveNext
HowManyRecs = HowManyRecs + 1
Response.Write "<!--			##### Nästa #####			-->"
Loop
rs.Close
Set rs = Nothing
%>
</table>
<center>
<%
If MaxCount <> 0 Then
Response.Write "Du är på sida " & mypage & " av " & maxcount & ".<br>"
pad = "0"
for counter = 1 to maxcount
If counter >= 10 then
pad = ""
End If
ref = "  <a href=forum.asp?nextpage=" & counter & "&pagesize=" & mypagesize & ">" & pad & counter & "</a>  "
Response.Write ref & ""
If Counter mod 10 = 0 Then
Response.Write "<br>"
End If
Next
End If
End If
%>
</center>

<hr class="gron" noshade size="1">

<center><strong>Skriv nytt inlägg</strong></center>
<form name="form" method="post" action="forum.asp?page=infoga" onsubmit="return kollaform()">
<table align="center" cellpadding="2">
 <tr>
  <td>
Ditt namn:
  </td>
  <td>
<input type="text" name="av" maxlength="50">
  </td>
 </tr>
 <tr>
  <td>
Din email:
  </td>
  <td>
<input type="text" name="email" maxlength="50">
  </td>
 </tr>
 <tr>
  <td>
Rubrik:
  </td>
  <td>
<input type="text" name="rubrik" maxlength="50">
  </td>
 </tr>
 <tr>
  <td valign="top">
Inlägg:
  </td>
  <td>
<textarea name="inlagg" rows="12" cols="40"></textarea>
  </td>
 </tr>
</table>
<input type="hidden" name="svar" value="False">
<input type="hidden" name="svartill" value="0">
<input type="hidden" name="antalsvar" value="0">
<center>
<input type="submit" value="  Skicka!  ">
   
<input type="reset" value="  Sudda  ">
</center>
</form>

<% ElseIf Request.QueryString("page") = "infoga" Then
If Request.Form("svar") = True Then
SQL1 = "UPDATE data SET antalsvar = antalsvar +1 WHERE IID = " & Request.Form("svartill") & ""
Connection.Exeucte(SQL1)
End If
rubrik = Trim(Request.Form("rubrik"))
inlagg = Trim(Request.Form("inlagg"))
av = Trim(Request.Form("av"))
email = Trim(Request.Form("email"))
datum = now()
svar = Request.Form("svar")
antalsvar = Request.Form("antalsvar")
svartill = Request.Form("svartill")
SQL2 = "INSERT INTO data (rubrik, inlagg, av, email, datum, svar, antalsvar, svartill) VALUES ('" & rubrik & "','" & inlagg & "','" & av & "','" & email & "','" & datum & "','" & svar & "'," & antalsvar & "," & svartill & ")"
Connection.Execute(SQL2) /// RAD 188!!![/red]
Response.Redirect"forum.asp"
%>

<% Else
Response.Redirect"forum.asp"
End If %>

  </td>
 </tr>
</table>

</body>
</html>

<%
Connection.Close
Set Connection = Nothing
%>

Eftersom det blir fel när servern ska "executa" så är det säkerligen problem med INSERT satsen på raden över...

Tacksam för svar!

/Mika3l

PS.Ursäkta svärordet .DS