Ajax con ASP

[Adler]

Hola

Veamos si es esto a lo que te refieres

Despliega: function () {
var obj = document.getElementById("contenedor");
var obj2 = document.getElementById("fam");

if (ajax.readyState==1 || ajax.readyState==2 || ajax.readyState==3) {
obj.innerHTML = "<p align='center'><img src='../images/cargando.gif' border='0px' widht='15px' height='15px'/></p>";
obj.style.display= "block";
}

else if (ajax.readyState==4) {
if (ajax.status==200) {

var division = unescape(ajax.responseText);
obj.innerHTML = division.split("-")[0];
obj2.innerHTML = division.spit("-")[1];

}else {
obj.innerHTML = "<p>Se ha producido un error</p>";
}

if (obj.style.display == "none") obj.style.display= "block";
}
},


<form method="post" action="">
Nombre Usuario: <input name="txt" type="text" id="txt" tabindex="1" value="" size="40" autocomplete="off" />
<div class="vink" style="margin:5px 0px 0px 10px">
<div id="contenedor" class="capa" style="display:none;"></div></div>
Filtrar: <select id="stock" name="stock">
<option selected>Solo con Stock</option>
<option>Sin Stock</option>
</select><br>

<div class="vink" style="margin:5px 0px 0px 10px">
<div id="campo" class="capa" style="display:none;"></div></div>

Familia: <input type="text" name="fam" id="fam" /><br />

<input type="submit" value="Enviar">
</form>

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 descripcion, familia FROM Producto WHERE descripcion LIKE ' "&usuario&"% ' and stock >0 ORDER BY Descrip asc"
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

Response.Write "-" & familia

Suerte