Protected Sub FormView1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles FormView1.DataBound
        Dim prezzo As Label = CType(FormView1.Row.FindControl("prezzo_scontatoLabel"), Label)
        Dim scheda As Label = CType(FormView1.Row.FindControl("Label1"), Label)
        Dim nuovo As CheckBox = CType(FormView1.Row.FindControl("CheckBox1"), CheckBox)
        Dim inarrivo As CheckBox = CType(FormView1.Row.FindControl("CheckBox2"), CheckBox)
        Dim dispo As Label = CType(FormView1.Row.FindControl("disponibilitaLabel"), Label)
        Dim imgdisp As Image = CType(FormView1.Row.FindControl("Image2"), Image)
        Dim imgextra As Image = CType(FormView1.Row.FindControl("image3"), Image)
        Dim imgextra2 As Image = CType(FormView1.Row.FindControl("image4"), Image)

        If CInt(dispo.Text) <= 0 Then
            imgdisp.ImageUrl = "icona_non_disponibile.gif"
        ElseIf CInt(dispo.Text) > 0 And inarrivo.Checked Then
            imgdisp.ImageUrl = "icona_non_disponibile.gif"
        ElseIf CInt(dispo.Text) > 5 Then
            imgdisp.ImageUrl = "icona_disponibile.gif"
        ElseIf CInt(dispo.Text) > 0 And CInt(dispo.Text) <= 5 Then
            imgdisp.ImageUrl = "icona_media.gif"
        End If

        If nuovo.Checked Then
            imgextra.ImageUrl = "nuovo.gif"
        Else
            imgextra.Visible = False
        End If

        If inarrivo.Checked Then
            imgextra2.ImageUrl = "inarrivo.gif"
        Else
            imgextra2.Visible = False
        End If

        Dim extra As Label = CType(FormView1.Row.FindControl("Label2"), Label)


        Dim codice As Label = CType(FormView1.Row.FindControl("codiceLabel"), Label)

        scheda.Text = Replace(scheda.Text, vbCrLf, "<br>")
        If Session("livello") <> "1" And Session("livello") <> "" Then

            Dim sql As String = ""

            Select Case Session("livello")
                Case "2"
                    sql = "SELECT sconto2 FROM articoli WHERE codice = '" & codice.Text & "'"
                Case "3"
                    sql = "SELECT sconto3 FROM articoli WHERE codice = '" & codice.Text & "'"
                Case "4"
                    sql = "SELECT sconto4 FROM articoli WHERE codice = '" & codice.Text & "'"
                Case "5"
                    sql = "SELECT sconto5 FROM articoli WHERE codice = '" & codice.Text & "'"
                Case "6"
                    sql = "SELECT sconto6 FROM articoli WHERE codice = '" & codice.Text & "'"
                Case "7"
                    sql = "SELECT sconto7 FROM articoli WHERE codice = '" & codice.Text & "'"
                Case Else
                    'nulla
            End Select

            Dim conn As New SqlClient.SqlConnection
            Dim cmd As New SqlClient.SqlCommand
            conn.ConnectionString = ConfigurationManager.ConnectionStrings(1).ConnectionString
            conn.Open()
            cmd.CommandType = CommandType.Text
            cmd.CommandText = sql
            cmd.Connection = conn
            Dim sconto As Integer = cmd.ExecuteScalar
            conn.Close()
            prezzo.Text = CDbl(prezzo.Text) - ((CDbl(prezzo.Text) * CInt(sconto)) / 100)
        End If
    End Sub

Protected Sub FormView1_DataBound(ByVal sender As Object, ByVal e As EventArgs)

        Dim _row As System.Data.DataRowView = DirectCast(FormView1.DataItem, System.Data.DataRowView)

        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim _row As System.Data.DataRowView = DirectCast(e.Row.DataItem, System.Data.DataRowView)
            Dim obj2 As Object = _row("nuovo")
            Dim nuovo As CheckBox = CType(e.Row.FindControl("checkbox1"), CheckBox)
            nuovo.Checked = False
            If TypeOf obj2 Is Boolean Then
                nuovo.Checked = CBool(obj2)
            End If
        Else
            'nisba
        End If
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim _row As System.Data.DataRowView = DirectCast(e.Row.DataItem, System.Data.DataRowView)
            Dim obj2 As Object = _row("inarrivo")
            Dim inarrivo As CheckBox = CType(e.Row.FindControl("checkbox2"), CheckBox)
            inarrivo.Checked = False
            If TypeOf obj2 Is Boolean Then
                inarrivo.Checked = CBool(obj2)
            End If
        Else
            'nisba
        End If