hvad er galdt med denne tilmeldings.asp fil

den går tilbage til start med at man skal indtaste email igen og der kommer ingen email's i database, det er som om den ikke godkender det indtastede...

filen hedder tilmeld.asp og i databasen er der en tabel der hedder nyhedsbrev hvor adresserne skal ligges ind.

------------ scriptet ---------

<form method="post" action="tilmeld.asp?mode=submit">

<td width="14" class="vertline" background='../2c73fc43.JPG"'>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%" id="AutoNumber1" height="290" background="../images/6dbe8c45.JPG">
  <tr>
    <td width="11%" height="290">
<img border="0" src="../ssl/images/2c73fc43.JPG"></td>
    <td width="89%" height="290">&nbsp;<h1 align="left"><u>Nyhedsbrev</u></h1>
                  <p align="left">Nyhedsbrevet på lkongen.dk vil jævnligt blive udsendt. Der er ikke nogen fast dag eller tidspunkt for udsendelsen, det kommer når der er nyt på banen. Man kan på et hvilket som helst tidspunkt afmelde nyhedsbrevet igen.</p>
    <p align="left">Lkongen's nyhedsbrev indeholder typisk informationer om dette websites udvikling samt præsentation af nye artikler, downloads, services etc.</p>
<p>
<strong>Tilmeld/Afmeld Nyhedsbrev</strong><br>
<input type="text" name="email" size="71" onFocus="select()" value="Skriv din e-mail adresse her">&nbsp;&nbsp;<p>
&nbsp;&nbsp;&nbsp;
Tilmeld: <input id="t3" type="radio" name="status" value="tilmeld" checked="" />
Frameld: <input type="radio" name="status" value="frameld" /><br /><br />
<label for="subm0" style="margin-top:10px">&nbsp;</label><input id="subm0" type="submit" value="Tilmeld/Frameld" />
</fieldset>
<p>&nbsp;</td>
    </tr>
  </table>
</form>


<% If mode = "submit" Then 'Hvis mode = "submit" så godkend og registrer indtastning

Dim email, status, error
error = False 'Bruges til at teste om der er sket fejl eller der er mangler i indtastning
email = Trim(Replace(Request.Form("email"), "'", ""))
status = Request.Form("status")

If Len(email) = 0 Then 'Tester om der er indtastet e-mail adresse
Response.Write "<h1>OBS</h1>"
Response.Write "<b>Du har ikke indtastet en e-mail adresse</b>"
error = True
End If

If error = False Then 'Tilføjer eller fjerner e-mail adresse fra database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

If status = "tilmeld" Then 'Tilmelder e-mails
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev WHERE email='" & email & "'")
If Not rs.EOF Then
Response.Write "<h1>OBS</h1>"
Response.Write "<p>Denne e-mail adresse er allerede tilmeldt i systemet</p>"
Else
Conn.Execute("INSERT INTO nyhedsbrev (email) VALUES ('" & email & "')")
Response.Write "<h1>Tak for tilmeldingen</h1>"
Response.Write "<p>Du modtager fremover Nyhedsbreve</p>"
End If
End If 'Slutter tilmeld

If status = "frameld" Then 'Framelder e-mails
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev WHERE email='" & email & "'")
If Not rs.EOF Then
Conn.Execute("DELETE * FROM nyhedsbrev WHERE email='" & email & "'")
Response.Write "<h1>Frameldingen er registreret</h1>"
Response.Write "<p>Du får ikke flere Nyhedsbreve</p>"
Else
Response.Write "<h1>OBS</h1>"
Response.Write "<p>Din e-mail adresse blev ikke fundet i systemet</p>"
End If
End If 'Slutter frameld
Conn.Close
Set Conn = Nothing
End If 'Slutter tilmeld/frameld %>

<% End If %>