autocompletar con asp+ajax+mysql

[lexus]

Hola todos

alguien tiene idea de donde bajar un ejemplo o saben como hacer
un autocompletar o un autosuggest con asp + ajax + mysql

para que cuando vaya escribiendo en un formulario de busqueda el me vaya completando la palabra segun los datos de mi base de datos?

he encontrado mucho pero en php
en asp casi no veo ejemplos
para darme una guia.

[Myakire]

Pero para el auto suggest no importa el lenguaje del servidor, lo interesante de eso es solo el código javascript y manejo de CSS, la parte de acceso a la BD que manejen con PHP pues tradúcela a ASP

[Adler]

Hola

A lo que se refiere @Myakire. El PHP es lo de menos, pero si te resulta muy complicado traducirlo a ASP, te lo paso

Suerte

[lexus]

si me lo puedes facilitar en asp te lo agradeceria

[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