<%
DIM custMail, custBody

Set custMail = CreateObject("CDONTS.NewMail")

custBody="First Name: "& request.form("firstname") & vbcrlf

custBody=custBody & "Last Name: " & request.form("lastname") & vbcrlf
custBody=custBody & "Address 1: "& request.form ("address1") & vbcrlf
custBody=custBody & "Address 2: "& request.form ("address2") & vbcrlf
custBody=custBody & "City / Town: " & request.form ("town") & vbcrlf
custBody=custBody & "Post Code / Zip: " & request.form ("code") & vbcrlf
custBody=custBody & "County / State: " & request.form ("county") & vbcrlf
custBody=custBody & "Country: " & request.form ("country") & vbcrlf
custBody=custBody & "Phone: " & request.form ("phone") & vbcrlf
custBody=custBody & "Email: " & request.form ("email") & vbcrlf & vbcrlf
 

custMail.From="orders@yourplace.com"
custMail.To=request.form ("email")
custMail.Subject="THANK YOU FOR YOUR ORDER"
custMail.Body=custBody
custMail.Send

set custMail=nothing
%>

مثــــال