Código:
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)
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
Revise el codigo de arriba a abajo y no le puedo encontrar el error
, me tira el siguiente error:
Código:
Donde la linea 121 es la linea del segundo if, el que tiene la funcion like.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
Me estoy volviendo loco con este codigo.!!!
Si me pueden ayudar se los agradecere mucho.!!Andres.

