Formatar Texto com Primeira Maiuscula

Esse codigo possibilita que voce formate frase para que todas as palavras fiquem com a primeira letra maiuscula.

Ex:

Resultado:
Hneemias Souza Barbosa

<%

Function Formata(frase)
	Temp = Split(frase," ")
	For i = LBound(Temp) to UBound(Temp)
		FraseTemp = FraseTemp &" "& UCase(Left(Temp(i),1))&mid(Temp(i),2)
	Next
	Formata = FraseTemp
End Function

'Exemplo de Chamada da Função
Response.Write Formata("hneemias souza barbosa")

%>

Tags:

• ASP,
• String,
• Strings