modifica il codice così
<%
' APRO IL RECORDSET
rs.Open "SELECT titolo FROM news ORDER BY id ASC", cn, 1
' EFFETTUO MATERIALMENTE LA PAGINAZIONE
rs.PageSize = quanti
rs.AbsolutePage = pag
' ESEGUO IL CICLO
While rs.EOF = False And contatore < quanti
%>
<tr><td><font size="2" face="Tahoma">"><%=rs("titolo")%></font></td></tr>
<%
rs.MoveNext
' INCREMENTO IL VALORE DEL CONTATORE
contatore = contatore + 1
Wend
%>
e poi crea la pagina del dettaglio della news dove scriverai qualcosa del tipo

<%@LANGUAGE = VBScript%>
<%
' APRO IL RECORDSET
rs.Open "SELECT titolo FROM news where CampoIdRecord =" & Request.QueryString("IdNews"), cn, 1
' EFFETTUO MATERIALMENTE LA PAGINAZIONE
rs.PageSize = quanti
rs.AbsolutePage = pag
' ESEGUO IL CICLO
if rs.EOF = False then
%>
<%=rs("titolo")%>"><%=rs("titolo")%>

<%end if%>