Estoy trabajando en una página en la cual necesito validar un campo de busqueda, y para ello utilizo el siguiente codigo:
Código:
tamano = len(busqueda)
if tamano < 11 then
comparar = left("####.##.##",tamano)
if Cstr(busqueda) like comparar then
informe = "<b>La posición no se encuentra en la base de datos</b>"
Else
informe = "<b>La busqueda ingresada no corresponde a un codigo valido</b>"
end if
else
informe = "<b>La busqueda ingresada no corresponde a un codigo valido</b>"
end if
Siendo "busqueda" el valor de la cadena a buscar que va a tener la forma ####.##.## (p.e: 1234.56.789 o tambien cualquier subcadena que conicida con el patron (P.e. 1234.5, 12, 56, etc)
Revise el codigo de arriba a abajo y no le puedo encontrar el error
, me tira el siguiente error:
Código:
Error de Microsoft VBScript en tiempo de ejecución error '800a0023'
No se ha definido Sub o Function
/EYF_ABA_COC_EP_PUB/comex/codigos/codes.asp, line 121
Donde la linea 121 es la linea del segundo if, el que tiene la funcion like.
Me estoy volviendo loco con este codigo.!!!
Si me pueden ayudar se los agradecere mucho.!!
Andres.