forlængelse af spg: http://exp.dk/spm/258022

Jeg var lige lidt for hurtig, for jeg glemte lige hvordan det var de havde samme navn ti at starte med, for det der bliver valgt på siden, er hvem en mail skal sendes til, hvilket vil sige at den føre videre til nedenstående kode, som netop bruger navnet på chechboxene.

--------------kode her ------------------

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("XXXXX.mdb")
action = Request.QueryString("action")
%>

<%
        strIDsendtil =Request.Form("sendtil")
        sql2="SELECT * FROM persondata WHERE ID IN ("& strIDsendtil & ");"
        set send =conn.execute( sql2)
       
        SQL = "SELECT * FROM persondata WHERE id LIKE " & session("usrID") & ";"
        set sender = conn.execute( SQL )
       
        do while not send.EOF
        Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
        Mailer.FromName = sender("name")
        Mailer.FromAddress= sender("email")
        ' This is my local SMTP server
        Mailer.RemoteHost = "mail.XXXXXX.dk"
        Mailer.AddRecipient send("Name"), send("Email")
        Mailer.CharSet = 2
        Mailer.Subject = request.form("subject")
        Mailer.BodyText = request.form("tekst")
        Mailer.Priority = 1
        Mailer.SendMail
       
        Set Mailer = Nothing

response.write "<h5>"& send("name") &"<br>"
send.movenext
loop
conn.close

%>