<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<SCRIPT RUNAT="server" LANGUAGE="VB">

Sub Page_Load (sender As Object, e As EventArgs)
 BindData()
End sub

Sub BindData()
 Dim conn As SqlConnection
 Dim strConn as String = "server = localhost; UID = sa; pwd="
  conn = New SqlConnection(strConn)

  Dim query As SqlDataAdapter
  query = New SqlDataAdapter("SELECT * FROM script", conn)

  Dim querydataset As Dataset = new DataSet()
 query.fill(querydataset)

 ' paginazione con numero di pagina
 queryres.PagerStyle.Mode = PagerMode.NumericPages
 ' numero di pagine da mostrare, seguono poi i ...
 queryres.PagerStyle.PageButtonCount = 5

  queryres.DataSource = querydataset
 queryres.DataBind()

End Sub

Sub cambiapagina(sender as Object , e as DataGridPageChangedEventArgs)
    queryres.CurrentPageIndex = e.NewPageIndex
    lblRisultati.Text = "Pagina " & (e.NewPageIndex + 1)
    BindData()
End Sub

</SCRIPT>
<form runat="server" method="post">
<ASP:label id="lblRisultati" runat="server" />
<ASP:Datagrid id="queryres" runat="server"
AllowPaging="True"
onPageIndexChanged="cambiapagina" />
</form>