SUPPRESSION DU MESSAGE CHOISIT vb net

<?xml version="1.0" encoding="iso-8859-1"?>

<%@ Page Language="VB" Debug="true" AutoEventWireup="false" %>

<%@ Import Namespace="System.Data.SqlClient" %>

<%@ import Namespace="System" %>

<%@ import Namespace="System.Web.UI.Page" %>

<%@ import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.Odbc" %>

<%@ Import Namespace="System.Data.OleDB" %>

<%@ import Namespace="System.Web.UI.WebControls" %>

<%@ import Namespace="System.Web.UI.HtmlControls" %>

<%@ import Namespace="System.Web.Mail" %>

<%@ import Namespace="System.Text" %>



<script runat="server">



    

    Private Sub Page_Load()

               

        Dim myReader As SqlDataReader

        Dim CommandText As String

        

        ' Connection à la base de données

        

        Dim cn As New SqlConnection()

        cn.ConnectionString = ConfigurationSettings.AppSettings("ExtraSQL")

        cn.Open()

        

        ' Récupération des infos du message

        CommandText = "SELECT * FROM messagerie_interne"

        Dim cmd As New SqlCommand(CommandText, cn)

        myReader = cmd.ExecuteReader()

        myReader.Read()

        

        'recuperation des messages et affectation aux labels

        If (myReader.IsDBNull(0)) Then

            myReader.Close()

            Response.Redirect("accueil_societe.aspx")

        Else

            myReader.Close()

            CommandText = "SELECT id_message, expediteur,destinataire,objet from wts_messagerie_interne"

            Dim cmd1 As New SqlCommand(CommandText, cn)

            myReader = cmd1.ExecuteReader()

            Response.Write(CommandText)

          

            While (myReader.Read())

                lb_msg.Text += "<tr>"

                lb_msg.Text += "<td style='width: 8px; height: 20px;' valign='top'><img alt='' src='../images/espaceur.gif' style='width: 8px' /></td>" & vbCrLf

                lb_msg.Text += "<td class='chp_donnee'>" & myReader.GetString(1) & "</td> "

                lb_msg.Text += "<td class='chp_donnee'>" & myReader.GetString(2) & "</td> "

                lb_msg.Text += "<td class='chp_donnee'><a class=""SousMenu_link"" href=""envoi_message.aspx?id_msg=" & myReader.GetInt32(0) & """ > "

                lb_msg.Text += myReader.GetString(3)

                lb_msg.Text += "</a></td><td>"

                lb_msg.Text += "</td>"

                'lb_msg.Text += "<td><asp:Button ID="sup" runat="server" Font-Bold="True" onclick="sup_msg" Text="sup" /></td>" & vbCrLf

                lb_msg.Text += "<td><a><img alt='appercu' src=Images/btnsup.gif' style='width:10px'/></a></td>" & vbCrLf

                lb_msg.Text += "</tr>"

            End While

        End If

        myReader.Close()

        cn.Close()

              

    End Sub



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

        Response.Redirect("accueil_agent.aspx")

    End Sub



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

        Response.Redirect("envoi_message.aspx")

    End Sub

</script>