fejl i update fil..

hva er galt i følgende fil. jeg er ikke haj men kender lidt til lortet og har prøvet at ændre lidt i det. Den siger den ikke kan opdatere fordi felterne ikke er udfyldt, men felterne er udfyldt:

<!-- #INCLUDE FILE="../checklogin.asp" -->
<!--#include file="functions.inc"-->
<html>
<HEAD>
<style>
A:link {text-decoration:none;color : #FFFFFF;}
A:visited {text-decoration:none;color : #FFFFFF;}
A:active {text-decoration:none;color : #FFFFFF;}
A:hover {text-decoration:none;color : #AAAAAA;}
</style>
</HEAD>
<body bgcolor="#333333">
<%
If Request("Spiller") <> "" AND Request("status") <> "" Then
UpdateDB = TRUE
Hjemmehold = DBFix(TRIM(Request("Spiller")))
Udehold = DBFix(TRIM(Request("Status")))
Else
UpdateDB = FALSE
End IF
If Request("Mail") = "" Then
mail="-"
Else
mail = DBFix(TRIM(Request("mail")))
End if

If Request("Message") = "" Then
message="-"
Else
message = DBFix(TRIM(Request("message")))
End If

If Request("Emne") = "" Then
Emne="-"
Else
Emne = DBFix(TRIM(Request("Emne")))
End If

If Request("Spiller") = "" Then
Spiller="-"
Else
Spiller = DBFix(TRIM(Request("Spiller")))
End If

If Request("Status") = "" Then
Status="-"
Else
Status = DBFix(TRIM(Request("Status")))
End If

If Request("Navn") = "" Then
Navn="-"
Else
Navn = DBFix(TRIM(Request("Navn")))
End If

If Request("Kampdato") = "" Then
Kampdato="-"
Else
Kampdato = DBFix(TRIM(Request("Kampdato")))
End If

If Request("Modetid") = "" Then
Modetid="-"
Else
Modetid = DBFix(TRIM(Request("Modetid")))
End If

If Request("Kampstart") = "" Then
Kampstart="-"
Else
Kampstart = DBFix(TRIM(Request("Kampstart")))
End If

If Request("Sted") = "" Then
Sted="-"
Else
Sted = DBFix(TRIM(Request("Sted")))
End If

intReplyID = cINT(Request("SvarID"))
intForumID = cINT(Request("ForumID"))

If UpdateDB = True then
strSql = "INSERT INTO Messages (Emne, Navn, Mail, Message, Hjemmehold, Udehold, Kampdato, Modetid, Kampstart, Spiller, Status, Sted, SvarID, ForumID) VALUES "
strSql = strSql & "('" & (emne) & "','" & (navn) & "','" & (mail) & "','" & (message) & "','" & (hjemmehold) & "','" & (udehold) & "','" & (kampdato) & "','" & (modetid) & "','" & (Kampstart) & "','" & (Sted) & "','" & (Spiller) & "','" & (Status) & "','" & (intReplyID) & "','" & (intForumID) & "')"
Set Connect = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Forum.mdb")
Connect.Open strDSN
Connect.Execute strSql

strAnswer="Du er tilmeldt kampen. For at aflyse skal du ringe til Anders eller Rasmus mindst 24 timer inden kampen!"
strLink="<a href=""show_data.asp?ForumID="&intForumID&""">Til Kampoversigt</a>"
Else
strAnswer="Du mangler at udfylde nogle af f¯lgende felter"
strLink="<a href=""enter_data.asp?ForumID="&intForumID&"&sID="&intReplyID&""">Tilbage</a>"

End If
%><br>
        <br>
        <br>
        <table cellspacing=0 border=0 align=Center width=75% style="BORDER-BOTTOM: rgb(0,0,0) 1px solid; BORDER-LEFT: rgb(0,0,0) 1px solid; BORDER-RIGHT: rgb(0,0,0) 1px solid; BORDER-TOP: rgb(0,0,0) 1px solid">
<tr>
<td align=Center><b><font size="1" face="verdana"><%=strAnswer%></font></B></td>
<tr>
<td align=Center><br>
                    <b><font size="1" face="verdana"><%=strLink%></font></b></td>
</table>

</body>
</html>