Problema con LCase()

[OcchioCrepato]

Passa il valore reperito dal db direttamente alla funzione

function Up(valore)
	strRet=""
	arr=Split(valore," ")
	for i=0 to ubound(arr)
		str=arr(i)
		str=UCase(left(str,1)) & LCase (Mid (str,2))
		strRet=strRet & str & " "
	next
	Up=Trim(strRet)
end function

Response.Write  Up("MARIO ROSSI") & "
"
Response.Write  Up("PAOLO DI PAOLO") & "
"

ciao