Kan ikke finde fejlen

Hvori ligger fejlen, når jeg får 500 server error...




<%
Response.Buffer = True

Function fixQuotes( theString )
    fixQuotes = Replace( theString, "'", "''" )
End Function

    head = Request.form( "head" )
    post = Request.form( "post" )
    writer = Request.form( "writer" )
    mail = Request.form( "mail" )

Set Con = Server.CreateObject( "ADODB.Connection" )
    DBPath = "DBQ=" & server.mappath("forum.mdb")
    Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

If Request.Servervariables("Content_Length") > 0 THEN
    Sql = "INSERT INTO forum (head, post, writer, mail, date_post) VALUES('" & fixQuotes( head ) & "','" & fixQuotes( post ) & "','" & fixQuotes( writer ) & "','" & fixQuotes( mail ) & "','" & date() & "',)"
    Con.Execute Sql
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>designforlife.dk [ ADD SUBJECT ]</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="keywords" content="kristian, kruse, lehn, web, internet, design, grafisk, adobe, photoshop, it">
<meta name="description" content=" [ designforlife ] ">
<meta name="author" content=" [ designforlife ] ">
<meta name="robots" content="all">
<link rel="shortcut icon" href="http://www.designforlife.dk/favicon.ico">
<link rel="stylesheet" href="../dfl.css" type="text/css">
<script language="JavaScript1.4" type="text/javascript" src="../dfl.js"></script>
<script language="JavaScript1.4" type="text/javascript" src="../pop.js"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('../img/rec_2.gif','../img/contact_2.gif','../img/forum_2.gif')">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td class="top" height="50">&nbsp;</td>
  </tr>
  <tr>
    <td class="menu" height="50"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="100%" align="center" valign="bottom" class="menu"> <div align="center"><a href="default.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('forum','','../img/forum_2.gif',1)"><img src="../img/forum_1.gif" name="forum" width="120" height="15" border="0"></a><a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('recommend','','../img/rec_2.gif',1)"><img src="../img/rec_1.gif" name="recommend" width="120" height="15" border="0"></a><a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('contact','','../img/contact_2.gif',1)"><img src="../img/contact_1.gif" name="contact" width="120" height="15" border="0"></a></div></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="20">&nbsp;</td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><div align="center"><img src="../img/logo_2.gif" alt="designforlife.dk [ FORUM ]" width="330" height="56"></div></td>
  </tr>
  <tr>
    <td height="20">&nbsp;</td>
  </tr>
</table>
<table width="100%" height="400" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="left" valign="top">
<form action="add_sub.asp" method="POST" target="_self" onSubmit="return checkrequired(this)">
<table width="500" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="50" rowspan="4">&nbsp;</td>
          <td width="150"><strong>Headline&nbsp;<img src="../img/arrow.gif" width="10" height="7"></strong></td>
          <td width="20">&nbsp;</td>
          <td width="280"><input name="head" type="text" class="search" id="head" size="31"></td>
        </tr>
        <tr>
          <td width="150"><strong>Text:&nbsp;<img src="../img/arrow.gif" width="10" height="7"></strong></td>
          <td width="20">&nbsp;</td>
          <td width="280"><textarea name="post" cols="30" rows="10" class="search"  id="post"></textarea></td>
        </tr>
        <tr>
          <td width="150"><strong>Your name:&nbsp;<img src="../img/arrow.gif" width="10" height="7"></strong></td>
          <td width="20">&nbsp;</td>
          <td width="280"><input name="writer" type="text" class="search" id="writer" size="31"></td>
        </tr>
        <tr>
          <td width="150"><strong>Your mail:&nbsp;<img src="../img/arrow.gif" width="10" height="7"></strong></td>
          <td width="20">&nbsp;</td>
          <td width="280"><input name="mail" type="text" class="search" id="mail" size="31"></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td colspan="3"><br>
            <br>
            <input name="Submit" type="submit" class="search" value="Add subject" onClick="location.href='default.asp'"></td>
        </tr>
      </table>
    </form>
    </td>
  </tr>
</table>
</body>
</html>