Hjælp med mailliste

Jeg er ved at førsøge at lave en mailliste, hvor man indtaster Navn og E-mail i en formlar som så \"smidder\" det ned i en tabel(maillist) i en accessdatabase kaldet maillist.mdb
Det er så meningen at jeg derved efterhånden opbygger en mailliste.

Jeg er nået så langt indtil nu, men er gået kold:

<%
strMode = request.querystring(\"mode\")
select case strMode
case \"skriv\" %>

<table border=\"0\" width=\"100%\" cellspacing=\"6\" cellpadding=\"0\">
<tr><td>
<form method=\"post\" action=\"maillist.asp?mode=post\" name=\"post\">
<input type=\"hidden\" value=\"<%=now()%>\" name=\"dato\">

<table border=\"0\" cellspacing=\"2\" cellpadding=\"0\">
<tr><td><font size=\'2\'><b>Navn:</b></font></td><td><input type=\"text\" name=\"navn\" size=\"50\" class=\"text\"></td></tr>
<tr><td><font size=\'2\'><b>E-mail:</b></font></td><td><input type=\"text\" name=\"email\" size=\"50\" class=\"text\"></td></tr>
<tr><td><font size=\'2\'>&nbsp;</td><td><a href=\"java script:document.post.submit()\">Send</a>&nbsp;<a href=\"java script:document.post.reset()\">Nulstil</a></font></td></tr>
<tr><td colspan=\"2\"><font size=\'2\'>&nbsp;</font></td></tr>
</table>

</form>
</td></tr>
</table>

<% case \"post\"

if request.form(\"navn\") = \"\" then
response.redirect(\"maillist.asp?mode=skriv\")
else
navn = request.form(\"navn\")
email = request.form(\"email\")

Set Connect = Server.CreateObject(\"ADODB.Connection\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"maillist.mdb\")
Connect.Open strDSN
strSql = \"INSERT INTO maillist (Navn, email) VALUES \"
strSql = strSql & \"(\'\" & navn & \"\',\'\" & email & \"\')\"
Connect.Execute strSql
Connect.Close
Set Connect = nothing
response.redirect(\"maillist.asp\")
end if

Case else %>

Håber der er en som kan hjælpe..

Fomse:-)