Hjælp til jmail

Jeg har denne fil der skal kunne sende oplysninger via mail fra det indtastede - det virker ikke!!!!

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyhedsbrev.mdb")
Conn.Open DSN

strSQL = "Select * From nyhedsbrev"
Set rs = Conn.Execute(strSQL)


  ' Menuer
Dim strName, strAddresse, strPostnummer, strBy, strTlf, strEmail
 


Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0

'Her bliver variabler til inputene fra formen defineret
Dim strName, strAddresse, strPostnummer, strBy, strTlf, strEmail


'Resten af dokumentet består én stor IF-ELSE sætning som tjekker om formularen allerede
'er blevet udfyldt, hvis den ikke er viser den formularen, ellers sender scriptet form-mailen
'og skriver en lille response på skærmen til brugeren.
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
  ' Følgende linier henter dataen fra form-mailen.
  strName = Trim(Request.Form("navn"))
  strAddresse = Trim(Request.Form("addresse"))
  strPostnummer = Trim(Request.Form("postnummer"))
  strBy = Trim(Request.Form("by"))
  strTlf = Trim(Request.Form("tlf"))
  strEmail = Trim(Request.Form("email"))
%>


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Tilbage formular til nyhedsbrev modulet</title>
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%">
    <FORM NAME="form1" ACTION="send.asp" METHOD=POST ONSUBMIT="return validate(this)">

        <table border="0" cellpadding="0" cellspacing="0" width="100%" height="259">
          <tr>
            <td width="50%" height="25">Navn</td>
            <td width="50%" height="25"><input type="text" name="navn" size="20"></td>
          </tr>
          <tr>
            <td width="50%" height="25">Adresse</td>
            <td width="50%" height="25"><input type="text" name="adresse" size="20"></td>
          </tr>
          <tr>
            <td width="50%" height="25">Postnummer</td>
            <td width="50%" height="25"><input type="text" name="postnummer" size="20"></td>
          </tr>
          <tr>
            <td width="50%" height="25">By</td>
            <td width="50%" height="25"><input type="text" name="by" size="20"></td>
          </tr>
          <tr>
            <td width="50%" height="25">Telefon</td>
            <td width="50%" height="25"><input type="text" name="tlf" size="20"></td>
          </tr>
          <tr>
            <td width="50%" height="21">E-mail</td>
            <td width="50%" height="21"><input type="text" name="email" size="20"></td>
          </tr>
          <tr>
            <td width="100%" height="21" colspan="2"></td>
          </tr>
          <td colspan="2">
          <INPUT TYPE="submit" NAME="submit" VALUE=" Indsend ">
      <INPUT TYPE="reset" NAME="reset" VALUE=" Nulstil " name="Reset" onclick="java script:document.form1.navn.focus();">
                <tr>
            <td width="100%" height="21" colspan="2"></td>
          </tr>
          <tr>
            <td width="100%" height="21" colspan="2"></td>
          </tr>
        </table>
     
      </form>
   
  </tr>
</table>


<p><%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0





 
  'Konfiguration: Her skal du angive din JMAIL server, afsenderen (Her skal normalt stå din e-mail),
  'Titlen på e-mailen samt modtagerne (Hvis du vil have flere modtagere adskiller du blot modtagernes e-mail addresser med et komma.)
  JMail.ServerAddress = "mail.mobisend.dk"
  JMail.sender = "thomasf@mobisend.dk"
  JMail.subject = "Test med jmail"
  JMail.AddRecipientBCC "art@artofme.com"

  'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF"
  JMail.Body = "Formmail fra: " & VbCrLf
  JMail.Body = JMail.Body & strmodtager & VbCrLf
  JMail.Body = JMail.Body & strmodtager & VbCrLf
  JMail.Body = JMail.Body & strmodtager& " " & strBy & VbCrLf
  JMail.Body = JMail.Body & "Telefon nummer: " & strTlf & VbCrLf
  JMail.Body = JMail.Body & "strmodtager: " & strmodtager & VbCrLf & VbCrLf
  JMail.Body = JMail.Body & strCv
 
  'Her bliver form-mailens prioritet bestemt
  ' 1 - højeste (Haster / Vigtigt)
  ' 3 - normal
  ' 5 - lavest
  JMail.Priority = 1

  JMail.Execute
 
%>
<!--webbot bot="HTMLMarkup" startspan -->

<%
Conn.Close
Set Conn = Nothing
%>
<%
Else
%><!--webbot bot="HTMLMarkup" endspan -->
</p>


<%end if %>

</body>

</html>