/ Published in: ASP
Expand |
Embed | Plain Text
function firstUpper(text) firstUpper = text if text = "" then exit function largo = len(text) rightxt = right(text,largo-1) leftxt = ucase(left(text,1)) completo = leftxt&rightxt firstUpper = completo end function
You need to login to post a comment.
