<%

FUNCTION formatphone(phonenumber)
	If IsNumeric(phonenumber) Then
		formatphone = "(" & left(phonenumber,3) & ") " & Mid(phonenumber,4,3) & "-" & Right(phonenumber,4)
	Else
		formatphone= "(&nbsp;&nbsp;&nbsp;)&nbsp;&nbsp;&nbsp;&nbsp;-&nbsp;&nbsp;&nbsp;&nbsp;"
	End If
END FUNCTION

FUNCTION statename(abbr)
	
	abbr=UCase(abbr)
	
	SELECT CASE abbr
		Case "AL":
			statename="Alabama"
		Case "AK":
			statename="Alaska"
		Case "AZ":
			statename="Arizona"
		Case "AR":
			statename="Arkansas"
		Case "CA":
			statename="California"
		Case "CO":
			statename="Colorado"
		Case "CT":
			statename="Connecticut"
		Case "DE":
			statename="Delaware"
		Case "DC":
			statename="District Of Columbia"
		Case "FL":
			statename="Florida"
		Case "GA":
			statename="Georgia"
		Case "HI":
			statename="Hawaii"
		Case "ID":
			statename="Idaho"
		Case "IL":
			statename="Illinois"
		Case "IN":
			statename="Indiana"
		Case "IA":
			statename="Iowa"
		Case "KS":
			statename="Kansas"
		Case "KY":
			statename="Kentucky"
		Case "LA":
			statename="Louisiana"
		Case "ME":
			statename="Maine"
		Case "MD":
			statename="Maryland"
		Case "MA":
			statename="Massachusetts"
		Case "MI":
			statename="Michigan"
		Case "MN":
			statename="Minnesota"
		Case "MS":
			statename="Mississippi"
		Case "MO":
			statename="Missouri"
		Case "MT":
			statename="Montana"
		Case "NE":
			statename="Nebraska"
		Case "NV":
			statename="Nevada"
		Case "NH":
			statename="New Hampshire"
		Case "NJ":
			statename="New Jersey"
		Case "NM":
			statename="New Mexico"
		Case "NY":
			statename="New York"
		Case "NC":
			statename="North Carolina"
		Case "ND":
			statename="North Dakota"
		Case "OH":
			statename="Ohio"
		Case "OK":
			statename="Oklahoma"
		Case "OR":
			statename="Oregon"
		Case "PA":
			statename="Pennsylvania"
		Case "PR":
			statename="Puerto Rico"
		Case "RI":
			statename="Rhode Island"
		Case "SC":
			statename="South Carolina"
		Case "SD":
			statename="South Dakota"
		Case "TN":
			statename="Tennessee"
		Case "TX":
			statename="Texas"
		Case "UT":
			statename="Utah"
		Case "VT":
			statename="Vermont"
		Case "VA":
			statename="Virginia"
		Case "WA":
			statename="Washington"
		Case "WV":
			statename="West Virginia"
		Case "WI":
			statename="Wisconsin"
		Case "WY":
			statename="Wyoming"
		Case Else
			statename="notastate"
	END SELECT

END FUNCTION


FUNCTION StringToDate(theDate, theSection)
	
	IF IsDate(theDate) THEN
	
		theDate = CDate(theDate)
	
		IF (theSection = "Month") THEN
			StringToDate = Month(theDate)
		ELSEIF (theSection = "Day") THEN
			StringToDate = Day(theDate)
		ELSEIF (theSection = "Year") THEN
			StringToDate = Year(theDate)
		ELSE 
			StringToDate = ""
		END IF
	ELSE
		StringToDate = ""
	END IF
		
END FUNCTION


FUNCTION CleanUpString(theString)
	CleanUpString= Replace(theString,"'", "`")
END FUNCTION

FUNCTION ColorSwitch(bgColor)
		If bgColor = tablebgcolor2 then
			ColorSwitch = tablebgcolor1
		else
			ColorSwitch = tablebgcolor2
		end if
END FUNCTION

FUNCTION CheckboxValue(x)
		If x= "" then
			CheckboxValue=0
		else
			CheckboxValue=1
		end if
END FUNCTION

FUNCTION NumberField(x)
		If x= "" then
			NumberField=0
		else
			NumberField=Replace(x,"$","")
		end if
END FUNCTION

%>