<% 'registration code errorCount = 0 Dim fullname, address1, address2, address3, post_town, post_code, telephone, email, home_line_rental, home_option1, home_option2, current_phone, phone_expend, current_broadband, broadband_expend, current_mobile, mobile_expend, number_of_lines, where_heard, further_info, terms 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") current_phone = request("current_phone") phone_expend = request("phone_expend") current_broadband = request("current_broadband") broadband_expend = request ("broadband_expend") number_of_lines = request("number_of_lines") where_heard = request("where_heard") further_info = request("further_info") 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 fullname = "" then validfullname = ("
  • Please enter your name
    • ") errorCount = errorCount + 1 end if if address1 = "" then validaddress1 = ("
  • Please enter your address
    • ") 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 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 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 = "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 Phone - Line Rental: " & home_line_rental & vbcrlf content = content & "Home Phone - Option 1: " & home_option1 & vbcrlf content = content & "Home Phone - Option 2: " & home_option2 & vbcrlf content = content & "Current Phone Provider: " & current_phone & vbcrlf content = content & "Current Phone Expenditure: " & phone_expend & vbcrlf content = content & "Current Broadband Provider: " & current_broadband & vbcrlf content = content & "Current Broadband Expenditure: " & broadband_expend & vbcrlf content = content & "Number of Lines: " & number_of_lines & vbcrlf content = content & "Where Heard: " & where_heard & vbcrlf content = content & "Further Information: " & further_info & vbcrlf content = content & "Terms & Conditioned Accepted: " & terms & vbcrlf & vbcrlf content = "The following is a sign-up submission from a visitor to 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 Home Signup" 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 Page Business User Home User Help Broadband
    Support    		 News & Blog
      Home User  |   Landline & Broadband Options  | Energy Solutions  | Residential terms & Conditions
    <% if contactEmailSent = "" then %>

    Sign up NOW for Axis Telecom Home 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%>

    Name*
    Address line 1*
    Address line 2
    Address line 3
    Post town*
    Post code*
    Telephone (inc. std)*
    E mail*
    Which service(s)
    would you like to sign up for?    		 >
    > Home phone Line Rental
    Required with option 1.
    £7.91
    per month
    > Home phone Option 1*
    Unlimited local and national calls during evenings and weekends
    £7.58
    per month
    > Home phone Option 2
    Inclusive Line Rental, Broadband, Unlimited Local and National Calls
    £28.96
    per month

    *Home Phone Options 1 must be purchased in conjuntion with Line Rental.
    Who is your current provider?
    annual expenditure
    Telephone
    £
    Broadband
    £
    How many lines do you have?
    Where did you hear about us
    		 Additional comments
    Terms of Business

    Please read our Terms of Business before submitting your application.

    *I have read and understand Axis Telecom's Terms of Business >

    *indicates required fields  

    <% else response.write(contactEmailSent) end if %>
    Sim only tariffs for business from Axis Telecom
    		 

    We guarantee to save you money
    Send Me Info Sign Me Up NOW
    Business Opportunity from Axis

     

    Our Price Promise | Terms Of Business | Codes Of Conduct

    website hosted by Innovative Graphics    |    Associated Sites: axistelecom-mobile.co.uk and axistelecom-broadband.co.uk