<% 'registration code errorCount = 0 Dim fullname, address1, address2, address3, post_town, post_code, telephone, email, sole_trader, partnership, ltd_company, vat_number, Company_reg_number, terms 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") sole_trader = request("sole_trader") partnership = request("partnership") business_mobile = request("business_mobile") ltd_company = request("ltd_company") vat_number = request("vat_number") Company_reg_number = request("Company_reg_number") terms = request("terms") 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 here

") errorCount = errorCount + 1 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 post town

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

Please enter your Post code

") errorCount = errorCount + 1 end if if terms = "" then validterms = ("

Please accept Axis Telecom's Terms of Business

") 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 & "sole trader: " & sole_trader & vbcrlf content = content & "Partnership: " & partnership & vbcrlf content = content & "Limited Company: " & ltd_company & vbcrlf content = content & "Vat Number: " & vat_number & vbcrlf content = content & "Company Registration Number: " & Company_reg_number & vbcrlf content = "The following is a sign-up submission 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 = "davidmeyers@axistelecom.co.uk" 'sTo = "brian@innovative-graphics.co.uk" 'sCC = "brian@innovative-graphics.co.uk" sCC = "smoore@axistelecom.co.uk" 'sCC = "CarolineMewett@axistelecom.co.uk" sFrom = email sSubject = "Axis Telecom Sign Up Business" 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

Landline & Broadband Options |

Mobile Options |

Energy Solutions |

Small Business Solutions |

Terms & Conditions

<% if contactEmailSent = "" then %>

Sign up NOW for Axis Telecom
Business User Services

If you would like to on of Axis Telecoms servies either call our customer service team on 0844 875 1942 or complete the form below: Once we've recieved you online application we will contact you to confirm your details.

<%=errMsg%>

Company name *
Contact name *
Position
Address line 1*
Address line 2
Address line 3
Post town*
Post code*
Telephone (inc. std)*
E mail*
Company Status	/> Sole Trader /> Partnership /> Limited Company Vat Number Company reg number
Terms of Business	Please read our Terms of Business before submitting your application. *I have read and understand Axis Telecom's Terms of Businees and I am autorised to sign up on behalf of my company. />
*indicates required fields