Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim stringasql As String = "nomeprocedura"
        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("EmailConnectionString1").ToString)

        Using cmd As New System.Data.SqlClient.SqlCommand(stringasql, con)

            cmd.CommandType = CommandType.StoredProcedure


            ' modalità connessa (datareader)
            ' -----------------------------------------------------------------------------------------------
            Dim reader As SqlDataReader
            con.Open()
            reader = cmd.ExecuteReader()

            If reader.HasRows = False Then
                Response.Write("Email non presente in Database")
            Else

                Do While reader.Read()

                    Response.Write(String.Format("IDEmail: {0}<br />", reader("idEmail")))
                    Response.Write(String.Format("EmailAddress: {0}<br />", reader("EmailAddress")))
                    Response.Write(String.Format("Indirizzo IP: {0}<br/><br />", reader("IPAddress")))

                Loop
            End If
            reader.Close()
            con.Close()
            ' -----------------------------------------------------------------------------------------------

            ' modalità disconnessa (DataTable e DataAdapter)
            ' -----------------------------------------------------------------------------------------------
            Dim dt As New DataTable("risultati")
            Dim da As New SqlDataAdapter(cmd)

            con.Open()
            ' riempio il datatable e disconnetto
            da.Fill(dt)
            con.Close()

            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                For Each dr As DataRow In dt.Rows
                    Response.Write(String.Format("IDEmail: {0}<br />", dr("idEmail")))
                    Response.Write(String.Format("EmailAddress: {0}<br />", dr("EmailAddress")))
                    Response.Write(String.Format("Indirizzo IP: {0}<br/><br />", dr("IPAddress")))
                Next
            End If
            
            ' -----------------------------------------------------------------------------------------------

        End Using ' fa la dispose automatica

    End Sub