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

[rifiwis]

Myakire!!! Gracias por la pista!! Creo que ya lo tengo. Al menos no me falla por ningún lado. Creo que sin tu pista, no lo hubiese conseguido. Esto es lo que me resulta:

<%
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
Sql7= "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 = Sql7
SET Ob_RS7 = Ob_Command.Execute ()%>


<!--- Comienzo de Tabla Dinamica1 con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS7.Eof %>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS7("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS7("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS7 ("Telefono") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Fecha Publicaci&oacute;n: <%= Ob_RS7("Fecha_Alta") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Id Anuncio: <%= Ob_RS7 ("ID") %><br><br><br>
</td>
</tr>
<% Ob_RS7.MoveNext
LOOP
Response.Write "</table>"
Ob_RS7.Close

Sql8= "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 = Sql8
SET Ob_RS8 = Ob_Command.Execute ()%>

<!--- Comienzo de Tabla Dinamica2 con BSD --->
<table width="335" border="0">
<% DO WHILE NOT Ob_RS8.Eof %>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS8("Anuncio") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Contactar con: <%= Ob_RS8("Nombre") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Tfno: <%= Ob_RS8 ("Telefono") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Fecha Publicaci&oacute;n: <%= Ob_RS8("Fecha_Alta") %><br>
</td>
</tr>
<tr>
<td class="textoverde"><b>&middot;</b> Id Anuncio: <%= Ob_RS8 ("ID") %><br><br><br>
</td>
</tr>
<% Ob_RS8.MoveNext
LOOP
Response.Write "</table>"
Ob_RS8.Close
Ob_Conn.Close%>