<% 'registration code errorCount = 0 Dim fullname, address1, address2, address3, post_town, post_code, fault_telephone, email, fault_type, fault_description fullname = request("fullname") address1 = request("address1") address2 = request("address2") address3 = request("address3") post_town = request("post_town") post_code = request("post_code") fault_telephone = request("fault_telephone") email = request("email") fault_type = request("fault_type") fault_description = request("fault_description") fault = request("fault") 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 Full Name
  • ") errorCount = errorCount + 1 end if if address1 = "" then validaddress1 = ("
  • Please enter your address here
  • ") errorCount = errorCount + 1 end if if post_town = "" then validpost_town = ("
  • Please enter your enquiry
  • ") errorCount = errorCount + 1 end if if post_code = "" then validpost_code = ("
  • Please enter your enquiry
  • ") errorCount = errorCount + 1 end if if fault_telephone = "" then validfault_telephone = ("
  • Please enter your Telephone Number with fault
  • ") 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 fault_type = "" then validfault_type = ("
  • Please select which service you are having a fault with
  • ") errorCount = errorCount + 1 end if if fault_description = "" then validfault_description = ("
  • Please enter a desciption of the fault
  • ") errorCount = errorCount + 1 end if if errorCount <> 0 then errMsg = "

    The following information is required:

    " &_ "
    " end if if errorCount = 0 then content = "Contact Name: " & fullname & 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: " & fault_telephone & vbcrlf content = content & "Email: " & email & vbcrlf content = content & "Fault Type:" & fault_type & vbcrlf content = content & "Fault Description: " & fault_description & vbcrlf & vbcrlf content = "The following is a Fault report 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 = "faults@axistelecom.co.uk" 'sTo = "brian@innovative-graphics.co.uk" 'sCC = "brian@innovative-graphics.co.uk" sFrom = email sSubject = "Axis Telecom Fault Report" 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

    Report your Fault by email

    <% if contactEmailSent = "" then %>

    Complete the form below to report your fault and click the submit button

    We will endeavour to fix your problem as soon as possible. <%=errMsg%>

    Contact Name*
    Address line 1*
    Address line 2
    Address line 3
    Post town*
    Post code*
    Telephone Number
    with fault *
    E mail*

    Which service
    is the fault with?*

    >Landline >Mobile Phone >Broadband


    Describe the fault*
    *indicates required fields  

    <% else response.write(contactEmailSent) end if %>

    Landline Faults

    A Few Simple Checks
    FAQs
    Email a Fault

    or call
    0844 875 1942
    8.30am - 5.30pm

    AFTER HOURS including weekends:
    0844 875 1940

    Please view A Few Simple Checks and FAQs before reporting a landline fault

    Broadband Faults

    Broadband Support
    FAQs
    Email a Fault

    or call 0844 875 1942

    Please view our Broadband Support pages and FAQs before reporting a broadband fault

     

    We guarantee to save you money
    Send Me Info Sign Me Up NOW

    Telephone and Broadband services in Hull from Axis Telecom

    Business Opportunity from Axis

    Our Price Promise | Terms Of Business | Codes Of Conduct