Registros 2 tablas en ASP (una aleatoria y otra por fecha)

[rifiwis]

Ante todo soy diseñador, no programador. Quizás lo que pregunto sea fácil. Tengo 2 páginas ASP:
- En una de ellas salen 2 registros de forma aleatoria de la tabla Destacados de una base de datos en access
- En la otra página, aparecen los registros de la tabla Fichas de la misma base de datos en access ordenados por fecha.

¿Se puede conseguir que en una sóla página ASP salgan dos tablas?:
- Una tabla con los 2 registros aleatorios de la tabla Destacados de una base de datos access
- Otra tabla con los registros de la tabla Fichas de la misma base de datos en access ordenados por fecha.

El Código de la PAGINA 1
-------------------------------
<%
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>Anuncio</b>:</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS ("Telefono") %><br>
</td>
</tr>
<% Ob_RS.MoveNext
LOOP
Response.Write "</table>"
Ob_RS.Close
Ob_Conn.Close%>

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

CODIGO DE LA PAGINA 2
-------------------------------

<%
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 * FROM Fichas WHERE Tipo='" & Request.QueryString("Tipo")& "' AND Tipo2='" & Request.QueryString("Tipo2")& "' AND Pais='" & Request.QueryString("Pais")& "' ORDER BY Fecha_Alta DESC"
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>Anuncio</b>:</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS ("Telefono") %><br>
</td>
</tr>
<% Ob_RS.MoveNext
LOOP
Response.Write "</table>"
Ob_RS.Close
Ob_Conn.Close%>