<% 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 & "You have received a SOLIDARITES e-card" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "

Hello,

" HTMLMail=HTMLMail & "

" & Request("prenom")& " " & Request("nom")& " has sent you a SOLIDARITES e-card.

" HTMLMail=HTMLMail & "

To open your e-card, click here

" 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 = "You have received a SOLIDARITES e-card" 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/support/voeuxenvoyes-eng.shtml" end if %> SOLIDARITES e-cards
Home > Support us > E-cards

Personnalise and send your e-cards


<%=msg%>
My details: (* obligatory fields)
You have chosen this image:
Cliquez ici pour voir l'e-carte de voeux
Change image
My surname * :
My first name * :
My email address * :
My personal message * :
I would like to send my e-card to: (* obligatory fields)
Email address 1* : Email address 6 :
Email address 2 : Email address 7 :
Email address 3 : Email address 8 :
Email address 4 : Email address 9 :
Email address 5 : Email address 10 :

To send your e-card to a large number of people using your email software, copy the link below into the body of your email message.

http://www.solidarites.org/support/e-cartes-solidaires-2010-fille2-eng.shtml
 
Photos: Constance Decorde, Solidarités