Sun Jul 15, 2012 12:14 am
FeedBack FORM page :
<%
Response.Write " <form method=post action=feedback.asp> "&_
"<table class='t2'>"&_
"<tr><td colspan=2>Feedback Form</td></tr>"&_
"<tr><td>Name</td><td><input type=text name=firstName></td></tr>"&_
"<tr><td>Email</td><td><input type=text name=email></td></tr>"&_
"<tr><td>Address 1</td><td><input type=text name=add1></td></tr>"&_
"<tr><td>Address 2</td><td><input type=text name=add2></td></tr>"&_
"<tr><td>City</td><td><input type=text name=city></td></tr>"&_
"<tr><td>State</td><td><input type=text name=state></td></tr>"&_
"<tr><td>Country</td><td><input type=text name=country></td></tr>"&_
"<tr><td colspan=2>Details</td></tr>"&_
"<tr><td colspan=2><textarea name=t1 rows=5 cols=40></textarea></td></tr>"&_
"<tr><td colspan=2><input type=submit value=Submit></td></tr>"&_
"</table></form>"
%>
Here is the page that parameters are posted to
<%
Dim firstName,email,add1,add2,city,state,country,t1,body_text
firstName=Request("firstName")
email=Request("email")
add1=Request("add1")
add2=Request("add2")
city=Request("city")
state=Request("state")
country=Request("country")
t1=Request("t1")
body_text="Name = "& firstName & "<br>"
body_text = body_text + "Email = "& email & "<br>"
body_text = body_text + "Address 1 = "& add1 & "<br>"
body_text = body_text + "Address 2 = "& add2 & "<br>"
body_text = body_text + "City = "& city & "<br>"
body_text = body_text + "State = "& state & "<br>"
body_text = body_text + "Country = "& country & "<br>"
body_text = body_text + "Details = "& t1 & "<br>"
Set emailObject=CreateObject("CDO.Message")
emailObject.Subject="Feedback email from users"
emailObject.From=email
emailObject.To="[email protected]"
emailObject.HtmlBody=body_text
emailObject.Send
set emailObject=nothing
Response.Write "Your email has been sent "
Codemiles.com is a participant in the Amazon Services LLC Associates Program, an affiliate advertising program designed to provide a means for sites to earn advertising fees by advertising and linking to Amazon.com
Powered by phpBB © phpBB Group.