Primero, gracias por contestar tan pronto.
He realizado lo que me dices, pero me da fallo en la linea donde pone
Ob_RS.Open SQL, Ob_Command%>
El código que me queda es el siguiente:
<%
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Ob_Conn.Open "miservidor.com.BBDD"
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql= "SELECT TOP 2 * FROM Destacados WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Rnd(Int(Now()*[ID])-Now()*[ID]);"
Ob_Command.CommandText = Sql
SET Ob_RS = Ob_Command.Execute () %>
<!--- Comienzo de Capa Dinamica con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS.Eof %>
<tr>
<td class="textoverde"><b>·</b> Contactar con: <%= Ob_RS("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>·</b> Contactar con: <%= Ob_RS("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>·</b> Tfno: <%= Ob_RS ("Telefono") %><br>
</td>
</tr>
<% Ob_RS.MoveNext
LOOP
Response.Write "</table>"
Ob_RS.Close
Sql= "SELECT * FROM Fichas WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Fecha_Alta DESC"
Ob_RS.Open SQL, Ob_Command%>
<!--- Comienzo de Capa Dinamica2 con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS.Eof %>
<tr>
<td class="textoverde">- <b>Anuncio</b>:</td>
</tr>
<tr>
<td class="textoverde"><b>·</b> Contactar con: <%= Ob_RS("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>·</b> Contactar con: <%= Ob_RS("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>·</b> Tfno: <%= Ob_RS ("Telefono") %><br>
</td>
</tr>
<% Ob_RS.MoveNext
LOOP
Response.Write "</table>"
Ob_Conn.Close%>