Salve, potreste aiutarmi ad inserire alla fine del seguente script il numero delle pagine e il link x la successiva e la precedente?

Grazie 1000!

codice:
    <%
   			Dim antal
   			antal = 0

			Set RecSet = Server.CreateObject("ADODB.Recordset")
   			Addera = "SELECT * FROM documenti ORDER BY Id DESC"

   			RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
    <%	Do Until RecSet.EOF %>
    <td valign="top"><font color="#D3EBFD"><%=RecSet("Data")%></font><font color="#FFFFFF">-</font><font color="#D3EBFD"><%=RecSet("Titolo")%></font>

      <font color="#FFFFFF"><%=RecSet("Testo")%></font> 	<hr size="1" color ="#FFFF00">

      </td>
  </tr>
  <%	
				antal = antal + 1
				RecSet.MoveNext
				Loop




				RecSet.Close

				Connect.Close

		%>