Admin Volley-Ball Club Tihange

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Admin Volley-Ball Club Tihange - Huy

Mailing vente

<% Set rsJoueurs = Server.CreateObject("ADODB.Recordset") sqlJoueurs = "SELECT * FROM Joueurs_club WHERE desactive=0" openrs rsJoueurs, sqlJoueurs While not rsJoueurs.eof ContenuMail = "" _ & "" _ & "" _ & "Volley Tihange-Huy - Vente lasagnes" _ & "" _ & "" _ & "Salut " & rsJoueurs("Prenom") & ",

" _ & "Comme promis, l'enregistrement des ventes de lasagnes est désormais disponible sur le site du club.

" _ & "Comme pour les entraînements et les matchs, le but est de procurer plus de facilités et de coordination pour chacun.

" _ & "" _ & "Suis ce lien pour enregistrer tes ventes de lasagnes

" _ & "Sur cette page, tu pourras :
" _ & "   - Ajouter les commandes de tes clients
" _ & "   - Gérer les paiements de tes clients
" _ & "   - Gérer les livraisons de tes clients
" _ & "   - Calculer automatiquement le montant par client et le montant global
" _ & "   - Faciliter le travail d'organisation de Kathleen
" _ & "   - Télécharger le bon de commande

" _ & "A bientôt sur le terrain, au bord ou à la buvette,

" _ & "Lainlain." _ & "" _ & "" Mail1 = "" Mail1 = rsJoueurs("Mail1") If Mail1 <> "" then Dim sendTheMail Set sendTheMail = CreateObject("CDO.Message") sendTheMail.From = "alain@lainlain.be" sendTheMail.To = Mail1 If rsJoueurs("Mail2") <> "" then sendTheMail.Cc = rsJoueurs("Mail2") End if sendTheMail.Subject = "Volley Tihange-Huy - Vente lasagnes" sendTheMail.HTMLBody = ContenuMail sendTheMail.AddAttachment "C:\Inetpub\wwwroot\MesSites\VolleyTihangeHuy\Data\lasagnes2009.pdf" sendTheMail.Send Set sendTheMail = nothing end if rsJoueurs.movenext ContenuMail = "" wend rsJoueurs.close set rsJoueurs = nothing Response.Write("Succeed!") %>