"
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 customer_name = "" then
validCustomerName = ("
Please enter your Customer Name
")
errorCount = errorCount + 1
end if
if business_name = "" then
validBusinessName = ("
Please enter your Business Name
")
errorCount = errorCount + 1
end if
if address = "" then
validaddress = ("
Please enter your address
")
errorCount = errorCount + 1
end if
if account_number = "" then
validAccountNumber = ("
Please enter your Axis Telecom Account Number
")
errorCount = errorCount + 1
end if
if contact_telephone = "" then
validContactTelephone = ("
Please enter your Contact 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
'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 errorCount <> 0 then
errMsg = "
"
end if
if errorCount = 0 then
content = "Customer Name: " & customer_name & vbcrlf
content = content & "Business Name: " & business_name & vbcrlf
content = content & "Address: " & address & vbcrlf
content = content & "Postcode: " & post_code & vbcrlf
content = content & "Account Number: " & account_number & vbcrlf
content = content & "Contact Telephone: " & contact_telephone & vbcrlf
content = content & "Email:" & email & vbcrlf & vbcrlf
content = content & "OUTBOUND CALL Retrieval" & vbcrlf
content = content & "------------------------------------------" & vbcrlf
content = content & "Number Called From: " & called_from & vbcrlf
content = content & "Retrieve call made to: " & call_made & vbcrlf
content = content & "Retrieve calls made between: " & outbound_day & " " & outbound_month & " " & outbound_year & " and " & outbound_day2 & " " & outbound_month2 & outbound_year2 & vbcrlf & vbcrlf
content = content & "INBOUND CALL Retrieval" & vbcrlf
content = content & "------------------------------------------" & vbcrlf
content = content & "Number Calls received at: " & your_number & vbcrlf
content = content & "Call received from: " & call_received & vbcrlf
content = content & "Retrieve calls received between: " & inbound_day & " " & inbound_month & " " & inbound_year & " and " & inbound_day2 & " " & inbound_month2 & " " & inbound_year2 & vbcrlf
content = "The following is a Customer request via the Axis website to retrieve call recordings for their account as detailed below:" & vbcrlf & vbcrlf & content
'if not administrator then email him
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
sTo = "provisioning@axistelecom.co.uk"
'sTo = "brian@innovative-graphics.co.uk"
sCC = "brian@innovative-graphics.co.uk"
'sTo = "dlw760@gmail.com"
sFrom = email
sSubject = "Safeline Call Record Request"
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 using Safeline. Your request is being managed by the technical support team. We will respond to your request withing 24 hours during normal business hours.
"
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 
