05/08/2005, 06:28
|
| | | Fecha de Ingreso: junio-2005
Mensajes: 9
Antigüedad: 19 años, 11 meses Puntos: 0 | |
| "ColorCab" es el id de la caja de texto.
Compruebo que los caracteres sean numeros o letras mayusculas preguntando por sus intervalos en código ASCII.
dim i
dim valor
dim ok
valor = Trim(Request.Form("ColorCab"))
for i=1 to len(valor)
if (mid(valor,i,1)>=chr(48) and mid(valor,i,1)<=chr(57)) or (mid(valor,i,1)>=chr
(65) and mid(valor,i,1)<=chr(90)) then
ok = true
else
ok = false
variable_error="Los caracteres en Color de Cabecera deben ser numeros o
letras mayusculas."
i = len(valor)
end if
next
Saludos. |