Função que deixa a primeira letra Maiúscula

[HiTech-SP 0]

Preciso de uma função que deixa a primeira letra de cada palavra em maiúsculo.Exemplo:SAO PAULO FUTEBOL CLUBEficará:Sao Paulo Futebol Clubeestou usando esa funçao:Function InicialCap(texto) Dim strTmp, strF, cont if texto<>"" then strTmp = SPLIT(texto, " ") For cont = 0 To UBOUND(strTmp) strF = strF & UCASE(LEFT(strTmp(cont), 1)) & _ LCASE(RIGHT(strTmp(cont), LEN(strTmp(cont))-1)) & " " <<<<<LINHA QUE DÁ ERRO Next : InicialCap = LEFT(strF, LEN(strF)-1) end ifEnd FunctionQuando o campo de um bd é: "Rua Xcs Mbdsd,299 apto 125"Dá o seguinte erro:Erro de tempo de execução do Microsoft VBScript erro '800a0005' Chamada de procedimento ou argumento inválido: 'RIGHT' /cjbj/web/adminx/login/dsp_imprimir_etiquetas.asp, line 8 Alguem poderia me ajudar ??Obrigado pela atençãoHiTech-SPOps..Percebi que o erro é pq tem 2 espaços juntos, alguem teria alguma função para remover 2 ou mais espaços juntos ??

[HiTech-SP 0]

que idiota que eu sou..é só usar:texto=replace(texto," "," ")malz galera...Falow AE

[WebASP 0]

Function Cap(strTexto)

IF strTexto = "" THEN Exit Function

Cap = UCase(Mid(strTexto,1,1)) & LCase(Mid(strTexto,2,Len(strTexto)-1))

End Function

 

Function Cap2(strTexto)

IF strTexto = "" THEN Exit Function

strTexto = Trim(strTexto)

IF inStr(strTexto," ") = 0 THEN

Cap2 = Cap(strTexto)

ELSE

arrTexto = Split(strTexto," ")

For x = 0 To UBound(arrTexto)

Cap2 = Cap2 & Cap(arrTexto(x))& " "

Next

END IF

Cap2 = Trim(Cap2)

End Function

 

 

A capa so a inicial a Cap2 e todas as inicial da frase

 

 

 

marcelo dos santos

 

 

Cap ficaria

Marcelo dos santos

 

 

Cap2 ficaria

Marcelo Dos Santos