'Converting text to title case ASP function
Function TitleCase(sText)
	iLen=Len(sText)
	For a=1 to iLen
		If a<>1 then	'just to make sure 1st character is upper and the rest lower
			If bSpace=True then
				tmpX=UCase(mid(sText,a,1))
				bSpace=False
			Else
	  		tmpX=LCase(mid(sText,a,1))
				If tmpX=" " Or tmpX="'" then bSpace=True
			End if
		Else
			tmpX=UCase(mid(sText,a,1))
		End if
		tmpFull=tmpFull & tmpX
	Next
	TitleCase=tmpFull
End Function