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") %>