Database & Jmail

Jeg ved ikke meget om jmail, men jeg skal bruge et script så jeg kan sende vi det.
Det forgår på den måde, at de besøgende på en side klikker på den de vil sende en mail til, derefter kan de indtaste deres navn, email, titel og besked. Når de så trykker send, skal den selvfølgelig sende beskeden til den man valgte på listen, men jeg ved ikke helt hvordan det skal hænge sammen.....

Jeg håber det er til at forstå, jeg har vedhæftet noget af koderne neden under, som jeg har forsøgt.




----------email.asp------------------------
<% if mode = \"interne\" Then %>
         
          <%
    userid = Request.QueryString( \"userid\" )

    set conn = server.createobject(\"ADODB.connection\")
    conn.Open \"DBQ=\"& Server.MapPath(\"sejs.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
   
    SQL = \"SELECT * FROM adgangskoder WHERE userid =\" & userid
    Set rs = Conn.Execute(SQL)
%>

            <td width=\"100%\">
              <p align=\"center\"><b><font size=\"4\" color=\"#729BAF\" face=\"Tahoma\">Kontakt</font></b></td>
          </tr>
          <tr>
            <td width=\"100%\"><font size=\"1\" color=\"#C9D9E1\" face=\"Tahoma\">.</font></td>
          </tr>
          <tr>
            <td width=\"100%\">
              <form action=\"kontakt-exe-asp?mode=send&email=<%= rs(\"email\") %>\" method=\"post\">
                  <div align=\"center\">
                  <table border=\"0\" width=\"84%\" cellspacing=\"3\" cellpadding=\"0\">
                    <tr>
                      <td width=\"31%\"><font face=\"Tahoma\" size=\"2\">Kontakt:</font></td>
                      <td width=\"69%\"><font face=\"Tahoma\" size=\"2\" color=\"#729BAF\"><%= rs(\"realname\") %> (<%= rs(\"gren\") %>)</font></td>
                    </tr>
                    <tr>
                      <td width=\"31%\"><font face=\"Tahoma\" size=\"2\">Navn:</font></td>
                      <td width=\"69%\"><input type=\"text\" name=\"navn\" size=\"30\" style=\"font-family: Tahoma; font-size: 10 pt; color: #FFFFFF; background-color: #729BAF; border-style: double; border-color: #C9D9E1\"></td>
                    </tr>
                    <tr>
                      <td width=\"31%\"><font face=\"Tahoma\" size=\"2\">E-mail:</font></td>
                      <td width=\"69%\"><input type=\"text\" name=\"email\" size=\"30\" style=\"font-family: Tahoma; font-size: 10 pt; color: #FFFFFF; background-color: #729BAF; border-style: double; border-color: #C9D9E1\"></td>
                    </tr>
                    <tr>
                      <td width=\"31%\"><font face=\"Tahoma\" size=\"2\">Angående:</font></td>
                      <td width=\"69%\"><input type=\"text\" name=\"angående\" size=\"30\" style=\"font-family: Tahoma; font-size: 10 pt; color: #FFFFFF; background-color: #729BAF; border-style: double; border-color: #C9D9E1\"></td>
                    </tr>
                    <tr>
                      <td width=\"31%\"><font face=\"Tahoma\" size=\"2\">Besked:</font></td>
                      <td width=\"69%\"><textarea rows=\"8\" name=\"besked\" cols=\"32\" style=\"font-family: Tahoma; font-size: 10 pt; color: #FFFFFF; background-color: #729BAF; border-style: double; border-color: #C9D9E1\"></textarea></td>
                    </tr>
                    <tr>
                      <td width=\"31%\"></td>
                      <td width=\"69%\"><input type=\"submit\" value=\"Send\" name=\"B1\" style=\"font-family: Tahoma; font-size: 10 pt; color: #FFFFFF; background-color: #729BAF; border-style: double; border-color: #C9D9E1\"></td>
                    </tr>
                  </table>
                </div>
              </form>
            </td>
          </tr>
          <%
    Conn.Close
    Set Conn = Nothing
%>

<% end if %>

----------slut email.asp---------------------


----------kontakt-exe.asp--------------------

<%
    email = Request.QueryString( \"email\" )

    set conn = server.createobject(\"ADODB.connection\")
    conn.Open \"DBQ=\"& Server.MapPath(\"sejs.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
   
    SQL = \"SELECT * FROM adgangskoder WHERE email =\" & email
    Set rs = Conn.Execute(SQL)
%>


<%
email  =  \"<%= rs(\"email\") %>\"

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"smtp.sejs.dk\"
JMail.Sender = \"email\"
JMail.SenderName = Trim(Request.FORM(\"navn\")) \" - spejder.sejs.dk\"
JMail.Subject = Trim(Request.FORM(\"angående\"))
JMail.AddRecipient = \"email\"
JMail.Body = \"Besked fra: \"&Request(\"navn\")&vbcrlf&\"E-mail: \"& Request(\"email\")&vbcrlf&\"Skriver følgende til dig: \" & Request(\"besked\")
JMail.Body = \"Denne mail er sendt fra:\"&vbcrlf&\"Sejs Gruppe - Det Danske Spejderkorps hjemmeside (www.spejder.sejs.dk)\"
JMail.Priority = 1
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
If JMail.Execute Then
Response.Write \"Mailen er sendt til os. Tak for din henvendelse!\"
Else
Response.Write \"Der opstod en fejl. Mailen er ikke sendt - prøv igen!\"
End If
%>

----------slut kontakt-exe.asp---------------