Salve, ho un report che raffigura un conto di spese :

vi mostro la query


<%


strSQL1 = "SELECT * FROM fatturequery order by id ASC"

Set rec1 = Server.CreateObject("ADODB.Recordset")
rec1.cursorlocation = 3
rec1.Open strSQL1, conn




'*** NUMERO DI RECORDS PER PAGINA ******
Const RECORDSPERPAGE = 10
'***************************************


rec1.PageSize = RECORDSPERPAGE

If ( Request("pn") <> "" ) Then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End If

'Conteggio delle righe
intNumRows = rec1.RecordCount

If (intNumRows <> 0) Then
rec1.AbsolutePage = intPageNum
'Esposizione dati
For intCount = 1 To rec1.PageSize
%>

<table width="1000" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="50" class="mod2"></td>

<td valign="top" width="453" class="mod3"><%=Rec1("articolo")%></td>
<td valign="bottom" width="133" class="mod3" align="right"><%=Rec1("quantita")%></td>
<td valign="bottom" width="14" class="mod2"></td>
<td valign="bottom" width="123" class="mod3" align="right">€ <%=FormatNumber(rec1("prezzounitario"),2,-2,0,-2)%></td>
<td valign="bottom" width="14" class="mod2"></td>
<td valign="bottom" width="163" class="mod3" align="right">€ <%=FormatNumber(rec1("importo"),2,-2,0,-2)%></td>
<td valign="middle" width="50" class="mod2"></td>
</tr>


</table>

<%
rec1.MoveNext
If ( rec1.EOF ) Then Exit For
Next
End If
%>



Nel caso raffigurato si fa una rappresentazione con un campio pagina in base al numero di record che in questo caso è pari a 9.

Nella fattispecie non devo conteggiare i record ma l'altezza della tabella cioè se ci sono dei testi molto lunghi che fanno parte di solo 2 record e che gia raggiungono l'altezza di pagina max mi deve passare alla pag. succ.....

Avete un consiglio x poter modificare il mio script ..... vi ringrazio dell'aiuto

Salve