Problema con ASP y Ajax

[darkmcloud]

Y este es el que extrae los valores de la base de datos:

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
usuario = CStr(Request.QueryString("q"))
 
 
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 DISTINCT ARTEFACTO FROM TBLCLIENTE where artefacto LIKE '"&usuario&"%' ORDER BY ARTEFACTO"
set rs = Cnn.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
Cnn.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 ===========
%>
 

Eso....de antemano muchas gracias