Untitled

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            Dim CleMessage As Integer
            Dim sCleMessage As String
            If Not IsNothing(Request.QueryString("msg")) Then
                sCleMessage = Request.QueryString("msg")
                'SFU.Texte.DecrypterTexteRijndael(Request.QueryString(SAGCP.CV))
                If sCleMessage <> "" Then
                    CleMessage = Int32.Parse(sCleMessage)
                End If

                Dim objMessage As SAFMF.Message = SABR.Message.ObtenirMessage(CleMessage)
                ASPxLabel1.Text = objMessage.Description

            End If

        End Sub