<% 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
%>