ASP - pasar un caracter a mayuscula

Hola tengo la siguiente situacion, en un formulario tengo un text en el cual el usuario tipea su apellido, lo que quiero es poner en mayuscula la primera letra
Ej: apellido = AlgunaFuncion (Request.QueyrString("apellido"))
entonces la variable apellido contiene "Perez"
gracias
Juampi

Te paso una funcioncita que te puede solucionar las cosas.. ;)

'*******************************************************************************
'*NOMBRE FUNCION: Convertir_May(Var_A_Mod)
'*FECHA CREACION: 04/07/00
'*ACTUALIZACION:
'*NOTAS: Convierte cualquier texto a:
'* 1º letra en mayuscula y el resto en minuscula
'* 2º si es una sigla, la deja en mayuscula
'*******************************************************************************Function Convertir_May(Var_A_Mod)
Dim I
If Trim(Var_A_Mod) <> "" Then
Var_A_Mod = Trim(UCase(Left(Var_A_Mod, 1)) + LCase(Right(Var_A_Mod, Len(Var_A_Mod) - 1)))
For I = 1 To Len(Trim(Var_A_Mod))
If (Mid(Var_A_Mod, I, 1) = " " Or Mid(Var_A_Mod, I, 1) = "'" Or Mid(Var_A_Mod, I, 1) = ".") And I <> Len(Trim(Var_A_Mod)) Then
If UCase(Mid(Var_A_Mod, I + 1, 1)) <> "Y" And UCase(Mid(Var_A_Mod, I, 1)) <> "E+1" And UCase(Mid(Var_A_Mod, I + 2, 1)) <> " " Then
Var_A_Mod = Left(Var_A_Mod, I) + UCase(Mid(Var_A_Mod, I + 1, 1)) + Right(Var_A_Mod, Len(Var_A_Mod) - I - 1)
End If
End If
Next
End If
Convertir_May = Var_A_Mod
End Function
'*******************************************************************************

Saludos mortales...

The Great Avatar
May the 8th Virtudes be with you
-------------------------------------
[email protected] %