<!-- begin filelist.asp -->
<!-- ---------------------------------------------------------- -->
<P><FONT FACE="Andale Mono, Monotype.com, Courier New, Courier, sans-serif" SIZE=4><B>f:\inetpub\wwwreg2\includes\servervalidation.asp</B><BR>
<A HREF="http://www.mechreg.org/includes/servervalidation.asp">http://www.mechreg.org/includes/servervalidation.asp</A><BR></FONT>
<PRE>
    file size:  28,187 characters
 file created: &nbsp;<B>Tuesday, March 01, 2005 </B>&nbsp;3:47:55 PM
last modified: &nbsp;<B>Tuesday, March 01, 2005 </B>&nbsp;4:20:53 PM
</PRE>
<FORM ACTION="filelist.asp" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="fsDIR" VALUE="f:\inetpub\wwwreg2\includes\">
<TABLE BGCOLOR="#E0E0E0"><TR><TD>
<FONT TITLE="Use this text area to view or change the contents of this document. Click [SAVE] to store the updated contents to the web server." FACE="Arial, Helvetica, sans-serif"SIZE=1><B>DOCUMENT CONTENTS</B></FONT><BR>
<TEXTAREA NAME="FILEDATA" ROWS=18 COLS=70 WRAP="OFF">&lt;%
Dim g_ErrorMsg
Dim g_ErrorFlag
g_ErrorFlag=false
g_ErrorMsg=&quot;&quot;
'---------------------------------------------------------------------------
' Purpose:  Get Form / Query Item
' Inputs:
'   varItem - Name of the form item (string)
'   if main input (varItem) = &quot;N/A&quot; then it is blank
'   sAliasName - Name to be appeared on the screen on error occured
'   if sAliasName = &quot;&quot; then use sItemName instead.
'   MinLength, MaxLength: Minimum &amp; Maximum Length of the string
'   respectively
'   bRequired: is the Item
' Returns:
'   The processed value for applicable functions,
'   Stacked error message on g_ErrorMsg. 
'		Used for displaying all errors in a message
'	g_ErrorFlag is set true each time an error has occured per function call. 
'		Used when you must know if a specific input item has failed during validation
'			Set the g_ErrorFlag=false
'			Validate
'			Check if g_ErrorFlag=true (failure)
'   Last entered value at Session(sItemName)
'
'	Procedures &amp; Functions:
'
'	fValidateValue 					- Generic 	Checks required and length of input. Returns Input and  g_ErrorFlag is set true on failure
'	fValidAlphaValue				- Alphabetic Checks required and Alphabetic within range. Returns Input and  g_ErrorFlag is set true on failure
'	fValidAlphaNumericValue			- Alphanumeric Checks required and Alphanumeric within range. Returns Input and  g_ErrorFlag is set true on failure
'	fValidDateValue					- Date		Checks required and date within range. Returns Input and  g_ErrorFlag is set true on failure
'	fValidNumValue					- Number	Checks required and Numbers within range. Returns Input and  g_ErrorFlag is set true on failure
'	fValidPercValue					- Percent	Checks required and percentages within range converts and returns value and g_ErrorFlag is set true on failure
'	fValidPhoneNumber				- Phone Number	Checks required, length and limits valid strings, returns value and g_ErrorFlag is set true on failure
'										Set maxlength to reflect the Digits allowed
'	fValidUSZip						- Zip Code	Checks required, length and limits valid strings for US Zip code returns value and g_ErrorFlag is set true on failure
'										Set maxlength to reflect the Digits allowed
'	fValidSelectValue				- Generic	Checks select list for non-blank input to ensure a value was selected.
'										Use null as the default for select lists using this function. 
'										Returns Input and g_ErrorFlag is set true on failure
'	fServerSidePasswordValidation	- Compares two password inputs to confirm they are the same. Returns Input and g_ErrorFlag is set true on failure
'	fServerSideEmailValidation		- Validates email address. Returns Input and  g_ErrorFlag is set true on failure
'	fAlphaClean						- Cleans invalid characters and numbers from the alphabetical input Returns Cleaned Text
'	fTextClean						- Cleans invalid characters from the input Returns Cleaned Text
'	fNumberClean					- Cleans strings to get valid number values from the input Returns Cleaned Number -returns zero for blank inputs
'	fNumberCleanLeaveBlank			- Cleans strings to get valid number values from the input Returns Cleaned Number
'	fSpaceClean						- Removes Spaces from the string	
'
'	SubProcedures &amp; SubFunctions:
'
'	fCleanText 						- Checks text for invalid characters, returns 0 if the string is approved
'	sDateValidate					- Writes error message for blank date inputs
'	sMinMaxDateValidate	 			- Writes error message for dates out of range
'	sNumValidate					- Writes error message for blank number inputs
'	sMinMaxNumValidate				- Writes error message for numbers out of range
'	sMinMaxValidate					- writes error message for strings with length out of range	
'	sAlphaValidate					- writes error message for strings with non-alphabetic characters
'	sAlphaNumericValidate			- writes error message for strings with non-alphanumeric characters
'	
'	fisAlpha						- returns false if the input string has non: alphanumeric or space characters
'	fisAlphanumeric					- returns false if the input string has non :alphanumeric, numbers or space characters
'	fStandardizePercent				- Numbers greater than 1 are divided by 100 and returned
'	fMakeNumeric					- Returns only the numeric characters of the input. Returns 0 if no numerics were present.
'	fMakeDigits						- Returns only the numeric characters of the input. 
'
'
'---------------------------------------------------------------------------
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'validate item if value is passed
Function fValidateValue(byVal varItem , sAliasName, iMinLength, iMaxLength, fRequired)
	Dim MsgLen
	MsgLen=Len(g_ErrorMsg)
	varitem=trim(varitem)
	if sAliasName=&quot;&quot; then sAliasName=varItem
	if UCASE(varItem) = &quot;N/A&quot; then varItem=&quot;&quot;
	fRequired=cbool(fRequired)
	Select Case fRequired
  	Case True
	    	If varItem = &quot;&quot; Then  
			if ((CDbl(iMinLength) &gt;0)  and (iMinLength&lt;&gt;iMaxLength)) then
				g_ErrorMsg = g_ErrorMsg &amp; &quot;Please enter between &quot;&amp;iMinLength&amp;&quot; and &quot;&amp; iMaxLength &amp;&quot; characters in the &quot;&quot;&quot; _
				&amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;
			else
				g_ErrorMsg = g_ErrorMsg &amp; &quot;Please enter characters in the &quot;&quot;&quot; &amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;
			end if
			
		Else
			Call sMinMaxvalidate(varitem, sAliasName, iMinLength, iMaxLength)
		End If
	Case False
		If varitem&lt;&gt;&quot;&quot; then
      			Call sMinMaxvalidate(varitem, sAliasName, iMinLength, iMaxLength)
   		End If
  	End Select
	If varitem&lt;&gt;&quot;&quot; then
		Session(varitem) = varItem
	End if
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fValidateValue=varItem
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Subprocedure for string validate
Sub sMinMaxvalidate(byVal varItem, sAliasName, iMinLength, iMaxLength)

	If Len(varItem) &lt; cdbl(iMinLength) Then 			
		g_ErrorMsg = g_ErrorMsg &amp; &quot;Please enter at least &quot;&amp;  iMinLength &amp;&quot; characters in the &quot;&quot;&quot; &amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;
		
	Elseif Len(varItem) &gt; cdbl(iMaxLength) Then 
		g_ErrorMsg = g_ErrorMsg &amp; &quot;Please enter at most &quot; &amp; iMaxLength &amp;&quot; characters in the &quot;&quot;&quot;  &amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;
		
	End if
