Esto es lo que necesitas?
<%
If ladys = 0 Then%>
<p><font face="Arial"><b><font color="#FF0000">No se encontraron</font> <font color="#FF0000">noticias.
<img border="0" src="Image/icono_news.gif" width="31" height="31"></font></b></font></p>
<%
Else
RS.AbsolutePage = cats
%>
<div align="left">
<table border="0" width="66%" cellspacing="0" cellpadding="0">
<tr>
<td width="29%" height="1" align="center">
<% If RS("mes")= "1" then%><h1><font color="#0000FF" face="Arial" size="7">Enero <%=RS("dia")%>, <%=RS("an io")%></font></h1><%End if%>
<% If RS("mes")= "2" then%><h1><font color="#0000FF" face="Arial" size="7">Febrero <%=RS("dia")%>, <%=RS(" anio")%></font></h1><%End if%>
<% If RS("mes")= "3" then%><h1><font color="#0000FF" face="Arial" size="7">Marzo <%=RS("dia")%>, <%=RS("an io")%></font></h1><%End if%>
<% If RS("mes")= "4" then%><h1><font color="#0000FF" face="Arial" size="7">Abril <%=RS("dia")%>, <%=RS("an io")%></font></h1><%End if%>
<% If RS("mes")= "5" then%><h1><font color="#0000FF" face="Arial" size="7">Mayo <%=RS("dia")%>, <%=RS("ani o")%></font></h1><%End if%>
<% If RS("mes")= "6" then%><h1><font color="#0000FF" face="Arial" size="7">Junio <%=RS("dia")%>, <%=RS("an io")%></font></h1><%End if%>
<% If RS("mes")= "7" then%><h1><font color="#0000FF" face="Arial" size="7">Julio <%=RS("dia")%>, <%=RS("an io")%></font></h1><%End if%>
<% If RS("mes")= "8" then%><h1><font color="#0000FF" face="Arial" size="7">Agosto <%=RS("dia")%>, <%=RS("a nio")%></font></h1><%End if%>
<% If RS("mes")= "9" then%><h1><font color="#0000FF" face="Arial" size="7">Septiembre <%=RS("dia")%>, <%=R S("anio")%></font></h1><%End if%>
<% If RS("mes")= "10" then%><h1><font color="#0000FF" face="Arial" size="7">Octubre <%=RS("dia")%>, <%=RS(" anio")%></font></h1><%End if%>
<% If RS("mes")= "11" then%><h1><font color="#0000FF" face="Arial" size="7">Noviembre <%=RS("dia")%>, <%=RS ("anio")%></font></h1><%End if%>
<% If RS("mes")= "12" then%><h1><font color="#0000FF" face="Arial" size="7">Diciembre <%=RS("dia")%>, <%=RS ("anio")%></font></h1><%End if%>
</td>
</tr>
</table>
</div>
<%
boogies = 0
Do While boogies < monster And Not RS.EOF
%>
<div align="left">
<table border="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="66%" id="AutoNumber1" height="1" cellpadding="0">
<tr>
<td width="29%" height="1">
<h3><font face="Times New Roman" size="5"><%=RS("Encabezado")%></font></h3>
</td>
</tr>
</table>
<table width="760">
<tr>
<td width="752" height="1">
<h4><font color="#0000FF" face="Arial" size="2"> FUENTE: <%=RS("Fuente")%> </font></h4>
</td>
</tr>
<tr>
<td width="752" height="1" align="justify">
<p align="justify"><font size="3" face="Arial"><%=RS("Noticia")%></font></td>
</tr>
<tr>
<td width="752" height="1">
<hr size="3" color="#808080">
</td>
</tr>
<tr>
<td width="29%" height="1">
<p align="right"><a href="#inicio"><br>
<img border="0" src="Image/icono_top.gif" alt="Arriba" width="47" height="11"></a>
</td>
</tr>
</table>
</div>
<%
boogies = boogies + 1
RS.MoveNext
Loop
End If
%>
<%
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>
<div align="center">
<p align="left"><br>
<font size="2" face="Arial">
<%
If cats > 1 Then
%> </font><font size="2"> <a href="vnoticias.asp?eje=30&page=<%= cats - 1 %>&dia=<%=dia%>&mes=<%=mes%>&anio=<%=anio%>&cantid ad=<%=cantidad%>">
<font face="Arial">[</font><b><font face="Arial"><<</font></b><font face="Arial"> anterior ]</font></a><font face="Arial"> <%
End If
For I = 1 To ladys
If I = cats Then
%> <b><%= I %></b>
<%
Else
%>
<a href="vnoticias.asp?eje=30&page=<%= I %>&dia=<%=dia%>&mes=<%=mes%>&anio=<%=anio%>&cantid ad=<%=cantidad%>"><%= I %></a>
<%
End If
Next 'I
If cats < ladys Then
%> </font> <a href="vnoticias.asp?eje=30&page=<%= cats + 1 %>&dia=<%=dia%>&mes=<%=mes%>&anio=<%=anio%>&cantid ad=<%=cantidad%>">
<font face="Arial">[ </font>
</font>
<font size="2" face="Arial"> siguiente
</font>
<font size="2">
<b><font face="Arial">>></font></b></font><font face="Arial" size="2">]</font></a><font size="2">
<br>
</font>
<%
End If
%>
</div>