autocompletador...

[bellacord2]

Estoy tratando de hacer que este autocompletador trabaje, pero no me carga ningun dato...donde esta mi errorr?

[CODE]$(function () {
$("#auto").autocomplete({
source: function (request, response) {
$.ajax({
url: "../../herramientas/ajax.asp?id="+strTipo+"&desc=";
data: "{ 'strTipo': '" + request.term + "' }",
dataType: "json",
type: "POST",
contentType: "application/json; charset=utf-8",
dataFilter: function (data) { return data; },

success: function (data) {
response($.map(data.d, function (item) {
return {
label: item.txtDescripcion, //label: item.name + (item.adminName1 ? ", " + item.adminName1 : "") + ", " + item.countryName,
value: item.txtCodigo // value: item.name
}

}))
},

error: function (XMLHttpRequest, textStatus, errorThrown) {
alert(errorThrown);
}

});

},

minLength: 1
});
[CODE]


Este es el archivo ajax.asp

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!-- #include file="../asp/logon.asp" -->
<%
	Dim Resultados
	Dim Registro
	Dim Empresa
	Dim strBuffer
	Dim strDonde
	Dim strPrefijo 
	Dim strTabla
	Dim strClaveTexto 
	
	strDonde=""
	strTabla=""
	strClaveTexto="0"
	
	Set Empresa = gVisita.Usuarios.Usuario(Session("Usr")).Empresas.Empresa(Session("CodEmpresa"))
	
	Select case Request("id")
		case "1"
			strPrefijo="CTA"
			strTabla="CON_CUENTAS"
			strClaveTexto="0"
		case "2"
			strPrefijo="CLS"
			strTabla="CTT_ENTIDADES_GRUPOS_CLASIFICACIONES"
			strClaveTexto="0"
		case "3"
			strPrefijo="CCS"
			strTabla="CON_CENTROS_DE_COSTOS"
			strClaveTexto="0"
		case "4"
			strPrefijo="TCC"
			strTabla="CTT_TIPO_CENTROS_DE_COSTOS"
			strClaveTexto="0"
		case "5"
			strPrefijo="TPO"
			strTabla="BAS_ENTRADAS_DIARIO_TIPOS"
			strClaveTexto="0"
	end select

	if strTabla <> "" and Request("desc") <> "" then
		strBuffer="<div>"
		Empresa.TablaGenerica = strPrefijo & ";" & strTabla & ";" & strClaveTexto
		''strDonde = strPrefijo & "_CODIGO like '%" & Request("desc") & "%'" 	
		strDonde = strPrefijo & "_DESCRIPCION like '%" & Request("desc") & "%'" 	
		
		Set Resultados = Empresa.BasListarTabla(strDonde)
	
		for each Registro in Resultados
		strBuffer = strBuffer &Registro.Codigo &":"& strBuffer &Registro.Descripcion & "<br>"
			''strBuffer = strBuffer & Registro.Descripcion & "<br>"
		next
		strBuffer = strBuffer
		Response.Write(strBuffer) &"</div>"
	end if

%>

Agradeceria de antemano su cordial ayuda...