Burde virke...Eller hvad?

Hej!
Jeg har en funktion der gør (burde gøre) at alle brugere, som i deres indstillinger har oplyst at de vil modtage en mail hver gang der bliver indrykket en annonce, som matcher en række kriterier de selv vælger, så får de en mail om det...
Det virker bare ikke :(
Koden er her:
**********************************
    strAmt      = RemoveHTML(DeMessSQL(Trim(Request.Form("Amt"))))
    strBoligtype     = RemoveHTML(DeMessSQL(Trim(Request.Form("Boligtype"))))
    strAreal      = RemoveHTML(DeMessSQL(Trim(Request.Form("Areal"))))
    strRum        = RemoveHTML(DeMessSQL(Trim(Request.Form("Rum"))))
    strPris        = RemoveHTML(DeMessSQL(Trim(Request.Form("Pris"))))
    strBeskrivelse     = RemoveHTML(DeMessSQL(Trim(Request.Form("Beskrivelse"))))
    strEmail     = RemoveHTML(DeMessSQL(Trim(Request.Form("Email"))))
    strTelefon     = RemoveHTML(DeMessSQL(Trim(Request.Form("Telefon"))))
    strRygning     = RemoveHTML(DeMessSQL(Trim(Request.Form("Rygning"))))
    strHusdyr     = RemoveHTML(DeMessSQL(Trim(Request.Form("Husdyr"))))
    strIP = Request.ServerVariables("REMOTE_ADDR")
    strTimenow    = Now()
    strSetantalgange = "1"
    strAnnoncetype = "soeger"
    strLastInsertID = "select * from tbl_annoncer WHERE annoncetype = 'har' LIMIT 1"
    If session("login") = "yes" Then
    strIndrykketaf = Session("id")
    Else
    strIndrykketaf = ""
    End If

    '//Hardcore validering af formular

    If Not IsNumeric(strAreal) Then
    Response.Redirect("indryk.asp?option=00&error=FEJL : Du har ikke indtastet en numerisk værdi i feltet Min. areal m²")
    ElseIf Not IsNumeric(strRum) Then
    Response.Redirect("indryk.asp?option=00&error=FEJL : Du har ikke indtastet en numerisk værdi i feltet Min. antal rum")
    ElseIf strPris = "" Then
    Response.Redirect("indryk.asp?option=00&error=FEJL : Du har ikke noget i feltet Max pris/måned")
    ElseIf strBeskrivelse = "" Then
    Response.Redirect("indryk.asp?option=00&error=FEJL : Du har ikke indtastet noget i feltet Lidt om dig/jer selv")
    ElseIf validateEmail(strEmail) = False Then
    Response.Redirect("indryk.asp?option=00&error=FEJL : Du har ikke skrevet en gyldig Email adresse ")
    ElseIf Not IsNumeric(strTelefon) Then
    Response.Redirect("indryk.asp?option=00&error=FEJL : Du har ikke indtastet en numerisk værdi i feltet Telefon")
    ElseIf strRygning = "" Then
    Response.Redirect("indryk.asp?option=00&error=FEJL : Du har ikke udfyldt feltet Rygning")
    ElseIf strHusdyr = "" Then
    Response.Redirect("indryk.asp?option=00&error=FEJL : Du har ikke udfyldt feltet Husdyr")
    End If

    strSQL = "INSERT INTO tbl_annoncer (amt,boligtype,areal,rum,pris,beskrivelse,email,telefon,dato,rygning,husdyr,setantalgange,annoncetype,indrykketaf,ip) VALUES ("
    strSQL = strSQL & "'" & strAmt & "',"
    strSQL = strSQL & "'" & strBoligtype & "',"
    strSQL = strSQL & "" & strAreal & ","
    strSQL = strSQL & "" & strRum & ","
    strSQL = strSQL & "'" & strPris & "',"
    strSQL = strSQL & "'" & strBeskrivelse & "',"
    strSQL = strSQL & "'" & strEmail & "',"
    strSQL = strSQL & "" & strTelefon & ","
    strSQL = strSQL & "'" & strTimenow & "',"
    strSQL = strSQL & "'" & strRygning & "',"
    strSQL = strSQL & "'" & strHusdyr & "',"
    strSQL = strSQL & "'" & strSetantalgange & "',"
    strSQL = strSQL & "'" & strAnnoncetype & "',"
    strSQL = strSQL & "'" & strIndrykketaf & "',"
    strSQL = strSQL & "'" & strIP & "');"

    'Response.write(strSQL)
    Conn.Execute(strSQL)

    'her åbnes til abbonement databasen


        SQLstmt = "SELECT * FROM tbl_users WHERE abbo_mail_sted = '" & strAmt & "' AND abbo_mail_type = '" & strBoligtype & "' AND abbo_mail_status_modtage = 'tilmeldt' AND abbo_mail_status = 'har'"
    Response.write(SQLstmt)
        Conn.Execute(SQLstmt)
        Set rs = Conn.Execute(SQLstmt)

    'looper resultatet

        DO WHILE NOT rs.EOF
        navn = rs("Navn")
        email = rs("Email")
        on error resume next


    'her starter jmail indholdet sendes via email

   
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        JMail.ContentTransferEncoding = "8bit"
        JMail.Charset = "ISO-8859-1"
       
        JMail.Priority = 1
        JMail.ServerAddress = "websmtp.boligtavlen.dk"
        JMail.Sender = "mailrobot@boligtavlen.dk"
    JMail.SenderName = "Boligtavlen Mailrobot"
        JMail.Subject = "Ny bolig på boligtavlen.dk"
    JMail.AddRecipient email
        JMail.Body = "Hej " & navn & " " & vbCrLf & "Der er netop nu indrykket boligannonce på boligtavlen.dk, som matcher dine kriterier " & vbCrLf
        JMail.Body= JMail.Body + "- " & strBoligtype & " " & vbCrLf
        JMail.Body= JMail.Body + "- " & strAmt & " " & vbCrLf
        JMail.Body= JMail.Body + "Klik her for at se den : http://boligtavlen.dk/sedetaljer.asp?option=2&annonceID=" & strLastInsertID & " " & vbCrLf
    JMail.Body= Jmail.Body + "Mvh. boligtavlen.dk " & vbCrLf

        JMail.Execute
        set JMail = nothing
    set SQLstmt = nothing

        rs.MoveNext
        LOOP
        RS.Close
**********************************
Jeg får ingen fejlmelding, der bliver bare ikke sendt mail til de brugere hvis kriterier matcher.
Jeg har på fornemmelsen at det har noget at gøre med at jeg har givet brugeren lov til f.eks at "abbonnere" på flere boligtyper af gangen, således at der i databasen kommer til at stå Andelsbolig, Lejebolig, Værelse hvis det er det han/hun har valgt.
Når den som vil udleje/sælge, derimod vil indrykke en annonce, har han/hun kun mulighed for at vælge een boligtype... Anywayz - jeg ville blive MEGET glad hvis nogen kan hjælpe mig her :o)