Problemer med jmail i tagwall

Hejsa

Jeg har på en side en lukket tagwall. Når der er et nyt indlæg, skal der mailes en bemærkning ud til en række brugere med at der er kommet et nyt indlæg.

Jeg har prøvet og prøvet og fatter ikke helt hvorfor der aldrig kommer en mail frem. Tagwallen bliver godt nok opdateret korrekt.

Jeg har vedlagt koden. Det skal dog siges at jeg lige har sat min testmail ind istedet for de modtagerer der oprindeligt skal have mailen.

Kan i kloge hoveder evt. se hvad jeg gør galt?

På forhånd takker... ;)

----------------------------------------------

        over = Replace(Request.Form("over"), "'", "''")
        txt = Replace(Request.Form("txt"), "'", "''")
        ini = Replace(Request.Form("ini"), "'", "''")
      query = "insert into tagwall (over,txt,link,ini,dato) values ('"& over &"','"& txt &"','"&request.form("link")&"','"& ini &"','"&request.form("dato")&"')"
      Conn.execute(Query)
     
      '---------------------------Send mail vedr. nyt indlæg----------------------'   
    Set Rs = Server.CreateObject("ADODB.Recordset")
    Query= " SELECT email from tbl_profil"
    Rs.Open Query, Conn, 1

    modtager = Rs("email")

  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "websmtp.embro.dk"
  JMail.Sender        = "henrik@hehlers.dk" ' modtager
  JMail.Subject      = "Nyt indlæg på VIP tagwallen"
  JMail.AddRecipient "henrik@hehlers.dk"
  JMail.Priority      = 3
  JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
 
  ' ********** Her starter selve email-en
  JMail.Body =     Request.form("navn") & " har skrevet nyt indlæg på tagwallen" & vbCrLf &_
              "Og her kommer linie 2"
  ' ********** Her slutter selve email-en
 
  JMail.Execute
 
  Set JMail = Nothing
 
 
Response.redirect("tagwall.asp")