problemas con buscador interno

[ken-obi]

wenas a todos tengo un buscador interno en mi web pero no me funciona como yo quero me explico:

el formulario te da 4 opciónes de busqueda: 1 Noticias, 2 Articulos, 3 Actividades, 4 Todos:

pero el ejemplo que yo tengo no me funciona, aqui lo pego:

formulario.asp
<form method="GET" action="resultados.asp">
<input name="texto" type="text">
<select name="cate" id="cate">
<option value="1" selected>Cualquiera</option>
<option value="2">Noticias</option>
<option value="3">Actividades</option>
<option value="4">Articulos</option>
</select>

resultado.asp
Dim subi

cate = request.querystring("cate")

if cate="1" then
subi= "SELECT * FROM noticias UNION SELECT * FROM articulos UNION SELECT * FROM actividades"
elseif cate="2" then
subi="SELECT * FROM not"
elseif cate="3" then
subi="SELECT * FROM actividades"
elseif cate="4" then
subi="SELECT * FROM articulos"
end if
strsql = subi& "where UCase(tit) like '%" & UCase(Request("tit")) & "%' AND UCase(artic) like '%" & UCase(Request("artic")) & "%' AND UCase(tex) like '%" & UCase(Request("tex")) & "%' order by "& orden & " "&alf

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("noticias.mdb")

' creo el RecordSet y defino la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar

' Abro la tabla...
RS.Open strSQL, oConn,3,1