allora questo e tutto:
1) classe, file prodDB funzione "getproducts":
Public Function GetProducts(ByVal IDCat As Integer) As DataTable
Dim results As DataSet = New DataSet()
Dim myConnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim MyAdapter As New SqlDataAdapter("getProdByCat", myConnection)
MyAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
Dim parameterIdcat As SqlParameter = New SqlParameter("@IdCat", SqlDbType.Int, 4)
parameterIdcat.Value = IDCat
MyAdapter.SelectCommand.Parameters.Add(parameterIdcat)
myConnection.Open()
MyAdapter.Fill(results, "getProdByCat")
Return results.Tables("getProdByCat").Copy
End Function
----
codebehind del file ascx chiamato "lst.ascx"
Imports System.Web.UI.WebControls
Public MustInherit Class lst
Inherits System.Web.UI.UserControl
Protected WithEvents btnNext As System.Web.UI.WebControls.LinkButton
Protected WithEvents btnPrev As System.Web.UI.WebControls.LinkButton
Protected WithEvents pageNumber As System.Web.UI.WebControls.Label
Protected WithEvents MyList As System.Web.UI.WebControls.DataList
Public pagedData As New PagedDataSource()
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dopaging()
End Sub
Sub dopaging()
Dim IDcat As Integer = CInt(Request.Params("IDcat"))
Dim ProductCatalogue As HpSite.ProdDB = New HpSite.ProdDB()
pagedData.DataSource = ProductCatalogue.GetProducts("IDCat").DefaultView
pagedData.AllowPaging = True
pagedData.PageSize = 3
Try
pagedData.CurrentPageIndex = Int32.Parse(Request.QueryString("Page")).ToString()
Catch ex As Exception
pagedData.CurrentPageIndex = 0
End Try
btnPrev.Visible = (Not pagedData.IsFirstPage)
btnNext.Visible = (Not pagedData.IsLastPage)
pageNumber.Text = (pagedData.CurrentPageIndex + 1) & " of " & pagedData.PageCount
MyList.DataSource = pagedData
MyList.DataBind()
End Sub
Public Sub Prev_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex - 1))
End Sub
Public Sub Next_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Response.Redirect(Request.CurrentExecutionFilePath & "?Page=" & (pagedData.CurrentPageIndex + 1))
End Sub
End Class
---
html del medesimo file:
<asp:label id="pageNumber" runat="server" BackColor="#00C0C0" />
<asp:datalist id="MyList" EnableViewState="False" RepeatColumns="2" runat="server">
<ItemTemplate>
<table border="0" width="300">
<tr>
<td width="200" valign="middle" align="right">
<a href='ProductDetails.aspx?pID=<%# DataBinder.Eval(Container.DataItem, "PID") %>'>
<img src='../img/<%# DataBinder.Eval(Container.DataItem, "Img") %>' width="100" height="100" border="1" /></a>
</td><td width="200" valign="middle">
<a href='ProductDetails.aspx?PID=<%# DataBinder.Eval(Container.DataItem, "PID") %>'>
<span class="ProductListHead">
<%# DataBinder.Eval(Container.DataItem, "Descrizione") %>
</span>
<br />
</a><span class="ProductListItem"><b>Special Price: </b>
<%# DataBinder.Eval(Container.DataItem, "UnitCost", "{0:c}") %>
</span>
<br />
<a href='AddToCart.aspx?pID=<%# DataBinder.Eval(Container.DataItem, "PID") %>'><span class="ProductListItem">
<font color="#9D0000"><b>Add To Cart</b></font></span> </a>
</td></tr></table>
</ItemTemplate>
</asp:datalist>
<asp:LinkButton id="btnPrev" Text="<" OnClick="Prev_Click" runat="server" />
<asp:LinkButton id="btnNext" Text=">" OnClick="Next_Click" runat="server" />
ciao grz
