Function Capital(S)
ReDim c(Len(S))
i = 1
Do Until i = Len(S) + 1
c(i) = Mid(S, i, 1)
i = i + 1
Loop
c(1) = UCase(c(1))
j = 2
Do Until j = UBound(c) + 1
b = b & c(j)
j = j + 1
Loop
Capital = c(1) & b
End Function
Response.Write Capital("easy")
"Evertjan." <> wrote in message
news:Xns93B5D11FA4E61eejj99@194.109.133.29...
> Mike wrote on 11 jul 2003 in microsoft.public.inetserver.asp.general:
>
> > FName = UCASE(Left(FName,1)) & LCASE(RIGHT(FName, Len
> > (FName)-1))
>
>
> FName = Ucase(Left(FName,1)) & Lcase(Mid(FName,2))
>
>
> --
> Evertjan.
> The Netherlands.
> (Please change the x'es to dots in my emailaddress)