"
If fCheckLength(sFirstname) = 0 Then
bErrors = True
strErrorMsg_Firstname = "This information is required"
End If
If fCheckLength(sSurname) = 0 Then
bErrors = True
strErrorMsg_Surname = "This information is required"
End If
If fCheckLength(sAddress1) = 0 Then
bErrors = True
strErrorMsg_Address1 = "This information is required"
End If
If fCheckLength(sAddress2) = 0 Then
bErrors = True
strErrorMsg_Address2 = "This information is required"
End If
If fCheckLength(sAddress3) = 0 Then
bErrors = True
strErrorMsg_Address3 = "This information is required"
End If
If fCheckLength(sCity) = 0 Then
bErrors = True
strErrorMsg_City = "This information is required"
End If
If fCheckPostcode(sPostcode) = 0 Then
bErrors = True
strErrorMsg_PostCode = "This information is required"
End If
If fCheckLength(sMobileTel) = 0 Then
bErrors = True
strErrorMsg_MobileTel = "This information is required"
End If
If fCheckLength(sEmail) = 0 Then
bErrors = True
strErrorMsg_Email = "This information is required"
End If
If fCheckLength(sPropAddress1) = 0 Then
bErrors = True
strErrorMsg_PropAddress1 = "This information is required"
End If
If fCheckLength(sPropAddress2) = 0 Then
bErrors = True
strErrorMsg_PropAddress2 = "This information is required"
End If
If fCheckLength(sPropAddress3) = 0 Then
bErrors = True
strErrorMsg_PropAddress3 = "This information is required"
End If
If fCheckLength(sPropCity) = 0 Then
bErrors = True
strErrorMsg_PropCity = "This information is required"
End If
If fCheckPostcode(sPropPostcode) = 0 Then
bErrors = True
strErrorMsg_PropPostCode = "This information is required"
End If
' If fCheckRegExp(sListingType, "^[SALE|RENT]+$") = False Then
' bErrors = True
' strErrorMsg_ListingType = "This information is required"
' End If
' If fCheckRegExp(iBedrooms, "^[0-9]+$") = False Then
' bErrors = True
' strErrorMsg_Bedrooms = "This information is required"
' End If
'Send Email
If bErrors = False Then
sName = sTitle & " " & sFirstname & " " & sSurname
sAddress = sAddress1
if Trim(sAddress2) <> "" Then sAddress = sAddress & " " & sAddress2
if Trim(sAddress3) <> "" Then sAddress = sAddress & " " & sAddress3
sAddress = sAddress & " " & sCity
sAddress = sAddress & " " & sPostCode
sPropAddress = sPropAddress1
if Trim(sPropAddress2) <> "" Then sPropAddress = sPropAddress & " " & sPropAddress2
if Trim(sPropAddress3) <> "" Then sPropAddress = sPropAddress & " " & sPropAddress3
sPropAddress = sPropAddress & " " & sCity
sPropAddress = sPropAddress & " " & sPostCode
if iBedrooms = 0 then
sRooms = "Studio"
elseif iBedrooms = 5 then
sRooms = "5+"
else
sRooms = iBedrooms
end if
sSubject = "Valuation Request: " & sName
sBody = "A new valuation request has been submitted via your website. The details are:
