<%@ language="VbScript"%>
<% response.buffer=true %>
<% response.expires=0 %>
<% On Error Resume Next %>
<%
boton=Request.QueryString("boton")
dim filepath, strconn
dim mas
filepath = Server.MapPath("bbdd\bbdd.mdb")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath
set rs_datos = CreateObject("ADODB.Recordset")
if boton<>"" then
if boton="1" then
sql_cadena="Select * from tabla where descripcion like %'MOLINO CRUDO'% or descripcion like %'01'%"
end if
if boton="2" then
sql_cadena="Select * from tabla where descripcion like %'MOLINO BLANCO'% or descripcion like %'02'%"
end if
if boton="3" then
sql_cadena="Select * from tabla where descripcion like %'MOLINO ROSA'% or descripcion like %'03'%"
end if
Rs_datos.Open sql_cadena , strconn
end if
%>
<html>
<head>
<title>Documento sin título</title>
</head>
<BODY>
<table width="117" border="0">
<tr>
<td width="107"><a href="mapa.asp?boton=1">Boton1</a></td>
</tr>
<tr>
<td><a href="mapa.asp?boton=2">Boton2</a></td>
</tr>
<tr>
<td><a href="mapa.asp?boton=3">Boton3</a></td>
</tr>
</table>
<%
if RS_datos.EOF =false and RS_datos.bof=false then
Response.write("Mostrariamos los datos")
end if
%>
</body>
</html>
