Problem med at sende fra server!

Her kommer selve koden er der nogle finde fejlen?

<%
password = \"roed\"

mode = request(\"mode\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"mail.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
%>

<html>
<head>

<!-- Minus AutoDato -->
    <title>Administrator afdeling</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</head>

<body>

<%
if mode = \"\" then
    call login
end if


if mode = \"login\" then
    if request.form(\"pass\") = password then
   
        call besked
        call sletbruger
    else
        response.write \"<font face=Arial, Helvetica, sans-serif size=2 color=#0C5F60><b>Forkert password</b><br>\"
        call login
    end if
end if

if mode = \"send\" then
    Subject = request(\"Subject\")
    Message = request(\"Message\")
   
    if emme = \"\" then
        response.write \"<font face=Arial, Helvetica, sans-serif size=2 color=#0C5F60><b>skriv lige et emme</b><br>\"
        fejl = 1
    end if
   
    if test = \"\" then
        response.write \"<font face=Arial, Helvetica, sans-serif size=2 color=#0C5F60><b>Skriv lige en besked</b><br>\"
        fejl = 1
    end if

if mode = \"sletbruger\" then
    id = request(\"delet\")
    if id = \"\" then
        response.write \"<font color=\'red\'>Du skal v&aelig;lge et medlem</font>\"
        fejl = 1
    end if
    if fejl = 1 then
        call sletbruger
    end if
    if not fejl = 1 then
        str = request(\"delet\") & \", \"
   
        lPos = 1
        Do While lPos <= Len(str)
            If InStr(lPos, str, \", \") = 0 Then Exit do
            aItem = Mid(str, lPos, InStr(lPos, str, \", \") - lPos)
            lPos = lPos + InStr(lPos, str, \", \") - lPos + 2
            aItem2 = aItem
            strSQL = \"SELECT * FROM mail WHERE ID = \" & aItem2 & \"\"
            Set rs = myConn.Execute(strSQL)
            link = rs(\"navn\")
            email = rs(\"email\")
            strSQL = \"Delete * FROM mail WHERE\"
            strSQL = strSQL & \" (ID LIKE \'%\" & aItem & \"%\')\"
            Set rs = myConn.Execute(strSQL)
            response.write \"Medlemmet er slettet<br>\"
        loop
        call besked
        call sletbruger
    end if
end if

%>



<%sub besked %>
<center>
    <font face=\"Arial, Helvetica, sans-serif\" size=\"4\" color=\"#0C5F60\"><b>Afsending af Emails</b></font>
    <!-- Skriver beskeden -->
    <form action=\"send.asp\" method=\"POST\">
    <input type=\"Hidden\" name=\"mode\" value=\"send\" style=\'color: #000000; Font-size: 12px; border: 1px; border-style: solid;\'>
    <font face=\"Arial, Helvetica, sans-serif\" size=1 color=\"#0C5F60\"><b>Emne:</b><BR><input type=\"Text\" name=\"Subject\" size=\"30\"><br><P>
    <font face=Arial, Helvetica, sans-serif size=1 color=#0C5F60><b>Besked:</b><br><textarea name=\"Message\" cols=\"60\" rows=\"10\"></textarea><br>
    <input type=\"Submit\" value=\"Send\" style=\'color: #000000; Font-size: 12px; border: 1px; border-style: solid;\'>
    </form>
<%end sub %>

<%sub login %>
    <!-- Logge dig ind i mailinglisten -->
    <form action=\"admin.asp\" method=\"POST\">
    <input type=\"Hidden\" name=\"mode\" value=\"login\" style=\"color: #000000; Font-size: 10px; border: 1px; border-style: solid;\">
    <font face=\"Arial, Helvetica, sans-serif\" size=\"1\" color=\"#000000\"><b>Password:</b><br><input type=\"password\" name=\"pass\"><br>
    <input type=\"Submit\" value=\"Login\" style=\"color: #000000; Font-size: 10px; border: 1px; border-style: solid;\">
    </form>
<%end sub %>

<%sub sletbruger
    strSQL = \"SELECT * FROM mail\"
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then


        response.write \"<br><font face=Arial, Helvetica, sans-serif size=2 color=#0C5F60><b><U>Tilmeldte på maillisten:</U></font><br>\"
        response.write \"<table border=0 CELLPADDING=5 CELLSPACING=5><tr>&nbsp;&nbsp;&nbsp;<td></td><td ALIGN=><font face=Arial, Helvetica, sans-serif size=1 color=#0C5F60><b><B>Navn:</B></b></td><td><font face=Arial, Helvetica, sans-serif size=1 color=#0C5F60><b>Email:</b></td></tr>\"
       

            Do While Not rs.EOF %>
                <tr>
                <td valign=\"top\">
                   
                </td>
                <td valign=\"top\"><font face=\"Arial, Helvetica, sans-serif\" size=\"1\" color=\"#0C5F60\"><b>
                    <%response.write rs(\"navn\") %></b>
                </td>
                <td valign=\"top\"><font face=\"Arial, Helvetica, sans-serif\" size=\"1\" color=\"#0C5F60\"><b>
                    <%response.write rs(\"email\") %></b>
                </td>
   
                </tr><%
                rs.movenext
            loop

       
        response.write \"</table>\"
    else
        response.write \"Der er ingen medlemmer i databasen\"
    end if
end sub
end if
%>

</body>
</html>

På forhånd TAK :o)

Roed