Form validation, HELP-HELP

Hvorfor sender formvalidationen den samme fejlkode uanset om formen er udfyldt eller ej???

<!--#include file=\"protect.inc\"-->
<% response.buffer = true %>
<html>

<head>

<title>Tilføj nyt forum</title>


</head>
<body bgcolor=\"#FFFFFF\">

<h3 align=\"center\"><% if Request.QueryString(\"mode\")=\"\" then %><font face=\"verdana Black\" >Rediger forum</font></h3>
<div align=\"center\"><center>


<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
    <tr>
        <td width=\"100%\">
          <p align=\"center\"><font face=\"verdana Black\"><a href=\"tagwall.asp?mode=add\"><font size=\"3\" color=\"#1C261E\">Tilføj
          forum</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"admin.asp\"><font size=\"3\" color=\"#1C261E\">Slet/rediger
          forum</font></a><font
        size=\"1\" face=\"Arial Black\"><br>
          <%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../../scripts/forum.mdb\")
strSQL = \"Select * From forums\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\"><i>Der er ingen der har skrevet i tagwall`en...</i></font>\"
else
Do Until rs.EOF%>
          <br>
        </font></font></p>
        </td>
    </tr>
</table>
</center></div><div align=\"center\"><center>

<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
    <tr>
        <td width=\"100%\" align=\"center\"><font face=\"Arial\" size=\"2\"><b><%=RS(\"forum\")%></b></font><font face=\"Arial\"><br>
          <font size=\"2\" face=\"Arial\"><%=RS(\"description\")%></font></font></td>
    </tr>
</table>
</center></div>

<p><%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%></p>

<h3 align=\"center\"><% elseif Request.QueryString(\"mode\")=\"add\" then %><font face=\"verdana Black\" >Rediger
  forum</font></h3>
<TABLE border=0 width=500 >
<TR><TD>
<%
\'ON THE FIRST TIME THAT THIS PAGE LOADS, SESSION(\"ERRORS\") HAS NO VALUE AND SO
\'EQUALS 0.  ON SUBSEQUENT VISITS, SESSION(\"ERRORS WILL HAVE A VALUE OF 1 OR
\'MORE IF ERRORS WERE MADE 

if  Session(\"Errors\")=0 then
  response.write \"Please fill out the form\"
else
  \'ERRORS WERE MADE SO LIST THEM IN THE REST OF THE TABLE
  \'reset our error counter
  Session(\"Errors\")=\"0\"
  response.write \"<BR>There are errors in your data.  \" & _
          \"Please make  the following  changes before \" & _
          \"clicking the submit button:<br>\"
  response.write\"<TABLE border=0 width=\' 400\' align=\'center\'>\"

  \'THESE SESSION VARIABLES ARE SET IN THE SECOND PAGE
  \' IF THERE WERE ERRORS \'VALUE IS \"F\" 
  If Session(\"badFirstName\") = \"T\" then
    Response.write \"<TR><TD><font color=\'red\'>The First \" & _
                    \"Name field must be completed.</font>\"
    Response.write \"</TD></TR>\"
    Session(\"badFirstName\")=\"F\"
  End If


  If Session(\"badLastName\") = \"T\" then
    Response.write \"<TR><TD><font color=\'red\'>The Last Name \" & _
                  \"field must be completed. </font>\"
    Response.write \"</TD></TR>\"
    Session(\"badLastName\")=\"F\"
  End If



  \'END THE ERRORS TABLE
  response.write \"</TD></TR></TABLE>\"
End If
%>   
<form action=\"test.asp\" NAME=\"frmUser\" method=\"POST\">
    <div align=\"center\"><center>
      <table border=\"0\" cellpadding=\"2\"
    cellspacing=\"0\">
        <tr>
          <td align=\"right\" width=\"207\"><font face=\"Arial\" size=\"2\">Forum titel:</font></td>
          <td colspan=\"2\" width=\"472\"><font size=\"2\"
            face=\"Arial\">
            <input type=\"text\" size=\"20\"
            name=\"forum\">
            </font></td>
        </tr>
        <tr>
          <td align=\"right\" width=\"207\"><font face=\"Arial\" size=\"2\"><b>Kort</b>
            beskrivelse:<br>
            </font></td>
          <td valign=\"top\" width=\"472\" colspan=\"2\"> <font size=\"2\"
            face=\"Arial\">
            <input type=\"text\" name=\"description\" size=\"75\" value=\"\" maxlength=\"75\">
            </font><font size=\"2\"
            face=\"Arial\"><font size=\"2\"
            face=\"Arial\"><font size=\"1\"> </font></font></font></td>
        </tr>
      </table>
      <font face=\"Arial\" size=\"2\"><font size=\"2\"
            face=\"Arial\"><font size=\"1\">-MAX </font></font><font size=\"1\">60 ANSLAG-</font></font>
    </center></div><p align=\"center\"><input type=\"submit\"
    name=\"B1\" value=\"Tilføj\"></p>
</form>

<p><% elseif Request.QueryString(\"mode\")=\"save\" then %> <%
response.buffer = true

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../../scripts/forum.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From forums\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"description\") = Request.form(\"description\")
      rs(\"forum\") = Request.form(\"forum\")
   
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect \"\"
%><%end if%></p>
</body>
</html>