Rundmailing mit JMail

[schutzgeist]

Ich versuche aus dem unteren Skript hier von ein Rundmailing zu erstellen.

Hab nun probiert, meine Datensatzabfrage da irgendwie reinzubekommen... will aber mal wieder nicht...

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/connection.asp" -->
<%
Dim objRS__MMColParam
objRS__MMColParam = "1"
If (Request.QueryString("Vorstand") <> "") Then 
  objRS__MMColParam = Request.QueryString("Vorstand")
End If
%>
<%
Dim objRS
Dim objRS_numRows

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = MM_connection_STRING
objRS.Source = "SELECT eMail FROM Mitglieder2 WHERE Funktion = '" + Replace(objRS__MMColParam, "'", "''") + "'"
objRS.CursorType = 0
objRS.CursorLocation = 2
objRS.LockType = 1
objRS.Open()

objRS_numRows = 0


Set Mailer = Server.CreateObject( "JMail.Message" )

    Mailer.Logging = true
    Mailer.Silent = true

    ' --- Angeben des Absendernamens und dessen EMailadresse
    Mailer.From = "ich@ich.de"
    Mailer.FromName = "Test Absender"

    ' --- Angeben des Betreffs
    Mailer.Subject = "Betreff dieser EMail"

    ' --- Angeben des Mailtextes
    Mailer.Body = "Hallo Welt," & vbCrLf & "Test, Test, Test"

    Do While Not objRS.EOF

        ' --- Angeben des Empfängers
        Mailer.AddRecipient (objRS.Fields.Item("eMail").Value)

        ' --- Absenden der EMail
        ' --- Hier wird erst der Mailserver angegeben
        If not Mailer.Send("mail.ich.de" ) Then
            Response.Write "Fehler: " & vbCrLf & Mailer.Log
            Else
                Response.Write "Mail erfolgreich versendet"
        End if

        objRS.MoveNext
    Loop

    objRS.Close
Set objRS = Nothing

Set Mailer = Nothing
%>

Nach dem Absenden des Formulars bekomm ich aber nur ne weiße Seite...
Ich möchte, dass alle eMail Adressen aus der Tabelle Mitglieder2 bei denen Funktion = Vorstand ist mir in den Mailer eingefügt werden :/