This is a migrated thread and some comments may be shown as answers.

Insert into a Grid and have to rebind 2 other grids

10 Answers 60 Views
Grid
This is a migrated thread and some comments may be shown as answers.
Myriam
Top achievements
Rank 1
Myriam asked on 18 Aug 2009, 03:00 PM
Hello
I have a grid which I can insert value in it.
I have 2 other grids which have values from the first grid.
My problem is when I insert into the first grid, when I go see the other grids, I can't see the new value.
Note: each Radgrid are in different RadPageView.
For the first Radgrid I have this event:
Private Sub RadGrid_Entreprise_ItemInserted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridInsertedEventArgs) Handles RadGrid_Entreprise.ItemInserted  
        Me.RadGrid_offre.Rebind()  
        Me.RadGrid_Offre_Programme.Rebind()  
End Sub 
But seems like it doesn't change anything
Any idea how to rebind it properly?
Thank you
Myriam

 

10 Answers, 1 is accepted

Sort by
0
Vlad
Telerik team
answered on 18 Aug 2009, 03:11 PM
Hi Myriam,

Can you verify if this event is fired? Generally this should work only when the grid is bound to data source control.

Greetings,
Vlad
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Check out the tips for optimizing your support resource searches.
0
Myriam
Top achievements
Rank 1
answered on 18 Aug 2009, 05:14 PM
Thanks Vlad for you reply
If you talked about RadGrid_Entreprise_ItemInserted yes this is fired. All my three radgrids are bound to three different sqldatasources...
Any idea?
0
Vlad
Telerik team
answered on 19 Aug 2009, 06:00 AM
Hello Myriam,

Do you have RadAjaxManager in this scenario? If this is the case you will need to add setting if first grid initiate the ajax request to update the second grid.

Best wishes,
Vlad
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Check out the tips for optimizing your support resource searches.
0
Myriam
Top achievements
Rank 1
answered on 19 Aug 2009, 12:30 PM
Vlad, yes I do have a radajaxmanager for the first grid.
Unfortynetly, I don't know what you mean by "add setting if first grid initiate the ajax request to update the second grid.
"
Can you give me the code and where do I have to put it?
 Thank you very much!
0
Vlad
Telerik team
answered on 19 Aug 2009, 12:39 PM
Hi Myriam,

Here is an example:

<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">
        <AjaxSettings>
            <telerik:AjaxSetting AjaxControlID="RadGrid1">
                <UpdatedControls>
                    <telerik:AjaxUpdatedControl ControlID="RadGrid1"  />
                    <telerik:AjaxUpdatedControl ControlID="RadGrid2"  />
                </UpdatedControls>
            </telerik:AjaxSetting>
             <telerik:AjaxSetting AjaxControlID="RadGrid2">
                <UpdatedControls>
                    <telerik:AjaxUpdatedControl ControlID="RadGrid2"  />
                </UpdatedControls>
            </telerik:AjaxSetting>
        </AjaxSettings>
    </telerik:RadAjaxManager>

The first setting will update both grids and the second will update only RadGrid2.

Kind regards,
Vlad
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Check out the tips for optimizing your support resource searches.
0
Myriam
Top achievements
Rank 1
answered on 19 Aug 2009, 01:38 PM
<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">  
            <AjaxSettings> 
                <telerik:AjaxSetting AjaxControlID="RadGrid1">  
                    <UpdatedControls> 
                        <telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" /> 
                        <telerik:AjaxUpdatedControl ControlID="RadGrid_Entreprise" LoadingPanelID="RadAjaxLoadingPanel1" /> 
                        <telerik:AjaxUpdatedControl ControlID="RadGrid_Demande" LoadingPanelID="RadAjaxLoadingPanel1" /> 
                        <telerik:AjaxUpdatedControl ControlID="RadGrid_Log" LoadingPanelID="RadAjaxLoadingPanel1" /> 
                          
                    </UpdatedControls> 
                </telerik:AjaxSetting> 
                <telerik:AjaxSetting AjaxControlID="RadGrid_Entreprise">  
                <UpdatedControls> 
                    <telerik:AjaxUpdatedControl ControlID="RadGrid_Offre_Programme"  /> 
                    <telerik:AjaxUpdatedControl ControlID="RadGrid_offre"  /> 
                </UpdatedControls> 
            </telerik:AjaxSetting> 
            </AjaxSettings> 
        </telerik:RadAjaxManager> 
Even with this, that doesn't work..
If I press F5, it refresh RadGrid_Offre_Programme and RadGrid_offre.
0
Sebastian
Telerik team
answered on 24 Aug 2009, 10:15 AM
Hello Myriam,

Can you confirm that the grids are ajaxified via this single RadAjaxManager instance only and no RadAjaxPanels are wrapped around them?

I also suggest you post your entire code implementation (markup and code-behind) in this forum thread using the 'Format code block' dialog from the upper right corner of the forum editor. Thus I will examine it in detail and will be able to provide more to-the-point answer.

Kind regards,
Sebastian
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Check out the tips for optimizing your support resource searches.
0
Myriam
Top achievements
Rank 1
answered on 24 Aug 2009, 02:33 PM
Imports Telerik.Web.UI  
Imports System.Drawing  
Imports Telerik.QuickStart  
Imports System  
Imports System.Data.SqlClient  
Imports System.Data  
Imports System.Collections  
Imports System.ComponentModel  
Imports System.Web  
Imports System.Web.SessionState  
Imports System.Web.UI  
Imports System.Web.UI.WebControls  
Imports System.Web.UI.HtmlControls  
Imports System.Configuration  
Imports System.Web.HttpUtility  
 
