250807.



Un simple código que utiliza las funciones LCase() y UCase() para cambiar una cadena de caracteres a letras minúsculas o mayúsculas respectivamente. Aqui he creado un formulario con dos Radio Buttons, para que vean como funciona el script.

Mayúsculas
Minúsculas

Ahora el código del ejemplo completo, desde el formulario de entrada hasta el proceso de la cadena:

<FORM METHOD="post" ACTION="misma_pagina.asp">
<TABLE ALIGN="center">
<TR>
<TD><INPUT NAME="cadena"></TD>
<TD><INPUT TYPE="Radio" NAME="letra" VALUE="may"> Mayúsculas<BR>
<INPUT TYPE="Radio" NAME="letra" VALUE="min"> Minúsculas<BR></TD>
</TR>
<TR><TD COLSPAN="2" ALIGN="center"><INPUT TYPE="Submit" VALUE="Cambiar"></TD></TR>
</TABLE>
</FORM>
<%
'Declaro las variables.
dim cadena, cambiar
'Me fijo si el formulario fue completado.
If Request.Form <> "" then
'Leo la informacion que se ingreso.
cadena = Trim(Request.Form("cadena"))
'Guardo en la variable cambiar, la informacion sobre el boton seleccionado.
cambiar = Request.Form("letra")
'Me fijo cual de los dos botones.
If cambiar = "may" then
'Muestro el resultado aplicando la funcion correspondiente.
Response.Write "Seleccionaste cambiar la cadena ingreasada a mayúsculas. Tu cadena quedó asi: <B>"&UCase(cadena)&"</B><BR>"
ElseIf cambiar = "min" then
Response.Write "Seleccionaste cambiar la cadena ingreasada a minúsulas. Tu cadena quedó asi: <B>"&LCase(cadena)&"</B><BR>"
End If
End If
%>