Y este es el que realiza la consulta a la bd:
SelecUsuarios.asp:
Código ASP:
Ver original<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%' Option Explicit %>
<% Response.Buffer=True %>
<% On Error Resume Next %>
<%Response.charset="utf-8"%>
<%
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = -1000
%>
<%
Dim SQL, rs, oConn, registros, i
Dim usuario
Dim nombre
nombre = 0
Dim familia
familia = ""
usuario = CStr(Request.QueryString("q"))
combox = CStr(Request.QueryString("variable"))
'response.write ("'"&combox&"'")
IF Len(usuario) >= 2 then
' CONEXIÓN
set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject ("ADODB.Recordset")
Cnn.Open Session("cnx")
SQL="select descrip, familia from producto inner join familias on codi_fami = codi_familia "
se_encuentra = False
if combox = "constock" then
if se_encuentra then
SQL=SQL & " AND stock > 0"
else
SQL=SQL & "WHERE stock > 0"
se_encuentra=True
end if
end if
if combox = "sinstock" then
if se_encuentra then
SQL=SQL & " AND stock = 0"
else
SQL=SQL & "WHERE stock = 0"
se_encuentra=True
end if
end if
if usuario <> "" then
if se_encuentra then
SQL=SQL & " AND descrip LIKE '"&usuario&"%'"
else
SQL=SQL & " WHERE descrip LIKE '"&usuario&"%'"
se_encuentra=True
end if
end if
set rs = Cnn.Execute(SQL)
If not rs.eof then
registros = rs.getrows()
familia = rs.Fields("familia")
Else
Response.Write "<p class=""deseleccionado""><strong>Sin resultados</strong></p>"
Response.End ()
End If
rs.Close
set rs = nothing
Cnn.Close
set Cnn = nothing
END IF
For i = 0 to Ubound(registros,2)
If i = 0 then
Response.Write "<div id="""& registros(nombre,i) &""" class=""seleccionado"">"& ResaltarSubStr(registros(nombre,i)) & "</div>"
Else
Response.Write "<div id="""& registros(nombre,i) &""" class="""">" & ResaltarSubStr(registros(nombre,i)) & "</div>"
End If
Next
Response.Write "-" & familia
' ========= Funciones ===========
Function ResaltarSubStr(texto)
Dim objRegExp
Set objRegExp= New RegExp
objRegExp.IgnoreCase = True
'objRegExp.Global = True
objRegExp.Pattern = "\b("&usuario&")+(\w)"
texto = objRegExp.Replace(texto, "<strong>$1</strong>$2")
Set objRegExp = Nothing
ResaltarSubStr = texto
End Function
' ========= Fin Funciones ===========
%>
Eso seria.....
De antemano muchas gracias.
Hasta pronto