Ayuda con buscador en Base Datos Access y Asp

[el cirujano]

he utilizado este código para crear una busqueda en asp, ahora el detalle que tengo es que me busca si especificar, ejemplo:

tengo una tabla llamada empresas
en la cual hay estan los campos tipo, empresa, direccion...., y yo quisiera que cuando quiera buscar sólo por tipo me aparezcan los datos (ejemplo: cyber me aparezcan los resultados de cyber sin mostrar juegos ni comida....)

aki les doy el código.....

-----------

<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("mibase.mdb")&";"

SQL="SELECT * FROM Empresas "
rs.Open SQL, oConn
do while not rs.eof
response.write(rs("tipo"))& "<br>"
response.write(rs("Empresa"))& "<br>"
rs.movenext
loop
rs.close
oConn.close
%>

-------------

tambien pasa esto....., que el me va a mostrar en pantalla la info que le solicite, pero necesito desplegar la información de cada empresa cuando le hagan click en el nombre de la empresa el cual tiene que mostrar direccion, empresa, telefono, url, mail y logo....(creo que estoy exigiendo mucho, no? )
gracias por su ayuda de antemanos.....

[mamon]

Creo entender... osea tpu muestras el tipo y el nombre de la empresa? entonces cuando alguien hace click encima del nombre se abre otra ventana y muestra la información de la empresa? eso es lo q quieres? si es así te puedo ayudar. respode para saber si es eso... o te explicas un toke mejor=)

[mamon]

...

[el cirujano]

sip, eso e slo que quiero..... me puedes ayudar?

[mamon]

<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("mibase.mdb")&";"

SQL="SELECT * FROM Empresas"
rs.Open SQL, oConn
do while not rs.eof
response.write(rs("tipo"))& "<br>"
response.write "<a href='link.asp?nombre="& rs("Empresa") &"'>"& rs("Empresa") & "</a><br>"
rs.movenext
loop
rs.close
oConn.close
%>

link.asp
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("mibase.mdb")&";"

SQL="SELECT * FROM Empresas where Empresa = ''"& request.Querystring("nombre") &"'"
rs.Open SQL, oConn

if not rs.eof then
do while not rs.eof
response.write rs("Empresa") & "<br>"
response.write rs("Direccion") & "<br>"
'etc
rs.movenext
loop

end if
%>

No he probado lo q te he dado, pero si hay algun error avisa no más... espero q te haya podido ayudar.