Protected Sub BoundSpecifiche(sender As Object, e As System.Web.UI.WebControls.ListViewItemEventArgs)

        Dim IDSpecifica, IDProdotto As Integer
        Dim SqlSottoSpecifiche As SqlDataSource

        Dim LstSpecifiche As ListView

        LstSpecifiche = CType(GrdProdottiPrezzi.Rows(e.Item.ItemType.DataItem).FindControl("LstSpecifiche"), ListView)
        SqlSottoSpecifiche = CType(e.Item.FindControl("SqlSottoSpecifiche"), SqlDataSource)
        IDProdotto = CType(GrdProdottiPrezzi.Rows(e.Item.ItemType.DataItem).FindControl("LblIDProdottoPrezzo"), Label).Text

        IDSpecifica = CType(e.Item.FindControl("LblIDSpecifica"), Label).Text
        SqlSottoSpecifiche.SelectParameters("parent_specifica").DefaultValue = IDSpecifica
        SqlSottoSpecifiche.SelectParameters("id_prodotto").DefaultValue = IDProdotto

        Response.Write(IDSpecifica & "-" & IDProdotto & "<br>")

    End Sub