Como novato, ayúdame a modificar el código que limita la cantidad de caracteres en el cuadro de entrada ASP. Gracias.
<%
hycxxt=trim(request("hycxxt"))
si hycxxt<>"" entonces
si len (hycxxt)<8 then
mess="¡Ingrese el número de tarjeta de membresía correctamente!"
else
ishycxxt=1
si len (hycxxt)>8 entonces
para i=1 a 8
if instr("0123456789",cstr(mid(cstr(hycxxt),i,1))) <1 entonces
ishycxxt=0
finalizar si
siguiente
más
ishycxxt=0
finaliza si
si ishycxxt=1 entonces
rs.open " select * from hyxx donde hykh='"& hycxxt &"'",conn,1, 1
si rs.bof o rs.eof entonces
mess="¡No hay información de miembro que quieras verificar!"
else
mier_hycxxt =hycxxt
mier_hyxm=rs("hyxm")
mier_hyjf=rs("hyjf")
mier_hyjb=rs("kmc" )
end if
rs.close
else
if right(hycxxt,1)="provincia" o right(hycxxt ,1)= "Ciudad" o right(hycxxt,1)="Condado" o right(hycxxt,1)="Distrito" entonces
hycxxt=left(hycxxt,len(hycxxt)-1)
end if
rs.open " select * from hyxx donde PROVINCE = '"& hycxxt &"'",conn,1,1
if rs .bof o rs .eof entonces
rs.close
rs.open " seleccione * de hyxx donde hyxm = '"& hycxxt &"' ",conn,1,1
si rs.bof o rs.eof entonces
mess="¡No se encontró el miembro que buscas! "
else
mier_hycxxt=rs("hykh")
mier_hyxm=rs("hyxm")
mier_hyjf=rs( "hyjf")
mier_hyjb=rs("kmc")
finaliza si
rs.close
else
hacer
si rs.bof o rs.eof entonces
p>
salir de hacer
else
si hycxxt<>rs("PROVINCE") entonces
salir de hacer
terminar if
mier_hyxm=mier_hyxm&rs("hyxm")&" "&rs("hykh")&"
"
rs.movext
end if
bucle
rs.close
finalizar si
finalizar si
finalizar si
finalizar si
%>