End Sub

'Sub level functions for Alphabetic validation errors
Sub sAlphaValidate(byVal varItem, sAliasName)
	if varitem=&quot;&quot; then
		g_ErrorMsg = g_ErrorMsg &amp; &quot; Please enter a value in the &quot;&quot;&quot; _
	      &amp; sAliasName &amp; &quot;&quot;&quot; field. &lt;br&gt;\n&quot; 
	else
		 g_ErrorMsg = g_ErrorMsg _
      	&amp; &quot;Only the letters A through Z, dash, apostrophe and space are allowed in the &quot;&quot;&quot; _
	      &amp; sAliasName &amp; &quot;&quot;&quot; field. &lt;br&gt;\n&quot; 
	 end if
End Sub
'Sub level functions for Alphanumeric validation errors
Sub sAlphaNumericValidate(byVal varItem, sAliasName)
	if varitem=&quot;&quot; then
		g_ErrorMsg = g_ErrorMsg &amp; &quot; Please enter a value in the &quot;&quot;&quot; _
	      &amp; sAliasName &amp; &quot;&quot;&quot; field. &lt;br&gt;\n&quot; 
	else
		 g_ErrorMsg = g_ErrorMsg _
      	&amp; &quot;Only the letters A through Z, 0 through 9, slash and space are allowed in the &quot;&quot;&quot; _
	      &amp; sAliasName &amp; &quot;&quot;&quot; field. &lt;br&gt;\n&quot; 
	 end if
End Sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
' Validate select list to ensure an item has been selected
Function fValidSelectValue(byVal varItem , sAliasName, fRequired)
	Dim MsgLen
	MsgLen=Len(g_ErrorMsg)
	if UCASE(varItem) = &quot;N/A&quot; then varItem=&quot;&quot;
	varitem=trim(varitem)
  	fRequired=cbool(fRequired)
	if sAliasName=&quot;&quot; then sAliasName=varItem
  	If fRequired and (varItem=&quot;&quot; or varItem=&quot;Select&quot;) then
 	 	g_ErrorMsg = g_ErrorMsg &amp; &quot;Please select a value from the  &quot;&quot;&quot; &amp; sAliasName &amp; &quot;&quot;&quot; list.&lt;br&gt;\n&quot;
	End If	
	
 	If varitem&lt;&gt;&quot;&quot; then
		Session(varitem) = varItem
	End if
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fValidSelectValue= varItem
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

'validate Alphabetic item if value is passed
Function fValidAlphaValue(byVal varItem , sAliasName, iMinValue, iMaxValue, fRequired)
	Dim MsgLen
	MsgLen=Len(g_ErrorMsg)
	if UCASE(varItem) = &quot;N/A&quot; then varItem=&quot;&quot;
	if sAliasName=&quot;&quot; then sAliasName=varItem
	if isnumeric(iMinValue) then
		iMinValue=cdbl(iMinValue)
	else
		iMinValue=0
	end if
	If isnumeric(iMaxValue) then
		iMaxValue=cdbl(iMaxValue)
	else
		iMaxValue=50
	end if
    	fRequired=cbool(fRequired)
	
 	Select Case fRequired
	Case True
		If varItem = &quot;&quot; or not fisAlpha(varitem)Then  
			Call sAlphaValidate(varItem, sAliasName)   
		Elseif varitem&lt;&gt;&quot;&quot; then
		    Call sMinMaxValidate(varItem, sAliasName, iMinValue, iMaxValue)
        end if
          'check if the value is not required but has a value
	Case False
		If varitem&lt;&gt;&quot;&quot; then
      		If not fisAlpha(varitem) Then 
				Call sAlphaValidate(varItem, sAliasName)
			Else
				Call sMinMaxvalidate(varItem, sAliasName, iMinValue, iMaxValue)
				
        		End If
		End If
	End Select
  
	 if varitem&lt;&gt;&quot;&quot; then
		Session(varitem) = varItem
	end if
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fValidAlphaValue=varItem
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

'validate Alphabetic item if value is passed
Function fValidAlphaNumericValue(byVal varItem , sAliasName, iMinValue, iMaxValue, fRequired)
	Dim MsgLen
	MsgLen=Len(g_ErrorMsg)
	if UCASE(varItem) = &quot;N/A&quot; then varItem=&quot;&quot;
	if sAliasName=&quot;&quot; then sAliasName=varItem
	if isnumeric(iMinValue) then
		iMinValue=cdbl(iMinValue)
	else
		iMinValue=0
	end if
	If isnumeric(iMaxValue) then
		iMaxValue=cdbl(iMaxValue)
	else
		iMaxValue=50
	end if
    	fRequired=cbool(fRequired)
	
 	Select Case fRequired
	Case True
		If varItem = &quot;&quot; or not fisAlphaNumeric(varitem)Then  
			Call sAlphaNumericValidate(varItem, sAliasName)   
		Elseif varitem&lt;&gt;&quot;&quot; then
		     	Call sMinMaxValidate(varItem, sAliasName, iMinValue, iMaxValue)
        	end if
          'check if the value is not required but has a value
	Case False
		If varitem&lt;&gt;&quot;&quot; then
      		If not fisAlphaNumeric(varitem) Then 
				Call sAlphaNumericValidate(varItem, sAliasName)
			Else
				Call sMinMaxvalidate(varItem, sAliasName, iMinValue, iMaxValue)
				
        		End If
		End If
	End Select
  
	 if varitem&lt;&gt;&quot;&quot; then
		Session(varitem) = varItem
	end if
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fValidAlphaNumericValue=varItem
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'validate Dateitem if value is passed
Sub fValidDateValue(byVal varItem, sAliasName, iMinDate, iMaxDate, fRequired)
	Dim MsgLen
	MsgLen=Len(g_ErrorMsg)
	varitem=trim(varitem)
	if UCASE(varItem) = &quot;N/A&quot; then varItem=&quot;&quot;
	fRequired=cbool(fRequired)
	if sAliasName=&quot;&quot; then sAliasName=varItem
	if isnull(iMinDate) or not isdate(iMindate) then
		iMinDate=&quot;1/1/2003&quot;
	end if
	if isnull(iMaxDate) or not isdate(iMaxdate) then
		iMaxDate=&quot;1/1/2079&quot;
	end if
	iMinDate=cDate(iMinDate)
	iMaxDate=cDate(iMaxDate)
	Select Case fRequired
	Case True	
		If varItem = &quot;&quot; or not isdate(varitem) Then 
			Call sDateValidate(varitem, sAliasName, iMinDate, iMaxDate)
	  	Elseif varItem&lt;&gt;&quot;&quot; then
			Call sMinMaxDateValidate(varitem, sAliasName, iMinDate, iMaxDate)
	   	End if
	Case False
		If varItem&lt;&gt;&quot;&quot; then    
			If  not isdate(varitem) Then 
				Call sDateValidate(varitem, sAliasName, iMinDate, iMaxDate)
   		 	Else  
				Call sMinMaxDateValidate(varitem, sAliasName, iMinDate, iMaxDate)
			End If
		End IF
	End Select
   	If varitem&lt;&gt;&quot;&quot; then
		Session(varitem) = varItem
	End if
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fValidDateValue=varItem
End Sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Sub level functions for date validation errors
Sub sDateValidate(byVal varitem, sAliasName, iMinDate, iMaxDate)
	g_ErrorMsg = g_ErrorMsg _
	&amp; &quot;Please enter a date between  &quot;&amp;iMinDate&amp;&quot; and &quot;&amp;iMaxDate&amp;&quot; in the &quot;&quot;&quot; _
	&amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;
