% ' envoi de formulaire
' Interface pour ASPmail
function sendMail(mFrom,mTo,sujet,body)
dim Mail ' l'objet SMTP
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
' le serveur
Mail.RemoteHost = "auth.smtp.1and1.fr"
' l'émetteur
Mail.FromAddress = mFrom
' le destinataire
' Mail.Addrecipient mTo,mTo
' Mail.Addrecipient "SARIM2" , "jerome@aimo-boot.fr"
Mail.Addrecipient "SARIM" , "accueil@aimo-boot.fr"
Mail.Addrecipient "SARIM devis deces" , "site.aimo.boot@gmail.com"
' l'objet du courriel
Mail.Subject = sujet
' le texte du courriel
Mail.BodyText = body
' et zou... false si erreur d'émission
sendMail = Mail.SendMail
end function
%>
Assurances AIMO-BOOT
<% ' SI LE FORM A ETE POSTE
Email = request.form("Email")
Pour = request.form("Pour")
if Email <>"" then
' Récupère les éléments du form
'temp=""
temp0= "Demande de devis prévoyance décés - Site internet" & VbCrLf & VbCrLf & "Merci de traiter cette demande sous 24/48h" & VbCrLf & "--------------------------------------" & VbCrLf
temp1= "Coordonnées" & VbCrLf & "------------------------" & VbCrLf & VbCrLf &"Nom : " & Request.Form("Nom") & VbCrLf & "Prénom : " & Request.Form("prenom") & VbCrLf & "Adresse : " & Request.Form("adresse") & VbCrLf & Request.Form("code postal") & " " & Request.Form("ville") & VbCrLf & "Téléphone/Portable : " & Request.Form("tel") & " - " & Request.Form("portable") & VbCrLf & "Fax : " & Request.Form("fax") & VbCrLf & "Courriel : " & Request.Form("Email") & VbCrLf & "Date de naissance : " & Request.Form("Date naissance") & VbCrLf & "Situation familiale : " & Request.Form("Situation familiale") & VbCrLf & "Profession : " & Request.Form("profession") & VbCrLf & "Si vous n'avez pas d'activité professionnelle, précisez : " & Request.Form("Si pas activité")
temp2= "Personnes à assurer" & VbCrLf & "------------------------" & VbCrLf & VbCrLf & "1/ : " & Request.Form("nom_monsieur") & " " & Request.Form("prenom_monsieur") & VbCrLf & " Date de naissance : " & Request.Form("naissance_monsieur") & VbCrLf & " Montant du capital : " & Request.Form("prime") & " euros" & VbCrLf & " Profession : " & Request.Form("prof_pere") & VbCrLf & VbCrLf & "2/ : " & Request.Form("nom_madame") & " " & Request.Form("prenom_madame") & VbCrLf & " Date de naissance : " & Request.Form("naissance_madame") & VbCrLf & " Montant du capital : " & Request.Form("prime2") & " euros" & VbCrLf & " Profession : " & Request.Form("prof_mere")
temp4= "Comment vous nous avez connu : " & Request.Form("connu") & " (" & Request.Form("parrain") & " " & Request.Form("connu_autre") & ")" & VbCrLf
temp= temp0 & VbCrLf & temp1 & VbCrLf & temp2 & VbCrLf & temp3 & VbCrLf & " ### Fin devis ### " & VbCrLf & VbCrLf & temp4 & VbCrLf & " ### Fin message ### "
'for each truc in Request.Form
' temp = temp & truc & " : " & Request.Form(truc) & VbCrLf & VbCrLf
'next
' Envoie le message
'
if sendmail(Email,Pour,"Demande de devis santé",temp) then
' Affiche un message de confirmation
Response.Redirect("devis_merci.htm")
else
' ou un message d'erreur
response.write "Impossible d'envoyer le formulaire !"
end if
' SINON AFFICHAGE DU FORM
else %>