<% 'registration code errorCount = 0 Dim fullname, address1, address2, address3, post_town, post_code, telephone, email, home_line_rental, home_option1, home_option2, please_call_back, callback_time, where_heard, further_info fullname = request("fullname") address1 = request("address1") address2 = request("address2") address3 = request("address3") post_town = request("post_town") post_code = request("post_code") telephone = request("telephone") email = request("email") home_line_rental = request("home_line_rental") home_option1 = request("home_option1") home_option2 = request("home_option2") please_call_back = request("please_call_back") callback_time = request("callback_time") where_heard = request("where_heard") further_info = request("further_info") if request("Submit") <> "" then whichServer = Request.ServerVariables("server_name") whichServer = replace(whichServer,"www.","") whichServer = replace(whichServer,".co.uk","") whichServer = replace(whichServer,".com","") whichServer = replace(whichServer,"http://","") if whichServer <> "axistelecom" then validHost = "

Originating Host is not correct

" errorCount = errorCount + 1 end if whichReferer = Request.ServerVariables("HTTP_REFERER") whichReferer = replace(whichReferer,"www.","") whichReferer = replace(whichReferer,".co.uk","") whichReferer = replace(whichReferer,".co.uk","") whichReferer = replace(whichReferer,"http://","") whichReferer = left(whichReferer,11) if whichReferer <> "axistelecom" then validReferer = "

HTTP referer is not correct

" errorCount = errorCount + 1 end if if Request.ServerVariables("REQUEST_METHOD") <> "POST" then validPost = "

Form was not posted

" errorCount = errorCount + 1 end if badStrings = array("Content-Type%3A","MIME-Version%3A","Content-Transfer-Encodin%3A","bcc%3A","cc%3A") checkFormString = Request.Form.Item For Each badWord in badStrings if InStr(1,checkFormString, badWord,1) <> 0 then response.write(badWord) validString = "

Bad string found

" errorCount = errorCount + 1 end if next if fullName = "" then validFullName = ("

Please enter your name

") errorCount = errorCount + 1 end if if address1 = "" then validaddress1 = ("

Please enter your address

") errorCount = errorCount + 1 errClassaddress1 = " error" end if 'check the enail is equal to something and contains a fullstop and @ sign if email = "" or inStr(email,"@") = 0 or inStr(email,".") = 0 then validEmail = ("

Please enter a valid email

") errorCount = errorCount + 1 end if if post_town = "" then validpost_town = ("

Please enter your town

") errorCount = errorCount + 1 end if if telephone = "" then validtelephone = ("

Please enter your telephone number

") errorCount = errorCount + 1 end if if post_code = "" then validpost_code = ("

Please enter your postcode

") errorCount = errorCount + 1 end if if errorCount <> 0 then errMsg = "

The following information is required:

" &_ "

" end if if errorCount = 0 then content = "Name: " & fullname & vbcrlf content = content & "Address: " & address1 & vbcrlf content = content & "Address: " & address2 & vbcrlf content = content & "Address: " & address3 & vbcrlf content = content & "Address: " & post_town & vbcrlf content = content & "Postcode: " & post_code & vbcrlf content = content & "Telephone: " & telephone & vbcrlf content = content & "Email:" & email & vbcrlf content = content & "Home Line Rental:" & home_line_rental & vbcrlf content = content & "Home Option 1:" & home_option1 & vbcrlf content = content & "Home Option 2:" & home_option2 & vbcrlf content = content & "Please Call Back:" & please_call_back & vbcrlf content = content & "Call Back Time:" & callback_time & vbcrlf content = content & "Where Heard:" & where_heard & vbcrlf content = content & "Further Information: " & further_info & vbcrlf & vbcrlf content = "The following is a home user enquiry for more information via the Axis Telecom Website. Please follow up as soon as possible: " & vbcrlf & vbcrlf & content 'if not administrator then email him Dim sMsg Dim sTo Dim sFrom Dim sSubject Dim sTextBody 'sTo = "brian@innovative-graphics.co.uk" sTo = "sales@axistelecom.co.uk" sCC = "brian@innovative-graphics.co.uk" sFrom = email sSubject = "Axis Telecom Home Enquiry" sTextBody= content Dim objMail 'Create the mail object Set objMail = Server.CreateObject("CDO.Message") 'Set key properties objMail.From = sFrom objMail.To = sTo objMail.CC = sCC objMail.Subject= sSubject objMail.TextBody = sTextBody 'Send the email objMail.Send 'Clean-up mail object Set objMail = Nothing contactEmailSent = "

Thank you for your enquiry, a member of staff will be in contact shortly.

" end if end if %> Axis Telecom - Cheap phone call for business and home users in the UK with free line rental

About Us | Contact Us | My Account

Home User |

Landline & Broadband Options |

Energy Solutions |

Residential terms & Conditions

<% if contactEmailSent = "" then %>

Information request form for home users

If you would like to request further information on our Axis Telecom products either call our customer service team on 0844 875 1942 or complete the form below:

<%=errMsg%>

Name*
Address line 1*
Address line 2
Address line 3
Post town*
Post code*
Telephone (inc. std)*
E mail*
Which service(s) are you interested in	> Home User Line Rental - £7.91 per month > Home User Option 1 - £7.58 per month* > Home User Option 2 - £28.96 per month *Option 1 and 2 must be purchased in conjunction with Line Rental
Request a call back	If you would like someone from customer service to call you check the box bleow please tick > the best times to call:
Where did you hear about us	Use this space to submit any other questions you may have <%=further_info%>
*indicates required fields