MMMhhhh..
tendrias que hacer un ciclo que fuera leyendo caracter a caracter
mira yo utilizo esta funcion:
sub ExtraeDatos(Variable)
'ciclo que extrae los datos y los valida
for i=1 to len(Variable)
if mid(Variable,i,1)>48 and mid(Variable,i,1)<57
' esta dentro el rango numerico
' guardo los datos
else
' escribio un caracter no valido
' aqui puedes colocar un response.redirect un mensaje de error
end if
next
end sub
Aunque lo ideal seria validar en el cliente
espero que te sirva. saludos
<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/elaprendiz.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-business--"></center>