End Sub
Sub sMinMaxDateValidate(byVal varitem, sAliasName, iMinDate, iMaxDate)
	If Cdate(varItem) &lt; iMinDate Then g_ErrorMsg = _
        g_ErrorMsg &amp; &quot;Please enter a date greater than &quot; _
        &amp; iMinDate &amp;&quot; in the&quot;&quot;&quot; _
        &amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;
      If Cdate(varItem) &gt; iMaxDate Then g_ErrorMsg = _
        g_ErrorMsg &amp; &quot;Please enter a date sooner than &quot; _
        &amp; iMaxDate &amp;&quot;  in the &quot;&quot;&quot; _
        &amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;
end sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$


'validate Numberitem if value is passed
Function fValidNumValue(byVal varItem , sAliasName, iMinValue, iMaxValue, fRequired)
	Dim MsgLen
	MsgLen=Len(g_ErrorMsg)
	if UCASE(varItem) = &quot;N/A&quot; then varItem=&quot;&quot;
	if sAliasName=&quot;&quot; then sAliasName=varItem
	if isnumeric(iMinValue) then
		iMinValue=cdbl(iMinValue)
	else
		iMinValue=0
	end if
	If isnumeric(iMaxValue) then
		iMaxValue=cdbl(iMaxValue)
	else
		iMaxValue=19999999999
	end if
    	fRequired=cbool(fRequired)
	
 	if fCleanText(varitem)&gt;0 then g_ErrorMsg= g_ErrorMsg &amp; &quot;Please remove commas and other extra characters in the &quot;&quot;&quot; _
      &amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;  
	
	Select Case fRequired
	Case True
		If varItem = &quot;&quot; or not isnumeric(varitem)Then  
			Call sNumValidate(varItem, sAliasName, iMinValue, iMaxValue)   
		Elseif varitem&lt;&gt;&quot;&quot; then
		     	Call sMinMaxNumValidate(varItem, sAliasName, iMinValue, iMaxValue)
        	end if
          'check if the value is not required but has a value
	Case False
		If varitem&lt;&gt;&quot;&quot; then
      		If not isnumeric(varitem) Then 
				Call sNumValidate(varItem, sAliasName, iMinValue, iMaxValue)
			Else
				Call sMinMaxNumValidate(varItem, sAliasName, iMinValue, iMaxValue)
				
        		End If
		End If
	End Select
  
	 if varitem&lt;&gt;&quot;&quot; then
		Session(varitem) = varItem
	end if
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fValidNumValue=varItem
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Sub level functions for Number validation errors
Sub sNumValidate(byVal varItem, sAliasName, iMinValue, iMaxValue)
		 g_ErrorMsg = g_ErrorMsg _
      	&amp; &quot;Please enter a value between &quot;&amp;iMinValue&amp;&quot; and &quot;&amp; iMaxValue&amp;&quot;  in the &quot;&quot;&quot; _
	      &amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot; 
End Sub
Sub sMinMaxNumValidate(byVal varItem, sAliasName, iMinValue, iMaxValue)
	If cdbl(varItem) &lt; iMinValue Then g_ErrorMsg = _
        	g_ErrorMsg &amp; &quot;Please enter a value greater than &quot; _
	        &amp; iMinValue &amp;&quot; in the&quot;&quot;&quot; _
	        &amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;
      If cdbl(varItem) &gt; iMaxValue Then g_ErrorMsg = _
        	g_ErrorMsg &amp; &quot;Please enter a value less than &quot; _
	        &amp; iMaxValue &amp;&quot; in the &quot;&quot;&quot; _
        	&amp; sAliasName &amp; &quot;&quot;&quot; field.&lt;br&gt;\n&quot;
End Sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
function fValidPercValue(byVal varitem , sAliasName, iMinValue, iMaxValue, fRequired)
	dim location
	Dim MsgLen
	MsgLen=Len(g_ErrorMsg)
	varitem=cstr(varitem)
	if UCASE(varitem) = &quot;N/A&quot; then varitem=&quot;&quot;
	if sAliasName=&quot;&quot; then sAliasName=varItem
	location = instr(1,varitem,chr(37),1)
	if location &gt;0 then
		varitem=left(varitem,(location-1))
		varitem=cdbl(varitem)/100
	end if
  iMinValue=cdbl(iMinValue)
  iMaxValue=cdbl(iMaxValue)
  fRequired=cbool(fRequired)
  If sAliasName = &quot;&quot; Then sAliasName = sItemName
	Select Case fRequired
	Case True
		If varItem = &quot;&quot; or not isnumeric(varitem) Then      	
			Call sNumValidate(varItem, sAliasName, iMinValue, iMaxValue)
      		varitem=0
  		ElseIf varitem&lt;&gt;&quot;&quot; then
   			varitem=fStandardizePercent(cdbl(varitem))
			Call sMinMaxNumValidate(varItem, sAliasName, iMinValue, iMaxValue)
  		End If
	Case False
		If varItem&lt;&gt;&quot;&quot; then
		
			If not isnumeric(varitem) Then 
				Call sNumValidate(varItem, sAliasName, iMinValue, iMaxValue)
			Else
				varitem=cdbl(varitem)
				if varitem&gt;1 then
					varitem=varitem/100
				end if
				Call sMinMaxNumValidate(varItem ,sAliasName, iMinValue, iMaxValue)
        		End If
		End If
	End Select
  	Session(cstr(varitem)) = varItem
  	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fValidPercValue=varitem
End function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'----------------------------------------------------------------
' Purpose: Validate Both Password field, usually used for new registration.
' Inputs :
' sPassword1 : name of the first password input box
' sPassword2 : name of the 2nd   password input box
' iMin, iMax: Minimum &amp; Maximum characters allowed respectively
'  bRequired : True/False, is required value?
'  usually, always TRUE
' Return :
' True/False
'   error message on g_ErrorMsg and
'----------------------------------------------------------------

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'validate passwords when passed as values
Function fServerSidePasswordValidation (byVal sPassword1,byVal sPassword2, iMin, iMax,bRequired)
	Dim MsgLen
	MsgLen=Len(g_ErrorMsg)
  Call fValidateValue(sPassword1, &quot;Password&quot;, iMin, iMax, bRequired)
  Call fValidateValue(sPassword2, &quot;Verify Password&quot;, iMin, iMax, bRequired)

  bValidPassword = ( session(sPassword1) = session(sPassword2) )
  if Not bValidPassword Then g_ErrorMsg = _
    g_ErrorMsg _
    &amp; &quot; Both Password fields must has the same value! &lt;br&gt;\n&quot;
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fServerSidePasswordValidation = sPassword1
End Function

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
' Validate the email address when passed as the actual value
Function fServerSideEmailValidation (byVal sItemValue, sAliasName, iMinLength, iMaxLength, bRequired)
	Dim MsgLen, AmpPos, ItemLen
	MsgLen=Len(g_ErrorMsg)	
	AmpPos=InStr(sItemValue,&quot;@&quot;)
	ItemLen=Len(sItemValue)
	sitemValue=trim(sitemValue)
	if sAliasName=&quot;&quot; then sAliasName=sItemValue
	Call fValidateValue (sItemValue, sAliasName, iMinLength, iMaxLength, bRequired)
	if sItemValue&lt;&gt;&quot;&quot; then
		If (AmpPos &lt; 2) Then
			g_ErrorMsg = g_ErrorMsg &amp; sAliasName &amp;&quot; must be a valid Email address (Invalid or Missing @)&lt;br&gt;\n&quot;
		Elseif InStr(Right(sItemValue,(ItemLen - AmpPos)),&quot;@&quot;)&lt;&gt;0  then
			g_ErrorMsg =   g_ErrorMsg  &amp; sAliasName &amp;&quot; must be a valid Email address (Only one @ character is allowed) &lt;br&gt;\n&quot;
		ElseIf ( InStr(InStr(sItemValue,&quot;@&quot;),sItemValue,&quot;.&quot;) &lt; InStr(sItemValue,&quot;@&quot;)+2 ) Then 
			g_ErrorMsg =   g_ErrorMsg  &amp; sAliasName &amp;&quot; must be a valid Email address (Invalid or Missing .) &lt;br&gt;\n&quot;
    	ElseIf right(sItemValue,1)=&quot;.&quot; then
    		g_ErrorMsg =   g_ErrorMsg  &amp; sAliasName &amp;&quot; must be a valid Email address (cannot end with .) &lt;br&gt;\n&quot;
		ElseIf left(sItemValue,1)=&quot;.&quot; then
    		g_ErrorMsg =   g_ErrorMsg  &amp; sAliasName &amp;&quot; must be a valid Email address (cannot start with .) &lt;br&gt;\n&quot;
    	Elseif Instr(sItemValue,&quot;..&quot;)&gt;0 then
    		g_ErrorMsg =   g_ErrorMsg  &amp; sAliasName &amp;&quot; must be a valid Email address (periods cannot be next to each other) &lt;br&gt;\n&quot;
		End If
	end if
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fServerSideEmailValidation = sItemValue
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fCleanText(byVal inputedStr)
	dim BadCharactersForRemoval, RemoveWords, counta
	if UCASE(inputedStr) = &quot;N/A&quot; then inputedStr=&quot;&quot;
	'Modify These if you want, but don't blame me if it goes pear shapped!
	if len(inputedStr)&gt;0 then
	BadCharactersForRemoval = &quot;$|,|;|#|%|&gt;|/|\|&amp;|'|*|^|!|?|}|{|]|[|&lt;|_&quot;
	RemoveWords = Split(BadCharactersForRemoval, &quot;|&quot;)
	fCleanText = 0
	For Counta = 0 to UBound(RemoveWords)
		fCleanText= fCleanText + instr(1,inputedStr,RemoveWords(Counta))
	Next
	end if
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fSpaceClean(byVal inputedStr)
	fSpaceClean=replace(inputedStr,&quot; &quot;,&quot;&quot;,1,-1,1)
end Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fTextClean(byVal inputedStr)
	dim BadCharactersForRemoval, RemoveWords, counta
	if UCASE(inputedStr) = &quot;N/A&quot; then inputedStr=&quot;&quot;
	'Modify These if you want, but don't blame me if it goes pear shapped!
	if len(inputedStr)&gt;0 then
	BadCharactersForRemoval = &quot;$|,|;|#|%|&gt;|\|&amp;|'|*|^|!|?|}|{|]|[|&lt;|_&quot;
	RemoveWords = Split(BadCharactersForRemoval, &quot;|&quot;)
	For Counta = 0 to UBound(RemoveWords)
		inputedStr = Replace(inputedStr, RemoveWords(Counta), &quot;&quot;, 1,-1,1)		
	Next
	end if
	fTextClean=inputedStr
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fAlphaClean(byVal inputedStr)
	dim BadCharactersForRemoval, RemoveWords, counta
	dim BadCharactersForReplacement, ReplaceWords, ReplacementCharacters, ReplacedWords
	if UCASE(inputedStr) = &quot;N/A&quot; then inputedStr=&quot;&quot;
	'Modify These if you want, but don't blame me if it goes pear shapped!
	if len(inputedStr)&gt;0 then
		BadCharactersForRemoval = &quot;$|,|;|#|%|&gt;|\|&amp;|*|^|!|?|}|{|]||(|)|[|&lt;|@|.|~|?|/|=|+|_|0|1|2|3|4|5|6|7|8|9&quot;
		BadCharactersForReplacement = &quot;'&quot;
		ReplacementCharacters= &quot;`&quot;
		RemoveWords = Split(BadCharactersForRemoval, &quot;|&quot;)
		ReplaceWords = Split(ReplacementCharacters, &quot;|&quot;)
		ReplacedWords = Split(BadCharactersForReplacement, &quot;|&quot;)
		For Counta = 0 to UBound(RemoveWords)
			inputedStr = Replace(inputedStr, RemoveWords(Counta), &quot;&quot;, 1,-1,1)		
		Next
		For Counta = 0 to UBound(ReplaceWords)
			inputedStr = Replace(inputedStr, ReplacedWords(Counta), ReplaceWords(Counta), 1,-1,1)		
		Next
	end if
	fAlphaClean=inputedStr
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fNumberClean(byVal inputedStr)
	dim BadCharactersForRemoval, RemoveWords, Counta
	dim BadCharactersForReplacement, ReplaceWords, ReplacementCharacters, ReplacedWords
	if UCASE(inputedStr) = &quot;N/A&quot; or inputedStr =&quot;&quot; then inputedStr=&quot;0&quot;
	'Modify These if you want, but don't blame me if it goes pear shapped!
	if len(inputedStr)&gt;0 then
		BadCharactersForRemoval = &quot;$|,|;|#|%|&gt;|\|&amp;|'|.00|(|)|&lt;|*|_|[|]|{|}&quot;
		BadCharactersForReplacement = &quot;..|k|K&quot;
		ReplacementCharacters= &quot;.|000|000&quot;
		RemoveWords = Split(BadCharactersForRemoval, &quot;|&quot;)
		ReplaceWords = Split(ReplacementCharacters, &quot;|&quot;)
		ReplacedWords = Split(BadCharactersForReplacement, &quot;|&quot;)
		For Counta = 0 to UBound(RemoveWords)
			inputedStr = Replace(inputedStr, RemoveWords(Counta), &quot;&quot;, 1,-1,1)		
		Next
		For Counta = 0 to UBound(ReplaceWords)
			inputedStr = Replace(inputedStr, ReplacedWords(Counta), ReplaceWords(Counta), 1,-1,1)		
		Next
	end if
	fNumberClean=inputedStr
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fNumberCleanLeaveBlank(byVal inputedStr)
	dim BadCharactersForRemoval, RemoveWords, Counta
	dim BadCharactersForReplacement, ReplaceWords, ReplacementCharacters, ReplacedWords
	if UCASE(inputedStr) = &quot;N/A&quot;  then inputedStr=&quot;0&quot;
	'Modify These if you want, but don't blame me if it goes pear shapped!
	if len(inputedStr)&gt;0 then
		BadCharactersForRemoval = &quot;$|,|;|#|%|&gt;|\|&amp;|'|.00|(|)|&lt;|*|_|[|]|{|}&quot;
		BadCharactersForReplacement = &quot;..|k|K&quot;
		ReplacementCharacters= &quot;.|000|000&quot;
		RemoveWords = Split(BadCharactersForRemoval, &quot;|&quot;)
		ReplaceWords = Split(ReplacementCharacters, &quot;|&quot;)
		ReplacedWords = Split(BadCharactersForReplacement, &quot;|&quot;)
		For Counta = 0 to UBound(RemoveWords)
			inputedStr = Replace(inputedStr, RemoveWords(Counta), &quot;&quot;, 1,-1,1)		
		Next
		For Counta = 0 to UBound(ReplaceWords)
			inputedStr = Replace(inputedStr, ReplacedWords(Counta), ReplaceWords(Counta), 1,-1,1)		
		Next
	end if
	fNumberCleanLeaveBlank=inputedStr
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fValidPhoneNumber(byVal varItem, sAliasName, iMinLength, iMaxLength, bRequired)
	Dim GoodWord, GoodCharacter, i
	Dim MsgLen
	MsgLen=Len(g_ErrorMsg)
	if UCASE(varItem) = &quot;N/A&quot; then varItem=&quot;&quot;
	varitem=trim(varItem)
	if sAliasName=&quot;&quot; then sAliasName=varItem
	GoodWord=true
	if iMinLength &gt; 8 then
		For i = 1 to Len(varItem)
			GoodCharacter = mid(varItem,i,1)			
			if  Not IsNumeric(GoodCharacter) and ( (i&lt;&gt;4 and i&lt;&gt;1 and i&lt;&gt;5 and i&lt;&gt;6 and  i&lt;&gt;8 and i&lt;&gt;9 and i&lt;&gt;10)  or (GoodCharacter &lt;&gt;&quot;(&quot; and GoodCharacter &lt;&gt;&quot;)&quot; and GoodCharacter &lt;&gt;&quot;-&quot; and GoodCharacter&lt;&gt;&quot;.&quot; and Goodcharacter&lt;&gt;&quot; &quot;)) then
				GoodWord=false
				varItem=replace(varItem,GoodCharacter,&quot;&quot;)
			end if
		Next
	else
		For i = 1 to Len(varItem)
			GoodCharacter = mid(varItem,i,1)
			if  Not IsNumeric(GoodCharacter) and ( i&lt;&gt;4   or (GoodCharacter &lt;&gt;&quot;(&quot; and GoodCharacter &lt;&gt;&quot;)&quot; and GoodCharacter &lt;&gt;&quot;-&quot; and GoodCharacter&lt;&gt;&quot;.&quot; and Goodcharacter&lt;&gt;&quot; &quot;)) then
				GoodWord=false
				varItem=replace(varItem,GoodCharacter,&quot;&quot;)
			end if
		Next	
	end if
	if GoodWord then
		if varItem &lt;= iMinLength or iMinLength=iMaxLength then
			Call fValidateValue(fMakeDigits(varItem), sAliasName, iMinLength, iMaxLength, bRequired)
		else
			Call fValidateValue(fMakeDigits(varItem), sAliasName, iMinLength, iMaxLength-1, bRequired)
		end if
	Else
		g_ErrorMsg = g_ErrorMsg &amp;&quot;Please input a valid phone number into the '&quot;&amp; sAliasName &amp;&quot;' Field.&lt;br&gt;\n&quot; 
	End IF
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fValidPhoneNumber=varItem
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fValidUSZip(byVal varItem, sAliasName, iMinLength, iMaxLength, bRequired)
	Dim GoodWord, GoodCharacter, i
	Dim MsgLen, ItemLen
	MsgLen=Len(g_ErrorMsg)
	ItemLen=len(varItem)
	varitem=trim(varItem)
	if sAliasName=&quot;&quot; then sAliasName=varItem
	GoodWord=true
	For i = 1 to Len(varitem)
		GoodCharacter = mid(varItem,i,1)
		if Not IsNumeric(GoodCharacter) and (i&lt;&gt;6 or (GoodCharacter &lt;&gt;&quot;-&quot; and GoodCharacter&lt;&gt;&quot; &quot;)) then
			GoodWord=false
			varItem=replace(varItem,GoodCharacter,&quot;&quot;,i,1)			
		end if		
	Next
	if GoodWord then
		if ItemLen &lt;= iMinLength then
			Call fValidateValue(fMakeDigits(varItem), sAliasName, iMinLength, iMinLength, bRequired)
		else
			Call fValidateValue(fMakeDigits(varItem), sAliasName, iMaxLength-1, iMaxLength, bRequired)
		end if
	Else
		g_ErrorMsg = g_ErrorMsg &amp;&quot;Please input a valid US Zip Code into the '&quot;&amp; sAliasName &amp;&quot;' Field.&lt;br&gt;\n&quot; 
	End IF
	if Len(g_ErrorMsg) &gt;MsgLen then g_ErrorFlag=true
	fValidUSZip=varItem
End Function

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fMakeDigits(byVal Data)
	Dim n
	'STRIP ALL NON-NUMERICS
    For n = 1 To Len(Data)
		If IsNumeric(Mid(Data, n, 1)) or Mid(Data, n, 1)=&quot;.&quot; Then
			fMakeDigits = fMakeDigits &amp; Mid(Data, n, 1)
		End If
	Next
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fisAlphaNumeric(inStr)
  dim RegAN
  set RegAN = new RegExp
  RegAN.Pattern = &quot;^[a-zA-Z0-9 .#/-]+$&quot;
  fisAlphaNumeric = RegAN.test(inStr)
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fisAlpha(inStr)
  dim RegA
  set RegA = new RegExp
  RegA.Pattern = &quot;^[a-zA-Z .`-]+$&quot;
  fisAlpha = RegA.test(inStr)
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Stolen Functions from other pages
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fMakeNumeric(byVal Data)
	Dim n
	'REPLACE ALL &quot;K&quot; WITH THREE ZEROS
	Data=Replace(Data,&quot;K&quot;,&quot;000&quot;)
	Data=Replace(Data,&quot;k&quot;,&quot;000&quot;)
	
	'STRIP ALL NON-NUMERICS
    For n = 1 To Len(Data)
		If IsNumeric(Mid(Data, n, 1)) or Mid(Data, n, 1)=&quot;.&quot; Then
			fMakeNumeric = fMakeNumeric &amp; Mid(Data, n, 1)
		End If
	Next
	
	'ASSIGN A VALUE OF &quot;0&quot; IF REMAINING VALUE IS NULL
	If fMakeNumeric=&quot;&quot; Then
		fMakeNumeric=&quot;0&quot;
	End if
