<%@ Language=VbScript%> <%
'*******************************************************************'
'Script : myForm Version: 1.o '
'File : feedback_form.asp '
'*******************************************************************'
'Copyright (c) 2002-2003, Peter Pavlidis, ApiWare! '
' '
'http://www25.brinkster.com/peterpavlidis '
' '
'This script was released on October 2002 by ApiWare! '
'* Visit for more great scripts! '
'* This may be used and changed freely as long as all credit '
' and copyright info for ApiWare! remains intact. '
'* Any links to ApiWare! must remain intact. '
' '
'THIS PROGRAM MAY NOT BE REDISTRIBUTED OR RESOLD '
'*******************************************************************'
%>
<%
if request.querystring("submit") = "feedback" then 'This mean the form was submitted so lets check to see what was chosen/not and process
dim MessageType, Subject, SubjectOther, Comments, UserName, UserEmail, UserTel, UserFAX, ContactRequested
'lets get all the variables in
MessageType = request("MessageType")
Subject = request("Subject")
SubjectOther = request("SubjectOther")
Comments = request("Comments")
UserName = request("UserName")
UserEmail = request("UserEmail")
UserTel = request("UserTel")
UserFAX = request("UserFAX")
ContactRequested = request("ContactRequested")
call process_form
%>
<%
else
%>
FeedBack Form!
Tell us what you think about our web site, our products, our
organization, or anything else that comes to mind. We welcome
all of your comments and suggestions.
Copyright © 2009 Red Dragon School of Martial Arts. All rights
reserved.<% end if %>
|