dunque sto provando cosi con il tronca testo



<%

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


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"><%= LEFT(rec1("articolo"), 230)%>...</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>

<table width="1000" border="0" height="60" cellpadding="0" cellspacing="0">
<tr><td></td></tr></table>


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



7 record per pagina , ad inizio pagina ed a fine pagina cosa devo richiamare una cosa tipo questa ?
inizio
<%

While NOT pn.EOF

%>


fine

<%pn.MoveNext : Wend %>

mi da errore cosa devo impostare al posto di pn????