End Function
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fStandardizePercent(byVal Data)
	'IF PERCENT NOT LESS THAN 1 THEN DIVIDE BY 100
	If cdbl(Data)&gt;=1 Then
		fStandardizePercent=cdbl(Data)/100
	Else
		fStandardizePercent=Data
	End if
End Function
%&gt;</TEXTAREA>
</TD></TR></TABLE>

<BR><BR>
<INPUT TYPE="TEXT" SIZE=48 MAXLENGTH=255 NAME="PATHNAME" VALUE="f:\inetpub\wwwreg2\includes\servervalidation.asp">
<INPUT TYPE="RESET" VALUE="RESET"> <INPUT TYPE="SUBMIT" NAME="POSTACTION" VALUE="SAVE">
<INPUT TYPE="SUBMIT" NAME="POSTACTION" VALUE="CANCEL"><BR>
<HR><FONT TITLE="Check OK and click [DELETE] to delete this document from the web server. (Cannot be undone.)" FACE="Arial, Helvetica, sans-serif"SIZE=1><B>OK TO DELETE "SERVERVALIDATION.ASP"? </B></FONT>
<INPUT TYPE="CHECKBOX" NAME="DELETEOK">
<INPUT TYPE="SUBMIT" NAME="POSTACTION" VALUE="DELETE">
</FORM>
<!-- ---------------------------------------------------------- -->
<!-- end filelist.asp -->
</table>