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


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.!!!


Andres.