autocompletar con asp+ajax+mysql

[Adler]

Hola

Estaba de coña. Pero bueno

Código ASP:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<%Response.charset="utf-8"%>
<%
Dim SQL, rs, oConn, registros, i
Dim usuario
Dim nombre
nombre = 0
usuario = CStr(Request.QueryString("q"))
 
 
IF Len(usuario) >= 2 then
'Conexión a bd
SQL="Select nombre FROM Usuarios WHERE nombre LIKE '"&usuario&"%' ORDER BY nombre asc"
set rs = oConn.Execute(SQL)
If not rs.eof then
registros = rs.getrows()
Else 
Response.Write "<p class=""deseleccionado""><strong>Sin resultados</strong></p>"
Response.End ()
End If
rs.Close
set rs = nothing
oConn.Close
set oConn = 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 ===========
%>
 

Suerte