<% 'registration code errorCount = 0 Dim fullname, address1, address2, address3, post_town, post_code, telephone, email, business_line_rental, business calls, business phone plus, business_500, business_900, corporate plus, landline_broadband, landline_broadband_unlimited, broadband_only, line_rental_broadband, business_mobile, mobile_broadband, axis_replay, callcare, auto_attendant, please_call_back, callback_time, where_heard, further_info company_name = request("company_name") contact_name = request("contact_name") position = request("position") 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") business_line_rental = request("business_line_rental") business_calls = request("business_calls") business_phone_plus = request("business_phone_plus") business_500 = request("business_500") business_900 = request("business_900") corporate_plus = request("corporate_plus") landline_broadband = request("landline_broadband") landline_broadband_unlimited = request("landline_broadband_unlimited") broadband_only = request("broadband_only") line_rental_broadband = request("line_rental_broadband") business_mobile = request("business_mobile") mobile_broadband = request("mobile_broadband") axis_replay = request("axis_replay") callcare = request("callcare") auto_attendant = request("auto_attendant") 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 company_name = "" then validCompanyName = ("

Please enter your Company Name

") errorCount = errorCount + 1 end if if contact_name = "" then validContactName = ("

Please enter your Contact Name

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

Please enter your address

") errorCount = errorCount + 1 end if 'check the email 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 post town

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

Please enter your telephone number including STD code

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

Please enter your post code

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

The following information is required:

" &_ "

" end if if errorCount = 0 then content = "Company Name: " & company_name & vbcrlf content = content & "Contact Name: " & contact_name & vbcrlf content = content & "Position: " & position & vbcrlf content = content & "Address Line 1: " & address1 & vbcrlf content = content & "Address Line 2: " & address2 & vbcrlf content = content & "Address Line 3: " & address3 & vbcrlf content = content & "Town: " & post_town & vbcrlf content = content & "Postcode: " & post_code & vbcrlf content = content & "Telephone: " & telephone & vbcrlf content = content & "Email:" & email & vbcrlf content = content & "Business Line Rental:" & business_line_rental & vbcrlf content = content & "Business Calls Only:" & business_calls & vbcrlf content = content & "Business Phone Plus:" & business_phone_plus & vbcrlf content = content & "Business 500:" & business_500 & vbcrlf content = content & "Business 900:" & business_900 & vbcrlf content = content & "Corporate Plus:" & corporate_plus & vbcrlf content = content & "Landline & 8MB Broadband 5GB:" & landline_broadband & vbcrlf content = content & "Landline & 8Mb Broadband Unlimited:" & landline_broadband_unlimited & vbcrlf content = content & "Broadband Only" & broadband_only & vbcrlf content = content & "Line Rental & Broadband" & line_rental_broadband & vbcrlf content = content & "Business Mobile Tariffs:" & business_mobile & vbcrlf content = content & "Mobile Broadband:" & mobile_broadband & vbcrlf content = content & "Axis Replay:" & axis_replay & vbcrlf content = content & "Call Care:" & callcare & vbcrlf content = content & "Auto Attendant:" & auto_attendant & 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 Business User request for more information sent from 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 = "sales@axistelecom.co.uk" 'sTo = "brian@innovative-graphics.co.uk" sCC = "brian@innovative-graphics.co.uk" sFrom = email sSubject = "Axis Telecom Business 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 business users in the UK with free line rental

About Us | Contact Us | My Account

Landline & Broadband Options |

Mobile Options |

Energy Solutions |

Small Business Solutions |

Terms & Conditions

<% if contactEmailSent = "" then %>

Information request form for business 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%>

Company name *
Contact name *
Position
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	/> Business LIne Rental - £8.37 per month /> Business Calls Only /> Business Phone Plus - £10.97 per month /> Business 500 - £6.99 per month /> Mix Plan 900 - £15.99 per month /> Corporate Plus /> Landline & 8MB Broadband 5GB- £32.39 per month /> Landline & 8MB Broadband Unlimited - £37.39 per month /> Broadband Only- £18.99 per month /> Line Rental & Broadband - £19.99 per month /> Business Mobile Tariffs - from £9.99 per month /> Mobile Broadband - from £5.00 per month /> Axis_Replay /> Axis CallCare /> Axis Auto Attendant *Business Option 1 must be purchased in conjuction 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