HEX

File: D:/HostingSpaces/TWijnstra/wijnstra.com/frontfactory.com/interbrew/asp/mail.asp
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>

<BODY bgcolor="#999999" text="#000000" >
<%Response.Write("Merci d'avoir rempli ce questionnaire")
'*** Load Constants
SENDTO = "Jeroen.Tent@crexx.nl"
SUBJECT = "Form Reply-Response Example"
'*** Post values to the form
Nom = Request("Nom")
Prenom = Request("Prenom")
Adresse = Request("Adresse")
Ville = Request("Ville")
CodePostal = Request("CodePostal")
TelPersonnel = Request("TelPersonnel")
TelPortable = Request("TelPortable")
InfoRequestText = Request("InfoRequestText")

'*** Build message body

BodyString = BodyString & "Nom          =  " & Nom & VbCrLf & "Prenom       =  " & Prenom & VbCrLf& "Adresse      =  " & Adresse & VbCrLf & "Ville        =  " & Ville & VbCrLf & "CodePostal   =  " & CodePostal & VbCrLf & "TelPersonnel =  " & TelPersonnel & VbCrLf & "TelPortable  =  " & TelPortable & VbCrLf & "InfoRequestText  =  " & InfoRequestText & VbCrLf

SenderString = SenderString & Nom & " " & Prenom

Response.Write(BodyString)
Response.Write(SenderString)

'if not Message = "" then BodyString = BodyString & "prenom =  " & Adresse & VbCrLf end if

'***Begin Send mail to customer***
  
   Set myMail = Server.CreateObject("CDONTS.NewMail")         
   myMail.From = SenderString
   myMail.To = SENDTO
   myMail.Subject = "BAM BAT Information Request"
   myMail.Body = BodyString
   myMail.Send
   Set myMail = Nothing
   
'***End Send mail to customer***


%>

<!--<script language="javascript"> window.close();
 </script>-->


</BODY>
</HTML>