<%Imgchoisi =Request.querystring("img") %> <% ' Récupération des information pour les stocker from_name=Request("from_name") to_name=Request("to_name") from_email=Request("from_email") to_email=Request("to_email") %> <% Select Case Request("Action") Case "Vrai" FormOk=checkForm(Request.queryString) if FormOk="" Then Set objCDOMail = Server.CreateObject("CDONTS.NewMail") Imgchoisi =Request.querystring("img") SELECT case imgchoisi case "1" img="c:\sites-web\lactm\goodies\e-cards\e-card1.jpg" case "2" img="c:\sites-web\lactm\goodies\e-cards\e-card2.jpg" case "3" img="c:\sites-web\lactm\goodies\e-cards\e-card3.jpg" end select objCDOMail.AttachFile img ' Renseigement des propriétés objCDOMail.From = Request("from_email") objCDOMail.To = Request("to_email") objCDOMail.Subject = "E-card CTM" objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) 'Corps du message envoyé au destinataire strBody = Request("from_name") & " a choisi cet Ecard pour vous sur le site http://www.lactm.com" & vbCrLf strBody = strBody & "pour le voir, cliquez sur le fichier attaché." & vbCrLf & vbCrLf strBody = strBody & "Le message : " & vbCrLf strBody = strBody & Request("message") objCDOMail.Body = strBody 'Envi du message objCDOMail.Send Set objCDOMail = Nothing 'Mail pour l'administrateur Set objCDOMail2 = Server.CreateObject("CDONTS.NewMail") ' Renseigement des propriétés objCDOMail2.From ="webmaster@ids-com.fr" objCDOMail2.To = "webmaster@ids-com.fr" objCDOMail2.Subject = "E-cards CTM" objCDOMail2.Importance = 0 '(0=Low, 1=Normal, 2=High) 'Corps du message envoyé à l'administrateur strBody2 = "Expediteur : " &vbCrLf strBody2 = "nom : "& Request("from_name") &vbCrLf strBody2 = "email : "& Request("from_email") &vbCrLf strBody2 = "destinataire : " &vbCrLf strBody2 = "nom :"& Request("to_name") &vbCrLf strBody2 = "email : "& Request("to_email") &vbCrLf strBody2= "email : "& Request("from_email") &vbCrLf objCDOMail2.Body = strBody2 ' Envoi du message! objCDOMail2.Send Set objCDOMail2 = Nothing Response.redirect "confE-cards.asp" End If End Select %> CTM- E-cards
 
  Goodies   E-cards  
 

Indiquez votre nom et votre e-mail ainsi que ceux de votre correspondant.
La CTM se fera un plaisir de transmettre votre ecard avec vos commentaires.
<%If FormOk<>"" Then%> Une ou des erreurs se sont produites :
<%=FormOk%> <%End If%> ">

 De :  A :
Votre nom
"> 		Nom du correspondant
">
Votre E-mail
"> 		E-mail du correspondant
">
Votre commentaire :
  Retour