user feedback FORM ASP

DrRakha

In this code snippet we build up a feedback form

Code:

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 "

Java

C/C++

PHP

C#

HTML

CSS

ASP

Javascript

JQuery

AJAX

XSD

Python

Matlab

R Scripts

Weka

user feedback FORM ASP

Topic Tags