"
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 = "