<% If Session("UserRights") = 3 then Response.Write("") Response.Write("") Response.Write("") End if %>
") ContenuMail = replace(ContenuMail,vbCrLf & vbCrLf,"") Set rsListeEnvoi = Server.CreateObject("ADODB.Recordset") If MailTo = 999999999 then sqlListeEnvoi = "SELECT id, Prenom, Nom, Mail1, Mail2 FROM joueurs_club WHERE Comite=1 OR ChefEquipe=1 AND optout=0 ORDER BY Nom, Prenom" end if If MailTo = 999999 then sqlListeEnvoi = "SELECT id, Prenom, Nom, Mail1, Mail2 FROM joueurs_club WHERE optout=0 ORDER BY Nom, Prenom" end if If MailTo = 999 then sqlListeEnvoi = "SELECT id, Prenom, Nom, Mail1, Mail2 FROM joueurs_club WHERE desactive=0 AND optout=0 ORDER BY Nom, Prenom" end if If MailTo > 0 and MailTo < 100 then sqlListeEnvoi = "SELECT id, Prenom, Nom, Mail1, Mail2 FROM joueurs_club WHERE desactive=0 AND optout=0 AND idCat=" & MailTo & " ORDER BY Nom, Prenom" end if openrs rsListeEnvoi, sqlListeEnvoi While not rsListeEnvoi.eof AddToMail = "" AddToMail = "
" _ & "Suivez ce lien pour vous désinscrire de la mailing list" MailToSend = ContenuMail & AddToMail Mail1 = "" Mail2 = "" mailsendto = "" mailsendcc = "" Mail1 = rsListeEnvoi("Mail1") If Mail1 <> "" then mailsendto = Mail1 Mail2 = rsListeEnvoi("Mail2") If Mail2 <> "" then mailsendcc = Mail2 end if SendCDOEmail "mail.eurobrevets.be","tihangehuy@eurobrevets.be","eB.1963", mailsubject, MailToSend,"tihangehuy@eurobrevets.be",mailsendto,mailsendcc, 1, "HTML" end if rsListeEnvoi.movenext Wend rsListeEnvoi.close set rsListeEnvoi = nothing Response.Redirect("mailing.asp?Sent=OK") %>