cases vil ikke fungere

Følgende kode skulle gerne gøre følgende
1. Hvis emailen i querystringen er lig med mailen i databasen og koden i querystringen er lig med koden i datasen, samt valideret er lig med False SÅ skal der updateres til True i Valideret feltet
("Din mail er nu valideret")

2: Hvis Hvis emailen i querystringen er lig med mailen i databasen og koden i querystringen er lig med koden i datasen samt hvis valideret = True
("Din mail er nu valideret")

3: Hvis der er uoverenstemmelse i de samme ting oven over og der derfor ikke kan valideres skal vises den nederste form
("Valideringen kunne ikke genneføres pga fejl i email eller kodeord!!")

<% response.buffer = true %>
<center>
<% if request.querystring("mail") <> "" then
mail = request.querystring("mail")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "SELECT * FROM brugere where email = '"&mail&"' AND valideret = True"
set rs = Conn.Execute(strSQL)
%>
<font color="#008000"><b>
<p>Din mail er allerede valideret<Br> Du viderestilles automatisk om 10 sekunder!</font>
<script type="text/javascript">
setTimeout('location.href= \'default.asp\';',10000);
</script>
<%end if%>

<% if request.querystring("mail") <> "" AND request.querystring("kode") <> "" then
mail = request.querystring("mail")
koden = request.querystring("kode")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "SELECT * FROM brugere where email = '"&mail&"' AND valideret = False"
set rs = Conn.Execute(strSQL)
if not rs.EOF then
strSQL = "update brugere set valideret=true where email = '"&mail&"' AND kode = '"&koden&"'"
Conn.Execute(strSQL)%>
&nbsp;
<font color="#008000"><br>
Din mail er nu valideret<Br> Du viderestilles automatisk om 10 sekunder!</font>
<script type="text/javascript">
setTimeout('location.href= \'default.asp\';',10000);
</script>
<%
else
end if
end if%>


<% if request.querystring("mail") <> "" and request.querystring("kode") <> "" then
mail = request.querystring("mail")
koden = request.querystring("kode")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "SELECT * FROM brugere where email <> '"&mail&"' OR kode <> '"&koden&"' and valideret = False"
set rs = Conn.Execute(strSQL)
if not rs.EOF then%>
<p><font face="Arial" size="2"><b><font color="#FF0000"><b>Valideringen kunne ikke genneføres pga fejl i email eller kodeord!!</b></font><b>&nbsp;</b></b></font>
<form method="POST" action="valideringx.asp">
  <table border="0" width="212">
    <tr>
      <td width="50" style="border: 1 solid #000000"><font face="Arial" size="2">Email</font></td>
      <td width="150" style="border: 1 solid #000000"><font face="Arial" size="2"><input type="text" name="mail" size="20"></font></td>
    </tr>
    <tr>
      <td width="50" style="border: 1 solid #000000"><font face="Arial" size="2">Kodeord</font></td>
      <td width="150" style="border: 1 solid #000000"><font face="Arial" size="2"><input type="text" name="kode" size="20"></font></td>
    </tr>
    <tr>
      <td width="50" style="border: 1 solid #000000"><font face="Arial" size="2">Valider</font></td>
      <td width="150" style="border: 1 solid #000000">
        <p align="center"><font face="Arial" size="2"><input type="submit" value="Valider" name="B1"></font></td>
    </tr>
  </table>
</form>

Nogen der kan dreje denne