Problema es una asp

[Hereze]

Hola a todos,

tengo una página asp donde quiero que se listen el contenido de dos tablas. Necesito que en una de ellas muestre sólo 10 registros, mientras que en la otra muestre sólo 5.
Sé como hacer que en esta página me muestre dichos registros de una de las tablas, el problema viene cuando intento meter los dos listados en una misma asp. No hay forma de que me salga.
Os pongo el código que he utilizado en una de ellas, en el otro sería el mismo pero apuntando a otra tabla.

Aquí conecto con la tabla y le indico los datos que necesito:

<%
'Para los redireccionamientos
Response.Buffer=True

SQL="SELECT * FROM " & _
"tbl_soporte_noticias order by tbl_soporte_noticias.noticias_fecha Desc"

'Ejecutamos consulta
set rs=oConn.Execute(SQL)

Session("id")=rs("id")
Session("noticias_noticia")=rs("noticias_noticia")
Session("noticias_cliente")=rs("noticias_cliente")
Session("noticias_creado_por")=rs("noticias_creado _por")
Session("noticias_fecha")=rs("noticias_fecha")
Session("noticias_link")=rs("noticias_link")

%>

A continuación os pongo el código que utilizo para que me muestre los resultados de 10 en 10:

<%
cantidadregistros=100
%>

<%
if request.querystring("paginaactual")<>"" then
mostrarpagina=request.querystring("paginaactual")
else
mostrarpagina=1
end if
%>

<%

set rs=Server.CreateObject("ADODB.Recordset")
rs.cachesize=60
rs.open SQL, oConn, 3, 3

%>

<%
rs.pagesize=cantidadregistros
maxpagina=cint(rs.pagecount)
maxregistros=cint(rs.pagesize)
rs.absolutepage=mostrarpagina
contreg=0
%>

<%
if int(mostrarpagina)<>int(maxpagina) then
hasta=mostrarpagina*50
desde=hasta-99
else
hasta=rs.recordcount
desde=(maxpagina*10)-99
end if
%>

Y aquí está el código donde sale la tabla y donde se muestran los resultados:

<table border="0" cellpadding="0" cellspacing="0" width="100%" bordercolor="#000000" id="table9">
<tr>
<td>

<table class="tabla_sin_agrupar" id="table10" width="94%">


<thead>
</thead>


<form method="post" action="https://pc.arsys.es/default.pl"></form>
<tbody><tr class="lineaimpar">
<td class="texto_columna_ppal_tabla" width="9%" align="center" style="background-color: #4085CA">
<b>
<font size="2" color="#FFFFFF">Fecha</font></b></td>

<b>
<font face="Verdana" size="2" color="#FFFFFF">
<td class="texto_columna_ppal_tabla" width="23%" align="center" style="background-color: #4085CA">
<b>
<font size="2" color="#FFFFFF">Cliente</font></b></td>

<td class="texto_columna_ppal_tabla" width="55%" align="center" style="background-color: #4085CA">
<b>
<font size="2" color="#FFFFFF">Noticia</font></b></td>

<td class="texto_columna_ppal_tabla" width="10%" align="center" style="background-color: #4085CA">
<b>
<font size="2" color="#FFFFFF">Creado por</font></b></td>

</tr>

<%
do while not rs.eof and contreg < maxregistros
%>

<tr class="lineapar">
<td class="texto_columna_ppal_tabla" width="9%" bordercolor="#FFFFFF" style="background-color: #FFFFFF" align="left">
<font size="2" color="#8B8B8B">
<%=rs("noticias_fecha")%></font></td>
<td class="texto_columna_ppal_tabla" width="23%" bordercolor="#FFFFFF" style="background-color: #FFFFFF" align="left">
<font size="2" color="#8B8B8B">
<%=rs("noticias_cliente")%></font></td>
<td class="texto_columna_ppal_tabla" width="55%" bordercolor="#FFFFFF" style="background-color: #FFFFFF" align="left">
<a target="__blank" href="<%=rs("noticias_link")%>">
<font size="2" color="#8B8B8B"><%=rs("noticias_noticia")%></font></td>

<td class="texto_columna_ppal_tabla" width="10%" bordercolor="#FFFFFF" style="background-color: #FFFFFF" align="left">
<font size="2" color="#8B8B8B">
<%=rs("noticias_creado_por")%></font></td>
</tr>
<%
contreg=contreg+1
rs.MoveNext
loop
%>


</tbody></table>
</font></p>

</table>
<p align="right">
<%
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
%></div>

Este código funciona perfectamente, el problema viene cuando quiero hacer lo mismo dentro de esta página pero apuntando aotra tabla, mas o menos esto:

<%
Dim oConn, rs, SQL, oConn1, rs1, SQL1
%>

<%
'Para los redireccionamientos
Response.Buffer=True

SQL1="SELECT * FROM " & _
"tbl_pro_soporte_principal_actualizaciones order by tbl_pro_soporte_principal_actualizaciones.fecha Desc"

'Ejecutamos consulta
set rs=oConn.Execute(SQL1)

Session("id")=rs("id")
Session("fecha")=rs("fecha")
Session("actualizacion")=rs("actualizacion")
Session("link")=rs("link")

%>


<%
'Para los redireccionamientos
Response.Buffer=True

SQL="SELECT * FROM " & _
"tbl_soporte_noticias order by tbl_soporte_noticias.noticias_fecha Desc"

'Ejecutamos consulta
set rs=oConn.Execute(SQL)

Session("id")=rs("id")
Session("noticias_noticia")=rs("noticias_noticia")
Session("noticias_cliente")=rs("noticias_cliente")
Session("noticias_creado_por")=rs("noticias_creado _por")
Session("noticias_fecha")=rs("noticias_fecha")
Session("noticias_link")=rs("noticias_link")

%>

Aquí es donde me quedo parado, necesito que en una tabla me liste los 5 primeros registros de la primera consulta y en otra tabla los diez primeros registros de la segunda consulta.

¿Sabéis cómo lo puedo hacer?

Gracias.