Validering før database submit ?

Hej

Jeg har et problem med min validering på min

asp side .

Jeg har en validering der træder i kraft når en bruger

ikke fylder et email formular felt ud.

Problemet er at min validering ikke stopper min asp

fra at gå videre til at sende til db og dermed får

jeg 2 fejl min database og den jeg selv har lavet.

Hvordan undgåes dette ?

Håber på et hurtigt svar ....

Nedenunder ses asp siden....


<html>
<head>
<style>
A:link {
        font-weight: normal;
        color: <% =Linkfarve %>;
        text-decoration: underline;
}
A:visited {
        font-weight: normal;
        color: <% =Linkfarve %>;
        text-decoration: underline;
}
A:active {
    color: <% =Linkfarve %>;
    text-decoration: underline;
}

A:hover {
        font-weight: normal;
        color: <% =Linkfarve %>;
    text-decoration: overline;
}
-->
</style>
        </head>

<body bgcolor=\"0000ff\">       
<br>
<form action=\"tilfoej_indlaeg.asp?mode=save_data \" method=\"POST\" class=\"css\" name=\"\"><head>
  <title>Skriv i <%=Username%>´s gæstebog</title>




<font color=\"00ccff\">

<p align=\"center\">
<font size=\"5\">Skriv i <%=Username%>´s gæstebog<br></font>

    <div align=\"center\"><center><table border=\"0\" cellpadding=\"2\"
    cellspacing=\"0\" width=\"80%\">
        <tr>
            <td align=\"left\" width=\"40%\" valign=\"top\">
<font color=\"00ccff\">Navn:</td>
            <td width=\"60%\"><INPUT TYPE=\"text\" NAME=\"Navn\" class=\"css\"><font color=\"00ccff\">(skal udfyldes)</td>
        </tr>
        <tr>
            <td align=\"left\" width=\"40%\" valign=\"top\">
<font color=\"00ccff\">E-mail:</td>
            <td width=\"60%\"><INPUT TYPE=\"text\" NAME=\"Email\" class=\"css\"><font color=\"00ccff\">(skal udfyldes)</td>
        </tr>
        <tr>
            <td align=\"left\" width=\"20%\" valign=\"top\">
<font color=\"00ccff\">Hjemmeside:</td>
            <td width=\"80%\"><INPUT TYPE=\"text\" NAME=\"Hjemmeside\" class=\"css\" size=\"20\" value=\"Ingen\"><font color=\"00ccff\">(husk http://)</td>
        </tr>
        <tr>
            <td align=\"left\" width=\"20%\" valign=\"top\">
<font color=\"00ccff\">ICQ
              nummer:</td>
            <td width=\"80%\"><INPUT TYPE=\"text\" NAME=\"icq\" class=\"css\" size=\"20\" value=\"Ingen\"></font></td>
        </tr>
        <tr>
            <td align=\"Left\" valign=\"top\" width=\"20%\">
<font color=\"00ccff\">Besked:</td>
            <td valign=\"top\" width=\"80%\">
           
            <textarea name=\"Besked\" rows=\"4\"
            cols=\"40\" class=\"css\"></textarea> <font color=\"00ccff\"><p align=\"center\">(skal udfyldes)</align></font></td>
        </tr>
        <tr>
            <td width=\"20%\"></td>
            <td width=\"80%\">


<% Request.Form (\"Email\")
If Request(\"Enail\")=\"\" Then
Response.Write \"Dit fjols husk email feltet!!!\"
Else
End if
%>
           
            <input type=\"submit\"
    name=\"submit\" value=\"Tilf&oslash;j\" class=\"css\">
 
    <INPUT TYPE=\"reset\" NAME=\"Slet\" class=\"css\"></font></td>
        </tr>
    </table>
    </center></div>
<p align=\"center\">
</form>



<br><br><br<br><A HREF=\"java script:history.go(-1)\"><font color=\"00ff00\">Tilbage</A>





<%mode = request(\"mode\") %>
<% if mode = \"\" then %>
<!-- #include file=\"setup.asp\" -->


<% end if %>
<% if mode = \"save_data\" then %>
<!-- #include file=\"setup.asp\" -->
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3


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

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

      rs.AddNew
      rs(\"Navn\") = Request.form(\"Navn\")
      rs(\"Email\") = Request.form(\"Email\")
    rs(\"Hjemmeside\") = Request.form(\"Hjemmeside\")
      rs(\"icq\") = Request.form(\"icq\")
      rs(\"Besked\") = Request.form(\"Besked\")
      rs(\"Dato\") = Now()
      rs(\"IP\") = request.servervariables(\"remote_Addr\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect \"frames.asp\"


%>
<% end if %>