' VB Script Document
Option Explicit

'=================================================================================
	'Contact Us validation code
'=================================================================================

dim validcontact
dim headercontact


headercontact = "Lilian Esiri & Co - Error on Contact Us Form!"



Function frmContact_OnSubmit 
validcontact = True

If (Document.frmContact.txtname.Value) = ""  Then 
MsgBox "Please enter your Name. ",7, headercontact
Document.frmContact.txtname.focus
validcontact = False

elseIf Isnumeric(Document.frmContact.txtname.Value)  Then 
MsgBox "Please enter your Real Name not Numbers. ",7, headercontact
Document.frmContact.txtname.focus
validcontact = False


elseIf (Document.frmContact.txtemail.Value) = ""  Then 
MsgBox "Please fill in your email address! ",7, headercontact
Document.frmContact.txtemail.focus
validcontact = False

elseIf Len(Document.frmContact.txtemail.Value) < 5 OR NOT Instr(1, (Document.frmContact.txtemail.Value), " ") = 0 OR InStr(1, (Document.frmContact.txtemail.Value), "@", 1) < 2 OR InStrRev((Document.frmContact.txtemail.Value), ".") < InStr(1, (Document.frmContact.txtemail.Value), "@", 1) then
MsgBox "Your e-mail address is Invalid! Please check for @ or . ",7, headercontact
Document.frmContact.txtemail.focus
validcontact = False

elseIf (Document.frmContact.txtcomments.Value) = ""  Then 
MsgBox "Please do drop your comments or suggestions! ",7, headercontact
Document.frmContact.txtcomments.focus
validcontact = False


end If

If validcontact = True Then 
frmContact_OnSubmit = True

Else

frmContact_OnSubmit = False

End If

End Function

'=================================================================================







'=================================================================================
	'Request for Service validation code
'=================================================================================

dim validRequest
dim headerRequest


headerRequest = "Lilian Esiri & Co - Error on Request For Service Form!"



Function frmRequest_OnSubmit 
validRequest = True

If (Document.frmRequest.fname.Value) = ""  Then 
MsgBox "Please enter your First Name. ",7, headerRequest
Document.frmRequest.fname.focus
validRequest = False

elseIf Isnumeric(Document.frmRequest.fname.Value)  Then 
MsgBox "Please enter your Real First Name not Numbers. ",7, headerRequest
Document.frmRequest.fname.focus
validRequest = False

elseIf (Document.frmRequest.lname.Value) = ""   Then 
MsgBox "Please enter your Last Name. ",7, headerRequest
Document.frmRequest.lname.focus
validRequest = False

elseIf Isnumeric(Document.frmRequest.lname.Value)  Then 
MsgBox "Please enter your Real Last Name not Numbers. ",7, headerRequest
Document.frmRequest.lname.focus
validRequest = False


elseIf (Document.frmRequest.email.Value) = ""  Then 
MsgBox "Please fill in your email address! ",7, headerRequest
Document.frmRequest.email.focus
validRequest = False

elseIf Len(Document.frmRequest.email.Value) < 5 OR NOT Instr(1, (Document.frmRequest.email.Value), " ") = 0 OR InStr(1, (Document.frmRequest.email.Value), "@", 1) < 2 OR InStrRev((Document.frmRequest.email.Value), ".") < InStr(1, (Document.frmRequest.email.Value), "@", 1) then
MsgBox "Your e-mail address is Invalid! Please check for @ or . ",7, headerRequest
Document.frmRequest.email.focus
validRequest = False

elseIf (Document.frmRequest.phone.Value) = ""  Then 
MsgBox "Please enter your phone number! ",7, headerRequest
Document.frmRequest.phone.focus
validRequest = False

elseIf Isnumeric(Document.frmRequest.phone.Value)  Then 
MsgBox "Please enter digits. ",7, headerRequest
Document.frmRequest.phone.focus
validRequest = False

elseIf (Document.frmRequest.country.Value) = ""  Then 
MsgBox "Please select a country! ",7, headerRequest
Document.frmRequest.country.focus
validRequest = False

elseIf (Document.frmRequest.company.Value) = ""  Then 
MsgBox "Please enter your organisation / company! ",7, headerRequest
Document.frmRequest.company.focus
validRequest = False

elseIf (Document.frmRequest.jobtitle.Value) = ""  Then 
MsgBox "Please enter job title! ",7, headerRequest
Document.frmRequest.jobtitle.focus
validRequest = False

elseIf (Document.frmRequest.industry.Value) = ""  Then 
MsgBox "Please select the industry you belong! ",7, headerRequest
Document.frmRequest.industry.focus
validRequest = False

elseIf (Document.frmRequest.Enquiryreason.Value) = ""  Then 
MsgBox "Please select Reason for Enquiry! ",7, headerRequest
Document.frmRequest.Enquiryreason.focus
validRequest = False

elseIf (Document.frmRequest.servicetype.Value) = ""  Then 
MsgBox "Please select service type! ",7, headerRequest
Document.frmRequest.servicetype.focus
validRequest = False

elseIf (Document.frmRequest.comment.Value) = ""  Then 
MsgBox "Please enter your comment/Questions! ",7, headerRequest
Document.frmRequest.comment.focus
validRequest = False





end If

If validRequest = True Then 
frmRequest_OnSubmit = True

Else

frmRequest_OnSubmit = False

End If

End Function