VIEWCART SEARCH CONTACT POLICIES AFFILIATES HOME SETUP HELP INTERNATIONAL ACCOUNT LOGIN ACCOUNT HISTORY ORDER STATUS SITEMAP

OR TRY ADVANCED SEARCH

 

Site Map

 

<% DIM strEmail, strName, strComments, mail, reply, objMail
strEmail = request.form("Email")
strName = request.form("Name")
strComments = request.form("Comments")

mail = "YOUR EMAIL ADDRESS HERE"
reply = request.form("Email")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = reply
objMail.Subject = "YOUR SUBJECT MESSAGE HERE"
objMail.To = mail
objMail.Body = "Email: " & strEmail & vbCrLf & _
"Name: " & strName & vbCrLf & _
"Comments: " & vbCrLf & strComments

objMail.Send
Set objMail = nothing
%>


<%
strName = request.form("Name")
Response.Write strName
%>