Ajax con ASP

[darkmcloud]

SelecUsuarios.asp

Código ASP:

<%@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"))
 
IF Len(usuario) >= 2 then
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
 
' ========= 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 ===========
%>
 

Tuve que hacerlo en 2 post puesto que el foro reclamaba por texto muy largo...jejejee

Aps... cambie un poco la consulta en SelecUsuarios.asp...pero funciona bien solo es para hacer una consulta de más campos a futuro...jejejeje

Esop.... nuevamente graxxx