16/03/2006, 15:49
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
podrías hacer algo así:
Código:
<%
function letrasynumeros(cadena)
letrasynumeros = true
carPermitidos = "0123456789abcdefghijklmnñopqrstuvwxyz"
for i = 1 to len(cadena)
carActual = mid(cadena,i,1)
if InStr(LCase(carPermitidos), Lcase(carActual)) = 0 then
letrasynumeros = false
exit for
end if
next
end function
if not letrasynumeros("5*6AbB") then response.write "¿qué parte de <em>sólo letras y números</em> no has entendido?"
%>
__________________
...___... |