Formata Nome Completo

<%
'---------------------------------
' Função: Formata Nome Completo
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Data de Criação: 26/07/2003
'---------------------------------
Function FormataNome(Nome)
 aNome = Split(Nome)
 For i = LBound(aNome) To UBound(aNome)
  If Len(aNome(i)) > 0 Then
   nNome = nNome & " " & UCase(Mid(aNome(i),1,1)) & _
    LCase(Mid(aNome(i),2))
  End If
 Next
 FormataNome = Trim(nNome)
End Function
%>
<%= FormataNome("   aCtIvE    sErVeR     pAgEs    ")%>

Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...