Re: FN-FORUM vbscript

date posted 23rd January 2003 17:34

It is a bit long but here it is - Thanks Pam



Function valid_form()
Response.write("bbb")
Dim Name_Error_msg
Dim Address_error_msg
Dim Address1_error_msg
Dim Town_error_msg
Dim County_error_msg
Dim Postcode_error_msg
Dim HomeTel_error_msg
Dim Email_error_msg
Dim Comment_error_msg
Dim Error_msgs
Error_msgs = 0

if Not validnamecontents(Request.Form("Name") Then
Name_Error_msg = "Please complete a valid Name"
Error_msgs = Error_msgs + 1
End if

if Not validaddresscontents(Request.Form("Address") Then
Address_error_msg = "Please complete a valid Address"
Error_msgs = Error_msgs + 1
End if

if Not validaddress2contents(Request.Form("Address1") Then
alert("a")
Address1_error_msg = "Please complete a valid Address or leave blank"
Error_msgs = Error_msgs + 1
End if

if Not validaddresscontents(Request.Form("Town") Then
Town_error_msg = "Please complete a valid Town"
Error_msgs = Error_msgs + 1
End if

if Not validaddress2contents(Requst.Form("County") Then
County_error_msg = "Please complete a valid County")
Error_msgs = Error_msgs + 1
End if

if Not validpostcodecontents(Request.Form("Postcode")
Postcode_error_msg = "Please complete a valid Postcode"
Error_msgs = Error_msgs + 1
End if

if Not validtelephonecontents(Request.Form("HomeTel")
HomeTel_error_msg = "Please complete your contact telephone number"
Error_msgs = Error_msgs + 1
End if

//CHECK EMAIL ADDRESS IF NOT BLANK (inputbox)

Dim inputbox = Request.form("Email")
if Len(inputbox)!= 0 Then

// Convert inputbox to string

Dim teststring

teststring = CStr(inputbox)

// Check for at least 7 chrs

if Len(teststring) dotpositionback Then
Email_error_msg = "The email address you have entered is not a valid
format"
Error_msgs = Error_msgs + 1
End if

End if

if Not validcommentscontents(Request.Forms("Comments")) Then
Comment_error_msg = "Please complete a valid comments/enquiries field"
Error_msgs = Error_msgs + 1
End if

if Error_msgs > 0 Then
valid_form = False
Else
valid_form = True
End if

End Function

Function validcommentscontents(inputbox)
Dim teststring
teststring = CStr(inputbox)
teststring = Trim(teststring)
if teststring = "" Then
validcommentscontents = False
Exit Function
End if
if IsNumeric(teststring) Then
validcommentscontents = False
Exit Function
End if
validcommentscontents = True
End Function

Function validnamecontents(inputbox)
Dim teststring
teststring = CStr(inputbox)
teststring = Trim(teststring)
if teststring = "" Then
validnamecontents = False
Exit Function
End if
if IsNumeric(teststring) Then
validnamecontents = False
Exit Function
End if
if Len(inputbox) < 2 Then
validnamecontents = False
Exit Function
End if
validnamecontents = True
End Function

Function checkvalidaddresscontents(inputbox)
Dim teststring
teststring = CStr(inputbox)
teststring = Trim(teststring)
if teststring = "" Then
checkvalidaddresscontents = False
Exit Function
End if
if IsNumeric(teststring) Then
checkvalidaddresscontents = False
Exit Function
End if
checkvalidaddresscontents = True
End Function

Function validaddress2contents(inputbox)
Dim teststring
teststring = CStr(inputbox)
teststring = Trim(teststrimg)
if teststring = "" Then
checkvalidaddresscontents = True
Exit Function
End if
if IsNumeric(teststring) Then
checkvalidaddresscontents = False
Exit Function
End if
checkvalidaddresscontents = True
End Function

Function validpostcodecontents(inputbox)
Dim teststring
teststring = CStr(inputbox)
teststring = Trim(teststring)
if testString = "" Then
validpostcodecontents = True
Exit Function
End if
if IsNumeric(teststring) Then
validpostcodecontents = False
Exit Function
End if
if (Len(teststring) < 2 Or Len(teststring.length) > 8) {
validpostcodecontents = False
Exit Function
}
validpostcodecontents = True
End Function

Function validtelephonecontents(inputbox)
var teststring
teststring = CStr(inputbox)
if Trim(teststring) = "" Then
validtelephonecontents = True
Exit Function
End if
Dim count = 0
While count < Len(inputbox)
Dim c = Mid(inputbox, count, 1)
if ((c Not = " ") And (c Not = "-") And Not IsNumeric(c)) Then
validtelephonecontents = False
Exit Function
}
count = count + 1
Wend
return 0
End Function



'

NTMail K12 - the Mail Server for Education