<% set OBJdbConnection = Server.CreateObject("ADODB.Connection") sConn =Session("ConnectionString") OBJdbConnection.Open sConn num=request("num") if (num <> "" and request("action")="") then SQL = "SELECT * FROM voeux WHERE num=" & num Set RSvoeux = OBJdbConnection.Execute(SQL) nom = RSvoeux("nom") prenom = RSvoeux("prenom") email = RSvoeux("email") message = RSvoeux("message") email1 = RSvoeux("email1") email2 = RSvoeux("email2") email3 = RSvoeux("email3") email4 = RSvoeux("email4") email5 = RSvoeux("email5") email6 = RSvoeux("email6") email7 = RSvoeux("email7") email8 = RSvoeux("email8") email9 = RSvoeux("email9") email10 = RSvoeux("email10") else nom = "" prenom = "" email = "" message = "" email1 = "" email2 = "" email3 = "" email4 = "" email5 = "" email6 = "" email7 = "" email8 = "" email9 = "" email10 = "" end if msg="" Action = Left(UCase(Request("Action")),5) if (request("action")="Envoy") then if request("num")="" then sql = "INSERT INTO voeux(nom,prenom,email,message,email1,email2,email3,email4,email5,email6,email7,email8,email9,email10)" sql = sql & "VALUES(" sql = sql & CheckString(Request("nom"),",") sql = sql & CheckString(Request("prenom"),",") sql = sql & CheckString(Request("email"),",") sql = sql & CheckString(request("message"),",") sql = sql & CheckString(Request("email1"),",") sql = sql & CheckString(Request("email2"),",") sql = sql & CheckString(Request("email3"),",") sql = sql & CheckString(Request("email4"),",") sql = sql & CheckString(Request("email5"),",") sql = sql & CheckString(Request("email6"),",") sql = sql & CheckString(Request("email7"),",") sql = sql & CheckString(Request("email8"),",") sql = sql & CheckString(Request("email9"),",") sql = sql & CheckString(Request("email10"),"") sql = sql & ")" else sql = "UPDATE voeux " sql = sql & "SET " sql = sql & "nom=" & CheckString(Request("nom"),",") sql = sql & "prenom=" & CheckString(Request("prenom"),",") sql = sql & "email=" & CheckString(Request("email"),",") sql = sql & "message=" & CheckString(request("message"),",") sql = sql & "email1=" & CheckString(Request("email1"),",") sql = sql & "email2=" & CheckString(Request("email2"),",") sql = sql & "email3=" & CheckString(Request("email3"),",") sql = sql & "email4=" & CheckString(Request("email4"),",") sql = sql & "email5=" & CheckString(Request("email5"),",") sql = sql & "email6=" & CheckString(Request("email6"),",") sql = sql & "email7=" & CheckString(Request("email7"),",") sql = sql & "email8=" & CheckString(Request("email8"),",") sql = sql & "email9=" & CheckString(Request("email9"),",") sql = sql & "email10=" & CheckString(Request("email10"),"") sql = sql & " WHERE num=" & request("num") end if 'Response.Write sql Set RS = OBJdbConnection.Execute(sql) if request("num") = "" then 'On récupère le num de la derniere carte sql = "SELECT max(num) as maxi FROM voeux" Set RSmax = OBJdbConnection.Execute(sql) Set num=Rsmax("maxi") else num = request("num") end if HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "Vous avez reçu une e-carte de voeux solidaire" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "

Bonjour,

" HTMLMail=HTMLMail & "

" & Request("prenom")& " " & Request("nom")& " vous a envoyé une e-carte de voeux solidaire.

" HTMLMail=HTMLMail & "

Pour découvrir votre e-carte, cliquez ici

" HTMLMail=HTMLMail & " " HTMLMail=HTMLMail & "" resultatt2 = False ref="ref-"&day(now)&"/"&month(now)&"/"&year(now)&"-"& Hour(time)&":"&Minute(time)&":"&Second(time) Set Mailer2 = Server.CreateObject("SMTPsvg.Mailer") Mailer2.FromName= Request("Prenom") & " " & Request("nom") Mailer2.ReplyTo= Request("email") Mailer2.FromAddress= Request("email") Mailer2.RemoteHost = "10.0.186.99" Mailer2.AddRecipient Request("email1"), Request("email1") Mailer2.AddRecipient Request("email2"), Request("email2") Mailer2.AddRecipient Request("email3"), Request("email3") Mailer2.AddRecipient Request("email4"), Request("email4") Mailer2.AddRecipient Request("email5"), Request("email5") Mailer2.AddRecipient Request("email6"), Request("email6") Mailer2.AddRecipient Request("email7"), Request("email7") Mailer2.AddRecipient Request("email8"), Request("email8") Mailer2.AddRecipient Request("email9"), Request("email9") Mailer2.AddRecipient Request("email10"), Request("email10") Mailer2.Subject = "Vouz avez reçu une e-carte de voeux solidaire" Mailer2.BodyText = HTMLMail Mailer2.ContentType = "text/html" Mailer2.CharSet = 2 if Mailer2.SendMail then resultatt2= "Mail sent..." else resultatt2=" mail pas envoyé" end If 'response.write(num) 'Redirection vers la page de confirmation response.redirect "http://www.solidarites.org/aider/voeuxenvoyes.shtml" end if %> SOLIDARITES - e-cartes de voeux solidaires
Accueil > Nous aider > E-cartes de voeux solidaires

Je personnalise et j'envoie mes voeux


<%=msg%>
Mes coordonnées : (* champs obligatoires)
Vous avez choisi cette image :
Cliquez ici pour voir l'e-carte de voeux
Changer d'image
Mon nom * :
Mon prénom * :
Mon adresse email * :
Mon message de voeux * :
Les destinataires de mon e-carte de voeux : (* champs obligatoires)
Adresse email 1* : Adresse email 6 :
Adresse email 2 : Adresse email 7 :
Adresse email 3 : Adresse email 8 :
Adresse email 4 : Adresse email 9 :
Adresse email 5 : Adresse email 10 :

Pour envoyer vos voeux à un plus grand nombre de contacts en utilisant votre messagerie habituelle, copiez le lien ci-dessous et collez- le dans le corps de texte de votre message.

http://www.solidarites.org/aider/e-cartes-solidaires-2010-fille.shtml
 
Crédit photos : Constance Decorde, Solidarités