<% if request("envoyer.x") > 0 then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "SEMCL" Mailer.FromAddress= Request.Form("email") Mailer.RemoteHost = "mail.laseristes.com" Mailer.AddRecipient "SEMCL", "info@laseristes.com" 'Mailer.AddBCC "SEMCL-", "admin@estheweb.com" 'Mailer.AddBCC "SEMCL_", "contact@guidemedical.com" Mailer.Subject = "Demande d'adresses SEMCL" Mailer.BodyText = "Demande d'adresses de médecins de : " & Request.Form("prenom")& " " & Request.Form("nom") & vbcrlf Mailer.BodyText = "Code Postal : " & Request.Form("cp") & vbcrlf Mailer.BodyText = "Ville : " & Request.Form("ville") & vbcrlf Mailer.BodyText = "Pays : " & Request.Form("pays") & vbcrlf Mailer.BodyText = "Région : " & Request.Form("region") & vbcrlf Mailer.BodyText = "E.mail : " & Request.Form("email") & vbcrlf Mailer.BodyText = vbcrlf Mailer.BodyText = "Soins : " & Request.Form("soins") & vbcrlf Mailer.BodyText = vbcrlf if Mailer.SendMail then envois = 1 else envois = 0 end if Response.Redirect "valid-ou.asp?envois=" & envois end if %> Syndicat Européen des Médecins et Chirurgiens Laseristes - le LASER

Vous souhaitez connaître des nom de médecins de votre région appartenant au syndicat :

Merci de remplir la fiche de demande ci dessous.

 Attention : ne vous trompez pas dans la rédaction de votre e.mail sinon nous ne pourrons pas vous faire parvenir notre réponse.
 

  Nom :

  Prénom :

  Ville :

  Code postal :
  Région :

  Pays :

Email :
Soins désirés :