'''this routine simply sends the email using cdosys
sub SendEmail(sTo,sFrom,SSubject,sTextBody)
Dim objMail
'Create the mail object 
Set objMail = Server.CreateObject("CDO.Message")

'Set key properties 
objMail.From = sFrom
objMail.To = sTo
objMail.Subject= sSubject
objMail.TextBody = sTextBody
objmail.HTMLBody = sTextBody
'Send the email
objMail.Send

'Clean-up mail object
Set objMail = Nothing
end sub

dim Customer_Body, Thank_You_Body, Customer_Email

Customer_Email = "Support@CustomerDomain.com"

	For i=1 To request.form.count 'build email that is sent to YOUR customer
		Customer_Body = Customer_Body & request.form.key(i) & ": " & request.form.item(i) & "
"
	Next
	'Content for the thank youemail sent to the sender
	Thank_You_Body = "Thank you for your interest in our products and services. Your response has been sent and a customer service representative should be contacting you as soon as possible."
	
	

	'send email to your customer
	SendEmail Customer_Email,request.form("email"),"CustomerDomain.com: Contact Request",Customer_Body

	'send Thank you email
	SendEmail request.form("email"),Customer_Email,"CustomerDomain.com: Thank You",Thank_You_Body

response.redirect("Contact_us.asp?Action=Message Sent")