Omskrivning fra CDonts til Jmail?

    do while not rs.eof
        emails=rs(\"emails\")
        subject = request.form(\"subject\")
        comm = request.form(\"comm\")

        Dim jmail
        Set jmail = Server.CreateObject(\"JMail.SMTPMAil\")

        jmail.addrecipient emails \' der må kun være een af gangen!
        jmail.Sender = \"mail@site.dk\"
        jmail.Subject = subject
        jmail.Body = comm
        jmail.Execute

        rs.movenext
    loop

MEN! Jeg ville skrive sådan her :

    Dim jmail
    Set jmail = Server.CreateObject(\"JMail.SMTPMAil\")
    jmail.ServerAddress = \"dinsmptserver\"
    jmail.Sender = \"mail@site.dk\"

    do while not rs.eof
        emails=rs(\"emails\")
        subject = request.form(\"subject\")
        comm = request.form(\"comm\")

        jmail.ClearRecipients \' sletter gamle modtagere
        jmail.addrecipient emails \' der må kun være een af gangen!
        jmail.Subject = subject
        jmail.Body = comm
        jmail.Execute

        rs.movenext
    loop

Du bliver da hurtigere og hurtigere - tak, så virker det.

*S* hæ hæ .. jaer :-)