<%
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.