function MakeCaseUpperLower(strtext)
'Response.Write strtext
'Response.end
dim splitarray
dim combinearray
MakeCaseUpperLower =""

splitarray = split(strtext," ")
icount = ubound(splitarray)
redim combinearray(icount)

for i = 0 to icount
combinearray(i) = Ulcase(splitarray(i))
MakeCaseUpperLower = MakeCaseUpperLower & " " & combinearray(i)
next
MakeCaseUpperLower = trim(MakeCaseUpperLower)
End function

function Ulcase(strtext)
Ulcase = ""
strSelected = strtext
strNewUCase = ""
strNewLCase = ""

strNewUCase = UCase(strSelected)
strNewLCase = LCase(strSelected)
'Response.Write strNewUCase & "<BR>" & strNewLCase
'Response.end
on error resume next
if Left(strSelected,1) = "(" and len(strSelected) > 1 then
 if Left(strSelected,2) = " " then
  Ulcase = "(" & mid(strNewUCase,3,1) + Right(strNewLCase, Len(strNewLCase)-3)
 else
  Ulcase = "(" & mid(strNewUCase,2,1) + Right(strNewLCase, Len(strNewLCase)-2)
 end if
else
 Ulcase = Left(strNewUCase,1) + Right(strNewLCase, Len(strNewLCase)-1)
end if
end function