problema con recordset, help please

[valeriadm]

este script lo encontre en la faq´s , lo que hace es poder filtrar los item de un menu de lista dependiendo de lo que se haya colocado en una caja de texto.
el problema que al hacer que el menu de lista se llene de una db solo me muestra el ultimo registro, y como no se mucho de javascript no se como seguir modificandolo en realidad espero que esta pregunta este a corde a este foro ya que involucra javascript y asp, gracias al quien me pueda ayudar.

<script language="JavaScript">
<%
sql = "SELECT * FROM Tabla2 "
set con=server.createobject("adodb.connection")
con.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db2.mdb")
set rs=server.createobject("adodb.recordset")
rs.open sql, con

%>
var i;

function addOpt(oCntrl, sTxt, sVal, sCnd){
if (sTxt.substr(0, sCnd.length).toUpperCase() == sCnd.toUpperCase()){
var selOpcion=new Option(sTxt, sVal);
eval(oCntrl.options[i++]=selOpcion);
}
}
<%
Do While Not rs.EOF
%>
function cambia(oCntrl){
var txtVal = document.frm.txt.value;
while(oCntrl.length > 0) oCntrl.options[0]=null;
i = 0;
oCntrl.clear;
addOpt(oCntrl, "<%=rs("subcatagory")%>", "0", txtVal);
}
<%
rs.movenext
Loop
rs.close
set rs=nothing
con.close
set con=nothing
%>
</script>