Partial Public Class FEN_GESTION  
    Inherits System.Web.UI.Page  
    Private gridMessage As String = Nothing 
    Public L_NO_DOMAINE As Integer 
    Public L_NOM_DOMAINE As String 
    Public L_NO_ENTREPRISE As Integer 
    Public L_CV As String 
    Public L_LETTRE As String 
    Public L_NO_OFFRE As Integer 
    Public fonctionsvbs As New fonctionsvb  
    Public Conn As SqlConnection = New SqlConnection(fonctionsvbs.ConnectionString)  
    Public ConnJadeAdulte As SqlConnection = New SqlConnection(fonctionsvbs.ConnectionStringJadeAdulte)  
    Public emailAdmin As String = fonctionsvbs.EmailAdmin  
    Public NO_OFFRE_PROGRAMME_INSERT As Integer 
    Public NO_PROGRAMME_OFFRE_INSERT As Integer 
    Public temp_No_Offre As Integer 
    Public temp_No_Programme As Integer 
    Public CodePermInvalide As String 
    Public dt As DataTable  
    Public liste As New List(Of String)  
    Public listcount As Integer 
     
 
    Protected Sub Page_Load(ByVal sender As ObjectByVal e As System.EventArgs) Handles Me.Load  
        RadGridFiltreText(RadGrid_Log)  
        RadGridFiltreText(RadGrid_BanqueCV)  
        RadGridFiltreText(RadGrid_Entreprise)  
        RadGridFiltreText(RadGrid_offre)  
        RadGridFiltreText(RadGrid_Offre_Programme)  
        RadGridFiltreText(RadGrid1)  
 
          
        If Not IsPostBack Then 
            dt = New DataTable()  
            dt.Columns.Add(New DataColumn("RowNumber"GetType(String)))  
 
            'Ajouter le nombre de colonne au début  
            AddRow(dt)  
            AddRow(dt)  
            AddRow(dt)  
        End If 
    End Sub 
 
    Private Sub RadGridFiltreText(ByVal sRadgrid As RadGrid)  
        Dim Menu As GridFilterMenu = sRadgrid.FilterMenu  
        Dim item As RadMenuItem  
        For Each item In Menu.Items  
            'change the text for the StartsWith menu item  
            Select Case item.Text  
                Case "StartsWith" 
                    item.Text = "Commençant par" 
                Case "NoFilter" 
                    item.Text = "Sans filtre" 
                Case "Contains" 
                    item.Text = "Contient" 
                Case "DoesNotContain" 
                    item.Text = "Ne contient pas" 
                Case "EndsWith" 
                    item.Text = "Finit par" 
                Case "EqualTo" 
                    item.Text = "Égal à" 
                Case "NotEqualTo" 
                    item.Text = "N'est pas égal à" 
                Case "GreaterThan" 
                    item.Text = "Plus grand que" 
                Case "LessThan" 
                    item.Text = "Plus petit que" 
                Case "GreaterThanOrEqualTo" 
                    item.Text = "Plus grand que ou égal à" 
                Case "LessThanOrEqualTo" 
                    item.Text = "Plus petit que ou égal à" 
                Case "Between" 
                    item.Text = "Entre" 
                Case "NotBetween" 
                    item.Text = "N'est pas entre" 
                Case "IsEmpty" 
                    item.Text = "Est vide" 
                Case "NotIsEmpty" 
                    item.Text = "N'est pas vide" 
                Case "IsNull" 
                    item.Text = "Est null" 
                Case "NotIsNull" 
                    item.Text = "N'est pas null" 
            End Select 
        Next 
    End Sub 
 
    Private Sub RadGrid1_DeleteCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.DeleteCommand  
        Dim item As GridDataItem  
        Dim temp_nom_Domaine As String 
        Dim temp_nom_Programme As String 
        item = CType(e.Item, GridDataItem)  
        If (e.Item.OwnerTableView.Name = "GTVProgramme"Then 
            item = DirectCast(e.Item, GridDataItem)  
            temp_nom_Programme = item("PNOM").Text.ToString()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Supprimer un programme", Session("sDemandeur") & " a supprimé le programme " & temp_nom_Programme)  
        ElseIf (e.Item.OwnerTableView.Name = "MTVProgramme"Then 
 
            item = DirectCast(e.Item, GridDataItem)  
            temp_nom_Domaine = item("NOM").Text.ToString()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Supprimer un domaine", Session("sDemandeur") & " a supprimé le domaine " & temp_nom_Domaine)  
        End If 
    End Sub 
    Private Sub RadGrid1_InsertCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.InsertCommand  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        If "GTVProgramme".Equals(e.Item.OwnerTableView.Name) Then 
            Dim strsqlDomaine As String 
            Dim cmdDomaine As SqlCommand  
            Dim myDADomaine As SqlDataAdapter  
            Dim dsDomaine As New DataSet  
 
            L_NO_DOMAINE = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NO_DOMAINE").ToString()  
 
            strsqlDomaine = "SELECT * FROM T_DOMAINE WHERE NO_DOMAINE=" & L_NO_DOMAINE  
            cmdDomaine = New SqlCommand(strsqlDomaine, Conn)  
            myDADomaine = New SqlDataAdapter(cmdDomaine)  
            Conn.Open()  
            myDADomaine.Fill(dsDomaine)  
            Conn.Close()  
 
 
            L_NOM_DOMAINE = dsDomaine.Tables(0).Rows(0).Item("NOM")  
 
            Me.SqlDSProgramme.InsertParameters("NO_DOMAINE").DefaultValue = L_NO_DOMAINE  
 
 
        ElseIf "MTVProgramme".Equals(e.Item.OwnerTableView.Name) Then 
 
 
        End If 
    End Sub 
 
    Private Sub RadGrid1_ItemInserted(ByVal source As ObjectByVal e As Telerik.Web.UI.GridInsertedEventArgs) Handles RadGrid1.ItemInserted  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        If "GTVProgramme".Equals(e.Item.OwnerTableView.Name) Then 
            Dim strsqlProgramme As String 
            Dim cmdProgramme As SqlCommand  
            Dim myDAProgramme As SqlDataAdapter  
            Dim dsProgramme As New DataSet  
 
            strsqlProgramme = "SELECT * FROM T_PROGRAMME ORDER BY NO_PROGRAMME DESC" 
            cmdProgramme = New SqlCommand(strsqlProgramme, Conn)  
            myDAProgramme = New SqlDataAdapter(cmdProgramme)  
            Conn.Open()  
            myDAProgramme.Fill(dsProgramme)  
            Conn.Close()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Ajouter un programme", Session("sDemandeur") & " a ajouté le programme " & dsProgramme.Tables(0).Rows(0).Item("NOM"))  
        ElseIf "MTVProgramme".Equals(e.Item.OwnerTableView.Name) Then 
            Dim strsqlDomaine As String 
            Dim cmdDomaine As SqlCommand  
            Dim myDADomaine As SqlDataAdapter  
            Dim dsDomaine As New DataSet  
            strsqlDomaine = "SELECT * FROM T_DOMAINE ORDER BY NO_DOMAINE DESC" 
            cmdDomaine = New SqlCommand(strsqlDomaine, Conn)  
            myDADomaine = New SqlDataAdapter(cmdDomaine)  
            Conn.Open()  
            myDADomaine.Fill(dsDomaine)  
            Conn.Close()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Ajouter un domaine", Session("sDemandeur") & " a ajouté le domaine " & dsDomaine.Tables(0).Rows(0).Item("NOM"))  
        End If 
          
    End Sub 
     
    Private Sub RadGrid1_UpdateCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.UpdateCommand  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        If "GTVProgramme".Equals(e.Item.OwnerTableView.Name) Then 
            L_NO_DOMAINE = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NO_DOMAINE").ToString()  
            ' L_NOM_DOMAINE = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NOM").ToString()  
 
            Me.SqlDSProgramme.UpdateParameters("NO_DOMAINE").DefaultValue = L_NO_DOMAINE  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Modifier un programme", Session("sDemandeur") & " a modifié un programme dans le domaine " & L_NO_DOMAINE)  
        ElseIf "MTVProgramme".Equals(e.Item.OwnerTableView.Name) Then 
 
            Dim item As GridEditFormItem  
            item = CType(e.Item, GridEditFormItem)  
 
            Dim Temp_No_Domaine As TextBox = DirectCast(item("NOM").Controls(0), TextBox)  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Modifier un domaine", Session("sDemandeur") & " a modifié le domaine " & Temp_No_Domaine.Text)  
 
        End If 
    End Sub 
 
 
    Private Sub RadGrid_Entreprise_DeleteCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_Entreprise.DeleteCommand  
        Dim item As GridDataItem  
        Dim temp_no_entreprise As String 
        item = CType(e.Item, GridDataItem)  
         
        If (e.Item.OwnerTableView.Name = "MTVEntreprise"Then 
 
            item = DirectCast(e.Item, GridDataItem)  
            temp_no_entreprise = item("NO_ENTREPRISE").Text.ToString()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Supprimer une entreprise", Session("sDemandeur") & " a supprimé l'entreprise no " & temp_no_entreprise)  
        End If 
 
    End Sub 
 
    Private Sub RadGrid_Entreprise_InsertCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_Entreprise.InsertCommand  
         
    End Sub 
 
    Public Sub RadGrid_Entreprise_ItemDataBound(ByVal sender As ObjectByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid_Entreprise.ItemDataBound  
 
        If TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode Then 
            Dim editItem As GridEditableItem = DirectCast(e.Item, GridEditableItem)  
            'Dim Uploadbx As FileUpload = DirectCast(editItem("TemplateColumn").FindControl("LOGO"), FileUpload)  
            'Uploadbx.Width = 400  
            'For TemplateColumns   
 
            Dim txtbxNomEntreprise As TextBox = DirectCast(editItem("NOM_ENTREPRISE").Controls(0), TextBox)  
            txtbxNomEntreprise.Width = 325  
            Dim txtbxDescr As TextBox = DirectCast(editItem("DESCR").Controls(0), TextBox)  
            txtbxDescr.Width = 325  
            Dim txtbxAdresse As TextBox = DirectCast(editItem("ADRESSE").Controls(0), TextBox)  
            txtbxAdresse.Width = 325  
            Dim txtbxVille As TextBox = DirectCast(editItem("VILLE").Controls(0), TextBox)  
            txtbxVille.Width = 250  
            Dim txtbxRespCourriel As TextBox = DirectCast(editItem("RESP_COURRIEL").Controls(0), TextBox)  
            txtbxRespCourriel.Width = 325  
            Dim txtbxRespNom As TextBox = DirectCast(editItem("RESP_NOM").Controls(0), TextBox)  
            txtbxRespNom.Width = 250  
            Dim txtbxSiteWeb As TextBox = DirectCast(editItem("SITE_WEB").Controls(0), TextBox)  
            txtbxSiteWeb.Width = 325  
            ' (For GridBoundColumns)   
        End If 
    End Sub 
 
    Private Sub RadGrid_Entreprise_ItemInserted(ByVal source As ObjectByVal e As Telerik.Web.UI.GridInsertedEventArgs) Handles RadGrid_Entreprise.ItemInserted  
        Dim strsqlEntreprise As String 
        Dim cmdEntreprise As SqlCommand  
        Dim myDAEntreprise As SqlDataAdapter  
        Dim dsEntreprise As New DataSet  
        If "MTVEntreprise".Equals(e.Item.OwnerTableView.Name) Then 
            strsqlEntreprise = "SELECT * FROM T_ENTREPRISE ORDER BY NO_ENTREPRISE DESC" 
            cmdEntreprise = New SqlCommand(strsqlEntreprise, Conn)  
            myDAEntreprise = New SqlDataAdapter(cmdEntreprise)  
            Conn.Open()  
            myDAEntreprise.Fill(dsEntreprise)  
            Conn.Close()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Ajouter une entreprise", Session("sDemandeur") & " a ajouté l'entreprise no " & dsEntreprise.Tables(0).Rows(0).Item("NO_ENTREPRISE"))  
        End If 
        'Me.RadGrid_offre.DataSourceID = SqlDSEntrepriseOffre.SelectCommand  
        'Me.RadGrid_Offre_Programme.MasterTableView.Rebind()  
        'Me.RadGrid_offre.MasterTableView.Rebind()  
        'Me.RadGrid_Offre_Programme.DataSourceID = SqlDSEntrepriseOffre.SelectCommand  
 
    End Sub 
 
    Private Sub RadGrid_Entreprise_UpdateCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_Entreprise.UpdateCommand  
        Dim item As GridEditFormItem  
        item = CType(e.Item, GridEditFormItem)  
        Dim dataItem As GridEditFormItem = DirectCast(e.Item, GridEditFormItem)  
        Dim txtbxNomEntreprise As TextBox = DirectCast(dataItem("NOM_ENTREPRISE").Controls(0), TextBox)  
         
        fonctionsvbs.LogInsert(Session("sDemandeur"), "Informations d''entreprise modifiées", Session("sDemandeur") & " a modifié les informations de l'entreprise " & txtbxNomEntreprise.Text)  
    End Sub 
 
    
    Private Sub RadGrid_offre_DeleteCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_offre.DeleteCommand  
        Dim dir_name As String 
        Dim temp_Code_permanent As String 
        Dim temp_No_Offre As Integer 
        Dim item As GridDataItem  
        item = CType(e.Item, GridDataItem)  
        If (e.Item.OwnerTableView.Name = "MTVPostulant"Then 
 
 
            item = DirectCast(e.Item, GridDataItem)  
            temp_Code_permanent = item("CODE_PERMANENT").Text.ToString()  
            temp_No_Offre = item("NO_OFFRE").Text.ToString()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Supprimer une demande", Session("sDemandeur") & " a supprimé la demande de " & temp_Code_permanent & " sur l'offre no " & temp_No_Offre)  
 
            dir_name = Server.MapPath(".\Offre\" & temp_No_Offre & "\" & temp_Code_permanent)  
            If My.Computer.FileSystem.DirectoryExists(dir_name) = True Then 
                My.Computer.FileSystem.DeleteDirectory(dir_name, FileIO.DeleteDirectoryOption.DeleteAllContents)  
            Else 
                'MsgBox("Le dossier à supprimer n'existe pas")  
            End If 
        ElseIf (e.Item.OwnerTableView.Name = "GTVOffre"Then 
            item = DirectCast(e.Item, GridDataItem)  
            temp_No_Offre = item("NO_OFFRE").Text.ToString()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Supprimer une offre", Session("sDemandeur") & " a supprimé l'offre no " & temp_No_Offre)  
 
            dir_name = Server.MapPath(".\Offre\" & temp_No_Offre)  
            If My.Computer.FileSystem.DirectoryExists(dir_name) = True Then 
                My.Computer.FileSystem.DeleteDirectory(dir_name, FileIO.DeleteDirectoryOption.DeleteAllContents)  
            Else 
                'MsgBox("Le dossier à supprimer n'existe pas")  
            End If 
        End If 
    End Sub 
 
 
    Private Sub RadGrid_offre_InsertCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_offre.InsertCommand  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        Dim item As GridEditFormItem  
        item = CType(e.Item, GridEditFormItem)  
        If "GTVOffre".Equals(e.Item.OwnerTableView.Name) Then 
            L_NO_ENTREPRISE = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NO_ENTREPRISE").ToString()  
            Me.SqlDSOffre.InsertParameters("NO_ENTREPRISE").DefaultValue = L_NO_ENTREPRISE  
 
            Dim dataItem As GridEditFormItem = DirectCast(e.Item, GridEditFormItem)  
 
            Dim DatePickDateDebut As RadDatePicker = DirectCast(item("TemplateColumnDateDebut").FindControl("DPicker_DATE_DEBUT"), RadDatePicker)  
            If Not (DatePickDateDebut.SelectedDate Is NothingThen 
                Me.SqlDSOffre.InsertParameters("DATE_DEBUT").DefaultValue = DatePickDateDebut.SelectedDate  
            End If 
 
            Dim DatePickDateFin As RadDatePicker = DirectCast(item("TemplateColumnDateFin").FindControl("DPicker_DATE_FIN"), RadDatePicker)  
            If Not (DatePickDateFin.SelectedDate Is NothingThen 
                Me.SqlDSOffre.InsertParameters("DATE_FIN").DefaultValue = DatePickDateFin.SelectedDate  
            End If 
 
            Dim DatePickDateDebutEmploi As RadDatePicker = DirectCast(item("TemplateColumnDateDebutEmploi").FindControl("DPicker_DATE_DEBUT_EMPLOI"), RadDatePicker)  
            If Not (DatePickDateDebutEmploi.SelectedDate Is NothingThen 
                Me.SqlDSOffre.InsertParameters("DATE_DEBUT_EMPLOI").DefaultValue = DatePickDateDebutEmploi.SelectedDate  
            End If 
 
        End If 
    End Sub 
 
    Private Sub RadGrid_offre_ItemDataBound(ByVal sender As ObjectByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid_offre.ItemDataBound  
         
          
        If (TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode) And (e.Item.OwnerTableView.Name = "GTVOffre"Then 
            Dim editItem As GridEditableItem = DirectCast(e.Item, GridEditableItem)  
            'For TemplateColumns   
            'Dim Uploadbx As FileUpload = DirectCast(editItem("TemplateColumn").FindControl("LOGO"), FileUpload)  
            'Uploadbx.Width = 400  
 
            'For GridBoundColumns  
            Dim txtbxTitreOffre As TextBox = DirectCast(editItem("TITRE_OFFRE").Controls(0), TextBox)  
            txtbxTitreOffre.Width = 250  
            Dim txtbxTachesReliees As TextBox = DirectCast(editItem("TACHES_RELIEES").Controls(0), TextBox)  
            txtbxTachesReliees.Width = 325  
            txtbxTachesReliees.TextMode = TextBoxMode.MultiLine  
            Dim txtbxDescriptionComplementaire As TextBox = DirectCast(editItem("DESCRIPTION_COMPLEMENTAIRE").Controls(0), TextBox)  
            txtbxDescriptionComplementaire.Width = 325  
            txtbxDescriptionComplementaire.TextMode = TextBoxMode.MultiLine  
            Dim txtbxCompetences As TextBox = DirectCast(editItem("COMPETENCES").Controls(0), TextBox)  
            txtbxCompetences.Width = 325  
            txtbxCompetences.TextMode = TextBoxMode.MultiLine  
            Dim txtbxExigences As TextBox = DirectCast(editItem("EXIGENCES").Controls(0), TextBox)  
            txtbxExigences.Width = 325  
            txtbxExigences.TextMode = TextBoxMode.MultiLine  
            Dim txtbxAptitudes As TextBox = DirectCast(editItem("APTITUDES").Controls(0), TextBox)  
            txtbxAptitudes.Width = 325  
            txtbxAptitudes.TextMode = TextBoxMode.MultiLine  
            Dim txtbxTypeEmploi As TextBox = DirectCast(editItem("TYPE_EMPLOI").Controls(0), TextBox)  
            txtbxTypeEmploi.Width = 325  
            Dim txtbxNbHeureSemaine As TextBox = DirectCast(editItem("NB_HEURE_SEMAINE").Controls(0), TextBox)  
            txtbxNbHeureSemaine.Width = 325  
            Dim txtbxRespNom As TextBox = DirectCast(editItem("RESP_NOM").Controls(0), TextBox)  
            txtbxNbHeureSemaine.Width = 250  
            Dim txtbxRespPrenom As TextBox = DirectCast(editItem("RESP_PRENOM").Controls(0), TextBox)  
            txtbxNbHeureSemaine.Width = 250  
            Dim txtbxRespCourriel As TextBox = DirectCast(editItem("RESP_COURRIEL").Controls(0), TextBox)  
            txtbxRespCourriel.Width = 250  
            Dim txtbxDemandeur As TextBox = DirectCast(editItem("DEMANDEUR").Controls(0), TextBox)  
            txtbxDemandeur.Width = 325  
            Dim txtbxSalaireOffert As TextBox = DirectCast(editItem("SALAIRE_OFFERT").Controls(0), TextBox)  
            txtbxSalaireOffert.Width = 325  
        End If 
 
    End Sub 
 
    Private Sub RadGrid_offre_ItemInserted(ByVal source As ObjectByVal e As Telerik.Web.UI.GridInsertedEventArgs) Handles RadGrid_offre.ItemInserted  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        Dim strsqlOffre As String 
        Dim cmdOFfre As SqlCommand  
        Dim myDAOffre As SqlDataAdapter  
        Dim dsOffre As New DataSet  
        Dim tempnomEntreprise As String 
        If "GTVOffre".Equals(e.Item.OwnerTableView.Name) Then 
 
            strsqlOffre = "SELECT * FROM T_OFFRE ORDER BY NO_OFFRE DESC" 
            cmdOFfre = New SqlCommand(strsqlOffre, Conn)  
            myDAOffre = New SqlDataAdapter(cmdOFfre)  
            Conn.Open()  
            myDAOffre.Fill(dsOffre)  
            Conn.Close()  
            tempnomEntreprise = fonctionsvbs.TrouveNomEntreprise("NoOffre", dsOffre.Tables(0).Rows(0).Item("NO_OFFRE"))  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Ajouter une offre", Session("sDemandeur") & " a ajouté l'offre " & dsOffre.Tables(0).Rows(0).Item("NO_OFFRE"), tempnomEntreprise)  
        End If 
 
 
    End Sub 
 
    Private Sub RadGrid_offre_UpdateCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_offre.UpdateCommand  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        If "GTVOffre".Equals(e.Item.OwnerTableView.Name) Then 
            L_NO_ENTREPRISE = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NO_ENTREPRISE").ToString()  
            Me.SqlDSOffre.UpdateParameters("NO_ENTREPRISE").DefaultValue = L_NO_ENTREPRISE  
 
            Dim item As GridEditFormItem  
            item = CType(e.Item, GridEditFormItem)  
            Dim dataItem As GridEditFormItem = DirectCast(e.Item, GridEditFormItem)  
 
            Dim DatePickDateDebut As RadDatePicker = DirectCast(item("TemplateColumnDateDebut").FindControl("DPicker_DATE_DEBUT"), RadDatePicker)  
            If Not (DatePickDateDebut.SelectedDate Is NothingThen 
                Me.SqlDSOffre.UpdateParameters("DATE_DEBUT").DefaultValue = DatePickDateDebut.SelectedDate  
            End If 
 
            Dim DatePickDateFin As RadDatePicker = DirectCast(item("TemplateColumnDateFin").FindControl("DPicker_DATE_FIN"), RadDatePicker)  
            If Not (DatePickDateFin.SelectedDate Is NothingThen 
                Me.SqlDSOffre.UpdateParameters("DATE_FIN").DefaultValue = DatePickDateFin.SelectedDate  
            End If 
 
 
            Dim DatePickDateDebutEmploi As RadDatePicker = DirectCast(item("TemplateColumnDateDebutEmploi").FindControl("DPicker_DATE_DEBUT_EMPLOI"), RadDatePicker)  
            If Not (DatePickDateDebutEmploi.SelectedDate Is NothingThen 
                Me.SqlDSOffre.UpdateParameters("DATE_DEBUT_EMPLOI").DefaultValue = DatePickDateDebutEmploi.SelectedDate  
            End If 
            Dim temp_No_Offre As TextBox = DirectCast(item("NO_OFFRE").Controls(0), TextBox)  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Modifier une offre", Session("sDemandeur") & " a modifié l'offre no " & temp_No_Offre.Text)  
        ElseIf "MTVPostulant".Equals(e.Item.OwnerTableView.Name) Then 
            Dim L_NO_Offre = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NO_OFFRE").ToString()  
            Dim strsqlUpdate As String 
            Dim item As GridEditFormItem  
            Dim temp_no_Demande As String 
            Dim temp_no_offre As Integer 
            item = CType(e.Item, GridEditFormItem)  
 
            Dim dataItem As GridEditFormItem = DirectCast(e.Item, GridEditFormItem)  
            temp_no_Demande = item("NO_DEMANDE").Text.ToString  
            Dim codePermanent As TextBox = DirectCast(item("CODE_PERMANENT").Controls(0), TextBox)  
            strsqlUpdate = "" 
            strsqlUpdate = "UPDATE [T_DEMANDE] SET [STATUS] = ? " 
 
            Dim FileUpLettre As FileUpload = DirectCast(item("TemplateColumnLETTRE_PRESENTATION").FindControl("LETTRE_PRESENTATION"), FileUpload)  
            'Dim Uploadbx As FileUpload = DirectCast(editItem("TemplateColumn").FindControl("LOGO"), FileUpload)  
 
            L_LETTRE = FileUpLettre.FileName  
            If L_LETTRE <> "" Then 
                Me.SqlDSPostulant.UpdateParameters("LETTRE_PRESENTATION").DefaultValue = L_LETTRE  
 
                NomFichier(FileUpLettre, codePermanent.Text, "D""lettre")  
                strsqlUpdate = strsqlUpdate & ",[LETTRE_PRESENTATION]=? " 
                SauvegarderFichier(FileUpLettre, "lettre", L_NO_Offre, codePermanent.Text)  
            End If 
 
            Dim FileUpcv As FileUpload = DirectCast(item("TemplateColumnCV").FindControl("CV"), FileUpload)  
            L_CV = FileUpcv.FileName  
            If L_CV <> "" Then 
                Me.SqlDSPostulant.UpdateParameters("NOM_CV").DefaultValue = L_CV  
 
                NomFichier(FileUpcv, codePermanent.Text, "D""cv")  
                strsqlUpdate = strsqlUpdate & ",[NOM_CV]=? " 
                SauvegarderFichier(FileUpcv, "cv", L_NO_Offre, codePermanent.Text)  
            End If 
 
            strsqlUpdate = strsqlUpdate & "WHERE NO_DEMANDE=?" 
 
            SqlDSPostulant.UpdateCommand = strsqlUpdate  
            temp_no_offre = parentItem("NO_OFFRE").Text  
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Modifier une demande", Session("sDemandeur") & " a modifié la demande de " & codePermanent.Text & " sur l'offre no " & temp_no_offre)  
            End If 
    End Sub 
 
    Protected Function SauvegarderFichier(ByVal sNomFichier As FileUpload, ByVal sType As StringByVal sNoOffre As IntegerByVal scodepermanent As String)  
 
        If sNomFichier.HasFile = True Then 
            Dim filepath As String = sNomFichier.PostedFile.FileName  
            Dim pat As String = "\\(?:.+)\\(.+)\.(.+)" 
            Dim r As Regex = New Regex(pat)  
            'run  
            Dim m As Match = r.Match(filepath)  
            Dim file_ext As String = m.Groups(2).Captures(0).ToString()  
            Dim filename As String = m.Groups(1).Captures(0).ToString()  
            Dim file As String = filename & "." & file_ext  
 
            Dim dir_name As String = Server.MapPath(".\Offre\" & sNoOffre & "\" & scodepermanent & "\")  
            If System.IO.Directory.Exists(dir_name) Then 
                'Ne rien faire  
            Else 
                MkDir(Server.MapPath(".\Offre\" & sNoOffre & "\" & scodepermanent & "\"))  
            End If 
 
 
            'save the file to the server   
            sNomFichier.PostedFile.SaveAs(Server.MapPath(".\Offre\" & sNoOffre & "\" & scodepermanent & "\") & file)  
 
            Return file  
        Else 
            Return "" 
        End If 
    End Function 
 
    Protected Function NomFichier(ByVal NomUpload As FileUpload, ByVal CODE_PERMANENT As StringByVal LettreTable As StringByVal sPath As String)  
 
        If NomUpload.HasFile = True Then 
            Dim filepath As String = NomUpload.PostedFile.FileName  
            Dim pat As String = "\\(?:.+)\\(.+)\.(.+)" 
            Dim r As Regex = New Regex(pat)  
            'run  
            Dim m As Match = r.Match(filepath)  
            Dim file_ext As String = m.Groups(2).Captures(0).ToString()  
            Dim filename As String = LettreTable & CODE_PERMANENT  
            Dim file As String = filename & "." & file_ext  
 
            'save the file to the server   
            NomUpload.PostedFile.SaveAs(Server.MapPath(".\" & sPath & "\") & file)  
            Return file  
        Else 
            Return "" 
        End If 
    End Function 
 
    'Private Sub RadGrid_BanqueCV_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid_BanqueCV.DataBound  
    '    Dim grid As RadGrid = TryCast(sender, RadGrid)  
    '    Dim gridItems As Integer = grid.MasterTableView.Items.Count  
    '    If gridItems < 5 Then  
    '        grid.Height = 250  
    '    Else  
    '        grid.Height = 250 + (gridItems * 30)  
    '    End If  
    '    If grid.Height.Value > 650 Then  
    '        grid.Height = 650  
    '    End If  
    'End Sub  
 
    Protected Sub RadGrid_BanqueCV_DeleteCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_BanqueCV.DeleteCommand  
 
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        Dim masterPrKey As String 
        Dim detailPrKey As Integer 
        Dim dir_name As String 
        Dim strsqlprogramme As String 
        Dim cmdProgramme As SqlCommand  
        Dim myDAProgramme As New SqlDataAdapter  
        Dim dsProgramme As New DataSet  
        If (e.Item.OwnerTableView.Name = "GTVUsagerProgramme"Then 
 
            detailPrKey = CType(e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("NO_PROGRAMME"), Integer)  
            masterPrKey = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("CODE_PERMANENT").ToString()  
 
            Me.SqlDSUsagerProgramme.DeleteParameters("CODE_PERMANENT").DefaultValue = masterPrKey  
            Me.SqlDSUsagerProgramme.DeleteParameters("NO_PROGRAMME").DefaultValue = detailPrKey  
             
 
            strsqlprogramme = "SELECT * FROM T_PROGRAMME WHERE NO_PROGRAMME = " & detailPrKey  
            cmdProgramme = New SqlCommand(strsqlprogramme, Conn)  
            myDAProgramme = New SqlDataAdapter(cmdProgramme)  
            Conn.Open()  
            myDAProgramme.Fill(dsProgramme)  
            Conn.Close()  
 
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Supprimer un programme à l''usager", Session("sDemandeur") & " a supprimé le programme " & dsProgramme.Tables(0).Rows(0).Item("NOM") & " à l'usager " & masterPrKey)  
        ElseIf (e.Item.OwnerTableView.Name = "MTVBanqueCv"Then 
            masterPrKey = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("CODE_PERMANENT")  
            dir_name = Server.MapPath(".\cv\" & masterPrKey)  
            If My.Computer.FileSystem.DirectoryExists(dir_name) = True Then 
                My.Computer.FileSystem.DeleteDirectory(dir_name, FileIO.DeleteDirectoryOption.DeleteAllContents)  
                fonctionsvbs.LogInsert(Session("sDemandeur"), "Supprimer un usager", Session("sDemandeur") & " a supprimé l'usager " & masterPrKey)  
            Else 
                'MsgBox("Le dossier à supprimer n'existe pas")  
            End If 
 
        End If 
 
 
    End Sub 
 
    Private Sub RadGrid_BanqueCV_InsertCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_BanqueCV.InsertCommand  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
 
        Dim item As GridEditFormItem  
        item = CType(e.Item, GridEditFormItem)  
        If "GTVUsagerProgramme".Equals(e.Item.OwnerTableView.Name) Then 
            Dim codePermanent As String = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("CODE_PERMANENT").ToString()  
            Dim cbProgramme As RadComboBox = DirectCast(item("NO_PROGRAMME").Controls(0), RadComboBox)  
 
            Me.SqlDSUsagerProgramme.InsertParameters("CODE_PERMANENT").DefaultValue = codePermanent  
            Me.SqlDSUsagerProgramme.InsertParameters("NO_PROGRAMME").DefaultValue = cbProgramme.SelectedValue  
 
            Dim DatePickDatediplome As RadDatePicker = DirectCast(item("TemplateColumnDateDiplome").FindControl("DPicker_DATE_DIPLOME"), RadDatePicker)  
            If Not (DatePickDatediplome.SelectedDate Is NothingThen 
                Me.SqlDSUsagerProgramme.InsertParameters("DATE_DIPLOME").DefaultValue = DatePickDatediplome.SelectedDate  
            End If 
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Ajouter un programme à l''usager", Session("sDemandeur") & " a ajouté le programme " & cbProgramme.Text & " à l'usager " & codePermanent)  
        End If 
 
       
    End Sub 
 
     
 
    Private Sub RadGrid_BanqueCV_ItemDataBound(ByVal sender As ObjectByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid_BanqueCV.ItemDataBound  
        If (TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode) And (e.Item.OwnerTableView.Name = "MTVBanqueCv"Then 
            Dim editItem As GridEditableItem = DirectCast(e.Item, GridEditableItem)  
            'For TemplateColumns   
            'Dim Uploadbx As FileUpload = DirectCast(editItem("TemplateColumnCv").FindControl("CV"), FileUpload)  
            'Uploadbx.Width = 400  
 
            'For GridBoundColumns  
            Dim txtbxNom As TextBox = DirectCast(editItem("NOM").Controls(0), TextBox)  
            txtbxNom.Width = 250  
            Dim txtbxAdresse As TextBox = DirectCast(editItem("ADRESSE").Controls(0), TextBox)  
            txtbxAdresse.Width = 325  
            Dim txtbxVille As TextBox = DirectCast(editItem("VILLE").Controls(0), TextBox)  
            txtbxVille.Width = 250  
            Dim txtbxCourriel As TextBox = DirectCast(editItem("COURRIEL").Controls(0), TextBox)  
            txtbxCourriel.Width = 325  
        End If 
    End Sub 
 
    Private Sub RadGrid_BanqueCV_UpdateCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_BanqueCV.UpdateCommand  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        Dim item As GridEditFormItem  
        item = CType(e.Item, GridEditFormItem)  
         
        If "MTVBanqueCv".Equals(e.Item.OwnerTableView.Name) Then 
            Dim codePermanent As TextBox = DirectCast(item("CODE_PERMANENT").Controls(0), TextBox)  
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Modifier un usager", Session("sDemandeur") & " a modifié l''usager " & codePermanent.Text)  
 
        End If 
    End Sub 
 
    'Private Sub RadGrid_Offre_Programme_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid_Offre_Programme.DataBound  
    '    Dim grid As RadGrid = TryCast(sender, RadGrid)  
    '    Dim gridItems As Integer = grid.MasterTableView.Items.Count  
    '    If gridItems < 6 Then  
    '        grid.Height = 250  
    '    Else  
    '        grid.Height = 250 + (gridItems * 30)  
    '    End If  
    '    If grid.Height.Value > 650 Then  
    '        grid.Height = 650  
    '    End If  
    'End Sub  
 
    Private Sub RadGrid_Offre_Programme_DeleteCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_Offre_Programme.DeleteCommand  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
        Dim masterPrKey As String 
        Dim detailPrKey As Integer 
        Dim strsqlprogramme As String 
        Dim cmdProgramme As SqlCommand  
        Dim myDAProgramme As New SqlDataAdapter  
        Dim dsProgramme As New DataSet  
          
 
        If (e.Item.OwnerTableView.Name = "MTVOffreProgramme"Then 
 
            detailPrKey = CType(e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("NO_PROGRAMME"), Integer)  
            masterPrKey = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NO_OFFRE").ToString()  
 
            Me.SqlDSOffreProgrammeDomaine.DeleteParameters("NO_OFFRE").DefaultValue = masterPrKey  
            Me.SqlDSOffreProgrammeDomaine.DeleteParameters("NO_PROGRAMME").DefaultValue = detailPrKey  
 
            strsqlprogramme = "SELECT * FROM T_PROGRAMME WHERE NO_PROGRAMME = " & detailPrKey  
            cmdProgramme = New SqlCommand(strsqlprogramme, Conn)  
            myDAProgramme = New SqlDataAdapter(cmdProgramme)  
            Conn.Open()  
            myDAProgramme.Fill(dsProgramme)  
            Conn.Close()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Supprimer un programme à une offre", Session("sDemandeur") & " a supprimé le programme " & dsProgramme.Tables(0).Rows(0).Item("NOM") & " à l'offre " & masterPrKey)  
        ElseIf (e.Item.OwnerTableView.Name = "GTVOffre"Then 
            masterPrKey = CType(e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("NO_OFFRE"), Integer)  
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Supprimer une offre", Session("sDemandeur") & " a supprimé l'offre " & masterPrKey)  
        End If 
    End Sub 
     
    Private Sub RadGrid_Offre_Programme_InsertCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_Offre_Programme.InsertCommand  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
 
        Dim item As GridEditFormItem  
        item = CType(e.Item, GridEditFormItem)  
        If "MTVOffreProgramme".Equals(e.Item.OwnerTableView.Name) Then 
            Dim strsqlprogramme As String 
            Dim cmdProgramme As SqlCommand  
            Dim myDAProgramme As New SqlDataAdapter  
            Dim strsqlprogrammeSelect As String 
            Dim cmdProgrammeSelect As SqlCommand  
            Dim myDAProgrammeSelect As New SqlDataAdapter  
            Dim dsProgrammeSelect As New DataSet  
            Dim dsProgramme2 As New DataSet  
            Dim nomprogramme As String 
            Dim nomprogramme1 As String 
            Dim nooffre As Integer = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NO_OFFRE").ToString()  
 
            Dim cbProgramme As RadComboBox = DirectCast(item("NO_PROGRAMME").Controls(0), RadComboBox)  
 
            Me.SqlDSOffreProgrammeDomaine.InsertParameters("NO_OFFRE").DefaultValue = nooffre  
            Me.SqlDSOffreProgrammeDomaine.InsertParameters("NO_PROGRAMME").DefaultValue = cbProgramme.SelectedValue  
 
            strsqlprogrammeSelect = "SELECT EXIGENCES FROM T_OFFRE WHERE NO_OFFRE=" & nooffre  
            cmdProgrammeSelect = New SqlCommand(strsqlprogrammeSelect, Conn)  
            myDAProgrammeSelect = New SqlDataAdapter(cmdProgrammeSelect)  
            Conn.Open()  
            myDAProgrammeSelect.Fill(dsProgrammeSelect)  
            Conn.Close()  
 
            NO_OFFRE_PROGRAMME_INSERT = nooffre  
            NO_PROGRAMME_OFFRE_INSERT = cbProgramme.SelectedValue  
            nomprogramme = cbProgramme.Text  
            nomprogramme1 = Replace(nomprogramme, "'""''")  
            If dsProgrammeSelect.Tables(0).Rows(0).Item("EXIGENCES"Is DBNull.Value Then 
                strsqlprogramme = "UPDATE [T_OFFRE] SET [EXIGENCES] ='" & nomprogramme1 & "' WHERE NO_OFFRE=" & nooffre  
            Else 
                strsqlprogramme = "UPDATE [T_OFFRE] SET [EXIGENCES] = EXIGENCES + '<br>' + '" & nomprogramme1 & "' WHERE NO_OFFRE=" & nooffre  
            End If 
 
            cmdProgramme = New SqlCommand(strsqlprogramme, Conn)  
            myDAProgramme = New SqlDataAdapter(cmdProgramme)  
            Conn.Open()  
            myDAProgramme.Fill(dsProgramme2)  
            Conn.Close()  
 
 
        ElseIf "GTVOffre".Equals(e.Item.OwnerTableView.Name) Then 
            Dim noEntreprise As Integer = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NO_ENTREPRISE").ToString()  
 
            Me.SqlDSOffre.InsertParameters("NO_ENTREPRISE").DefaultValue = noEntreprise  
 
            Dim DatePickDateDebut As RadDatePicker = DirectCast(item("TemplateColumnDateDebut").FindControl("DPicker_DATE_DEBUT"), RadDatePicker)  
            If Not (DatePickDateDebut.SelectedDate Is NothingThen 
                Me.SqlDSOffre.InsertParameters("DATE_DEBUT").DefaultValue = DatePickDateDebut.SelectedDate  
            End If 
 
            Dim DatePickDateFin As RadDatePicker = DirectCast(item("TemplateColumnDateFin").FindControl("DPicker_DATE_FIN"), RadDatePicker)  
            If Not (DatePickDateFin.SelectedDate Is NothingThen 
                Me.SqlDSOffre.InsertParameters("DATE_FIN").DefaultValue = DatePickDateFin.SelectedDate  
            End If 
 
 
            Dim DatePickDateDebutEmploi As RadDatePicker = DirectCast(item("TemplateColumnDateDebutEmploi").FindControl("DPicker_DATE_DEBUT_EMPLOI"), RadDatePicker)  
            If Not (DatePickDateDebutEmploi.SelectedDate Is NothingThen 
                Me.SqlDSOffre.InsertParameters("DATE_DEBUT_EMPLOI").DefaultValue = DatePickDateDebutEmploi.SelectedDate  
            End If 
            'fonctionsvbs.LogInsert(Session("sDemandeur"), "Ajouter un programme à une offre", Session("sDemandeur") & " a ajouté le programme " & cbProgramme.Text & " à l'offre" & nooffre)  
        End If 
    End Sub 
 
 
    Private Sub BtnCourriel_Click(ByVal sender As ObjectByVal e As System.EventArgs) Handles BtnCourriel.Click  
        Dim strsqlcourriel As String 
        Dim strsqlProgramme As String 
        Dim strsqlPostulant As String 
        Dim cmdcourriel As New SqlCommand  
        Dim myDAcourriel As New SqlDataAdapter  
        Dim dscourriel As New DataSet  
        Dim cmdProgramme As New SqlCommand  
        Dim myDAProgramme As New SqlDataAdapter  
        Dim dsProgramme As New DataSet  
        Dim cmdPostulant As New SqlCommand  
        Dim myDAPostulant As New SqlDataAdapter  
        Dim dsPostulant As New DataSet  
        Dim tempNoOffre As Integer 
        Dim tempNoProgramme As Integer 
        Dim intcpt As Integer 
        Dim intcpt2 As Integer 
        Dim strCourriel As String 
        Dim Diplome As String 
        Dim RecevoirOffre As String 
        Dim sCodePermanent As String 
        intcpt = 0  
        intcpt2 = 0  
 
         
 
        For Each item As GridDataItem In RadGrid_Offre_Programme.SelectedItems  
            tempNoOffre = item("NO_OFFRE").Text  
 
            strsqlProgramme = "SELECT * FROM T_OFFRE_PROGRAMME WHERE T_OFFRE_PROGRAMME.NO_OFFRE = " & tempNoOffre  
            cmdProgramme = New SqlCommand(strsqlProgramme, Conn)  
            myDAProgramme = New SqlDataAdapter(cmdProgramme)  
            Conn.Open()  
            myDAProgramme.Fill(dsProgramme)  
            Conn.Close()  
            While dsProgramme.Tables(0).Rows.Count > intcpt  
                tempNoProgramme = dsProgramme.Tables(0).Rows(intcpt).Item("NO_PROGRAMME")  
 
                strsqlPostulant = "SELECT T_USAGER.DIPLOME, T_USAGER.RECEVOIR_NOUVELLE_OFFRE, T_USAGER_PROGRAMME.CODE_PERMANENT, T_USAGER_PROGRAMME.NO_PROGRAMME, T_USAGER.COURRIEL FROM T_USAGER INNER JOIN T_USAGER_PROGRAMME ON T_USAGER.CODE_PERMANENT = T_USAGER_PROGRAMME.CODE_PERMANENT WHERE T_USAGER.RECEVOIR_NOUVELLE_OFFRE=1 AND T_USAGER_PROGRAMME.NO_PROGRAMME = " & tempNoProgramme  
                cmdPostulant = New SqlCommand(strsqlPostulant, Conn)  
                myDAPostulant = New SqlDataAdapter(cmdPostulant)  
                Conn.Open()  
                myDAPostulant.Fill(dsPostulant)  
                Conn.Close()  
 
                While dsPostulant.Tables(0).Rows.Count > intcpt2  
                    Diplome = dsPostulant.Tables(0).Rows(intcpt2).Item("DIPLOME")  
                    strCourriel = dsPostulant.Tables(0).Rows(intcpt2).Item("COURRIEL")  
                    RecevoirOffre = dsPostulant.Tables(0).Rows(intcpt2).Item("RECEVOIR_NOUVELLE_OFFRE")  
                    scodepermanent = dsPostulant.Tables(0).Rows(intcpt2).Item("CODE_PERMANENT")  
                    If RecevoirOffre = True Then 
                        If ChkNonDiplome.Checked = False Then 
                            If Diplome = "True" Then 
                                EnvoyerCourriel(strCourriel, tempNoOffre, sCodePermanent)  
                            End If 
                        Else 
                            EnvoyerCourriel(strCourriel, tempNoOffre, sCodePermanent)  
                        End If 
                        intcpt2 = intcpt2 + 1  
                    End If 
                End While 
                intcpt = intcpt + 1  
            End While 
 
            strsqlcourriel = "UPDATE [T_OFFRE] SET [COURRIEL_ENVOYE] = 1 WHERE NO_OFFRE=" & tempNoOffre  
            cmdcourriel = New SqlCommand(strsqlcourriel, Conn)  
            myDAcourriel = New SqlDataAdapter(cmdcourriel)  
            Conn.Open()  
            myDAcourriel.Fill(dscourriel)  
            Conn.Close()  
 
            Me.RadGrid_Offre_Programme.Rebind()  
        Next 
 
        
    End Sub 
 
    Protected Sub EnvoyerCourriel(ByVal scourriel As StringByVal tempnooffre As IntegerByVal sCodePermanent As String)  
 
        Dim emailsujet As String 
        Dim emailMessage As String 
        Dim strsqlOffre As String 
        Dim cmdOffre As New SqlCommand  
        Dim myDAOffre As New SqlDataAdapter  
        Dim dsOffre As New DataSet  
 
        strsqlOffre = "SELECT * FROM T_OFFRE WHERE NO_OFFRE = " & tempnooffre  
        cmdOffre = New SqlCommand(strsqlOffre, Conn)  
        myDAOffre = New SqlDataAdapter(cmdOffre)  
        Conn.Open()  
        myDAOffre.Fill(dsOffre)  
        Conn.Close()  
        'Dim cliquerici As String  
        'cliquerici = "Est-ce que vous avez déjà trouvé un emploi grâce à notre site de placement? Si oui, veuillez cliquer <a href='http://www.csbe.qc.ca/csbe/applications/servicedeplacement/FEN_TROUVER_EMPLOI.aspx?sCode='"  
 
        emailsujet = "Nouvelle Offre" 
        emailMessage = "Bonjour, <br>    Une nouvelle offre correspondant à votre profil à été ajoutée." & _  
        "<br><br><b>Numéro de l'offre:</b>" & tempnooffre & _  
        "<br><br><b>Titre du poste:</b> " & dsOffre.Tables(0).Rows(0).Item("TITRE_OFFRE") & _  
        "<br><br><b>Tâches:</b> " & dsOffre.Tables(0).Rows(0).Item("TACHES_RELIEES") & _  
        "<br><br><b>Description complémentaire:</b> " & dsOffre.Tables(0).Rows(0).Item("DESCRIPTION_COMPLEMENTAIRE") & _  
        "<br><br><b>Exigences:</b> " & dsOffre.Tables(0).Rows(0).Item("EXIGENCES") & _  
        "<br><br><b>Aptitudes:</b> " & dsOffre.Tables(0).Rows(0).Item("APTITUDES") & _  
        "<br><br><b>Type d'emploi:</b> " & dsOffre.Tables(0).Rows(0).Item("TYPE_EMPLOI") & _  
        "<br><br><b>Salaire:</b> " & dsOffre.Tables(0).Rows(0).Item("SALAIRE_OFFERT") & _  
        "<br><br><b>Nombre d'heures par semaine:</b> " & dsOffre.Tables(0).Rows(0).Item("NB_HEURE_SEMAINE") & _  
        "<br><br><b>Date de début d'emploi:</b> " & dsOffre.Tables(0).Rows(0).Item("DATE_DEBUT_EMPLOI") & _  
        "<br><br><b>Date de début d'affichage:</b> " & dsOffre.Tables(0).Rows(0).Item("DATE_DEBUT") & _  
        "<br><br><b>Date de fin d'affichage:</b> " & dsOffre.Tables(0).Rows(0).Item("DATE_FIN") & _  
        "<br><br>Est-ce que vous avez déjà trouvé un emploi grâce à notre site de placement? Si oui, veuillez cliquer <a href='http://www.csbe.qc.ca/csbe/applications/servicedeplacement/FEN_TROUVER_EMPLOI.aspx?sCode=" & sCodePermanent & "'>ici</a>." 
        Dim Mail As New Net.Mail.MailMessage(emailAdmin, scourriel, emailsujet, emailMessage)  
        Dim MailSender As New Net.Mail.SmtpClient("mail.csbe.qc.ca", 25)  
        Mail.IsBodyHtml = True 
 
        MailSender.Send(Mail)  
        fonctionsvbs.LogInsert("Le Site""Envoyer courriel", Session("sDemandeur") & " a envoyé une offre par courriel à " & scourriel)  
    End Sub 
 
    Private Sub SQLDSDomaine_Deleted(ByVal sender As ObjectByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs) Handles SQLDSDomaine.Deleted  
 
    End Sub 
 
    Private Sub RadGrid_Offre_Programme_ItemCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_Offre_Programme.ItemCommand  
        Dim item As GridDataItem  
        Dim NoOffre As String 
        Dim lien As String 
        If e.CommandName = "ImprimerOffre" Then 
            item = CType(e.Item, GridDataItem)  
            NoOffre = item("NO_OFFRE").Text  
            lien = "FEN_IMPRIMER_OFFRE.aspx?NoOffre=" & NoOffre  
            Response.Redirect(lien)  
        End If 
 
    End Sub 
 
    Public Sub RadGrid_Offre_Programme_ItemDataBound(ByVal sender As ObjectByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid_Offre_Programme.ItemDataBound  
 
        If (TypeOf e.Item Is GridEditFormInsertItem) AndAlso (e.Item.OwnerTableView.IsItemInserted = TrueAndAlso (e.Item.OwnerTableView.Name = "GTVOffre"Then 
            Dim insertItem As GridEditFormInsertItem = DirectCast(e.Item, GridEditFormInsertItem)  
            Dim chkbx As CheckBox = DirectCast(insertItem("COURRIEL_ENVOYE").Controls(0), CheckBox)  
            insertItem("COURRIEL_ENVOYE").Parent.Visible = False 
             chkbx.Style.Add("display""none")  
              
            'Dim editItem As GridEditableItem = DirectCast(e.Item, GridEditableItem)  
            Dim txtbxTitreOffre As TextBox = DirectCast(insertItem("TITRE_OFFRE").Controls(0), TextBox)  
            txtbxTitreOffre.Width = 250  
            Dim txtbxTachesReliees As TextBox = DirectCast(insertItem("TACHES_RELIEES").Controls(0), TextBox)  
            txtbxTachesReliees.Width = 325  
            txtbxTachesReliees.TextMode = TextBoxMode.MultiLine  
            txtbxTachesReliees.MaxLength = 255  
            Dim txtbxDescriptionComplementaire As TextBox = DirectCast(insertItem("DESCRIPTION_COMPLEMENTAIRE").Controls(0), TextBox)  
            txtbxDescriptionComplementaire.Width = 325  
            txtbxDescriptionComplementaire.TextMode = TextBoxMode.MultiLine  
            Dim txtbxCompetences As TextBox = DirectCast(insertItem("COMPETENCES").Controls(0), TextBox)  
            txtbxCompetences.Width = 325  
            txtbxCompetences.TextMode = TextBoxMode.MultiLine  
            Dim txtbxExigences As TextBox = DirectCast(insertItem("EXIGENCES").Controls(0), TextBox)  
            txtbxExigences.Width = 325  
            txtbxExigences.TextMode = TextBoxMode.MultiLine  
            Dim txtbxAptitudes As TextBox = DirectCast(insertItem("APTITUDES").Controls(0), TextBox)  
            txtbxAptitudes.Width = 325  
            txtbxAptitudes.TextMode = TextBoxMode.MultiLine  
            Dim txtbxTypeEmploi As TextBox = DirectCast(insertItem("TYPE_EMPLOI").Controls(0), TextBox)  
            txtbxTypeEmploi.Width = 325  
            Dim txtbxNbHeureSemaine As TextBox = DirectCast(insertItem("NB_HEURE_SEMAINE").Controls(0), TextBox)  
            txtbxNbHeureSemaine.Width = 325  
            Dim txtbxRespNom As TextBox = DirectCast(insertItem("RESP_NOM").Controls(0), TextBox)  
            txtbxNbHeureSemaine.Width = 250  
            Dim txtbxRespPrenom As TextBox = DirectCast(insertItem("RESP_PRENOM").Controls(0), TextBox)  
            txtbxNbHeureSemaine.Width = 250  
            Dim txtbxRespCourriel As TextBox = DirectCast(insertItem("RESP_COURRIEL").Controls(0), TextBox)  
            txtbxRespCourriel.Width = 250  
            Dim txtbxDemandeur As TextBox = DirectCast(insertItem("DEMANDEUR").Controls(0), TextBox)  
            txtbxDemandeur.Width = 325  
            Dim txtbxSalaireOffert As TextBox = DirectCast(insertItem("SALAIRE_OFFERT").Controls(0), TextBox)  
            txtbxSalaireOffert.Width = 325  
 
 
        End If 
        If (TypeOf e.Item Is GridEditableItem AndAlso e.Item.IsInEditMode) And (e.Item.OwnerTableView.Name = "GTVOffre"Then 
 
            Dim editItem As GridEditableItem = DirectCast(e.Item, GridEditableItem)  
            Dim txtbxTitreOffre As TextBox = DirectCast(editItem("TITRE_OFFRE").Controls(0), TextBox)  
            txtbxTitreOffre.Width = 250  
            Dim txtbxTachesReliees As TextBox = DirectCast(editItem("TACHES_RELIEES").Controls(0), TextBox)  
            txtbxTachesReliees.Width = 325  
            txtbxTachesReliees.TextMode = TextBoxMode.MultiLine  
            txtbxTachesReliees.MaxLength = 255  
            Dim txtbxDescriptionComplementaire As TextBox = DirectCast(editItem("DESCRIPTION_COMPLEMENTAIRE").Controls(0), TextBox)  
            txtbxDescriptionComplementaire.Width = 325  
            txtbxDescriptionComplementaire.TextMode = TextBoxMode.MultiLine  
            Dim txtbxCompetences As TextBox = DirectCast(editItem("COMPETENCES").Controls(0), TextBox)  
            txtbxCompetences.Width = 325  
            txtbxCompetences.TextMode = TextBoxMode.MultiLine  
            Dim txtbxExigences As TextBox = DirectCast(editItem("EXIGENCES").Controls(0), TextBox)  
            txtbxExigences.Width = 325  
            txtbxExigences.TextMode = TextBoxMode.MultiLine  
            Dim txtbxAptitudes As TextBox = DirectCast(editItem("APTITUDES").Controls(0), TextBox)  
            txtbxAptitudes.Width = 325  
            txtbxAptitudes.TextMode = TextBoxMode.MultiLine  
            Dim txtbxTypeEmploi As TextBox = DirectCast(editItem("TYPE_EMPLOI").Controls(0), TextBox)  
            txtbxTypeEmploi.Width = 325  
            Dim txtbxNbHeureSemaine As TextBox = DirectCast(editItem("NB_HEURE_SEMAINE").Controls(0), TextBox)  
            txtbxNbHeureSemaine.Width = 325  
            Dim txtbxRespNom As TextBox = DirectCast(editItem("RESP_NOM").Controls(0), TextBox)  
            txtbxNbHeureSemaine.Width = 250  
            Dim txtbxRespPrenom As TextBox = DirectCast(editItem("RESP_PRENOM").Controls(0), TextBox)  
            txtbxNbHeureSemaine.Width = 250  
            Dim txtbxRespCourriel As TextBox = DirectCast(editItem("RESP_COURRIEL").Controls(0), TextBox)  
            txtbxRespCourriel.Width = 250  
            Dim txtbxDemandeur As TextBox = DirectCast(editItem("DEMANDEUR").Controls(0), TextBox)  
            txtbxDemandeur.Width = 325  
            Dim txtbxSalaireOffert As TextBox = DirectCast(editItem("SALAIRE_OFFERT").Controls(0), TextBox)  
            txtbxSalaireOffert.Width = 325  
 
        End If 
 
 
 
          
    End Sub 
 
      
    Private Sub RadGrid_Offre_Programme_ItemInserted(ByVal source As ObjectByVal e As Telerik.Web.UI.GridInsertedEventArgs) Handles RadGrid_Offre_Programme.ItemInserted  
        Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
 
 
        Dim strsqlProgramme As String 
        Dim cmdProgramme As SqlCommand  
        Dim myDAProgramme As SqlDataAdapter  
        Dim dsProgramme As New DataSet  
        Dim strsqlOffre As String 
        Dim cmdOffre As SqlCommand  
        Dim myDAOffre As SqlDataAdapter  
        Dim dsOffre As New DataSet  
        Dim tempnomEntreprise As String 
        If "MTVOffreProgramme".Equals(e.Item.OwnerTableView.Name) Then 
            strsqlProgramme = "SELECT * FROM T_PROGRAMME WHERE NO_PROGRAMME = " & NO_PROGRAMME_OFFRE_INSERT  
            cmdProgramme = New SqlCommand(strsqlProgramme, Conn)  
            myDAProgramme = New SqlDataAdapter(cmdProgramme)  
            Conn.Open()  
            myDAProgramme.Fill(dsProgramme)  
            Conn.Close()  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Ajouter un programme à une offre", Session("sDemandeur") & " a ajouté le programme " & dsProgramme.Tables(0).Rows(0).Item("NOM") & " à l'offre no " & NO_OFFRE_PROGRAMME_INSERT)  
        ElseIf "GTVOffre".Equals(e.Item.OwnerTableView.Name) Then 
 
            strsqlOffre = "SELECT * FROM T_OFFRE ORDER BY NO_OFFRE DESC" 
            cmdOffre = New SqlCommand(strsqlOffre, Conn)  
            myDAOffre = New SqlDataAdapter(cmdOffre)  
            Conn.Open()  
            myDAOffre.Fill(dsOffre)  
            Conn.Close()  
            tempnomEntreprise = fonctionsvbs.TrouveNomEntreprise("NoOffre", dsOffre.Tables(0).Rows(0).Item("NO_OFFRE"))  
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Ajouter une offre", Session("sDemandeur") & " a ajouté l'offre " & dsOffre.Tables(0).Rows(0).Item("NO_OFFRE"))  
        End If 
        Me.RadGrid_Offre_Programme.Rebind()  
    End Sub 
 
    Private Sub RadGrid_Offre_Programme_UpdateCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid_Offre_Programme.UpdateCommand  
        If "GTVOffre".Equals(e.Item.OwnerTableView.Name) Then 
            Dim parentItem As GridDataItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem)  
            Dim noEntreprise As Integer = parentItem.OwnerTableView.DataKeyValues(parentItem.ItemIndex)("NO_ENTREPRISE").ToString()  
            Dim item As GridEditFormItem  
            item = CType(e.Item, GridEditFormItem)  
 
            Dim Nooffre As TextBox = DirectCast(item("NO_OFFRE").Controls(0), TextBox)  
 
            Me.SqlDSOffre.UpdateParameters("NO_ENTREPRISE").DefaultValue = noEntreprise  
 
            Dim DatePickDateDebut As RadDatePicker = DirectCast(item("TemplateColumnDateDebut").FindControl("DPicker_DATE_DEBUT"), RadDatePicker)  
            If Not (DatePickDateDebut.SelectedDate Is NothingThen 
                Me.SqlDSOffre.UpdateParameters("DATE_DEBUT").DefaultValue = DatePickDateDebut.SelectedDate  
            End If 
 
            Dim DatePickDateFin As RadDatePicker = DirectCast(item("TemplateColumnDateFin").FindControl("DPicker_DATE_FIN"), RadDatePicker)  
            If Not (DatePickDateFin.SelectedDate Is NothingThen 
                Me.SqlDSOffre.UpdateParameters("DATE_FIN").DefaultValue = DatePickDateFin.SelectedDate  
            End If 
 
 
            Dim DatePickDateDebutEmploi As RadDatePicker = DirectCast(item("TemplateColumnDateDebutEmploi").FindControl("DPicker_DATE_DEBUT_EMPLOI"), RadDatePicker)  
            If Not (DatePickDateDebutEmploi.SelectedDate Is NothingThen 
                Me.SqlDSOffre.UpdateParameters("DATE_DEBUT_EMPLOI").DefaultValue = DatePickDateDebutEmploi.SelectedDate  
            End If 
 
            fonctionsvbs.LogInsert(Session("sDemandeur"), "Modifier un offre", Session("sDemandeur") & " a modifier l'offre no " & Nooffre.Text)  
        End If 
    End Sub 
 
    Private Sub RadGrid_Log_DataBound(ByVal sender As ObjectByVal e As System.EventArgs) Handles RadGrid_Log.DataBound  
        '   Dim grid As RadGrid = TryCast(sender, RadGrid)  
        '    Dim gridItems As Integer = grid.MasterTableView.Items.Count  
        '    If gridItems < 12 Then  
        '        grid.Height = 250  
        '    Else  
        '        grid.Height = 250 + (gridItems * 20)  
        '    End If  
        '    If grid.Height.Value > 650 Then  
        '        grid.Height = 650  
        '    End If  
    End Sub 
 
    Protected Sub RadGrid2_NeedDataSource(ByVal source As ObjectByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs)  
        If Not IsPostBack Then 
            dt = AddRow(dt)  
            ' call the method to create row   
            ViewState("dt") = dt  
        End If 
        dt = DirectCast(ViewState("dt"), DataTable)  
        RadGrid2.DataSource = dt  
    End Sub 
 
    Private Function AddRow(ByVal dt As DataTable) As DataTable  
        ' method to create row   
        Dim dr As DataRow = dt.NewRow()  
        dr("RowNumber") = "" 
        dt.Rows.Add(dr)  
        Return dt  
    End Function 
 
    Protected Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgs)  
        Dim countitem As Integer 
        Dim dt As DataTable = DirectCast(ViewState("dt"), DataTable)  
 
        countitem = RadGrid2.Items.Count  
        Dim cpt As Integer = 0  
        For Each Item As GridDataItem In RadGrid2.Items  
 
            Dim txtcode As TextBox = DirectCast(Item("CodePermanent").FindControl("TxtCodePermanent"), TextBox)  
            If Not (txtcode.Text Is NothingAnd txtcode.Text <> "" Then 
                liste.Add(txtcode.Text)  
 
            End If 
 
        Next 
        ViewState("dt") = AddRow(dt)  
        listcount = liste.Count  
 
        RadGrid2.Rebind()  
        While cpt < listcount  
            Dim txtcode As TextBox = DirectCast(RadGrid2.Items(cpt)("CodePermanent").FindControl("TxtCodePermanent"), TextBox)  
            txtcode.Text = liste.Item(cpt)  
            cpt = cpt + 1  
        End While 
    End Sub 
 
    Public Sub RadGrid2_ItemCommand(ByVal source As ObjectByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid2.ItemCommand  
        If e.CommandName = "UpdateChanges" Then 
            For Each Item As GridDataItem In RadGrid2.Items  
                Dim txtcode As TextBox = DirectCast(Item("CodePermanent").FindControl("TxtCodePermanent"), TextBox)  
                If Not (txtcode.Text Is NothingThen 
                    ImporterEtudiants(txtcode.Text)  
 
                End If 
            Next 
           End If 
    End Sub 
 
    Public Function ImporterEtudiants(ByVal sCodePerm As StringAs Boolean 
        Dim strSQLIdent As String 
        Dim cmdIdent As New SqlCommand  
        Dim myDAIdent As New SqlDataAdapter  
        Dim dsIdent As New DataSet  
        Dim strSQLIdentValide As String 
        Dim cmdIdentValide As New SqlCommand  
        Dim myDAIdentValide As New SqlDataAdapter  
        Dim dsIdentValide As New DataSet  
        Dim strSQLIdentInsert As String 
        Dim cmdIdentInsert As New SqlCommand  
        Dim myDAIdentInsert As New SqlDataAdapter  
        Dim dsIdentInsert As New DataSet  
        Dim DatedeNaissance As Date 
 
        strSQLIdentValide = "SELECT * FROM T_USAGER WHERE CODE_PERMANENT ='" & sCodePerm & "'" 
        cmdIdentValide = New SqlCommand(strSQLIdentValide, Conn)  
        myDAIdentValide = New SqlDataAdapter(cmdIdentValide)  
        Conn.Open()  
        myDAIdentValide.Fill(dsIdentValide)  
        Conn.Close()  
        If dsIdentValide.Tables(0).Rows.Count > 0 Then 'L'usager existe déjà dans la table T_USAGER  
            Return True 
        Else 
 
            strSQLIdent = "SELECT E_Ele.Fiche,CodePerm,DateNaiss,Nom,Pnom,NoCiv,Rue,Ville,CodePost,IndReg,Tel " & _  
            "FROM E_Ele " & _  
            "INNER JOIN E_Adr " & _  
            "ON E_Ele.Fiche = E_Adr.Fiche " & _  
            "INNER JOIN E_Freq ON E_Ele.Fiche = E_Freq.Fiche " & _  
            "GROUP BY E_Ele.Fiche, E_Ele.CodePerm, E_Ele.DateNaiss, E_Ele.Nom, E_Ele.Pnom, E_Adr.NoCiv, E_Adr.Rue, E_Adr.Ville, E_Adr.CodePost, E_Adr.IndReg, E_Adr.Tel, E_Adr.DateFin, E_Adr.EnvoiMeq " & _  
            "HAVING (((Max(E_Freq.DateFin))>'2008-01-01') AND ((E_Adr.DateFin)='') AND ((E_Adr.EnvoiMeq)='1')) AND CodePerm='" & sCodePerm & "'" 
 
            cmdIdent = New SqlCommand(strSQLIdent, ConnJadeAdulte)  
            myDAIdent = New SqlDataAdapter(cmdIdent)  
            ConnJadeAdulte.Open()  
            myDAIdent.Fill(dsIdent)  
            ConnJadeAdulte.Close()  
            If dsIdent.Tables(0).Rows.Count > 0 Then 
                DatedeNaissance = Left(dsIdent.Tables(0).Rows(0).Item("DateNaiss"), 4) & "-" & Mid(dsIdent.Tables(0).Rows(0).Item("DateNaiss"), 5, 2) & "-" & Right(dsIdent.Tables(0).Rows(0).Item("DateNaiss"), 2)  
                strSQLIdentInsert = "INSERT INTO T_USAGER (CODE_PERMANENT,MOT_PASSE,PRENOM,NOM,ADRESSE,VILLE,CODE_POSTAL,NO_TEL,COURRIEL,DATE_NAISSANCE,LETTRE_CONSENTEMENT,RECEVOIR_NOUVELLE_OFFRE,DIPLOME, PREMIERE_FOIS) " & _  
                                    "VALUES ('" & sCodePerm & "'," & dsIdent.Tables(0).Rows(0).Item("DateNaiss") & ",'" & Trim(dsIdent.Tables(0).Rows(0).Item("Pnom")) & "', '" & Trim(dsIdent.Tables(0).Rows(0).Item("Nom")) & "','" & Trim(dsIdent.Tables(0).Rows(0).Item("NoCiv")) & " " & Trim(dsIdent.Tables(0).Rows(0).Item("Rue")) & "','" & Trim(dsIdent.Tables(0).Rows(0).Item("Ville")) & "','" & dsIdent.Tables(0).Rows(0).Item("CodePost") & "','" & dsIdent.Tables(0).Rows(0).Item("IndReg") & dsIdent.Tables(0).Rows(0).Item("Tel") & "','','" & DatedeNaissance & "',0,0,0,1)" 
                cmdIdentInsert = New SqlCommand(strSQLIdentInsert, Conn)  
                myDAIdentInsert = New SqlDataAdapter(cmdIdentInsert)  
                Conn.Open()  
                myDAIdentInsert.Fill(dsIdentInsert)  
                Conn.Close()  
                Return True 
            Else 
                If CodePermInvalide = "" Then 
                    CodePermInvalide = sCodePerm  
                Else 
                    CodePermInvalide = CodePermInvalide & " <br> " & sCodePerm  
                End If 
                Return False 
            End If 
        End If 
        'LORSQUE TOUS LES ÉTUDIANTS SERONT PASSER ICI, JE DOIS VÉRIFIER SI CODEPERMINVALIDE EST = À "",   
        'SI OUI C'EST OK, SINON JE DOIS LA REDIRIGER VERS UNE PAGE QUI AFFICHE CODEPERMINVALIDE POUR   
        'DIRE LESQUEL NONT PAS ÉTÉ AJOUTÉ.  
    End Function 
 
     
    Private Sub RadGrid2_PreRender(ByVal sender As ObjectByVal e As System.EventArgs) Handles RadGrid2.PreRender  
        RadGrid2.MasterTableView.RenderColumns(1).Display = False 
        RadGrid2.MasterTableView.RenderColumns(3).Display = False 
    End Sub 
End Class 

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="FEN_GESTION.aspx.vb" Inherits="ServiceDePlacement.FEN_GESTION" %> 
<%@ Register assembly="Telerik.Web.UI" namespace="Telerik.Web.UI" tagprefix="telerik" %> 
<%@ Register TagPrefix="header" TagName="a" Src="MenuDebut2.ascx" %>   
<%@ Register TagPrefix="header" TagName="b" Src="MenuFin2.ascx" %>   
<%@ Import Namespace="System.Web.HttpUtility" %> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
 
<html xmlns="http://www.w3.org/1999/xhtml" > 
<head runat="server">  
    <title>Service de placement FPEA</title> 
    <link href="FichierStyle.css" type="text/css" rel="stylesheet"/>  
</head> 
<body> 
    <form id="form1" runat="server">  
     <header:a ID="A1" runat="server" />    
    <div> 
        <asp:scriptmanager ID="ScriptManager1" runat="server" ></asp:scriptmanager> 
          
        <%-- ********************************************************************************************** --%> 
        <%--   Permet de ne pas reloader la page à chaque fois que l'usager Expand/Collapse les Grid        --%> 
        <%-- ********************************************************************************************** --%> 
          
        <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">  
            <AjaxSettings> 
                <telerik:AjaxSetting AjaxControlID="RadGrid1">  
                    <UpdatedControls> 
                        <telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" /> 
                        <telerik:AjaxUpdatedControl ControlID="RadGrid_Entreprise" LoadingPanelID="RadAjaxLoadingPanel1" /> 
                        <telerik:AjaxUpdatedControl ControlID="RadGrid_Demande" LoadingPanelID="RadAjaxLoadingPanel1" /> 
                        <telerik:AjaxUpdatedControl ControlID="RadGrid_Log" LoadingPanelID="RadAjaxLoadingPanel1" /> 
                          
                    </UpdatedControls> 
                </telerik:AjaxSetting> 
                <telerik:AjaxSetting AjaxControlID="RadGrid2">  
                </telerik:AjaxSetting> 
                <telerik:AjaxSetting AjaxControlID="RadGrid_Entreprise">  
                <UpdatedControls> 
                    <telerik:AjaxUpdatedControl ControlID="RadGrid_Offre_Programme"   /> 
                    <telerik:AjaxUpdatedControl ControlID="RadGrid_offre"  /> 
                </UpdatedControls> 
            </telerik:AjaxSetting> 
            </AjaxSettings> 
        </telerik:RadAjaxManager> 
          
         
          
        <telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" Runat="server"   
            height="16px" width="79px" Transparency="5">  
           <asp:Image ID="Image1" runat="server" BorderColor="Black" BorderWidth="1" ImageUrl="~/Images/Loading.JPG" /> 
        </telerik:RadAjaxLoadingPanel> 
         
          
        <%-- ********************************************************************************************** --%> 
        <%-- ****                      DATASOURCES ONGLET PROGRAMMES                                   **** --%> 
        <%-- ********************************************************************************************** --%> 
        <asp:SqlDataSource ID="SQLDSDomaine"   
            SelectCommand="SELECT T_DOMAINE.NO_DOMAINE, T_DOMAINE.NOM as NOM FROM T_DOMAINE"   
            DeleteCommand="DELETE FROM [T_DOMAINE] WHERE [NO_DOMAINE] = ?" 
            UpdateCommand="UPDATE [T_DOMAINE] SET [NOM] = ? WHERE NO_DOMAINE=?" 
            InsertCommand="INSERT INTO [T_DOMAINE] ([NOM]) VALUES (?)"   
            runat="server"   
            ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
            <DeleteParameters> 
                <asp:Parameter Name="NO_DOMAINE" Type="Int32" /> 
            </DeleteParameters> 
            <UpdateParameters> 
                <asp:Parameter Name="NO_DOMAINE" Type="Int32" /> 
                <asp:Parameter Name="NOM" Type="String" /> 
            </UpdateParameters> 
            <InsertParameters> 
                <asp:Parameter Name="NOM" Type="String" /> 
            </InsertParameters> 
        </asp:SqlDataSource> 
         
        <asp:SqlDataSource ID="SqlDSProgramme"   
            SelectCommand="SELECT NO_PROGRAMME, NOM, NO_DOMAINE, DESCR FROM T_PROGRAMME WHERE NO_DOMAINE = ?"   
            DeleteCommand="DELETE FROM [T_PROGRAMME] WHERE [NO_PROGRAMME] = ?" 
            UpdateCommand="UPDATE [T_PROGRAMME] SET [NOM] = ?, [NO_DOMAINE] = ?, [DESCR] = ? WHERE [NO_PROGRAMME] = ?" 
            InsertCommand="INSERT INTO [T_PROGRAMME] ([NOM], [NO_DOMAINE], [DESCR]) VALUES (?, ?, ?)"   
            runat="server"   
           ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
            <SelectParameters> 
                <asp:Parameter Name="NO_DOMAINE" Type="Int32" /> 
            </SelectParameters> 
            <DeleteParameters> 
                <asp:Parameter Name="NO_PROGRAMME" Type="Int32" /> 
            </DeleteParameters> 
            <UpdateParameters> 
                <asp:Parameter Name="NO_PROGRAMME" Type="Int32" /> 
                <asp:Parameter Name="NOM" Type="String" /> 
                <asp:Parameter Name="NO_DOMAINE" Type="Int32" /> 
                <asp:Parameter Name="DESCR" Type="String" /> 
            </UpdateParameters> 
            <InsertParameters> 
                <asp:Parameter Name="NOM" Type="String" /> 
                <asp:Parameter Name="NO_DOMAINE" Type="Int32" /> 
                <asp:Parameter Name="DESCR" Type="String" /> 
            </InsertParameters> 
        </asp:SqlDataSource> 
          
        <%-- ********************************************************************************************** --%> 
        <%-- ****                       DATASOURCES ONGLET ENTREPRISE                                  **** --%> 
        <%-- ********************************************************************************************** --%> 
        <asp:SqlDataSource ID="SqlDSEntreprise"   
            SelectCommand="SELECT NO_ENTREPRISE,NOM_ENTREPRISE, DESCR, ADRESSE, VILLE, CODE_POSTAL, NO_TEL,NO_CELL,NO_TEL_AUTRE NO_FAX, RESP_COURRIEL, RESP_NOM, RESP_PRENOM,USAGER,MOT_PASSE,SITE_WEB,AUTONOME_OFFRE FROM T_ENTREPRISE"   
            DeleteCommand="DELETE FROM [T_ENTREPRISE] WHERE [NO_ENTREPRISE] = ?" 
            UpdateCommand="UPDATE [T_ENTREPRISE] SET [NOM_ENTREPRISE] =?,[DESCR]=?,[ADRESSE]=?,[VILLE]=?,[CODE_POSTAL]=?,[NO_TEL]=?,[NO_CELL]=?,[NO_TEL_AUTRE]=?,[NO_FAX]=?,[RESP_COURRIEL]=?,[RESP_NOM]=?,[RESP_PRENOM]=?,[USAGER]=?,[MOT_PASSE]=?,[SITE_WEB]=?,[AUTONOME_OFFRE]=? WHERE NO_ENTREPRISE=?" 
            InsertCommand="INSERT INTO [T_ENTREPRISE] ([NOM_ENTREPRISE],[DESCR],[ADRESSE],[VILLE],[CODE_POSTAL],[NO_TEL],[NO_CELL],[NO_TEL_AUTRE],[NO_FAX],[RESP_COURRIEL],[RESP_NOM],[RESP_PRENOM],[USAGER],[MOT_PASSE],[SITE_WEB],[AUTONOME_OFFRE]) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"   
            runat="server"   
            ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
            <DeleteParameters> 
                <asp:Parameter Name="NO_ENTREPRISE" Type="Int32" /> 
            </DeleteParameters> 
            <UpdateParameters> 
                <asp:Parameter Name="NO_ENTREPRISE" Type="Int32" /> 
                <asp:Parameter Name="NOM_ENTREPRISE" Type="String" /> 
                <asp:Parameter Name="DESCR" Type="String" /> 
                <asp:Parameter Name="ADRESSE" Type="String" /> 
                <asp:Parameter Name="VILLE" Type="String" /> 
                <asp:Parameter Name="CODE_POSTAL" Type="String" /> 
                <asp:Parameter Name="NO_TEL" Type="String" /> 
                <asp:Parameter Name="NO_CELL" Type="String" /> 
                <asp:Parameter Name="NO_TEL_AUTRE" Type="String" /> 
                <asp:Parameter Name="NO_FAX" Type="String" /> 
                <asp:Parameter Name="RESP_COURRIEL" Type="String" /> 
                <asp:Parameter Name="RESP_NOM" Type="String" /> 
                <asp:Parameter Name="RESP_PRENOM" Type="String" /> 
                <asp:Parameter Name="USAGER" Type="String" /> 
                <asp:Parameter Name="MOT_PASSE" Type="String" /> 
                <asp:Parameter Name="SITE_WEB" Type="String" /> 
                <asp:Parameter Name="AUTONOME_OFFRE" Type="int32" /> 
            </UpdateParameters> 
            <InsertParameters> 
                <asp:Parameter Name="NOM_ENTREPRISE" Type="String" /> 
                <asp:Parameter Name="DESCR" Type="String" /> 
                <asp:Parameter Name="ADRESSE" Type="String" /> 
                <asp:Parameter Name="VILLE" Type="String" /> 
                <asp:Parameter Name="CODE_POSTAL" Type="String" /> 
                <asp:Parameter Name="NO_TEL" Type="String" /> 
                <asp:Parameter Name="NO_CELL" Type="String" /> 
                <asp:Parameter Name="NO_TEL_AUTRE" Type="String" /> 
                <asp:Parameter Name="NO_FAX" Type="String" /> 
                <asp:Parameter Name="RESP_COURRIEL" Type="String" /> 
                <asp:Parameter Name="RESP_NOM" Type="String" /> 
                <asp:Parameter Name="RESP_PRENOM" Type="String" /> 
                 <asp:Parameter Name="USAGER" Type="String" /> 
                <asp:Parameter Name="MOT_PASSE" Type="String" /> 
                <asp:Parameter Name="SITE_WEB" Type="String" /> 
                <asp:Parameter Name="AUTONOME_OFFRE" Type="int32" /> 
            </InsertParameters> 
        </asp:SqlDataSource> 
        <%-- ********************************************************************************************** --%> 
        <%-- ****                        DATASOURCES ONGLET OFFRES PROGRAMME                           **** --%> 
        <%-- ********************************************************************************************** --%> 
          
          
        <asp:SqlDataSource ID="SqlDSOffreProgrammeDomaine"   
            SelectCommand="SELECT NO_OFFRE,T_OFFRE_PROGRAMME.NO_PROGRAMME,T_PROGRAMME.NOM AS PNOM, T_DOMAINE.NOM AS DNOM FROM T_OFFRE_PROGRAMME INNER JOIN T_PROGRAMME ON T_OFFRE_PROGRAMME.NO_PROGRAMME = T_PROGRAMME.NO_PROGRAMME INNER JOIN T_DOMAINE ON T_PROGRAMME.NO_DOMAINE = T_DOMAINE.NO_DOMAINE WHERE T_OFFRE_PROGRAMME.NO_OFFRE = ?"   
            DeleteCommand="DELETE FROM [T_OFFRE_PROGRAMME] WHERE [NO_OFFRE] = ? AND [NO_PROGRAMME] =?" 
            InsertCommand="INSERT INTO [T_OFFRE_PROGRAMME] ([NO_OFFRE],[NO_PROGRAMME]) VALUES (?,?)" 
            runat="server"   
            ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
            <SelectParameters> 
                <asp:Parameter Name="NO_OFFRE" Type="Int32" /> 
            </SelectParameters> 
            <DeleteParameters> 
                <asp:Parameter Name="NO_OFFRE" Type="Int32" /> 
                <asp:Parameter Name="NO_PROGRAMME" Type="Int32" />    
            </DeleteParameters> 
           <InsertParameters> 
                <asp:Parameter Name="NO_OFFRE" Type="Int32" /> 
                <asp:Parameter Name="NO_PROGRAMME" Type="Int32" />    
            </InsertParameters> 
        </asp:SqlDataSource> 
          
        <%-- ********************************************************************************************** --%> 
        <%-- ****                        DATASOURCES ONGLET OFFRES DEMANDE                             **** --%> 
        <%-- ********************************************************************************************** --%> 
        <asp:SqlDataSource ID="SqlDSEntrepriseOffre"   
            SelectCommand="SELECT NO_ENTREPRISE,NOM_ENTREPRISE, DESCR FROM T_ENTREPRISE"   
            runat="server"   
           ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
        </asp:SqlDataSource> 
          
        <asp:SqlDataSource ID="SqlDSOffre"   
            SelectCommand="SELECT NO_OFFRE,TITRE_OFFRE, NB_POSTE_DISPO,TACHES_RELIEES,DESCRIPTION_COMPLEMENTAIRE,COMPETENCES, EXIGENCES, APTITUDES, TYPE_EMPLOI, NB_HEURE_SEMAINE, RESP_NOM, RESP_PRENOM, RESP_COURRIEL, RESP_NO_TEL, NO_ENTREPRISE, DATE_DEBUT, DATE_FIN, DATE_DEBUT_EMPLOI, DEMANDEUR, STATUS, SALAIRE_OFFERT,COURRIEL_ENVOYE FROM T_OFFRE WHERE NO_ENTREPRISE=?"   
            DeleteCommand="DELETE FROM [T_OFFRE] WHERE [NO_OFFRE] = ?" 
            UpdateCommand="UPDATE [T_OFFRE] SET [TITRE_OFFRE] = ?,[NB_POSTE_DISPO]=?,[TACHES_RELIEES]=?,[DESCRIPTION_COMPLEMENTAIRE]=?,[COMPETENCES]=?,[EXIGENCES]=?,[APTITUDES]=?,[TYPE_EMPLOI]=?,[NB_HEURE_SEMAINE]=?,[RESP_NOM]=?,[RESP_PRENOM]=?,[RESP_COURRIEL]=?,[RESP_NO_TEL]=?,[NO_ENTREPRISE]=?,[DATE_DEBUT]=?,[DATE_FIN]=?,[DATE_DEBUT_EMPLOI]=?,[DEMANDEUR]=?,[STATUS]=?,[SALAIRE_OFFERT]=?,[COURRIEL_ENVOYE]=? WHERE NO_OFFRE=?" 
            InsertCommand="INSERT INTO [T_OFFRE] ([TITRE_OFFRE],[NB_POSTE_DISPO],[TACHES_RELIEES],[DESCRIPTION_COMPLEMENTAIRE],[COMPETENCES],[EXIGENCES],[APTITUDES],[TYPE_EMPLOI],[NB_HEURE_SEMAINE],[RESP_NOM],[RESP_PRENOM],[RESP_COURRIEL],[RESP_NO_TEL],[NO_ENTREPRISE],[DATE_DEBUT],[DATE_FIN],[DATE_DEBUT_EMPLOI],[DEMANDEUR],[STATUS],[SALAIRE_OFFERT],[COURRIEL_ENVOYE]) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"   
            runat="server"   
            ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
            <SelectParameters> 
                <asp:Parameter Name="NO_ENTREPRISE" Type="Int32" /> 
            </SelectParameters> 
            <DeleteParameters> 
                <asp:Parameter Name="NO_OFFRE" Type="Int32" /> 
            </DeleteParameters> 
            <UpdateParameters> 
                <asp:Parameter Name="NO_OFFRE" Type="Int32" /> 
                <asp:Parameter Name="TITRE_OFFRE" Type="String" /> 
                <asp:Parameter Name="NB_POSTE_DISPO" Type="String" /> 
                <asp:Parameter Name="TACHES_RELIEES" Type="String" /> 
                <asp:Parameter Name="DESCRIPTION_COMPLEMENTAIRE" Type="String" /> 
                <asp:Parameter Name="COMPETENCES" Type="String" /> 
                <asp:Parameter Name="EXIGENCES" Type="String" /> 
                <asp:Parameter Name="APTITUDES" Type="String" /> 
                <asp:Parameter Name="TYPE_EMPLOI" Type="String" /> 
                <asp:Parameter Name="NB_HEURE_SEMAINE" Type="String" /> 
                <asp:Parameter Name="RESP_NOM" Type="String" /> 
                <asp:Parameter Name="RESP_PRENOM" Type="String" /> 
                <asp:Parameter Name="RESP_COURRIEL" Type="String" /> 
                <asp:Parameter Name="RESP_NO_TEL" Type="String" /> 
                <asp:Parameter Name="NO_ENTREPRISE" Type="String" /> 
                <asp:Parameter Name="DATE_DEBUT" Type="DateTime" /> 
                <asp:Parameter Name="DATE_FIN" Type="DateTime" /> 
                <asp:Parameter Name="DATE_DEBUT_EMPLOI" Type="DateTime" /> 
                <asp:Parameter Name="DEMANDEUR" Type="String" /> 
                <asp:Parameter Name="STATUS" Type="int32" /> 
                <asp:Parameter Name="SALAIRE_OFFERT" Type="string" /> 
                <asp:Parameter Name="COURRIEL_ENVOYE" Type="int32" /> 
            </UpdateParameters> 
            <InsertParameters> 
                <asp:Parameter Name="TITRE_OFFRE" Type="String" /> 
                <asp:Parameter Name="NB_POSTE_DISPO" Type="String" /> 
                <asp:Parameter Name="TACHES_RELIEES" Type="String" /> 
                <asp:Parameter Name="DESCRIPTION_COMPLEMENTAIRE" Type="String" /> 
                <asp:Parameter Name="COMPETENCES" Type="String" /> 
                <asp:Parameter Name="EXIGENCES" Type="String" /> 
                <asp:Parameter Name="APTITUDES" Type="String" /> 
                <asp:Parameter Name="TYPE_EMPLOI" Type="String" /> 
                <asp:Parameter Name="NB_HEURE_SEMAINE" Type="String" /> 
                <asp:Parameter Name="RESP_NOM" Type="String" /> 
                <asp:Parameter Name="RESP_PRENOM" Type="String" /> 
                <asp:Parameter Name="RESP_COURRIEL" Type="String" /> 
                <asp:Parameter Name="RESP_NO_TEL" Type="String" /> 
                <asp:Parameter Name="NO_ENTREPRISE" Type="String" /> 
                <asp:Parameter Name="DATE_DEBUT" Type="DateTime" /> 
                <asp:Parameter Name="DATE_FIN" Type="DateTime" /> 
                <asp:Parameter Name="DATE_DEBUT_EMPLOI" Type="DateTime" /> 
                <asp:Parameter Name="DEMANDEUR" Type="String" /> 
                <asp:Parameter Name="STATUS" Type="int32" /> 
                <asp:Parameter Name="SALAIRE_OFFERT" Type="string" /> 
                <asp:Parameter Name="COURRIEL_ENVOYE" Type="int32" /> 
            </InsertParameters> 
        </asp:SqlDataSource> 
          
               
        <asp:SqlDataSource ID="SqlDSPostulant"   
            SelectCommand="SELECT NO_DEMANDE,PRENOM,NOM,COURRIEL,LETTRE_CONSENTEMENT,RECEVOIR_NOUVELLE_OFFRE,DIPLOME,T_DEMANDE.CODE_PERMANENT, STATUS, DATE_SOUMISSION, LETTRE_PRESENTATION, NO_OFFRE, T_DEMANDE.NOM_CV FROM T_DEMANDE INNER JOIN T_USAGER ON T_DEMANDE.CODE_PERMANENT=T_USAGER.CODE_PERMANENT WHERE NO_OFFRE = ?"   
            DeleteCommand="DELETE FROM [T_DEMANDE] WHERE [NO_DEMANDE] = ?" 
            UpdateCommand="UPDATE [T_DEMANDE] SET [STATUS] = 0,[LETTRE_PRESENTATION]=?,[NOM_CV]=? WHERE NO_DEMANDE=?" 
            runat="server"   
           ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
            <SelectParameters> 
                <asp:Parameter Name="NO_OFFRE" Type="Int32" /> 
            </SelectParameters> 
            <DeleteParameters> 
                <asp:Parameter Name="NO_DEMANDE" Type="Int32" /> 
            </DeleteParameters> 
            <UpdateParameters> 
                <asp:Parameter Name="NO_DEMANDE" Type="Int32" /> 
                <asp:Parameter Name="STATUS" Type="Int32" /> 
                <asp:Parameter Name="LETTRE_PRESENTATION" Type="String" /> 
                <asp:Parameter Name="NOM_CV" Type="String" />     
            </UpdateParameters> 
        </asp:SqlDataSource> 
          
        <%-- ********************************************************************************************** --%> 
        <%-- ****                        DATASOURCES ONGLET BANQUE DE CV                               **** --%> 
        <%-- ********************************************************************************************** --%> 
          
        <asp:SqlDataSource ID="SqlDSBanqueCV"   
            SelectCommand="SELECT CODE_PERMANENT,PRENOM,NOM,ADRESSE,VILLE,CODE_POSTAL,NO_TEL,COURRIEL,DATE_NAISSANCE,LETTRE_CONSENTEMENT,RECEVOIR_NOUVELLE_OFFRE,DIPLOME,TROUVE_EMPLOI,DATE_TROUVE_EMPLOI FROM T_USAGER"   
            DeleteCommand="DELETE FROM [T_USAGER] WHERE [CODE_PERMANENT] = ?" 
            UpdateCommand="UPDATE [T_USAGER] SET [PRENOM] = ?,[NOM]=?,[ADRESSE]=?,[VILLE]=?,[CODE_POSTAL]=?,[NO_TEL]=?,[COURRIEL]=?,[DATE_NAISSANCE]=?,[LETTRE_CONSENTEMENT]=?,[RECEVOIR_NOUVELLE_OFFRE]=?,[DIPLOME]=?,TROUVE_EMPLOI=?,DATE_TROUVE_EMPLOI=? WHERE CODE_PERMANENT=?" 
            runat="server"   
            ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
            <DeleteParameters> 
                <asp:Parameter Name="CODE_PERMANENT" Type="String" /> 
            </DeleteParameters> 
            <UpdateParameters> 
                <asp:Parameter Name="CODE_PERMANENT" Type="String" /> 
                <asp:Parameter Name="PRENOM" Type="string" /> 
                <asp:Parameter Name="NOM" Type="String" /> 
                <asp:Parameter Name="ADRESSE" Type="String" /> 
                <asp:Parameter Name="VILLE" Type="String" /> 
                <asp:Parameter Name="CODE_POSTAL" Type="String" /> 
                <asp:Parameter Name="NO_TEL" Type="String" /> 
                <asp:Parameter Name="COURRIEL" Type="String" /> 
                <asp:Parameter Name="DATE_NAISSANCE" Type="Datetime" /> 
                <asp:Parameter Name="LETTRE_CONSENTEMENT" Type="int32" /> 
                <asp:Parameter Name="RECEVOIR_NOUVELLE_OFFRE" Type="int32" /> 
                <asp:Parameter Name="DIPLOME" Type="Int32" /> 
                <asp:Parameter Name="TROUVE_EMPLOI" Type="Int32" /> 
                <asp:Parameter Name="DATE_TROUVE_EMPLOI" Type="Datetime" /> 
            </UpdateParameters> 
        </asp:SqlDataSource> 
          
        <asp:SqlDataSource ID="SqlDSUsagerProgramme"   
            SelectCommand="SELECT CODE_PERMANENT,T_USAGER_PROGRAMME.NO_PROGRAMME,T_PROGRAMME.NOM AS PNOM, T_DOMAINE.NOM AS DNOM,DATE_DIPLOME FROM T_USAGER_PROGRAMME INNER JOIN T_PROGRAMME ON T_USAGER_PROGRAMME.NO_PROGRAMME = T_PROGRAMME.NO_PROGRAMME INNER JOIN T_DOMAINE ON T_PROGRAMME.NO_DOMAINE = T_DOMAINE.NO_DOMAINE WHERE T_USAGER_PROGRAMME.CODE_PERMANENT = ?"   
            DeleteCommand="DELETE FROM [T_USAGER_PROGRAMME] WHERE [CODE_PERMANENT] = ? AND [NO_PROGRAMME] = ?" 
            InsertCommand="INSERT INTO [T_USAGER_PROGRAMME] ([CODE_PERMANENT],[NO_PROGRAMME],[DATE_DIPLOME]) VALUES (?,?,?)" 
            runat="server"   
            ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
            <SelectParameters> 
                <asp:Parameter Name="CODE_PERMANENT" Type="String" /> 
            </SelectParameters> 
            <DeleteParameters> 
                <asp:Parameter Name="CODE_PERMANENT" Type="String" /> 
                <asp:Parameter Name="NO_PROGRAMME" Type="Int32" />    
            </DeleteParameters> 
           <InsertParameters> 
                <asp:Parameter Name="CODE_PERMANENT" Type="String" /> 
                <asp:Parameter Name="NO_PROGRAMME" Type="Int32" />    
                <asp:Parameter Name="DATE_DIPLOME" Type="DateTime" />    
            </InsertParameters> 
        </asp:SqlDataSource> 
          
          
        <asp:SqlDataSource ID="SqlDSProgrammeDomaine"   
            SelectCommand="SELECT NO_PROGRAMME,T_PROGRAMME.NOM AS PNOM, T_DOMAINE.NO_DOMAINE, T_DOMAINE.NOM AS DNOM FROM T_PROGRAMME INNER JOIN T_DOMAINE ON T_PROGRAMME.NO_DOMAINE = T_DOMAINE.NO_DOMAINE"   
            runat="server"   
            ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
        </asp:SqlDataSource> 
          
         <asp:SqlDataSource ID="SqlDSLog"   
            SelectCommand="SELECT NO_LOG, DATE, NOM_UTILISATEUR, TYPE_ACTION, DESCR FROM T_LOG"   
            runat="server"   
           ConnectionString="<%$ ConnectionStrings:ConnectionString %>"   
        ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>">  
        </asp:SqlDataSource> 
          
         
          
        <telerik:RadTabStrip ID="RadTabStrip1" runat="server" 
            Skin="Vista" MultiPageID="RadMultiPage1" SelectedIndex="0" CssClass="TabStrip">  
            <Tabs> 
                <telerik:RadTab runat="server"  Text="Programmes">  
                </telerik:RadTab> 
                <telerik:RadTab runat="server"   Text="Entreprises">  
                </telerik:RadTab> 
                <telerik:RadTab runat="server"  Text="Programme par offre">  
                </telerik:RadTab> 
                <telerik:RadTab runat="server"   Text="Demande par offre">  
                </telerik:RadTab> 
                <telerik:RadTab runat="server"  Text="Liste des utilisateurs">  
                </telerik:RadTab> 
                <telerik:RadTab runat="server"   Text="Historique de logs">  
                </telerik:RadTab> 
                <telerik:RadTab runat="server" Text="Statistiques">  
                </telerik:RadTab> 
                <telerik:RadTab runat="server" Text="Importation de Jade">  
                </telerik:RadTab> 
            </Tabs> 
        </telerik:RadTabStrip> 

 <telerik:RadMultiPage ID="RadMultiPage1" runat="server" SelectedIndex="0">  
            <telerik:RadPageView ID="RadPageView1"  runat="server">  
                    <telerik:RadGrid   
                    ID="RadGrid1"   
                    runat="server"   
                    DataSourceID="SQLDSDomaine" 
                    autogeneratecolumns="False" 
                    Skin="Office2007"   
                    GridLines="None" 
                    AllowAutomaticInserts="True"   
                    AllowAutomaticUpdates="True"   
                    AllowAutomaticDeletes="True" 
                    width="98%" 
                     Height="95%" 
                    CommandItemSettings-AddNewRecordText="Ajouter un nouveau domaine" 
                    EditFormSettings-FormmaintableStyle-HorizontalAlign=Left 
                    AllowFilteringByColumn=true 
                    AllowSorting=true>  
                    
                    <clientsettings> 
                        <Scrolling AllowScroll=true UseStaticHeaders=false /> 
                    </clientsettings> 
                       
                    <PagerStyle   
                        NextPageText="Suivant" PrevPageText="Précédent" Mode="NextPrevAndNumeric"   
                        NextPagesToolTip="Pages suivante"   
                        NextPageToolTip="Page suivante"   
                        PrevPagesToolTip="Pages précédente"   
                        PrevPageToolTip="Page précédente"/>  
                          
                    <MasterTableView   
                        Name="MTVProgramme" 
                        DataSourceID="SQLDSDomaine" 
                        NoMasterRecordsText="Il n'y a aucun domaine." 
                        DataKeyNames="NO_DOMAINE" 
                        CommandItemDisplay="bottom"   
                        InsertItemDisplay="Bottom" 
                        EditFormSettings-EditColumn-CancelText="Annuler"   
                        EditFormSettings-EditColumn-EditText="Modifier" 
                        EditFormSettings-EditColumn-InsertText="Ajouter"   
                        EditFormSettings-EditColumn-UpdateText="Mise à jour" 
                        CommandItemSettings-AddNewRecordText="Ajouter un domaine"   
                        CommandItemSettings-RefreshText="Rafraichir" 
                        EditFormSettings-FormMainTableStyle-HorizontalAlign=Left 
                        EditFormSettings-FormTableItemStyle-HorizontalAlign=Left 
                        Width="100%">  
                         
 
                        <ExpandCollapseColumn> 
                            <HeaderStyle Width="20px" /> 
                        </ExpandCollapseColumn> 
                          
                        <Columns> 
                               
                            <telerik:GridBoundColumn   
                                SortExpression="NO_DOMAINE"   
                                HeaderText="NO_DOMAINE"   
                                DataField="NO_DOMAINE"   
                                UniqueName="NO_DOMAINE"   
                                ReadOnly="true" 
                                visible="false">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridEditCommandColumn   
                                ButtonType="ImageButton"   
                                UniqueName="EditCommandColumn">  
                            </telerik:GridEditCommandColumn> 
 
                            <telerik:GridButtonColumn   
                                ConfirmText="Supprimer ce domaine?"   
                                ConfirmDialogType="RadWindow"   
                                ConfirmTitle="Supprimer"   
                                ButtonType="ImageButton" 
                                CommandName="Delete"   
                                Text="Supprimer"   
                                UniqueName="DeleteColumnDomaine">  
                                <ItemStyle HorizontalAlign="Center"  /> 
                            </telerik:GridButtonColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="NOM"   
                                HeaderText="Nom"   
                                DataField="NOM"   
                                UniqueName="NOM">  
                                        
                            </telerik:GridBoundColumn> 
                             
                       </Columns> 
                       <DetailTables > 
                           <telerik:GridTableView   
                               TableLayout="Auto"   
                               GridLines=Both   
                               ShowFooter=true   
                               DataKeyNames="NO_PROGRAMME"   
                               ShowHeader=true   
                               DataSourceID="SQLDSProgramme"   
                               Name="GTVProgramme"   
                               AllowAutomaticDeletes="true" 
                               AllowAutomaticInserts=true 
                               AllowAutomaticUpdates="true" 
                               CommandItemDisplay="Bottom" 
                               CommandItemSettings-AddNewRecordText="Ajouter un programme"   
                               CommandItemSettings-RefreshText="rafraichir"   
                               EditFormSettings-EditColumn-CancelText="Annuler"   
                               EditFormSettings-EditColumn-EditText="Modifier"   
                               EditFormSettings-EditColumn-InsertText="Ajouter"   
                               EditFormSettings-EditColumn-UpdateText="Mise à jour"   
                               EditFormSettings-EditColumn-HeaderButtonType="PushButton" 
                               NoDetailRecordsText="Il n'y a aucun programme pour ce domaine."   
                               EditMode="EditForms" > 
                               <ParentTableRelation> 
                                   <telerik:GridRelationFields DetailKeyField="NO_DOMAINE" MasterKeyField="NO_DOMAINE" /> 
                               </ParentTableRelation>   
                                      
                               <Columns> 
                                          
                                   <telerik:GridBoundColumn   
                                       SortExpression="NO_PROGRAMME"   
                                       HeaderText="NO_PROGRAMME"   
                                       DataField="NO_PROGRAMME"   
                                       UniqueName="NO_PROGRAMME"   
                                       ReadOnly="true" 
                                       Visible="false">  
                                   </telerik:GridBoundColumn> 
                                      
                                    <telerik:GridEditCommandColumn   
                                        ButtonType="ImageButton"   
                                        UniqueName="EditCommandColumnProgramme">  
                                       
                                    </telerik:GridEditCommandColumn> 
 
                                    <telerik:GridButtonColumn   
                                        ConfirmText="Supprimer ce programme?"   
                                        ConfirmDialogType="RadWindow"   
                                        ConfirmTitle="Supprimer"   
                                        ButtonType="ImageButton" 
                                        CommandName="Delete"   
                                        Text="Supprimer"   
                                        UniqueName="DeleteColumnProgramme">  
                                        <ItemStyle HorizontalAlign="Center" /> 
                                    </telerik:GridButtonColumn> 
                                      
                                    <telerik:GridBoundColumn   
                                        SortExpression="NOM"   
                                        HeaderText="Nom"   
                                        DataField="NOM"   
                                        UniqueName="PNOM">  
                                    </telerik:GridBoundColumn> 
                                      
                                    <telerik:GridBoundColumn   
                                        SortExpression="DESCR"   
                                        HeaderText="Description"   
                                        DataField="DESCR"   
                                        UniqueName="DESCR">  
                                    </telerik:GridBoundColumn> 
                                         
                                    </Columns> 
                                </telerik:GridTableView> 
                            </DetailTables> 
                        </MasterTableView> 
                    </telerik:RadGrid> 
                </telerik:RadPageView> 

 

  <telerik:RadPageView ID="RadPageView2" runat="server" > 
                      
                    <telerik:RadGrid   
                        ID="RadGrid_Entreprise"   
                        runat="server" 
                        DataSourceID="SQLDSEntreprise" 
                        autogeneratecolumns="False" 
                        Skin="Office2007"   
                        AllowAutomaticInserts="True"   
                        AllowAutomaticUpdates="True"   
                        AllowAutomaticDeletes="True" 
                        CommandItemSettings-AddNewRecordText="Ajouter une nouvelle entreprise" 
                        width="98%" 
                        Height="95%" 
                        AllowFilteringByColumn=true 
                        AllowSorting=true 
                        OnItemDataBound="RadGrid_Entreprise_ItemDataBound" 
                        MasterTableView-EditFormSettings-FormTableAlternatingItemStyle-HorizontalAlign=Left 
                        MasterTableView-EditFormSettings-FormMainTableStyle-HorizontalAlign=left HorizontalAlign=Left>  
                        <ClientSettings> 
                            <Scrolling AllowScroll=true UseStaticHeaders=false  /> 
                        </ClientSettings> 
   
 
                     <PagerStyle   
                         NextPageText="Suivant" PrevPageText="Précédent" Mode="NextPrevAndNumeric"   
                         NextPagesToolTip="Pages suivante"   
                         NextPageToolTip="Page suivante"   
                         PrevPagesToolTip="Pages précédente"   
                         PrevPageToolTip="Page précédente"/>  
                   
                     <MasterTableView   
                         Name="MTVEntreprise" 
                         EditMode="EditForms"   
                         DataSourceID="SqlDSEntreprise" 
                         NoMasterRecordsText="Il n'y a aucune entreprise." 
                         DataKeyNames="NO_ENTREPRISE" 
                         CommandItemDisplay="bottom"   
                         InsertItemDisplay="Bottom" 
                         EditFormSettings-EditColumn-CancelText="Annuler"   
                         EditFormSettings-EditColumn-EditText="Modifier" 
                         EditFormSettings-EditColumn-InsertText="Ajouter"   
                         EditFormSettings-EditColumn-UpdateText="Mise à jour" 
                         CommandItemSettings-AddNewRecordText="Ajouter une entreprise"   
                         CommandItemSettings-RefreshText="Rafraichir" 
                         Width="100%">    
   
                         <ExpandCollapseColumn> 
                             <HeaderStyle Width="20px" /> 
                         </ExpandCollapseColumn> 
 
 
                         <Columns> 
                                       
                            <telerik:GridBoundColumn   
                                SortExpression="NO_ENTREPRISE"   
                                HeaderText="NO_ENTREPRISE"   
                                DataField="NO_ENTREPRISE"   
                                UniqueName="NO_ENTREPRISE"   
                                visible="false" 
                                readonly="true">  
                            </telerik:GridBoundColumn> 
                                          
                            <telerik:GridEditCommandColumn   
                                ButtonType="ImageButton"   
                                UniqueName="EditCommandColumn">  
                            </telerik:GridEditCommandColumn> 
 
                            <telerik:GridButtonColumn   
                                ConfirmText="Supprimer cette entreprise?"   
                                ConfirmDialogType="RadWindow"   
                                ConfirmTitle="Supprimer"   
                                ButtonType="ImageButton" 
                                CommandName="Delete"   
                                Text="Supprimer"   
                                UniqueName="DeleteColumnDomaine">  
                               
                            </telerik:GridButtonColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="NOM_ENTREPRISE"   
                                HeaderText="Nom"   
                                DataField="NOM_ENTREPRISE"   
                                UniqueName="NOM_ENTREPRISE" 
                                MaxLength="50">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="DESCR"   
                                HeaderText="Description"   
                                DataField="DESCR"   
                                UniqueName="DESCR" 
                                MaxLength="255">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="ADRESSE"   
                                HeaderText="Adresse"   
                                DataField="ADRESSE"   
                                UniqueName="ADRESSE" 
                                MaxLength="50">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="VILLE"   
                                HeaderText="Ville"   
                                DataField="VILLE"   
                                UniqueName="VILLE" 
                                MaxLength="40">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="CODE_POSTAL"   
                                HeaderText="Code postal"   
                                DataField="CODE_POSTAL"   
                                UniqueName="CODE_POSTAL" 
                                MaxLength="10">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="NO_TEL"   
                                HeaderText="No tel"   
                                DataField="NO_TEL"   
                                UniqueName="NO_TEL" 
                                MaxLength="25">  
                            </telerik:GridBoundColumn> 
                              
                             <telerik:GridBoundColumn   
                                SortExpression="NO_CELL"   
                                HeaderText="No cell"   
                                DataField="NO_CELL"   
                                UniqueName="NO_CELL" 
                                MaxLength="16">  
                            </telerik:GridBoundColumn> 
                              
                             <telerik:GridBoundColumn   
                                SortExpression="NO_TEL_AUTRE"   
                                HeaderText="No tel (Autre)"   
                                DataField="NO_TEL_AUTRE"   
                                UniqueName="NO_TEL_AUTRE" 
                                MaxLength="25">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="NO_FAX"   
                                HeaderText="No fax"   
                                DataField="NO_FAX"   
                                UniqueName="NO_FAX" 
                                MaxLength="16"  ItemStyle-HorizontalAlign=Left>  
                            </telerik:GridBoundColumn> 
                              
                             <telerik:GridBoundColumn   
                                SortExpression="RESP_COURRIEL"   
                                HeaderText="Courriel du responsable"   
                                DataField="RESP_COURRIEL"   
                                UniqueName="RESP_COURRIEL" 
                                MaxLength="65">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="RESP_NOM"   
                                HeaderText="Nom du responsable"   
                                DataField="RESP_NOM"   
                                UniqueName="RESP_NOM" 
                                MaxLength="40">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="RESP_PRENOM"   
                                HeaderText="Prénom du responsable"   
                                DataField="RESP_PRENOM"   
                                UniqueName="RESP_PRENOM" 
                                MaxLength="25">  
                            </telerik:GridBoundColumn> 
                              
                           <telerik:GridBoundColumn   
                                SortExpression="USAGER"   
                                HeaderText="Usager"   
                                DataField="USAGER"   
                                UniqueName="USAGER" 
                                MaxLength="25">  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="MOT_PASSE"   
                                HeaderText="Mot de passe"   
                                DataField="MOT_PASSE"   
                                UniqueName="MOT_PASSE" 
                                MaxLength="20" > 
                                  
                            </telerik:GridBoundColumn> 
                              
                            <telerik:GridBoundColumn   
                                SortExpression="SITE_WEB"   
                                HeaderText="Site web"   
                                DataField="SITE_WEB"   
                                UniqueName="SITE_WEB" 
                                MaxLength="75">  
                            </telerik:GridBoundColumn> 
                              
                           <telerik:GridCheckBoxColumn  
                                sortexpression="AUTONOME_OFFRE" 
                                HeaderText="Autonome offres" 
                                DataField="AUTONOME_OFFRE" 
                                UniqueName="AUTONOME_OFFRE2">  
                            </telerik:GridCheckBoxColumn> 
                        </Columns> 
                    </MasterTableView> 
                        <ClientSettings> 
                            <Scrolling AllowScroll="True" /> 
                        </ClientSettings> 
                        <FilterMenu EnableTheming="True" Skin="Office2007">  
                            <CollapseAnimation Duration="200" Type="OutQuint" /> 
                        </FilterMenu> 
                </telerik:RadGrid> 
            </telerik:RadPageView> 

  <telerik:RadPageView ID="RadPageView5" runat="server">  
               <telerik:RadGrid   
                    ID="RadGrid_Offre_Programme"   
                    runat="server" 
                    datasourceid="SqlDSEntrepriseOffre" 
                    autogeneratecolumns="False" 
                    Skin="Office2007"   
                    GridLines="None" 
                    AllowAutomaticInserts="true"   
                    AllowAutomaticUpdates="True"   
                    AllowAutomaticDeletes="True" 
                    ClientSettings-Scrolling-AllowScroll="true" 
                    AllowMultiRowSelection="true" 
                    AllowFilteringByColumn=true 
                    AllowSorting=true 
                    width="98%" 
                    Height="88%" 
                    HorizontalAlign=Left 
                    OnItemDataBound="RadGrid_Offre_Programme_ItemDataBound" 
                    > 
                 <ClientSettings  >   
                   <Selecting AllowRowSelect="True"/>   
                 </ClientSettings>   
                   
                <PagerStyle   
                    NextPageText="Suivant" PrevPageText="Précédent" Mode="NextPrevAndNumeric"   
                    NextPagesToolTip="Pages suivante"   
                    NextPageToolTip="Page suivante"   
                    PrevPagesToolTip="Pages précédente"   
                    PrevPageToolTip="Page précédente"/>  
                                                          
                    
                   
                <MasterTableView   
                    Name="MTVEntrepriseOffre" 
                    DataSourceID="SqlDSEntrepriseOffre" 
                    NoMasterRecordsText="Il n'y a aucune entreprise." 
                    DataKeyNames="NO_ENTREPRISE" 
                    AllowAutomaticDeletes=false 
                    AllowAutomaticInserts=false 
                    AllowAutomaticUpdates=false 
                     Width="100%" 
                    > 
                             
                    <ExpandCollapseColumn> 
                        <HeaderStyle Width="20px" /> 
                    </ExpandCollapseColumn> 
                    <Columns> 
                        <telerik:GridBoundColumn   
                            SortExpression="NO_ENTREPRISE"   
                            HeaderText="NO ENTREPRISE"   
                            DataField="NO_ENTREPRISE"   
                            UniqueName="NO_ENTREPRISE"   
                            visible="false" 
                            readonly="true">  
                        </telerik:GridBoundColumn> 
                                  
                        <telerik:GridBoundColumn   
                            SortExpression="NOM_ENTREPRISE"   
                            HeaderText="Entreprise"   
                            DataField="NOM_ENTREPRISE"   
                            UniqueName="NOM_ENTREPRISE" 
                            MaxLength="50">  
                        </telerik:GridBoundColumn> 
                      
                        <telerik:GridBoundColumn   
                            SortExpression="DESCR"   
                            HeaderText="Description"   
                            DataField="DESCR"   
                            UniqueName="DESCR" 
                            MaxLength="255">  
                        </telerik:GridBoundColumn> 
                    </Columns> 
                    <DetailTables > 
                        <telerik:GridTableView   
                            TableLayout="Auto"   
                            GridLines="Both"   
                            ShowFooter=true   
                            DataKeyNames="NO_OFFRE"   
                            ShowHeader=true   
                            DataSourceID="SQLDSOffre"   
                            Name="GTVOffre"   
                            AllowAutomaticDeletes="true" 
                            AllowAutomaticInserts=true 
                            AllowAutomaticUpdates="true" 
                            CommandItemDisplay="Bottom" 
                            CommandItemSettings-AddNewRecordText="Ajouter une offre"   
                            CommandItemSettings-RefreshText="rafraichir"   
                            EditFormSettings-EditColumn-CancelText="Annuler"   
                            EditFormSettings-EditColumn-EditText="Modifier"   
                            EditFormSettings-EditColumn-InsertText="Ajouter"   
                            EditFormSettings-EditColumn-UpdateText="Mise à jour"   
                            EditFormSettings-EditColumn-HeaderButtonType="PushButton" 
                            NoDetailRecordsText="Il n'y a aucune offre pour cette entreprise."   
                            EditMode="EditForms" > 
                            <ParentTableRelation> 
                                 <telerik:GridRelationFields DetailKeyField="NO_ENTREPRISE" MasterKeyField="NO_ENTREPRISE" /> 
                            </ParentTableRelation>   
                          
                            <Columns> 
                                <telerik:GridClientSelectColumn AutoPostBackOnFilter=false HeaderText="" UniqueName="OffreSelectColumn" ></telerik:GridClientSelectColumn> 
                                  
                                                                                         
                                <telerik:GridBoundColumn   
                                    SortExpression="NO_OFFRE"   
                                    HeaderText="Num. Réf."   
                                    DataField="NO_OFFRE"   
                                    UniqueName="NO_OFFRE"   
                                    visible="false" 
                                    readonly="true">  
                                </telerik:GridBoundColumn> 
                                  
                                <telerik:GridBoundColumn   
                                    SortExpression="NO_ENTREPRISE"   
                                    DataField="NO_ENTREPRISE"   
                                    UniqueName="NO_ENTREPRISE"   
                                    visible="false" 
                                    readonly="true">  
                                </telerik:GridBoundColumn> 
                              
                               <telerik:GridButtonColumn   
                                    ButtonType="ImageButton"   
                                    CommandName="ImprimerOffre"   
                                    ItemStyle-Font-Size="Smaller" 
                                    UniqueName"ImprimerOffre"   
                                    ImageUrl="./Images/Imprimer.bmp">  
                                 </telerik:GridButtonColumn> 
                                   
                                   
                                <telerik:GridEditCommandColumn   
                                    ButtonType="ImageButton"   
                                    UniqueName="EditCommandColumn">  
                                    
                                </telerik:GridEditCommandColumn> 
                                  
                                <telerik:GridButtonColumn   
                                    ConfirmText="Supprimer cette offre?"   
                                    ConfirmDialogType="RadWindow"   
                                    ConfirmTitle="Supprimer"   
                                    ButtonType="ImageButton" 
                                    CommandName="Delete"   
                                    Text="Supprimer"   
                                    UniqueName="DeleteColumnDomaine">  
                                    <ItemStyle HorizontalAlign="Center"  /> 
                                </telerik:GridButtonColumn> 
                              
                                <telerik:GridBoundColumn   
                                    SortExpression="TITRE_OFFRE"   
                                    HeaderText="Titre du poste"   
                                    DataField="TITRE_OFFRE"   
                                    UniqueName="TITRE_OFFRE" MaxLength=60>  
                                </telerik:GridBoundColumn> 
                                  
                                <telerik:GridCheckBoxColumn   
                                    SortExpression="COURRIEL_ENVOYE"   
                                    HeaderText="Courriels envoyés"   
                                    DataField="COURRIEL_ENVOYE"   
                                    UniqueName="COURRIEL_ENVOYE">  
                                      
                                </telerik:GridCheckBoxColumn> 
                                  
                                <telerik:GridBoundColumn   
                                    SortExpression="NB_POSTE_DISPO"   
                                    HeaderText="Nbre poste dispo."   
                                    DataField="NB_POSTE_DISPO"   
                                    UniqueName="NB_POSTE_DISPO">  
                                </telerik:GridBoundColumn> 
                              
                                <telerik:GridBoundColumn   
                                    SortExpression="TACHES_RELIEES"   
                                    HeaderText="Tâches reliées"   
                                    DataField="TACHES_RELIEES"   
                                    UniqueName="TACHES_RELIEES">  
                                </telerik:GridBoundColumn> 
                              
                                <telerik:GridBoundColumn   
                                    SortExpression="DESCRIPTION_COMPLEMENTAIRE"   
                                    HeaderText="Description complémentaire"   
                                    DataField="DESCRIPTION_COMPLEMENTAIRE"   
                                    UniqueName="DESCRIPTION_COMPLEMENTAIRE">  
                                </telerik:GridBoundColumn> 
                              
                                <telerik:GridBoundColumn   
                                    SortExpression="COMPETENCES"   
                                    HeaderText="Compétences"   
                                    DataField="COMPETENCES"   
                                    UniqueName="COMPETENCES">  
                                </telerik:GridBoundColumn> 
                              
                               <telerik:GridBoundColumn   
                                    SortExpression="EXIGENCES"   
                                    HeaderText="Formations"   
                                    DataField="EXIGENCES"   
                                    UniqueName="EXIGENCES" 
                                     ReadOnly=true>  
                                </telerik:GridBoundColumn> 
                                  
                                
                              
                               <telerik:GridBoundColumn   
                                    SortExpression="APTITUDES"   
                                    HeaderText="Aptitudes"   
                                    DataField="APTITUDES"   
                                    UniqueName="APTITUDES">  
                                </telerik:GridBoundColumn> 
                              
                               <telerik:GridBoundColumn   
                                    SortExpression="TYPE_EMPLOI"   
                                    HeaderText="Type d'emploi"   
                                    DataField="TYPE_EMPLOI"   
                                    UniqueName="TYPE_EMPLOI">  
                                </telerik:GridBoundColumn> 
                              
                               <telerik:GridBoundColumn   
                                    SortExpression="NB_HEURE_SEMAINE"   
                                    HeaderText="Nbre d'heure/semaine"   
                                    DataField="NB_HEURE_SEMAINE"   
                                    UniqueName="NB_HEURE_SEMAINE">  
                                </telerik:GridBoundColumn> 
                                  
                                <telerik:GridBoundColumn   
                                    SortExpression="RESP_NOM"   
                                    HeaderText="Nom du responsable"   
                                    DataField="RESP_NOM"   
                                    UniqueName="RESP_NOM">  
                                </telerik:GridBoundColumn> 
                                  
                                <telerik:GridBoundColumn   
                                    SortExpression="RESP_PRENOM"   
                                    HeaderText="Prénom du responsable"   
                                    DataField="RESP_PRENOM"   
                                    UniqueName="RESP_PRENOM">  
                                </telerik:GridBoundColumn> 
                              
                                <telerik:GridBoundColumn   
                                    SortExpression="RESP_COURRIEL"   
                                    HeaderText="Courriel du responsable"   
                                    DataField="RESP_COURRIEL"   
                                    UniqueName="RESP_COURRIEL">  
                                </telerik:GridBoundColumn> 
                              
                                <telerik:GridBoundColumn   
                                    SortExpression="RESP_NO_TEL"   
                                    HeaderText="No tel du responsable"   
                                    DataField="RESP_NO_TEL"   
                                    UniqueName="RESP_NO_TEL">  
                                </telerik:GridBoundColumn> 
                              
                                <telerik:GridTemplateColumn   
                                    UniqueName="TemplateColumnDateDebut"   
                                    HeaderText="Date de début" 
                                    DataField="DATE_DEBUT">    
                                    <ItemTemplate>    
                                        &nbsp;<asp:Label ID="LbDATE_DEBUT" runat="server" Text='<%#left(Eval("DATE_DEBUT"),10) %>'></asp:Label>    
                                    </ItemTemplate>    
                                    <EditItemTemplate>    
                                        <telerik:RadDatePicker ID="DPicker_DATE_DEBUT" Runat="server" DbSelectedDate'<%#left(Eval("DATE_DEBUT"),10) %>'  > 
                                            <Calendar ID="Calendar_DATE_DEBUT" UseColumnHeadersAsSelectors="False" runat="server" UseRowHeadersAsSelectors="False" ViewSelectorText="x"></Calendar> 
                                        </telerik:RadDatePicker>   
                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator1" ControlToValidate="DPicker_DATE_DEBUT" ErrorMessage="Ce champ est requis" runat="server">  
                            </asp:RequiredFieldValidator> 
            
                                    </EditItemTemplate>    
                                </telerik:GridTemplateColumn>   
                              
                                <telerik:GridTemplateColumn   
                                    UniqueName="TemplateColumnDateFin"   
                                   HeaderText="Date de fin" 
                                    DataField="DATE_FIN">    
                                    <ItemTemplate>    
                                        &nbsp;<asp:Label ID="LbDATE_FIN" runat="server" Text='<%#left(Eval("DATE_FIN"),10) %>'></asp:Label>    
                                    </ItemTemplate>    
                                    <EditItemTemplate>    
                                        <telerik:RadDatePicker ID="DPicker_DATE_FIN" Runat="server"  DbSelectedDate'<%#left(Eval("DATE_FIN"),10) %>' > 
                                            <Calendar ID="Calendar_DATE_FIN" UseColumnHeadersAsSelectors="False" runat="server" UseRowHeadersAsSelectors="False" ViewSelectorText="x"></Calendar> 
                                        </telerik:RadDatePicker>       
                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator2" ControlToValidate="DPicker_DATE_FIN" ErrorMessage="Ce champ est requis" runat="server">  
                            </asp:RequiredFieldValidator>        
                                    </EditItemTemplate>    
                                </telerik:GridTemplateColumn>   
                              
                                <telerik:GridTemplateColumn   
                                    UniqueName="TemplateColumnDateDebutEmploi"   
                                    HeaderText="Date de début de l'emploi" 
                                    DataField="DATE_DEBUT_EMPLOI">    
                                    <ItemTemplate>    
                                        &nbsp;<asp:Label ID="LbDATE_DEBUT_EMPLOI" runat="server"  Text='<%#left(Eval("DATE_DEBUT_EMPLOI"),10) %>'></asp:Label>    
                                    </ItemTemplate>    
                                    <EditItemTemplate>    
                                        <telerik:RadDatePicker ID="DPicker_DATE_DEBUT_EMPLOI" Runat="server" DbSelectedDate'<%#left(Eval("DATE_DEBUT_EMPLOI"),10) %>'>  
                                            <Calendar ID="Calendar_DATE_DEBUT_EMPLOI" UseColumnHeadersAsSelectors="False" runat="server" UseRowHeadersAsSelectors="False" ViewSelectorText="x"></Calendar> 
                                        </telerik:RadDatePicker>     
                                         <asp:RequiredFieldValidator ID="RequiredFieldValidator3" ControlToValidate="DPicker_DATE_DEBUT_EMPLOI" ErrorMessage="Ce champ est requis" runat="server">  
                            </asp:RequiredFieldValidator>             
                                    </EditItemTemplate>    
                                </telerik:GridTemplateColumn>   
                              
                               <telerik:GridBoundColumn   
                                    SortExpression="DEMANDEUR"   
                                    HeaderText="Demandeur"   
                                    DataField="DEMANDEUR"   
                                    UniqueName="DEMANDEUR">  
                               </telerik:GridBoundColumn> 
                              
                               <telerik:GridBoundColumn   
                                    SortExpression="SALAIRE_OFFERT"   
                                    HeaderText="Salaire offert"   
                                    DataField="SALAIRE_OFFERT"   
                                    UniqueName="SALAIRE_OFFERT">  
                                </telerik:GridBoundColumn> 
                              
                                <telerik:GridCheckBoxColumn  
                                    sortexpression="STATUS" 
                                    HeaderText="Approuvée" 
                                    DataField="STATUS" 
                                    UniqueName="STATUS">  
                                </telerik:GridCheckBoxColumn> 
                                       
                            </Columns> 
                            <DetailTables> 
                                <telerik:GridTableView   
                                    Name="MTVOffreProgramme" 
                                    DataSourceID="SqlDSOffreProgrammeDomaine" 
                                    DataKeyNames="NO_PROGRAMME" 
                                    AllowAutomaticDeletes=True 
                                    AllowAutomaticInserts=true 
                                    AllowAutomaticUpdates=True   
                                    CommandItemDisplay="Bottom" 
                                    CommandItemSettings-AddNewRecordText="Ajouter un programme"   
                                    CommandItemSettings-RefreshText="rafraichir"   
                                    EditFormSettings-EditColumn-CancelText="Annuler"   
                                    EditFormSettings-EditColumn-InsertText="Ajouter"   
                                    EditFormSettings-EditColumn-EditText="Modifier"   
                                    EditFormSettings-EditColumn-UpdateText="Mise à jour"   
                                    EditFormSettings-EditColumn-HeaderButtonType="PushButton" 
                                    NoDetailRecordsText="Il n'y a aucun programme pour cette offre."   
                                    EditMode="EditForms" > 
                                      
                                <ExpandCollapseColumn> 
                                    <HeaderStyle Width="20px" /> 
                                </ExpandCollapseColumn> 
                              
                                <ParentTableRelation> 
                                    <telerik:GridRelationFields DetailKeyField="NO_OFFRE" MasterKeyField="NO_OFFRE" /> 
                                </ParentTableRelation> 
                                <Columns> 
                                    <telerik:GridBoundColumn   
                                        SortExpression="NO_PROGRAMME"   
                                        HeaderText="NO_PROGRAMME"   
                                        DataField="NO_PROGRAMME"   
                                        UniqueName="NO_PROGRAMME1"   
                                        visible="false" 
                                        readonly="true">  
                                    </telerik:GridBoundColumn> 
                      
                                    <telerik:GridButtonColumn   
                                        ConfirmText="Supprimer ce programme pour cette offre?"   
                                        ConfirmDialogType="RadWindow"   
                                        ConfirmTitle="Supprimer"   
                                        ButtonType="ImageButton" 
                                        CommandName="Delete" 
                                        Text="Supprimer"   
                                        UniqueName="DeleteColumnProgrammeUsager">  
                                        <ItemStyle HorizontalAlign="Center" CssClass="MyImageButton" /> 
                                    </telerik:GridButtonColumn> 
                                      
                                     <telerik:GridDropDownColumn   
                                        DataField="NO_PROGRAMME"   
                                        ColumnEditorID="0"   
                                        EditFormColumnIndex="0"   
                                        DataSourceID="SqlDSProgrammeDomaine" 
                                        HeaderText="Programme"   
                                        ListTextField="PNOM"   
                                        ListValueField="NO_PROGRAMME" 
                                        UniqueName="NO_PROGRAMME">  
                                        <HeaderStyle HorizontalAlign="Center" /> 
                                        <ItemStyle HorizontalAlign="Center" Width="80px" /> 
                                     </telerik:GridDropDownColumn> 
                                  
                                    <telerik:GridBoundColumn   
                                        SortExpression="DNOM"   
                                        HeaderText="Nom Domaine"   
                                        DataField="DNOM"   
                                        UniqueName="DNOM" 
                                        ReadOnly="true">  
                                    </telerik:GridBoundColumn> 
                                </Columns> 
                            </telerik:GridTableView> 
                        </DetailTables> 
                    </telerik:GridTableView> 
                </DetailTables> 
            </MasterTableView> 
        </telerik:RadGrid> 
        <table align=left>  
            <tr> 
                <td><asp:CheckBox ID="ChkNonDiplome" Visible=false CssClass="TexteOrange12" runat