No entiendo muy bien lo que necesitas, pero por lo que entendi, en el primer apartado muestras los primeros 5 registros de una consulta, en el segundo apartado quieres mostrar a partir del registro 6 en adelante, eso es lo que entendi, y para eso se puede hacer de varias maneras:
1. Utilizando tu codigo te voy a agregar unas cuantas lineas:
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = 20 ' Con esto estas diciendo que quieres mostrar en total 20 Registros, es correcto ?
Repeat3__index = 0
news2_numRows = news2_numRows + Repeat3__numRows
%>
y en el body:
<%
While ((Repeat3__numRows <> 0) AND (NOT news2.EOF))
%>
<p><%If (Repeat3__index >= 6) Then ' Con este If lograras que no imprima ningun registro hasta que llegue al registro 6 de tu Recordset
Response.Write(news2.Fields.Item("tit").Value)
End If%></a><br />
</p>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
news2.MoveNext()
Wend
%>
2. Otra manera es vaciando todo tu Recordset a una Matriz con getRows y ahi puedes manipular mas facilmente toda tu respuesta, si lo otro no te funciona y te interesa hacerlo asi te puedo decir como.