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