Ciao ragazzi
qualcuno sa come inserire la paginazione in questo script
codice:
	<%
Dim sqlNews
Dim rsNews
sqlNews = "SELECT * FROM News WHERE  DateEnd >= #" & FormatDateTime(Date, 1) & "# ORDER BY Datestart DESC"

Set rsNews = Server.CreateObject("ADODB.Recordset")

Set rsNews = dbConn.Execute(sqlNews) 
%>
<table width="758"><tr><td width=14></td><td>
<table border="0" width=760  cellpadding="0" cellspacing="0"><tr><td><font color=#666666>
<font face="Tahoma" size="2">sei in:</font>
<font face="Tahoma" size="2"> 
Home Page</font> >  
<font face="Tahoma" size="2">News</font> </td></tr></table>

<table background="tabel.gif" border="0" width=760 cellpadding="0" cellspacing="0"><%
If rsNews.Eof Then
Response.Write("<tr><td>No Current News Records</td></tr>")
Else
Dim count, i_last, align, Num
Do Until rsNews.Eof or Num > 3
count = count + 1
i_last = right(count,1) 
Select Case i_last 
Case "1","3","5","7","9"
align = "left"
Case Else
align = "left"
End Select
Num = 1
Response.Write("<tr><td   valign=middle><center><font color=""gray"" face=""Tahoma"">")
									
If Len(rsNews("Image")) > 0 Then
Response.Write(rsNews("DateStart") & "")
Response.Write("</center></td><td width=10 HEIGHT=32 valign=middle>
</td><td  valign=middle>")
Response.Write("<font face=""Tahoma"" color=""orange"">" &  rsNews("Headline") & "</font>")
Response.Write("</td></tr><tr><td valign=middle >")
Response.Write("[img][/img]




")
End If
									
									
Response.Write("</td><td width=10></td><td valign=top height=""13"" ><font face=""Tahoma"" color=#666666>")
										
																
Response.Write(rsNews("PreStory"))
Response.Write(" ")
Response.Write("</td></tr>")
Response.Write("<tr><td >
</td></tr>")
Num = Num + 1
rsNews.MoveNext
loop



End If %>
					
</td>
	</tr>
</table></td></tr></table></center>
<%
rsNews.Close
Set rsNews = Nothing%>
Grazie a tutti