Önce bir seçim kutusu (select box) oluşturup:

<select  name="kat">
<option value="1">1. Kategori<option>
<option value="2">2. Kategori</option>
...
</select>

Sonra mevcut asp sorguna eklenti olarak:

<%
kat=request.form("kat")
aranan=trim(request.form("aranan"))
select * from tblAdi where SutunAdi like '%"&aranan&"%' and kategori="&kat&" order by ID desc"
%>

şeklinde yapılabilir.