Primeira Letra Maiúscula

[kuroi]

use essa funcao:

<% Function PrimLetraMaiusc(v)
    Dim var, i, r
    
    r = ""
    
    var = Split(v, " ")
    For i = LBound(var) To UBound(var)
        r = r & UCase(Left(var(i), 1)) & LCase(Mid(var(i), 2)) 
    If i <> UBound(var) Then r = r & " "
    Next
    PrimLetraMaiusc = r
End Function %>[/code]


se você chamar assim:
[code]<% = PrimLetraMaiusc("kURoI kuroi KUROI") %>

o resultado sera:

Kuroi Kuroi Kuroi

EDITADO: aiaiai descobri aqui q já tem uma funcao q faz isso ahhahaah é a StrConv (q serve pra otras coisas tb). a sintaxe é essa:

<% = StrConv("kURoI kuroi KUROI", 3) %>

Editado Agosto 26, 2008 por kuroi