jeg for denne fejl hvad gør jeg galdt

hej jeg har lavet et nyhedsbrev i asp hvor man skal tilmelde sig men denne fejl kommer hele tiden det er et script jeg har taget fra www.hjemmesideskolen.dk

fejlen er følgende:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/Nyhedsbrev/tilmeld.asp, line 19

ElseIf mode = "submit" Then 'Hvis mode = "submit" så godkend og registrer indtastning
^

scriptet ser sådan ud :

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

<td width="14" class="vertline" background='../2c73fc43.JPG"'>
</td>&nbsp;<td valign="top" style="padding:15px; BACKGROUND-IMAGE: url('/images/navline_drop_white.gif');BACKGROUND-REPEAT: repeat-x" width="534"><!-- P:Begin --><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%" id="AutoNumber2">
      <tr>
        <td width="11%">
<img border="0" src="../ssl/images/2c73fc43.JPG"></td>
        <td width="89%" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
        <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>

<% ElseIf 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 %>
<p><a href="java script:history.back()">&laquo;&nbsp;Tilbage</a></p>
<p>&nbsp;</td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
</form>


<% End If %>