<%@Language="VbScript"%>
<html>
// recuperation des donnees du formulaire (coordonnees du client)
<%
nom =Request.Form("nom")
prenom =Request.Form("prnm")
adresse =Request.Form("adr")
cp=Request.Form("cp")
ville=Request.Form("ville")
tel=Request.Form("tel")
port=Request.Form("port")
email=Request.Form("email")
message=nom&" "&prenom&" "&adresse&" "&cp&" "&ville&" "&tel&" "&porte&" "&email&"<BR>"
%>
// recuperation des donnees du formulaire (produits commandés par le client)
<%
Response.Write(Request.Form("produit").Count & " produits :<BR>")
For i = 1 To Request.Form("produit").Count
message = message & (Request.Form("produit")(i) & "<BR>")
Next
// test d'affichage des donnees ok
Response.Write(message)
%>
//creation du mail
<%
Dim MAILCDO
Set MAILCDO = Server.CreateObject("CDONTS.NewMail")
MAILCDO.To = "adresse@duclient.fr"
MAILCDO.From = "adresse@entreprise.com"
MAILCDO.Subject = "Votre devis en ligne"
MAILCDO.Body = message
MAILCDO.Importance = 2
MAILCDO.BodyFormat=0
MAILCDO.MailFormat=0
MAILCDO.Send
set MAILCDO=Nothing
%>
// fin de la page HTML
<head>
<title>envoi mail</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
</body>
</html>
Partager