Ho un problema con un filtro che funziona ad 1/3 delle mie aspettative.

Situazione:
ho creato una pagina contente un form composto da una select e da un campo testo che inviando si carica una pagina che riassume il filtro con i parametri precedenti.

Questo č il codice nella pagina che riassume i risultati:
codice:
<%
      Dim sc, cn, rs, id, sql 
    sc = ""
    sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
    sc = sc & Server.MapPath("../mdb-database/articoli_web.mdb")
    Set cn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    cn.Open sc
	id = Request.form("idcateg")
	Sql="SELECT * FROM q_iniziale WHERE id_cat LIKE " + id
	Response.Flush
	rs.Open Sql, cn
%>
pił sotto, per i risultati:

codice:
<%=Rs("articolo")%></p>
       <%
rs.movenext
%>
Il problema sono due:
- non so impostare il secondo paramentro che č anche lui un like riferito al nome dell'articolo
- non mi restituisce tutti i risultati, ne lascia uno solo.

Come posso fare?
grazie per l'aiuto
Davide