%@ LANGUAGE="VBSCRIPT" %> <% '// Initialise this forms holding variables qString = "" sError = "" fName = "" sName = "" org = "" jobTitle = "" telNo = "" eMail = "" add1 = "" add2 = "" town = "" county = "" postCode = "" country = "" hhcd = "" edp = "" edfp = "" edlcd = "" edrp = "" edbroad = "" ediwb = "" crs = "" specialtext = "" '// Scan the form variables from the previous page, in order to '// find out what button was pressed. If we see Submit.x its a submit '// If we see a Reset.x then its a reset. response.buffer = True for each item in request.form if instr(item, "Submit.x") then '// Validate the form data if ProcessData then '// Data is OK fName = NormaliseString(fName) sName = NormaliseString(sName) org = NormaliseString(org) jobTitle = NormaliseString(jobTitle) telNo = NormaliseString(telNo) eMail = NormaliseString(eMail) add1 = NormaliseString(add1) add2 = NormaliseString(add2) town = NormaliseString(town) county = NormaliseString(county) postCode = NormaliseString(postCode) country = NormaliseString(country) specialText = NormaliseString(specialtext) '// Call the Perl script to generate an e-mail notification to the server qString = "?fName=" & fName & "&sName=" & sName & "&org=" & org & _ "&jobTitle=" & jobTitle & "&telNo=" & telNo & "&eMail=" & eMail & _ "&add1=" & add1 & "&add2=" & add2 & "&town=" & town & "&county=" & county & _ "&postCode=" & postCode & "&country=" & country & _ "&hhcd=" & hhcd & "&edp=" & edp & "&edfp=" & edfp & _ "&edlcd=" & edlcd & "&edrp=" & edrp & "&edbroad=" & edbroad & _ "&ediwb=" & ediwb & "&crs=" & crs & "&specialtext=" & specialtext response.redirect "sendinforequest.asp" & qString end if end if next %>
|
||||||||