<!-- begin filelist.asp -->
<!-- ---------------------------------------------------------- -->
<P><FONT FACE="Andale Mono, Monotype.com, Courier New, Courier, sans-serif" SIZE=4><B>f:\inetpub\wwwreg2\includes\functions.asp</B><BR>
<A HREF="http://www.mechreg.org/includes/functions.asp">http://www.mechreg.org/includes/functions.asp</A><BR></FONT>
<PRE>
    file size:  48,205 characters
 file created: &nbsp;<B>Wednesday, August 31, 2005 </B>&nbsp;10:09:45 AM
last modified: &nbsp;<B>Friday, May 28, 2004 </B>&nbsp;11:45:07 AM
</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;%
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Purpose:
'	This file is to store all standard and public variables, constants, functions and procedures
' 
'Constants and Variables:
'
'	g_blnDebug					- switch for page debug information
'	g_strApplicationVersion		- application version
'	g_strConnectionString		- Current global database connection string
'	g_strPageName				- The redirection and form page submission variable
'
'Procedures and Functions:
'
'
'	showRequiredQStoForm		- Writes 5 Questions form querystring values to the page as hidden form variables
'	fGetrefiQueryStrings		- Function: Returns all querystrings EXCEPT &quot;action&quot; to be written to url (no ? preceeds)
'	showQStoForm				- Writes all querystrings to the page as hidden form variables
'	rw							- Response.write shortcut procedure
'	rwb							- Response.write shortcut procedure with end of page
'	ShowErrorPage				- Writes and error page from a template and inserts an error message
'	ShowError					- Writes ONLY the current error string to the page
'	ShowOops					- Captures and displays program logic error messages 
'	fValidateData				- Function : Inputs array, checks for blank data input and retuns error message
'	showFormVars				- Writes all current form variables to the page as hidden form variables
'	showAffiliateFormVars		- Writes Affiliate related form variables to the page as hidden form variables
'	showIndexPageQStoForm		- Writes inital (index page) querystrings to form variables
'	fCalcLTV					- Used by fBadLTV to calculate the Loan to Value - Requires array input
'	fBadLTV						- Check if Loan to value is BAD - Requires array input
'	fLowRate					- Check if Interest rate is too low- Requires array input
'	fSelectState				- Returns the State value of the highest priority of two state inputs. 
'								  Input variables are from lowest to highest. IE. fSelectState(Lowpriority, HighPriority)
'	ShowSelected				- used to return a inputed string only when 2 other input variables match
'	ShowStateSelect				- Writes a Form select box with the States of the USA: Form Name is State
'	showDebtStateSelect			- Writes a Form select box with the States of the USA: Form Name is State, modified for debt page MI, ID, WI excluded.
'	showLoanAmountDesiredSelect
'	showPropertyTypeSelect
'	showProductDesiredSelect
'
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

'Declare constants and variables

dim g_strConnectionString
dim g_strPageName
dim g_strApplicationVersion
dim g_blnDebug

g_strConnectionString= Application(&quot;moneynest_connection&quot;)

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
sub showError(strData)
	Response.Clear
	Response.Write &quot;Make Pretty Error function Here!&lt;br&gt;&quot;
	response.write strData
	Response.End
end sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
sub showOops(strData)
	Response.Write strData
end sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
sub rw(strData)
	Response.Write strData
end sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
sub rwb(strData)
	response.write strData
	response.end
end sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Sub showFormVars()
	Dim FormField_name, FormField_value,x
		
	for each FormField_name in request.form
		FormField_value=request.form(FormField_name)
		Response.Write(&quot;&lt;input type='hidden' name='&quot;&amp; FormField_name &amp;&quot;' value='&quot;&amp; FormField_value &amp;&quot;'&gt;&quot;&amp;vbCrLf)
	next
End Sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Sub showAffiliateFormVars()
	Dim FormField_name, FormField_value,x
	if Request.Form=&quot;&quot; then
		Call showIndexPageQStoForm
	else
		for each FormField_name in request.form
			FormField_value=request.form(FormField_name)
			if (Lcase(FormField_name)=&quot;source_id&quot; or Lcase(FormField_name)=&quot;completeflag&quot; or Lcase(FormField_name)=&quot;source_url&quot; or Lcase(FormField_name)=&quot;affiliate&quot; or Lcase(FormField_name)=&quot;completeflag&quot; or Lcase(FormField_name)=&quot;queryurl&quot;) then
				Response.Write(&quot;&lt;input type='hidden' name='&quot;&amp; FormField_name &amp;&quot;' value='&quot;&amp; FormField_value &amp;&quot;'&gt;&quot;&amp;vbCrLf)
			end if
		next
	end if
End Sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Sub ShowErrorPage(byval ErrorMsg)
	'Write an error message

		Dim line ,fs, ts
		Set fs = server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
		Set ts = fs.OpenTextFile(Server.MapPath(&quot;\Templates\Errordebt.html&quot;))
		
    		Do While Not ts.AtEndOfStream
		        line = ts.ReadLine       
			  'INSERT ERROR MESSAGE TO TEMPLATE FILE
	   		  if InStr(line, &quot;&lt;!-- //--&gt;&quot;) then
  			  	Response.write(vbCrLf &amp; ErrorMsg &amp; vbCrLf)
 			  else
				response.Write vbCrLf &amp; line
			  end if
		Loop
		set fs=nothing	

End Sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Function fValidateData(ByRef FieldsArray())
	dim arraysize, vMessage
	vMessage=&quot;&quot;
	'GET NUMBER OF FIELDS TO VALIDATE
	arraysize= Ubound(FieldsArray,1)
	'VALIDATE EACH FIELD
	for i = 0 to arraysize-1
		if FieldsArray(i,1)=&quot;&quot; then
			vMessage=vMessage &amp;&quot;&lt;br&gt;&quot;&amp; FieldsArray(i,0) &amp; &quot; must be provided.&quot;
		end if		
	next
	if vMessage&lt;&gt;&quot;&quot; then
		vMessage=&quot;&lt;b&gt;The following fields must be completed before you can submit this form&lt;/b&gt;&lt;br&gt;&quot;&amp; vMessage &amp;vbCrLf &amp;&quot;&lt;br&gt;&quot;
	end if

	fValidateData= vMessage
End Function 
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Sub showQStoForm
	Dim x
	if Request.ServerVariables(&quot;QUERY_STRING&quot;)&lt;&gt;&quot;&quot; then 
		For Each X in Request.QueryString
			response.write(&quot;&lt;input type='hidden' name='&quot;&amp; Request.QueryString.Key(x) &amp;&quot;' value='&quot; &amp;Request.QueryString.Item(x)&amp;&quot;'&gt;&quot;&amp;vbCrLf)
		Next 
	end if
End Sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Sub showRequiredQStoForm
	if Request.ServerVariables(&quot;QUERY_STRING&quot;)&lt;&gt;&quot;&quot; then 
		response.write(&quot;&lt;input type='hidden' name='Home_Owner' value='&quot; &amp; Request.QueryString(&quot;Home_Owner&quot;)&amp;&quot;'&gt;&quot;&amp;vbCrLf)
		response.write(&quot;&lt;input type='hidden' name='State' value='&quot; &amp; Request.QueryString(&quot;State&quot;) &amp;&quot;'&gt;&quot;&amp;vbCrLf)
		response.write(&quot;&lt;input type='hidden' name='Type_of_Loan_Desired' value='&quot; &amp; Request.QueryString(&quot;Type_of_Loan_Desired&quot;) &amp;&quot;'&gt;&quot;&amp;vbCrLf)
		response.write(&quot;&lt;input type='hidden' name='Property_Type' value='&quot; &amp; Request.QueryString(&quot;Property_Type&quot;) &amp;&quot;'&gt;&quot;&amp;vbCrLf)
		response.write(&quot;&lt;input type='hidden' name='Loan_Amount_desired' value='&quot; &amp; Request.QueryString(&quot;Loan_Amount_desired&quot;) &amp;&quot;'&gt;&quot;&amp;vbCrLf)
		response.write(&quot;&lt;input type='hidden' name='Source_ID' value='&quot; &amp; Request.QueryString(&quot;Source_ID&quot;) &amp;&quot;'&gt;&quot;&amp;vbCrLf)
		response.write(&quot;&lt;input type='hidden' name='Affiliate' value='&quot; &amp; Request.QueryString(&quot;Affiliate&quot;) &amp;&quot;'&gt;&quot;&amp;vbCrLf)
		response.write(&quot;&lt;input type='hidden' name='Source_Url' value='&quot; &amp; Request.QueryString(&quot;Source_Url&quot;) &amp;&quot;'&gt;&quot;&amp;vbCrLf)
	end if
End Sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Function fGetrefiQueryStrings
	dim tempqs, X
	tempqs=&quot;&quot;
	if Request.ServerVariables(&quot;QUERY_STRING&quot;)&lt;&gt;&quot;&quot; then 
		For Each X in Request.QueryString
			if cstr(Request.QueryString.Key(x))&lt;&gt;&quot;action&quot; then
				tempqs = tempqs &amp; Request.QueryString.Key(x) &amp;&quot;=&quot; &amp;Request.QueryString.Item(x) &amp;&quot;&amp;&quot;
			end if
		Next 		
	end if
	fGetRefiQueryStrings=tempqs
End Function
Sub showIndexPageQStoForm
	if Request.ServerVariables(&quot;QUERY_STRING&quot;)&lt;&gt;&quot;&quot; then 
		Response.write(&quot;&lt;input type='hidden' name='Source_id' value='&quot;&amp; Request.QueryString.Item(1) &amp;&quot;'&gt; &quot;&amp;vbCrLf)
		Response.write(&quot;&lt;input type='hidden' name='affiliate' value='&quot;&amp; Request.QueryString.Key(1)&amp; &quot;'&gt; &quot;&amp;vbCrLf)
		If Request.Form(&quot;Source_url&quot;)=&quot;&quot; then
			Response.write(&quot;&lt;input type='hidden' name='Source_url' value='&quot;&amp; Request.ServerVariables(&quot;HTTP_REFERER&quot;)&amp; &quot;'&gt; &quot;&amp;vbCrLf)
		else
			Response.write(&quot;&lt;input type='hidden' name='Source_url' value='&quot;&amp; Request.Form(&quot;Source_url&quot;)&amp; &quot;'&gt; &quot;&amp;vbCrLf)
		end if
		Response.write(&quot;&lt;input type='hidden' name='QueryURL' value='&quot;&amp; Request.ServerVariables(&quot;QUERY_STRING&quot;)&amp;&quot;'&gt; &quot;&amp;vbCrLf)
		Response.write(&quot;&lt;input type='hidden' name='CompleteFlag' value='Incomplete'&gt;&quot;&amp;vbCrLf) 		
	End if 
End Sub

'********************************************************************
Function fCalcLTV(ArrFormData)
	dim FirstMort, SecondMort, PresentValue
	
	'STRIP ALL NON NUMERICS OUT
	ArrFormData(13)=fMakeNumeric(ArrFormData(13))
	ArrFormData(17)=fMakeNumeric(ArrFormData(17))
	ArrFormData(12)=fMakeNumeric(ArrFormData(12))
	
	'CONVERT DATA INTO DOUBLE PRECISION DATA AND ASSIGN TO VARIABLES
	FirstMort=CDbl(ArrFormData(13))
	SecondMort=CDbl(ArrFormData(17))
	PresentValue=CDbl(ArrFormData(12))
	
	'(FIRST MORT BALANCE+SECOND MORT BALANCE) / PROPERTY VALUE
	fCalcLTV=((FirstMort+SecondMort)/PresentValue)*100
	If Err.number&lt;&gt;0 Then
	'ASSIGN VALUE OF -1 TO RAISE ERROR
	fCalcLTV=-1
End if

End Function
'********************************************************************
Function fBadLTV(ArrFormData)
	dim LTV
	'CALCULATE LTV
	LTV=fCalcLTV(ArrFormData)
	
	'IF ERROR SEND TO ERROR PAGE (ERROR VALUE = -1)
	If LTV= -1 Then
		fBadLTV=true
		Exit Function
	End If
	
    'IF LTV CALCULATION IS &gt;= 111%
    If LTV &gt;=111 Then
		fBadLTV=true
		
		Exit Function
    Elseif LTV &gt;=91 Then
		'IF LTV CALCULATION IS &gt;= 91%
		If ArrFormData(26)=&quot;Refinance&quot; or ArrFormData(26)=&quot;Refinance - FHA&quot; _
				or ArrFormData(26)=&quot;Refinance - VA&quot; or ArrFormData(26)=&quot;Refinance with Cash Out&quot; Then
			'LOAN TYPE IS REFI
			fBadLTV=true
			
			Exit Function
		End if
		If ArrFormData(26)=&quot;Second Mortgage&quot; or ArrFormData(26)=&quot;Debt Consolidation&quot; _
				or ArrFormData(26)=&quot;Home Improvement&quot; or ArrFormData(26)=&quot;Equity Loan&quot;  Then
			'LOAN TYPE IS
			If ArrFormData(24)=&quot;Fair&quot; or ArrFormData(24)=&quot;Poor&quot; Then
				'CREDIT GRADE IS POOR OR FAIR
				fBadLTV=true
				Exit Function
			End if
		End if
    Else
		'EVERYTHING OK SO SEND BACK VALUE FOR OK
		fBadLTV=false
		
    End if
    'response.write(&quot;fBadLTV value=&quot;&amp;fBadLTV&amp;&quot;&lt;br&gt; &quot;)
End Function
'********************************************************************
Function fLowRate(ArrFormData)
	dim Rate

	'CHECK ONLY IF REFINANCE TYPE LOAN THAT IS NOT CASH OUT
	'Response.Write &quot;'&quot; &amp; ArrFormData(26) &amp; &quot;'&lt;br&gt;&quot;
	If ArrFormData(26)=&quot;Refinance&quot; or ArrFormData(26)=&quot;Refinance - FHA&quot; _
			or ArrFormData(26)=&quot;Refinance - VA&quot; Then

		'STRIP ALL NON NUMERICS OUT
		ArrFormData(14)=fMakeNumeric(ArrFormData(14))
		
		'STANDARDIZE PERCENTAGES
		ArrFormData(14)=fStandardizePercent(ArrFormData(14))
		
		'CONVERT DATA INTO DOUBLE PRECISION DATA AND ASSIGN TO VARIABLES
		Rate=CDbl(ArrFormData(14))
	
		'CHECK TO SEE IF fLowRate
		If  Rate &lt; 0 Then
			fLowRate=True
		End if
	Else
		fLowRate=False
	End if

	If Err.number&lt;&gt;0 Then
		fLowRate=True
	End if
End Function

'********************************************************************
' procedure:	showSelected	
' purpose:		returns sParam when sData1 and sData2 match
' 20030803		added lcase to make string match when different case
'********************************************************************
function showSelected(sData1,sData2,sParam)
	if trim(lcase(sData1) &amp; &quot;&quot;) = trim(lcase(sData2) &amp; &quot;&quot;) then
		showSelected = sParam
	else
		showSelected = &quot;&quot;
	end if
end function

'********************************************************************
function fSelectState(State1, State2)
	fSelectState=&quot;&quot;
	if (State1&lt;&gt;&quot;Select&quot; and State1&lt;&gt;&quot;&quot;) then fSelectState=State1
	if (State2&lt;&gt;&quot;Select&quot; and State2&lt;&gt;&quot;&quot;) then fSelectState=State2
end function

'********************************************************************

'********************************************************************

sub showStateSelect(strName, strSelected, strAttributes)
'********************************************************************
	' no table, use array
	dim arrValues(50)
	dim i

	arrValues(0) = &quot;AK&quot;
	arrValues(1) = &quot;AL&quot;
	arrValues(2) = &quot;AR&quot;
	arrValues(3) = &quot;AZ&quot;
	arrValues(4) = &quot;CA&quot;
	arrValues(5) = &quot;CO&quot;
	arrValues(6) = &quot;CT&quot;
	arrValues(7) = &quot;DC&quot;
	arrValues(8) = &quot;DE&quot;
	arrValues(9) = &quot;FL&quot;
	arrValues(10) = &quot;GA&quot;
	arrValues(11) = &quot;HI&quot;
	arrValues(12) = &quot;IA&quot;
	arrValues(13) = &quot;ID&quot;
	arrValues(14) = &quot;IL&quot;
	arrValues(15) = &quot;IN&quot;
	arrValues(16) = &quot;KS&quot;
	arrValues(17) = &quot;KY&quot;
	arrValues(18) = &quot;LA&quot;
	arrValues(19) = &quot;MA&quot;
	arrValues(20) = &quot;MD&quot;
	arrValues(21) = &quot;ME&quot;
	arrValues(22) = &quot;MI&quot;
	arrValues(23) = &quot;MN&quot;
	arrValues(24) = &quot;MO&quot;
	arrValues(25) = &quot;MS&quot;
	arrValues(26) = &quot;MT&quot;
	arrValues(27) = &quot;NC&quot;
	arrValues(28) = &quot;ND&quot;
	arrValues(29) = &quot;NE&quot;
	arrValues(30) = &quot;NH&quot;
	arrValues(31) = &quot;NJ&quot;
	arrValues(32) = &quot;NM&quot;
	arrValues(33) = &quot;NV&quot;
	arrValues(34) = &quot;NY&quot;
	arrValues(35) = &quot;OH&quot;
	arrValues(36) = &quot;OK&quot;
	arrValues(37) = &quot;OR&quot;
	arrValues(38) = &quot;PA&quot;
	arrValues(39) = &quot;RI&quot;
	arrValues(40) = &quot;SC&quot;
	arrValues(41) = &quot;SD&quot;
	arrValues(42) = &quot;TN&quot;
	arrValues(43) = &quot;TX&quot;
	arrValues(44) = &quot;UT&quot;
	arrValues(45) = &quot;VA&quot;
	arrValues(46) = &quot;VT&quot;
	arrValues(47) = &quot;WA&quot;
	arrValues(48) = &quot;WI&quot;
	arrValues(49) = &quot;WV&quot;
	arrValues(50) = &quot;WY&quot;

	if isArray(arrValues) then
		response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name=&quot;&amp; chr(34) &amp;  strName &amp; chr(34) &amp; &quot;&gt;&quot;
		response.write &quot;&lt;option value=&quot;&amp; chr(34) &amp; chr(34) &amp;&quot;&gt;Please Select&lt;/option&gt;&quot;
		For i = 0 to uBound(arrValues)
			response.write &quot;&lt;option value=&quot;&amp; chr(34) &amp; arrValues(i) &amp; chr(34) &amp;&quot; &quot;&amp; showSelected(strSelected,arrValues(i),&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; arrValues(i) &amp; &quot;&lt;/option&gt;&quot;
		Next
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;input type='hidden' name=&quot;&amp; chr(34) &amp; strName &amp; chr(34) &amp; &quot; value=&quot;&amp; chr(34) &amp; chr(34) &amp;&quot;&gt;&quot;
	end if
end sub
'********************************************************************
sub showDebtStateSelect(strName, strSelected, strAttributes)
'********************************************************************
	' no table, use array
	dim arrValues(47)
	dim i

	arrValues(0) = &quot;AK&quot;
	arrValues(1) = &quot;AL&quot;
	arrValues(2) = &quot;AR&quot;
	arrValues(3) = &quot;AZ&quot;
	arrValues(4) = &quot;CA&quot;
	arrValues(5) = &quot;CO&quot;
	arrValues(6) = &quot;CT&quot;
	arrValues(7) = &quot;DC&quot;
	arrValues(8) = &quot;DE&quot;
	arrValues(9) = &quot;FL&quot;
	arrValues(10) = &quot;GA&quot;
	arrValues(11) = &quot;HI&quot;
	arrValues(12) = &quot;IA&quot;	
	arrValues(13) = &quot;IL&quot;
	arrValues(14) = &quot;IN&quot;
	arrValues(15) = &quot;KS&quot;
	arrValues(16) = &quot;KY&quot;
	arrValues(17) = &quot;LA&quot;
	arrValues(18) = &quot;MA&quot;
	arrValues(19) = &quot;MD&quot;
	arrValues(20) = &quot;ME&quot;	
	arrValues(21) = &quot;MN&quot;
	arrValues(22) = &quot;MO&quot;
	arrValues(23) = &quot;MS&quot;
	arrValues(24) = &quot;MT&quot;
	arrValues(25) = &quot;NC&quot;
	arrValues(26) = &quot;ND&quot;
	arrValues(27) = &quot;NE&quot;
	arrValues(28) = &quot;NH&quot;
	arrValues(29) = &quot;NJ&quot;
	arrValues(30) = &quot;NM&quot;
	arrValues(31) = &quot;NV&quot;
	arrValues(32) = &quot;NY&quot;
	arrValues(33) = &quot;OH&quot;
	arrValues(34) = &quot;OK&quot;
	arrValues(35) = &quot;OR&quot;
	arrValues(36) = &quot;PA&quot;
	arrValues(37) = &quot;RI&quot;
	arrValues(38) = &quot;SC&quot;
	arrValues(39) = &quot;SD&quot;
	arrValues(40) = &quot;TN&quot;
	arrValues(41) = &quot;TX&quot;
	arrValues(42) = &quot;UT&quot;
	arrValues(43) = &quot;VA&quot;
	arrValues(44) = &quot;VT&quot;
	arrValues(45) = &quot;WA&quot;
	arrValues(46) = &quot;WV&quot;
	arrValues(47) = &quot;WY&quot;

	if isArray(arrValues) then
		response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name=&quot;&amp; chr(34) &amp;  strName &amp; chr(34) &amp; &quot; size=&quot;&amp; chr(34) &amp;&quot;1&quot;&amp; chr(34) &amp;&quot;&gt;&quot;
		response.write &quot;&lt;option value=&quot;&amp; chr(34) &amp; chr(34) &amp;&quot;&gt;Please Select&lt;/option&gt;&quot;
		For i = 0 to uBound(arrValues)
			response.write &quot;&lt;option value=&quot;&amp; chr(34) &amp; arrValues(i) &amp; chr(34) &amp;&quot; &quot;&amp; showSelected(strSelected,arrValues(i),&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; arrValues(i) &amp; &quot;&lt;/option&gt;&quot;
		Next
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;input type='hidden' name=&quot;&amp; chr(34) &amp; strName &amp; chr(34) &amp; &quot; value=&quot;&amp; chr(34) &amp; chr(34) &amp;&quot;&gt;&quot;
	end if
end sub
'********************************************************************

sub showProductDesiredSelect(strName, strSelected, strAttributes)
'********************************************************************
	' no table, use array
	dim arrValues(1,10)
	dim i

	arrValues(0,0) = &quot;Debt Management&quot;
	arrValues(1,0) = &quot;Debt Mgmt (Credit Counseling)&quot;

	arrValues(0,1) = &quot;Debt Consolidation&quot;
	arrValues(1,1) = &quot;Debt Consolidation Loan&quot;

	arrValues(0,2) = &quot;Refinance&quot;
	arrValues(1,2) = &quot;Refinance&quot;

	arrValues(0,3) = &quot;Refinance - FHA&quot;
	arrValues(1,3) = &quot;Refinance - FHA&quot;

	arrValues(0,4) = &quot;Refinance - VA&quot;
	arrValues(1,4) = &quot;Refinance - VA&quot;

	arrValues(0,5) = &quot;Home Improvement&quot;
	arrValues(1,5) = &quot;Home Improvement&quot;

	arrValues(0,6) = &quot;Home Equity Line of Credit&quot;
	arrValues(1,6) = &quot;Home Equity Line of Credit&quot;

	arrValues(0,7) = &quot;Refinance with Cash Out&quot;
	arrValues(1,7) = &quot;Refinance with Cash Out&quot;

	arrValues(0,8) = &quot;Purchase Loan&quot;
	arrValues(1,8) = &quot;Purchase Loan&quot;

	arrValues(0,9) = &quot;Second Mortgage&quot;
	arrValues(1,9) = &quot;Second Mortgage&quot;

	arrValues(0,10) = &quot;Equity Loan&quot;
	arrValues(1,10) = &quot;Equity Loan&quot;

	if isArray(arrValues) then
		response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strName &amp; &quot;'&gt;&quot;
		response.write &quot;&lt;option value=''&gt;Please Select&lt;/option&gt;&quot;

		For i = 0 to uBound(arrValues,2)
			response.write &quot;&lt;option value='&quot;&amp; arrValues(0,i) &amp; &quot;' &quot; &amp; showSelected(strSelected,arrValues(0,i),&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; arrValues(1,i) &amp; &quot;&lt;/option&gt;&amp;vbCrLf&quot;
		Next
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;input type='hidden' name='&quot; &amp; strName &amp; &quot;' value=''&gt;&quot;
	end if
end sub

'********************************************************************
sub showPropertyTypeSelect(strName, strSelected, strAttributes)
'********************************************************************
	' NOTE:
		' default selection of first item when no value selected

	' no table, use array
	dim arrValues(8)
	dim i

	arrValues(0) = &quot;Single Family Residence&quot;
	arrValues(1) = &quot;Condominiums&quot;
	arrValues(2) = &quot;Town House&quot;
	arrValues(3) = &quot;Investment Property&quot;
	arrValues(4) = &quot;Mobile Home&quot;
	arrValues(5) = &quot;Cooperative&quot;
	arrValues(6) = &quot;Multi-Family&quot;
	arrValues(7) = &quot;Manufactured&quot;
	arrValues(8) = &quot;Do Not Own&quot;

	if isArray(arrValues) then
		response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strName &amp; &quot;'&gt;&quot;
		'response.write &quot;&lt;option value='Select'&gt;Please Select&lt;/option&gt;&quot;
		For i = 0 to uBound(arrValues)
			response.write &quot;&lt;option value='&quot;&amp; arrValues(i) &amp; &quot;' &quot; &amp; showSelected(strSelected,arrValues(i),&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; arrValues(i) &amp; &quot;&lt;/option&gt;&amp;vbCrLf&quot;
		Next
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;input type='hidden' name='&quot; &amp; strName &amp; &quot;' value=''&gt;&quot;
	end if
end sub

'********************************************************************
sub showLoanAmountDesiredSelect(strName, strSelected, strAttributes)
'********************************************************************
	' NOTE:
		' default selection of first item when no value selected

	' no table, use array
	dim arrValues(13)
	dim i

	arrValues(0) = &quot;None (debt management)&quot;
	arrValues(1) = &quot;$0 - $10,000&quot;
	arrValues(2) = &quot;$10,000 - $20,000&quot;
	arrValues(3) = &quot;$20,000 - $35,000&quot;
	arrValues(4) = &quot;$35,000 - $50,000&quot;
	arrValues(5) = &quot;$50,000 - $75,000&quot;
	arrValues(6) = &quot;$75,000 - $100,000&quot;
	arrValues(7) = &quot;$100,000 - $150,000&quot;
	arrValues(8) = &quot;$150,000 - $200,000&quot;
	arrValues(9) = &quot;$200,000 - $300,000&quot;
	arrValues(10) = &quot;$300,000 - $400,000&quot;
	arrValues(11) = &quot;$400,000 - $500,000&quot;
	arrValues(12) = &quot;$500,000 - $750,000&quot;
	arrValues(13) = &quot;$750,000 - $10,000,000&quot;

	if isArray(arrValues) then
		response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strName &amp; &quot;'&gt;&quot;
		response.write &quot;&lt;option value=''&gt;Please Choose Loan Amount&lt;/option&gt;&quot;
		For i = 0 to uBound(arrValues)
			response.write &quot;&lt;option value='&quot;&amp; arrValues(i) &amp; &quot;' &quot; &amp; showSelected(strSelected,arrValues(i),&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; arrValues(i) &amp; &quot;&lt;/option&gt;&quot;&amp;vbCrLf
		Next
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;input type='hidden' name='&quot; &amp; strName &amp; &quot;' value=''&gt;&quot;
	end if
end sub

sub showColorSelect(strName, strSelected, strAttributes)
'********************************************************************
	' NOTE:
		' default selection of first item when no value selected

	dim RS
	dim Cn
	dim SqlText
	dim i
	Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Cn.Open application(&quot;SFC_ConnectionString&quot;)
	SqlText=&quot;Select * from Colors order by Color&quot;

	Set rs = Cn.Execute(SqlText)
	
	response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strName &amp; &quot;'&gt;&quot;
	response.write &quot;&lt;option value=''&gt;Please Select Color&lt;/option&gt;&quot;
	
	if not rs.EOF then
	rs.movefirst
	 do while not rs.EOF
		response.write &quot;&lt;option value='&quot;&amp; rs(&quot;ColorHex&quot;) &amp; &quot;' &quot; &amp; showSelected(strSelected,rs(&quot;ColorHex&quot;),&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; rs(&quot;Color&quot;) &amp; &quot;&lt;/option&gt;&quot;&amp;vbCrLf
		rs.movenext
	 loop
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;/select&gt;&quot;
		'response.write &quot;&lt;input type='hidden' name='&quot; &amp; strName &amp; &quot;' value=''&gt;&quot;
	end if
	Cn.Close
	set Cn=nothing
	set rs=nothing
end sub
sub showLeagueSelect(strName, strSelected, strAttributes)
'********************************************************************
	' NOTE:
		' default selection of first item when no value selected

	dim RS, CN	
	dim SqlText
	dim i
	dim LID
	SqlText=&quot;Select LeagueID, Name from League&quot;
	
	Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Cn.Open application(&quot;SFC_ConnectionString&quot;)
	Set rs = Cn.Execute(SqlText)
	
	response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strName &amp; &quot;'&gt;&quot;
	response.write &quot;&lt;option value=''&gt;Please Select Mod&lt;/option&gt;&quot;
	
	if not rs.EOF then
	rs.movefirst
	 do while not rs.EOF
		LID=rs(&quot;LeagueID&quot;)
		response.write &quot;&lt;option value='&quot;&amp; LID &amp; &quot;' &quot; &amp; showSelected(strSelected,LID,&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; rs(&quot;Name&quot;) &amp; &quot;&lt;/option&gt;&quot; &amp;vbCrLf
		rs.movenext
	 loop
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;/select&gt;&quot;
		'response.write &quot;&lt;input type='hidden' name='&quot; &amp; strName &amp; &quot;' value=''&gt;&quot;
	end if
	Cn.Close
	set Cn=nothing
	set rs=nothing
end sub
'********************************************************************
sub showRaceSelect(strRace, strSelected, strAttributes,LID)
'********************************************************************
	' NOTE:
		' default selection of first item when no value selected

	dim RS,Cn
	dim SqlText
	dim i, RID

	SqlText=&quot;Select * from Race&quot;
	if LID&lt;&gt;0 then
		SqlText = SqlText &amp; &quot; where RaceID in (select RaceID from LeagueRace where leagueID=&quot; &amp;LID &amp;&quot;)&quot;
	end if
	Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Cn.Open application(&quot;SFC_ConnectionString&quot;)
	Set rs = Cn.Execute(SqlText)
	
	response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strRace &amp; &quot;'&gt;&quot;
	response.write &quot;&lt;option value=''&gt;Please Select Race&lt;/option&gt;&quot;
	
	if not rs.EOF then
	rs.movefirst
	
	 do while not rs.EOF
		RID=rs(&quot;RaceID&quot;)
		response.write &quot;&lt;option value='&quot;&amp; RID &amp; &quot;' &quot; &amp; showSelected(strSelected,RID,&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; rs(&quot;Name&quot;) &amp; &quot;&lt;/option&gt;&quot; &amp;vbCrLf
		rs.movenext
	 loop
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;/select&gt;&quot;
		'response.write &quot;&lt;input type='hidden' name='&quot; &amp; strRace &amp; &quot;' value=''&gt;&quot;
	end if
	set rs=nothing
	Cn.Close
	set Cn=nothing
end sub
'********************************************************************
sub showRankSelect(strRank, strSelected, strAttributes)
'********************************************************************
	' NOTE:
		' default selection of first item when no value selected

	dim RS	
	dim SqlText
	dim i, RID

	SqlText=&quot;Select * from Ranks &quot;
	if session(&quot;Security&quot;)=2 then
		SqlText =	SqlText &amp; &quot;where rankid &gt;1&quot;
	elseif session(&quot;Security&quot;)&gt;3 then
		SqlText =	SqlText &amp; &quot;where rankid &gt;2&quot;
	end if
	Set rs = Cn.Execute(SqlText)
	
	response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strRank &amp; &quot;'&gt;&quot;
	response.write &quot;&lt;option value=''&gt;Please Select Rank&lt;/option&gt;&quot;
	
	if not rs.EOF then
	rs.movefirst
	
	 do while not rs.EOF
		RID=rs(&quot;RankID&quot;)
		response.write &quot;&lt;option value='&quot;&amp; RID &amp; &quot;' &quot; &amp; showSelected(strSelected,RID,&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; rs(&quot;Rank&quot;) &amp; &quot;&lt;/option&gt;&quot; &amp;vbCrLf
		rs.movenext
	 loop
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;/select&gt;&quot;
		'response.write &quot;&lt;input type='hidden' name='&quot; &amp; strRace &amp; &quot;' value=''&gt;&quot;
	end if

	set rs=nothing
end sub
'********************************************************************
sub showRaceRegisterSelect(strRace, strSelected, strAttributes,LID,GAP)
'********************************************************************
	' NOTE:
		' default selection of first item when no value selected

	dim RS
	dim Cn
	dim SqlText
	dim i, RID
	Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Cn.Open application(&quot;SFC_ConnectionString&quot;)
	SqlText=&quot;Select * from Race&quot;
	if LID&lt;&gt;0 then
		SqlText = &quot;select * from race &quot; &amp; _
		&quot;where (RaceID in (select RaceID from playercount where (playercount&lt;= (select min(playercount)+&quot;&amp;GAP&amp;&quot; from playercount where leagueid=&quot;&amp;LID&amp;&quot;) &quot; &amp; _
		&quot;or playercount&lt;=10) and leagueID=&quot;&amp;LID&amp;&quot;) or &quot; &amp; _
		&quot;RaceID in (select raceID from LeagueRace where leagueid=&quot;&amp;LID&amp;&quot; and raceid not in (Select raceid from playercount where leagueid=&quot;&amp;LID&amp;&quot;)))&quot;
		'Response.Write(sqltext)
	end if
	Set rs = Cn.Execute(SqlText)
	
	response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strRace &amp; &quot;'&gt;&quot;
	response.write &quot;&lt;option value=''&gt;Please Select Race&lt;/option&gt;&quot;
	
	if not rs.EOF then
	rs.movefirst
	
	 do while not rs.EOF
		RID=rs(&quot;RaceID&quot;)
		response.write &quot;&lt;option value='&quot;&amp; RID &amp; &quot;' &quot; &amp; showSelected(strSelected,RID,&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; rs(&quot;Name&quot;) &amp; &quot;&lt;/option&gt;&quot; &amp;vbCrLf
		rs.movenext
	 loop
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;/select&gt;&quot;
		'response.write &quot;&lt;input type='hidden' name='&quot; &amp; strRace &amp; &quot;' value=''&gt;&quot;
	end if
	Cn.Close
	set Cn=nothing
	set rs=nothing
end sub
'********************************************************************
sub showPlayerArraySelect(strPlayer, strSelected, strAttributes ,LID ,byref arrPlayers(),RID)
'********************************************************************
	' NOTE:
		' default selection of first item when no value selected
	dim i, PID
	

	
	response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strPlayer &amp; &quot;'&gt;&quot;
	response.write &quot;&lt;option value=''&gt;Please Select Player&lt;/option&gt;&quot;
	

	if ubound(arrPlayers)&gt; 1 then
	 for i = 1 to ubound(arrPlayers)-1
		If cstr(arrPlayers(i,2))=cstr(RID) or RID =&quot;&quot; then
			PID=arrPlayers(i,0)
			response.write &quot;&lt;option value='&quot;&amp; PID  &amp; &quot;' &quot; &amp; showSelected(strSelected,PID,&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; arrPlayers(i,1) &amp; &quot;&lt;/option&gt;&quot;&amp;vbCrLf		
		end if
	 next
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;/select&gt;&quot;
		'response.write &quot;&lt;input type='hidden' name='&quot; &amp; strPlayer &amp; &quot;' value=''&gt;&quot;
	end if

end sub
'********************************************************************
sub getPlayersArray(byref arrPlayers(), LID)
	dim RS
	dim Cn
	dim SqlText, vCount
	dim i, RID
	Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Cn.Open application(&quot;SFC_ConnectionString&quot;)
	SqlText=&quot;Select count(playerid) as pCount from players where leagueid=&quot;&amp; LID 
	Set rs = Cn.Execute(SqlText)
	vCount=cint(rs(&quot;pCount&quot;))
	redim arrPlayers(vCount+1,2)
	SqlText=&quot;Select playerid, name, RaceID from players where leagueid=&quot;&amp; LID &amp;&quot; Order by RaceID,RankID,Name&quot;
	Set rs = Cn.Execute(SqlText)
	if not rs.EOF then
	i=1
	rs.movefirst
	 do while not rs.EOF
		arrPlayers(i,0)=rs(&quot;PlayerID&quot;)
		arrPlayers(i,1)=rs(&quot;Name&quot;)
		arrPlayers(i,2)=rs(&quot;RaceID&quot;)
		rs.movenext
		i=i+1
	 loop
	end if
	Cn.Close
	set Cn=nothing
	set rs=nothing
end sub

'********************************************************************
sub showPlayerSelect(strPlayer, strSelected, strAttributes,LID)
'********************************************************************
	' NOTE:
		' default selection of first item when no value selected

	dim RS
	dim Cn
	dim SqlText
	dim i, PID
	Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Cn.Open application(&quot;SFC_ConnectionString&quot;)
	SqlText=&quot;Select * from Players where LeagueID=&quot;&amp;LID&amp;&quot; order by Name&quot;

	Set rs = Cn.Execute(SqlText)
	
	response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strPlayer &amp; &quot;'&gt;&quot;
	response.write &quot;&lt;option value=''&gt;Please Select Player&lt;/option&gt;&quot;
	
	if not rs.EOF then
	rs.movefirst
	
	 do while not rs.EOF
		PID=rs(&quot;PlayerID&quot;)
		response.write &quot;&lt;option value='&quot;&amp; PID  &amp; &quot;' &quot; &amp; showSelected(strSelected,PID,&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp; rs(&quot;Name&quot;) &amp; &quot;&lt;/option&gt;&quot;&amp;vbCrLf
		rs.movenext
	 loop
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;/select&gt;&quot;
		'response.write &quot;&lt;input type='hidden' name='&quot; &amp; strPlayer &amp; &quot;' value=''&gt;&quot;
	end if
	Cn.Close
	set Cn=nothing
	set rs=nothing
end sub
'********************************************************************
sub showShipCondition(strName, strSelected, strAttributes)
'********************************************************************
	Dim vClass
	Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Cn.Open application(&quot;SFC_ConnectionString&quot;)
	qry=&quot;select * from Condition order by ConditionValue &quot;
	set rs= Cn.Execute(qry)
	if not rs.eof then	
		rs.Movefirst
		response.write &quot;&lt;select &quot; &amp; strAttributes &amp; &quot; name='&quot; &amp; strName &amp; &quot;'&gt;&quot;
		do while not rs.eof 
			vClass= rs(&quot;ConditionValue&quot;)
			response.write &quot;&lt;option value='&quot;&amp;vClass &amp; &quot;' &quot; &amp; showSelected(strSelected, vClass,&quot;selected&quot;) &amp; &quot;&gt;&quot; &amp;  rs(&quot;Condition&quot;)  &amp; &quot;&lt;/option&gt;&amp;vbCrLf&quot;
			rs.Movenext
		loop
		response.write &quot;&lt;/select&gt;&quot;
	else
		response.write &quot;(no data found)&quot;
		response.write &quot;&lt;/select&gt;&quot;
		'response.write &quot;&lt;input type='hidden' name='&quot; &amp; strName &amp; &quot;' value=''&gt;&quot;
	end if
	
	Cn.Close
	set cn=nothing
end sub



'********************************************************************
' procedure:	funFormatDateTimeWrap	
' purpose:		this function uses the vbs formatDateTime(), but handles
'				empty and null string values
'********************************************************************
function funFormatDateTimeWrap(vDate,vNamedFormat)
	on error resume next
	
	if isDate(vDate) then
		funFormatDateTimeWrap = formatDateTime(vDate,vNamedFormat)
	else
		funFormatDateTimeWrap = &quot;&quot;
	end if

	if Err.number &lt;&gt; 0 then
		formatDataTimeWrap = &quot;&quot;
	end if
	
	' reset error handler
	on error goto 0
end function


'********************************************************************
' procedure:	formatCurrencyWrap	
' purpose:		this function uses the vbs formatCurrency(), but handles
'				empty and null string values
'********************************************************************

function funFormatCurrencyWrap(vData, sOptions,vReturn)
	on error resume next
	' *** ARGUMENTS ***
	' vData: data to format, expression sent to formatCurrency()
		' Valid values = numeric values
	' sOptions: contains array of options normally sent to formatNumber()
		' sOptions(0) expression
			' Valid values = positive values 
		' sOptions([1-3]) TristateContstants
			' Valid values = -1, 0, -2 (true, false, use regional settings)
	' vReturn: value to return when vData is empty/null string/errors
		' Valid values = variant

	' formatNumber() options
	dim NumDigitsAfterDecimal			' -1 use regional settings
	dim IncludeLeadingDigit				' TristateConstant
	dim UseParensForNegativeNumbers		' TristateConstant
	dim GroupDigits						' TristateConstant

	dim rayOptions

	' build  array for formatNumber() options
	rayOptions = split(sOptions,&quot;,&quot;)
	
	if ( isArray(rayOptions) )then
		select case uBound(rayOptions)
			case 0
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= -2
				UseParensForNegativeNumbers		= -2
				GroupDigits						= -2			
			case 1
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= rayOptions(1)
				UseParensForNegativeNumbers		= -2
				GroupDigits						= -2
			case 2
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= rayOptions(1)
				UseParensForNegativeNumbers		= rayOptions(2)
				GroupDigits						= -2
			case 3
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= rayOptions(1)
				UseParensForNegativeNumbers		= rayOptions(2)
				GroupDigits						= rayOptions(3)
			case else 
				NumDigitsAfterDecimal			= -1
				IncludeLeadingDigit				= -2
				UseParensForNegativeNumbers		= -2
				GroupDigits						= -2
		end select
	else
		NumDigitsAfterDecimal			= -1
		IncludeLeadingDigit				= -2
		UseParensForNegativeNumbers		= -2
		GroupDigits						= -2
	end if

	' concatenation of null string prevents the existence of empty
	' variables which isNumeric() evaluates as true
	if (isNumeric(vData &amp; &quot;&quot;)) then
		funFormatCurrencyWrap =  formatCurrency(cStr(vData),NumDigitsAfterDecimal,IncludeLeadingDigit,UseParensForNegativeNumbers,GroupDigits)
	else
		funFormatCurrencyWrap = vReturn
	end if		

	' true: error occurred, return vReturn
	if Err.number &lt;&gt; 0 then
		funFormatCurrencyWrap = vReturn
	end if

	' reset error handler
	on error goto 0
end function

'********************************************************************
' procedure:	funFormatNumberWrap	
' purpose:		this function uses the vbs formatNumber(), but handles
'					empty and null string values
'********************************************************************
function funFormatNumberWrap(vData, sOptions,vReturn)
	on error resume next
	' *** ARGUMENTS ***
	' vData: data to format, expression sent to formatNumber()
		' Valid values = numeric values
	' sOptions: contains array of options normally sent to formatNumber()
		' sOptions(0) expression
			' Valid values = positive values 
		' sOptions([1-3]) TristateContstants
			' Valid values = -1, 0, -2 (true, false, use regional settings)
	' vReturn: value to return when vData is empty/null string/errors
		' Valid values = variant

	' formatNumber() options
	dim NumDigitsAfterDecimal			' -1 use regional settings
	dim IncludeLeadingDigit				' TristateConstant
	dim UseParensForNegativeNumbers		' TristateConstant
	dim GroupDigits						' TristateConstant

	dim rayOptions

	' build  array for formatNumber() options
	rayOptions = split(sOptions,&quot;,&quot;)
	
	if ( isArray(rayOptions) )then
		select case uBound(rayOptions)
			case 0
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= -2
				UseParensForNegativeNumbers		= -2
				GroupDigits						= -2			
			case 1
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= rayOptions(1)
				UseParensForNegativeNumbers		= -2
				GroupDigits						= -2
			case 2
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= rayOptions(1)
				UseParensForNegativeNumbers		= rayOptions(2)
				GroupDigits						= -2
			case 3
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= rayOptions(1)
				UseParensForNegativeNumbers		= rayOptions(2)
				GroupDigits						= rayOptions(3)
			case else 
				NumDigitsAfterDecimal			= -1
				IncludeLeadingDigit				= -2
				UseParensForNegativeNumbers		= -2
				GroupDigits						= -2
		end select
	else
		NumDigitsAfterDecimal			= -1
		IncludeLeadingDigit				= -2
		UseParensForNegativeNumbers		= -2
		GroupDigits						= -2
	end if

	' concatenation of null string prevents the existence of empty
	' variables which isNumeric() evaluates as true
	if (isNumeric(vData &amp; &quot;&quot;)) then
		funFormatNumberWrap =  formatNumber(cStr(vData),NumDigitsAfterDecimal,IncludeLeadingDigit,UseParensForNegativeNumbers,GroupDigits)
	else
		funFormatNumberWrap = vReturn
	end if		

	' true: error occurred, return vReturn
	if Err.number &lt;&gt; 0 then
		funFormatNumberWrap = vReturn
	end if

	' reset error handler
	on error goto 0
end function

'********************************************************************
' procedure:	funFormatPercentWrap	
' purpose:		this function uses the vbs formatPercent(), but handles
'					empty and null string values
'********************************************************************
function funFormatPercentWrap(vData, sOptions,vReturn)
	'on error resume next
	' *** ARGUMENTS ***
	' vData: data to format, expression sent to formatNumber()
		' Valid values = numeric values
	' sOptions: contains array of options normally sent to formatNumber()
		' sOptions(0) expression
			' Valid values = positive values 
		' sOptions([1-3]) TristateContstants
			' Valid values = -1, 0, -2 (true, false, use regional settings)
	' vReturn: value to return when vData is empty/null string/errors
		' Valid values = variant

	' formatNumber() options
	dim NumDigitsAfterDecimal			' -1 use regional settings
	dim IncludeLeadingDigit				' TristateConstant
	dim UseParensForNegativeNumbers		' TristateConstant
	dim GroupDigits						' TristateConstant

	dim rayOptions

	' build  array for formatNumber() options
	rayOptions = split(sOptions,&quot;,&quot;)
	
	if ( isArray(rayOptions) )then
		select case uBound(rayOptions)
			case 0
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= -2
				UseParensForNegativeNumbers	= -2
				GroupDigits							= -2			
			case 1
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= rayOptions(1)
				UseParensForNegativeNumbers	= -2
				GroupDigits							= -2
			case 2
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= rayOptions(1)
				UseParensForNegativeNumbers	= rayOptions(2)
				GroupDigits							= -2
			case 3
				NumDigitsAfterDecimal			= rayOptions(0)
				IncludeLeadingDigit				= rayOptions(1)
				UseParensForNegativeNumbers	= rayOptions(2)
				GroupDigits							= rayOptions(3)
			case else 
				NumDigitsAfterDecimal			= -1
				IncludeLeadingDigit				= -2
				UseParensForNegativeNumbers	= -2
				GroupDigits							= -2
		end select
	else
		NumDigitsAfterDecimal			= -1
		IncludeLeadingDigit				= -2
		UseParensForNegativeNumbers	= -2
		GroupDigits							= -2
	end if

	' concatenation of null string prevents the existence of empty
	' variables which isNumeric() evaluates as true
	if (isNumeric(vData &amp; &quot;&quot;)) then
		funFormatPercentWrap =  formatPercent(cStr(vData),NumDigitsAfterDecimal,IncludeLeadingDigit,UseParensForNegativeNumbers,GroupDigits)
	else
		funFormatPercentWrap = vReturn
	end if		

	' true: error occurred, return vReturn
	if Err.number &lt;&gt; 0 then
		funFormatPercentWrap = vReturn
	end if

	' reset error handler
	on error goto 0
end function
'********************************************************************
' procedure:	funReturnSQLData	
' purpose:		returns data formated to pass to stored procedure 
'
'********************************************************************
'constants used for funReturnSQLData
CONST RETURN_NULL			= 0
CONST RETURN_EMPTY_STRING	= 1
CONST RETURN_QUOTED_STRING	= 2
CONST RETURN_NULL_LITERAL	= 3
CONST RETURN_ZERO			= 4

function funReturnSQLData(vData, intVarType, intReturnDefault)
	if not(blnShowError) then on error resume next end if

	'TO DO
	' FIX DATA TYPES = vbLong, vbSingle, vbDouble
	' &quot;,&quot; and &quot;.&quot; pass isNumeric test for vbInteger below consider
	' removing &quot;,&quot; and failing on &quot;.&quot;

	' *** ARGUMENTS ***
	' vData: data to format
		' Valid values = varint
	' intVarType: subtype of variable returned by vbs function varType()
		' Valid values = vbConstant
	' intReturnDefault: value to return when vData is empty/null string or errors occur
		' Valid values = constants (RETURN_NULL_LITERAL, RETURN_ZERO)
	dim vReturnData ' hold actual data function will return
	dim vReturnDefault ' hold return when vData is empty/null string or errors occur

	' set strReturn
	select case intReturnDefault
		case RETURN_NULL 
			vReturnDefault= NULL
		case RETURN_EMPTY_STRING
			vReturnDefault = &quot;&quot;
		case RETURN_QUOTED_STRING
			vReturnDefault = &quot;''&quot;
		Case RETURN_NULL_LITERAL
			vReturnDefault = &quot;NULL&quot;
		case RETURN_ZERO
			vReturnDefault = 0
		case else
			vReturnDefault = &quot;''&quot;
	end select

	select case intVarType
		case vbInteger '2
			' concatenation of null string prevents the existence of empty
			' variables which isNumeric() evaluates as true
			if (isNumeric(vData &amp; &quot;&quot;)) then
				
				vReturnData = vData
			else
				vReturnData = vReturnDefault
			end if				
		case vbLong '3
			vReturnData = vData
		case vbSingle '4
			vReturnData = vData
		case vbDouble '5
			vReturnData = vData		
		case vbDate '7
			if isDate(vData &amp; &quot;&quot;) then
				vReturnData =	&quot;'&quot; &amp; _
								funFormatDateTimeWrap(vData,vbGeneralDate) &amp; _
								&quot;'&quot;
			else
				vReturnData = vReturnDefault
			end if
		case vbString '8
			' wrap data in quotes to pass through sp
			if (trim(vData &amp; &quot;&quot;) = &quot;&quot;) then
				vReturnData = vReturnDefault
			else
				vReturnData = &quot;'&quot; &amp; funReplaceSingleQuotes(vData) &amp; &quot;'&quot;
			end if
		case vbBoolean '11
			'boolean is handled as bit( true/false = 1/0), no boolean in sql
			vReturnData = funHandleBit(vData,0,0)
		case else
			vReturnData = vReturnDefault
	end select		

	if Err.number &lt;&gt; 0 then
		funReturnSQLData = vReturnDefault
	else
		funReturnSQLData = vReturnData
	end if

	' reset error handler
	on error goto 0
end function
'********************************************************************
' procedure:	funReplaceSingleQuotes	
' purpose:		replaces sigle quotes with chr(96)
'********************************************************************
function funReplaceSingleQuotes(sData) 
    If Not (sData &amp; &quot;&quot;) = &quot;&quot; Then
        funReplaceSingleQuotes = Replace(sData, &quot;'&quot;, Chr(96))
    End If
End Function
'********************************************************************
' procedure:	funHandleBit	
' purpose:		handle bit at the page level
'
' vData					= variable to be testd
' vBitTextFlg			= identifies return: bit (0 = 0/1) or text (1 = Yes/No)
' vReturnEmptyString	= itdentifies returns for an empty/null
'	vReturnEmptyString	= 1 empty/null returns emtpy string
'	vReturnEmptyString	= 0 empty/null requested returnType
'********************************************************************
function funHandleBit(vData,vBitTextFlg, vReturnEmptyString)
	if ((trim(vData) = &quot;&quot;) or (isNull(vData)))then
		if (vReturnEmptyString) then
			funHandleBit = &quot;&quot;
		else
			if(vBitTextFlg) then
				funHandleBit = &quot;No&quot;
			else
				funHandleBit = 0
			end if
		end if
	else
		if(vData) then
			if(vBitTextFlg) then
				funHandleBit = &quot;Yes&quot;
			else
				funHandleBit = 1
			end if
		else
			if(vBitTextFlg) then
				funHandleBit = &quot;No&quot;
			else
				funHandleBit = 0
			end if
		end if	
	end if
end function
'********************************************************************
function getRaceName(RID)
	dim CnRn, Rs, qry, tmp
	Set CnRn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	CnRn.Open application(&quot;SFC_ConnectionString&quot;)
	tmp=&quot;&quot;
	if RID&lt;&gt;&quot;&quot; then
		qry=&quot;select name from race where raceid=&quot;&amp;RID
		set rs= CnRn.Execute(qry)
		tmp = rs(&quot;Name&quot;)
	end if
	getRaceName=tmp
	set rs = nothing
	set CnRn=nothing
end function
'********************************************************************
function getPlayerName(PID)
	dim CnP, Rs, qry, tmp
	Set CnP = Server.CreateObject(&quot;ADODB.Connection&quot;)
	CnP.Open application(&quot;SFC_ConnectionString&quot;)
	tmp=&quot;&quot;
	if PID&lt;&gt;&quot;&quot; and PID&lt;&gt;&quot;0&quot; then
		qry=&quot;select name from Players where Playerid=&quot;&amp;PID
		set rs= CnP.Execute(qry)
		if not rs.eof then
			tmp = rs(&quot;Name&quot;)
		else
			tmp=PID
		end if
	end if
	getPlayerName=tmp
	set rs = nothing
	set CnP=nothing
end function
'********************************************************************

function getPlayerEmail(PID)
	dim CnP, Rs, qry, tmp
	Set CnP = Server.CreateObject(&quot;ADODB.Connection&quot;)
	CnP.Open application(&quot;SFC_ConnectionString&quot;)
	tmp=&quot;&quot;
	if PID&lt;&gt;&quot;&quot; and PID&lt;&gt;&quot;0&quot; then
		qry=&quot;select email from Players where Playerid=&quot;&amp;PID
		set rs= CnP.Execute(qry)
		tmp = rs(&quot;email&quot;)
	end if
	getPlayerEmail=tmp
	set rs = nothing
	set CnP=nothing
end function
'********************************************************************
function getShipClassName(SID)
	dim Cnsc, Rs, qry, tmp
	Set Cnsc = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Cnsc.Open application(&quot;SFC_ConnectionString&quot;)
	tmp=&quot;&quot;
	if SID&lt;&gt;&quot;&quot; and SID&lt;&gt;&quot;0&quot; then
		qry=&quot;select class from class where ShipClassID=&quot;&amp;SID
		set rs= Cnsc.Execute(qry)
		tmp = rs(&quot;class&quot;)
	end if
	getShipClassName=tmp
	set rs = nothing
	set Cssc = nothing
end function
'********************************************************************
function getConditionName(CID)
	dim CnC, Rs, qry, tmp
	Set CnC = Server.CreateObject(&quot;ADODB.Connection&quot;)
	CnC.Open application(&quot;SFC_ConnectionString&quot;)
	tmp=&quot;&quot;
	if CID&lt;&gt;&quot;&quot; and CID&lt;&gt;&quot;0&quot; then
		qry=&quot;select Condition from condition where conditionvalue=&quot;&amp;CID
		set rs= CnC.Execute(qry)
		tmp = rs(&quot;condition&quot;)
	end if
	getConditionName=tmp
	set rs = nothing
	set CnC=nothing
end function

'********************************************************************
function getRank(RID)
	dim CnC, Rs, qry, tmp
	Set CnC = Server.CreateObject(&quot;ADODB.Connection&quot;)
	CnC.Open application(&quot;SFC_ConnectionString&quot;)
	tmp=&quot;&quot;
	if RID&lt;&gt;&quot;&quot; and RID&lt;&gt;&quot;0&quot; then
		qry=&quot;select Rank from Ranks where RankID=&quot;&amp;RID
		set rs= CnC.Execute(qry)
		tmp = rs(&quot;Rank&quot;)
	end if
	getRank=tmp
	set rs = nothing
	set CnC=nothing
end function
'********************************************************************
function getLeague(LID)
	dim Cnsc, Rs, qry, tmp
	Set Cnsc = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Cnsc.Open application(&quot;SFC_ConnectionString&quot;)
	tmp=&quot;&quot;
	if LID&lt;&gt;&quot;&quot; and LID&lt;&gt;&quot;0&quot; then
		qry=&quot;select Name from League where LeagueID=&quot;&amp;LID
		set rs= Cnsc.Execute(qry)
		tmp = rs(&quot;Name&quot;)
	end if
	getLeague=tmp
	set rs = nothing
	set Cssc = nothing
end function
'********************************************************************
sub Email(Vfrom,Vto,Vsubj,Vtitle,Vbody, vresponse)
				'Response.Write(&quot;&lt;p&gt;&quot;&amp; Vfrom&amp;&quot; &lt;/p&gt;&lt;p&gt;&quot;&amp;vTo &amp;&quot;&lt;/p&gt;&lt;p&gt; &quot;&amp;Vtitle &amp;&quot;&lt;/p&gt;&lt;p&gt; &quot;&amp;Vbody&amp;&quot;&lt;/p&gt;&quot;)
				  Dim MyCDONTSMail2
                  Dim HTML
                  Set MyCDONTSMail2 = CreateObject(&quot;CDONTS.NewMail&quot;)
                  HTML = &quot;&lt;!DOCTYPE HTML PUBLIC&quot;&quot;-//IETF//DTD HTML//EN&quot;&quot;&gt;&quot;
                  HTML = HTML &amp; &quot;&lt;html&gt;&quot;
                  HTML = HTML &amp; &quot;&lt;head&gt;&quot; 
                  HTML = HTML &amp; &quot;&lt;title&gt;&quot; &amp; Vtitle &amp; &quot;&lt;/title&gt;&quot;
                  HTML = HTML &amp; &quot;&lt;/head&gt;&quot;
                  HTML = HTML &amp; Vbody 
                  HTML = HTML &amp; &quot;&lt;/html&gt;&quot;
                  MyCDONTSMail2.From= Vfrom
                  'MyCDONTSMail2.CC=Vfrom
                  MyCDONTSMail2.To=Vto
                  MyCDONTSMail2.Subject= Vsubj
                  MyCDONTSMail2.BodyFormat=0
                  MyCDONTSMail2.MailFormat=0
                  MyCDONTSMail2.Body=HTML
                  MyCDONTSMail2.Send
                  set MyCDONTSMail2=nothing
                  Response.Write(vresponse)
End sub
function getplayers()
				dim cn, rs, temp, qry
				set rs = Server.CreateObject(&quot;ADODB.recordset&quot;)
				Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
				Cn.Open &quot;MREG&quot;
				qry = &quot;select  LoginName,signinTime, SessionID from logins&quot;
				set rs=Cn.Execute(qry)
				if not rs.eof then
					rs.MoveFirst 
					do while not rs.EOF 
						temp=temp &amp; rs(&quot;LoginName&quot;)&amp;&quot; since &quot;&amp; rs(&quot;signinTime&quot;) &amp;&quot;&lt;br&gt;&quot;
						rs.MoveNext 
					loop
				end if
				Cn.Close
				set rs = nothing
				set Cn=nothing
	getplayers=&quot;&lt;br&gt;&lt;font size=1&gt;&quot;&amp;temp&amp;&quot;&lt;/font&gt;&quot;
end function
%&gt;
</TEXTAREA>
</TD></TR></TABLE>

<BR><BR>
<INPUT TYPE="TEXT" SIZE=48 MAXLENGTH=255 NAME="PATHNAME" VALUE="f:\inetpub\wwwreg2\includes\functions.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 "FUNCTIONS.ASP"? </B></FONT>
<INPUT TYPE="CHECKBOX" NAME="DELETEOK">
<INPUT TYPE="SUBMIT" NAME="POSTACTION" VALUE="DELETE">
</FORM>
<!-- ---------------------------------------------------------- -->
<!-- end filelist.asp -->
</table>