cs_lucie12
Messages postés7Date d'inscriptionvendredi 23 juillet 2004StatutMembreDernière intervention 2 septembre 2004
-
12 août 2004 à 16:52
jesusonline
Messages postés6814Date d'inscriptiondimanche 15 décembre 2002StatutMembreDernière intervention13 octobre 2010
-
20 août 2004 à 10:54
Je m'explique, dans une page ASPX, je charge un control ASCX qui lui meme en charge 2 autres.
Dans un de ces controls, j'ai un formulaire (qui est appellé autre part et qui fonctionne bien) et quand je clique dessus, je suis sensé récupérer un nombre de résultat.
Le problème est que quand je clique, les 2 controls inclu dans mon premier disparaissent mais en affichant la source, je vois le code que j'aurais du obtenir.
Incomprenhension total ?????
( aucun visible a false )
J'ai fais pas mal de recherche et sans résultat.
Je tente désespérément un post en espérant que quelqu'un puisse m'eclairer. Je vous remerci en tout cas d'avoir pris le temp de me lire.
A voir également:
Mais que se passe t'il lorsque l'on clique sur un bouton ???
jesusonline
Messages postés6814Date d'inscriptiondimanche 15 décembre 2002StatutMembreDernière intervention13 octobre 201029 19 août 2004 à 17:51
j'ai parcouru vite fait les sources que tu m'as envoyé mais j'ai rien vu d'anormal
j'ai regardé view source apres click.txt en le renommant en htm et je n'ai pas vu le problème que tu me disais :-/
j'ai juste vu que tu avais laissé l'option trace à true
Le problème venait peut etre seulement de la :
essaye de mettre l'attribut Trace à False dans la directive de ton control
L'attribut Trace genere tout le tableau gris qui est en bas de page, et il sert à controler d'éventuelles bugs etc ... :)
Public Class ajoutPhoto
Inherits System.Web.UI.UserControl
Protected WithEvents RechRapide As System.Web.UI.HtmlControls.HtmlTableCell
Protected WithEvents FormRech As System.Web.UI.HtmlControls.HtmlTableCell
Protected WithEvents hr As System.Web.UI.HtmlControls.HtmlGenericControl
#Region \" Web Form Designer Generated Code \"
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents table1 As System.Web.UI.WebControls.Label
Protected WithEvents titreRechSimp As System.Web.UI.WebControls.Label
Protected WithEvents CritRechSimp As System.Web.UI.WebControls.DropDownList
Protected WithEvents textbxSimp As System.Web.UI.WebControls.TextBox
Protected WithEvents BtRechSimp As System.Web.UI.WebControls.Button
Protected WithEvents table2 As System.Web.UI.WebControls.Label
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Public Class RechRapide
Inherits System.Web.UI.UserControl
#Region \" Web Form Designer Generated Code \"
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents titreRechSimp As System.Web.UI.WebControls.Label
Protected WithEvents CritRechSimp As System.Web.UI.WebControls.DropDownList
Protected WithEvents textbxSimp As System.Web.UI.WebControls.TextBox
Protected WithEvents BtRechSimp As System.Web.UI.WebControls.Button
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Style, FStyle = soulignement des titres
Dim Style, FStyle As String
Style = \"
\"
FStyle = \"
\"
'Chargement fichier Xml
Dim XmlDocCrit As New XmlDocument
XmlDocCrit.Load(Server.MapPath(\"..\") + \"\Langues\\" + Session(\"lang\") + \"\CritRechRapide.xml\")
'Test pour savoir si l'on se trouve dans la recherche rapide de compte ou de bien
Dim XmlList As XmlNodeList
If Request(\"page\") = \"comptes\" Then
XmlList = XmlDocCrit.GetElementsByTagName(\"RechCpt\")
Else
XmlList = XmlDocCrit.GetElementsByTagName(\"RechBien\")
End If
Dim TitreCrit As XmlNode
'affichage du Critère dans le DropDownList
For Each TitreCrit In XmlList
CritRechSimp.Items.Add(TitreCrit.InnerText)
Public Class FormRech
Inherits System.Web.UI.UserControl
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents BtType As System.Web.UI.WebControls.RadioButtonList
Protected WithEvents TypeBien As System.Web.UI.WebControls.Label
Protected WithEvents NbPièce As System.Web.UI.WebControls.Label
Protected WithEvents BtPiece As System.Web.UI.WebControls.RadioButtonList
Protected WithEvents Dept As System.Web.UI.WebControls.DropDownList
Protected WithEvents Ville As System.Web.UI.WebControls.DropDownList
Protected WithEvents Surface As System.Web.UI.WebControls.Label
Protected WithEvents NomSurfaceMini As System.Web.UI.WebControls.Label
Protected WithEvents SurfaceMini As System.Web.UI.WebControls.TextBox
Protected WithEvents NomSurfaceMaxi As System.Web.UI.WebControls.Label
Protected WithEvents SurfaceMaxi As System.Web.UI.WebControls.TextBox
Protected WithEvents Lieu As System.Web.UI.WebControls.Label
Protected WithEvents NomDept As System.Web.UI.WebControls.Label
Protected WithEvents NomVille As System.Web.UI.WebControls.Label
Protected WithEvents Prix As System.Web.UI.WebControls.Label
Protected WithEvents NomPrixMini As System.Web.UI.WebControls.Label
Protected WithEvents PrixMini As System.Web.UI.WebControls.TextBox
Protected WithEvents NomPrixMaxi As System.Web.UI.WebControls.Label
Protected WithEvents PrixMaxi As System.Web.UI.WebControls.TextBox
Protected WithEvents Rechercher As System.Web.UI.WebControls.Button
Protected WithEvents RVSurfaceMini As System.Web.UI.WebControls.RangeValidator
Protected WithEvents NomResultat As System.Web.UI.WebControls.Label
Protected WithEvents AffResult As System.Web.UI.WebControls.Button
Protected WithEvents tableTitre As System.Web.UI.WebControls.Table
Protected WithEvents Titre As Label
Protected WithEvents table As System.Web.UI.HtmlControls.HtmlTable
Protected WithEvents tableCenter As System.Web.UI.HtmlControls.HtmlTable
Protected WithEvents Contenu As System.Web.UI.WebControls.Label
Protected WithEvents NbPiece As Label
Protected WithEvents test As Label
Protected WithEvents resultGrid As DataGrid
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Récupère le nom du fichier Xml à afficher
Dim LaPage As String
Dim style, Fstyle As String
style = "
"
Fstyle = "
"
Dim dossier As String
Dim dir As New DirectoryInfo(Server.MapPath("."))
dossier = dir.Name
If Request("page") <> "" Then
LaPage = Request("page")
Else
LaPage = "Immo"
End If
If dossier = "admin" Then
Titre.Visible = False
LaPage = "FormRech"
End If
'_________________ Ouverture du fichier Xml et affichage de la page ______________________
Dim XmlIntro As New XmlDocument
If dossier = "admin" Then ' si on est dans la partie ADMIN
XmlIntro.Load(Server.MapPath("..") + "\Langues" + Session("Lang") + "" + LaPage + ".xml")
Else ' Sinon si on est dans la partie PUBLIC
XmlIntro.Load(Server.MapPath(".") + "\Langues" + Session("Lang") + "" + LaPage + ".xml")
End If
Dim temp As String 'permet de traiter le contenu avant de l'afficher
If dossier <> "admin" Then
'Récup titre
Dim ListTitre As XmlNodeList = XmlIntro.GetElementsByTagName("titre")
Dim TitreNode As XmlNode
'affichage du titre
For Each TitreNode In ListTitre
temp = TitreNode.InnerText
Next
temp = temp.Replace("confpetit", Session("petit"))
temp = temp.Replace("confgrand", Session("grand"))
temp = temp.Replace("confcontact", Session("contact"))
temp = temp.Replace("confsociete", Session("societe"))
temp = temp.Replace("confadrue", Session("adrue"))
temp = temp.Replace("confadCP", Session("adCP"))
temp = temp.Replace("confadville", Session("adville"))
temp = temp.Replace("conftel", Session("tel"))
temp = temp.Replace("conffax", Session("fax"))
temp = temp.Replace("confwww", Session("www"))
temp = temp.Replace("confemail", Session("email"))
temp = temp.Replace("conftext1", Session("text1"))
temp = temp.Replace("conftext2", Session("text2"))
temp = temp.Replace("conftitre", Session("titre"))
temp = temp.Replace("confpolice1", Session("police1"))
temp = temp.Replace("confpolice1", Session("police1"))
temp = temp.Replace("confpolice2", Session("police2"))
temp = temp.Replace("conflink", Session("link"))
temp = temp.Replace("confalink", Session("alink"))
temp = temp.Replace("confvlink", Session("vlink"))
'vidage variable par préaution
temp = ""
End If
' mise en forme du tableau central
table.BgColor = Session("fondTabCentral")
table.Width = Session("TailleTabCentral")
table.Border = Session("TailleBordTabCent")
table.BorderColor = Session("BordureTabCentral")
'Récupération du contenu
Dim ListType As XmlNodeList = XmlIntro.GetElementsByTagName("*")
Dim bien As XmlNode
Dim XmlAttri As XmlAttribute
Dim Attribut As String
Dim i, j As Integer
i = 0
j = 0
'Affichage du contenu
For Each bien In ListType
temp = bien.InnerText
For Each XmlAttri In bien.Attributes
Attribut = XmlAttri.Value
Next
'context.Trace.Write("temp ???", temp)
' Affichage des boutons radio, des titres etc. du formulaire
Select Case bien.Name
Case "Type"
TypeBien.Text = style + bien.Attributes("name").Value + Fstyle
Case "bien"
If Not IsPostBack() Then
'créé les boutons radio
BtType.Items.Add(temp)
'affect au bouton radio la valeur "value" du fichier Xml
BtType.Items.Item(i).Value = bien.Attributes("value").Value()
i = i + 1
'** selection du 1er par defaut
BtType.Items.Item(0).Selected = True
End If
Case "NbPiece"
NbPiece.Text = style + bien.Attributes("name").Value + Fstyle
Case "Piece"
If Not IsPostBack() Then
'créé les boutons radio
BtPiece.Items.Add(temp)
'affect au bouton radio la valeur "value" du fichier Xml
BtPiece.Items.Item(j).Value = bien.Attributes("value").Value()
j = j + 1
'** selection du 1er par defaut
BtPiece.Items.Item(0).Selected = True
End If
Case "Surface"
Surface.Text = style + bien.Attributes("name").Value + Fstyle
Case "SurfaceMini"
NomSurfaceMini.Text = bien.InnerText
Case "SurfaceMaxi"
NomSurfaceMaxi.Text = bien.InnerText
Case "Lieu"
Lieu.Text = style + bien.Attributes("name").Value + Fstyle
Case "Departement"
NomDept.Text = bien.InnerText
Case "Ville"
NomVille.Text = bien.InnerText
Case "Prix"
Prix.Text = style + bien.Attributes("name").Value + Fstyle
Case "PrixMini"
NomPrixMini.Text = bien.InnerText
Case "PrixMaxi"
NomPrixMaxi.Text = bien.InnerText
End Select
Next
XmlIntro = Nothing
If Not IsPostBack() Then
' Recuperation de la liste des départements
' Connexion utilisé pour accéder à la base du site d'immobilier
Dim Conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnexionDB"))
Dim ReqDep As New SqlCommand("SELECT DISTINCT DptBien, CPBien from Bien where DptBien is not null order by CPBien;", Conn)
Dim ResultReader As SqlDataReader
Dim Cpt As Integer
Dim Departement As String
Dim CP As String
Departement = ""
Cpt = 1
' ouverture de la connexion
Conn.Open()
'** on en ajoute un vide par defaut
Dept.Items.Add("Tous les départements")
Dept.Items.Item(0).Value = ""
ResultReader = ReqDep.ExecuteReader()
While ResultReader.Read
If ResultReader.GetValue(0) <> Departement Then
'** on prend 3 caractères pour les DOM
CP = Left(ResultReader.GetValue(1), 2)
If CP = "97" Then
CP = Left(ResultReader.GetValue(1), 3)
End If
'** valeur de l'option
Dept.Items.Item(Cpt).Value = CP
Cpt = Cpt + 1
Departement = ResultReader.GetValue(0)
End If
End While
ResultReader.Close()
Conn.Close()
End If
End Sub
Private Sub Dept_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dept.SelectedIndexChanged
' Connexion utilisé pour accéder à la base du site d'immobilier
Dim Conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnexionDB"))
Dim ReqVille As New SqlCommand("SELECT DISTINCT VilleBien from Bien where CPBien like '" & Dept.SelectedValue & "%' order by VilleBien;", Conn)
Dim ResultReader As SqlDataReader
Dim Cpt As Integer
Cpt = 1
'** on efface toute la liste dans le cas d'un changement de departement
Ville.Items.Clear()
' ouverture de la connexion
Conn.Open()
'** on en ajoute un vide par defaut
Ville.Items.Add("Toutes les villes")
Ville.Items.Item(0).Value = ""
ResultReader = ReqVille.ExecuteReader()
While ResultReader.Read
'** affichage du texte
Ville.Items.Add(ResultReader.GetValue(0))
'** valeur de l'option
Ville.Items.Item(Cpt).Value = ResultReader.GetValue(0)
Cpt = Cpt + 1
End While
ResultReader.Close()
Conn.Close()
NomVille.Visible = True
Ville.Visible = True
End Sub
Private Sub Rechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rechercher.Click
' Connexion utilisé pour accéder à la base du site d'immobilier
Dim Conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnexionDB"))
Dim ReqResult As New SqlCommand
Dim ResultReader As SqlDataReader
Dim SQL As String
Dim P As Boolean
P = False
SQL = "SELECT count(*) as nb FROM Bien"
If BtType.SelectedIndex <> 0 Then
SQL = SQL & TestSQL(P) & "TypeBien='" & BtType.SelectedValue() & "'"
P = True
End If
If BtPiece.SelectedIndex <> 0 Then
context.Trace.Write("nb piece", BtPiece.Items.Count)
'** test si on choisit le dernier element
If BtPiece.SelectedIndex = BtPiece.Items.Count - 1 Then
SQL = SQL & TestSQL(P) & "NbPiece >= " & BtPiece.SelectedValue
Else SQL SQL & TestSQL(P) & "NbPiece " & BtPiece.SelectedValue
End If
P = True
End If
'** traitement sur la surface
If SurfaceMini.Text <> "" And SurfaceMaxi.Text <> "" Then
SQL = SQL & TestSQL(P) & "SurfaceHabitable between " & SurfaceMini.Text & " and " & SurfaceMaxi.Text
P = True
End If
'** traitement sur la surface de prix
If PrixMini.Text <> "" And PrixMaxi.Text <> "" Then
SQL = SQL & TestSQL(P) & "Prix between " & PrixMini.Text & " and " & PrixMaxi.Text
P = True
End If
'** traitement sur le lieu
If Dept.SelectedValue.ToString <> "" And Ville.SelectedValue.ToString = "" Then
SQL = SQL & TestSQL(P) & "CPBien like '" & Dept.SelectedValue.ToString & "%'"
P = True
End If
If Ville.SelectedValue.ToString <> "" Then SQL SQL & TestSQL(P) & "VilleBien '" & Ville.SelectedValue.ToString & "'"
P = True
End If
Session("SQL") = SQL
context.Trace.Write("System.string", SQL)
While ResultReader.Read
NomResultat.Text = "Nombre de biens répondant à vos critères : " & ResultReader.GetValue(0)
NomResultat.Visible = True
End While
AffResult.Visible = True
ResultReader.Close()
Conn.Close()
End Sub
Private Function TestSQL(ByVal Param As Boolean)
'** renvoie une chaine de texte differente en fonction du parametre
'** fonction utilisée pour contruire une requete
If Param Then
TestSQL = " AND "
Else
TestSQL = " WHERE "
End If
End Function
Private Sub AffResult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AffResult.Click
' CreationGrid() ' CreationGrid permet de créer dynamiquement le dataGrid ( fonctionne très bien mais problème de trie et de selection
End Sub
Public Sub CreationGrid()
' Fonction de creation d'un DataGrid
Dim XmlIntro As New XmlDocument
Dim dossier, LaPage As String
Dim dir As New DirectoryInfo(Server.MapPath("."))
dossier = dir.Name
If Request("page") <> "" Then
LaPage = Request("page")
Else
LaPage = "Immo"
End If
If dossier = "admin" Then
Titre.Visible = False
LaPage = "FormRech"
End If
If dossier = "admin" Then ' si on est dans la partie ADMIN
XmlIntro.Load(Server.MapPath("..") + "\Langues" + Session("Lang") + "" + LaPage + ".xml")
Else ' Sinon si on est dans la partie PUBLIC
XmlIntro.Load(Server.MapPath(".") + "\Langues" + Session("Lang") + "" + LaPage + ".xml")
End If
Dim ref, ville, type, pieces, surface, prix, detail As String 'permet de stocker les valeurs pour les affecter aux colonnes
Dim ListType As XmlNodeList = XmlIntro.GetElementsByTagName("*")
Dim bien As XmlNode
For Each bien In ListType
Select Case bien.Name
Case "reference"
ref = bien.InnerText
Case "Ville"
ville = bien.InnerText
Case "Type"
type = bien.Attributes("name").Value
Case "NbPiece"
pieces = bien.Attributes("name").Value
Case "Surface"
surface = bien.Attributes("name").Value
Case "Prix"
prix = bien.Attributes("name").Value
Case "detail"
detail = bien.InnerText
End Select
Next
'déclaration du nouveau datagrid et de ses propriétés
Dim resultGrid As New DataGrid
resultGrid.BorderWidth = Unit.Pixel(2) ' épaisseur du contour du tableau
resultGrid.CellPadding = 6 ' espace avec les bordures de cellules
resultGrid.GridLines = GridLines.Horizontal ' mise en forme de la gille du tableau
resultGrid.BorderColor = Color.Blue ' couleur de la bordure du tableau
resultGrid.ShowHeader = True ' Affichage ou non du titre des colonnes
resultGrid.AutoGenerateColumns = False ' permet de n'afficher que les colonnes qui nous interresse, si true affiche toutes les colonnes
' resultGrid.HeaderStyle.BackColor = color.Red ' couleur du titre
resultGrid.BackColor = Color.Green ' couleur du titre + tableau
resultGrid.AlternatingItemStyle.BackColor = Color.Yellow ' couleur d'alternance du tableau
resultGrid.HorizontalAlign = HorizontalAlign.Center ' aligne le datagrid au centre
resultGrid.ItemStyle.HorizontalAlign = HorizontalAlign.Center ' alignement des données au milieu
resultGrid.HeaderStyle.HorizontalAlign = HorizontalAlign.Center 'alignement des titres au milieu
resultGrid.AllowSorting = True
resultGrid.PageSize = "10"
resultGrid.AllowPaging = True
'ajout d'une colonne au datagrid
Dim datagridcol As New BoundColumn
datagridcol.HeaderText = "IdBien"
datagridcol.DataField = "IdBien"
datagridcol.Visible = False
resultGrid.Columns.Add(datagridcol)
datagridcol = New BoundColumn
datagridcol.HeaderText = prix
datagridcol.DataField = "Prix"
datagridcol.SortExpression = "Prix"
resultGrid.Columns.Add(datagridcol)
Dim selectcol As New ButtonColumn
selectcol.ButtonType = ButtonColumnType.LinkButton
selectcol.HeaderText = detail
selectcol.Text = "Editer"
selectcol.CommandName = "Select"
resultGrid.Columns.Add(selectcol)
' datagridcol.DataFormatString = "{0:d}" permet de mettre les nombres avec 2 chiffres après la virgule.
' ajout des évenements de tri et de selection
AddHandler resultGrid.SelectedIndexChanged, AddressOf resultGrid_SelectedIndexChanged
AddHandler resultGrid.SortCommand, AddressOf resultGrid_SortCommand
'mise à jours du datagrid
resultGrid.DataSource = GetDataSet()
resultGrid.DataBind()
'ajout du datagrid à la page
Page.Controls(1).Controls.Add(resultGrid)
End Sub
Public Function GetDataSet(Optional ByVal sortfield As String = "") As DataSet
Dim SQL As String
SQL = Replace(Session("SQL"), "count(*) as nb", " * ")
Session("SQL") = SQL
context.Trace.Write("SQL aff", SQL)
' Connexion utilisé pour accéder à la base du site d'immobilier
Dim Conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnexionDB"))
Dim da As SqlDataAdapter
Dim ds As New DataSet
If sortfield = "" Then
da = New SqlDataAdapter(Session("SQL"), Conn)
Else
da = New SqlDataAdapter(Session("SQL") + " order by " & sortfield, Conn)
End If
context.Trace.Write("getdata : ", "Getdata ok")
da.Fill(ds, "BIEN")
Return ds
End Function
'fonction gérant le tri des differents champs par ordre alpha
Public Sub resultGrid_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles resultGrid.SortCommand
' context.Trace.Write("trie : ", "trie ok ")
resultGrid.DataSource = GetDataSet(e.SortExpression)
resultGrid.DataBind()
End Sub
'fonction gérant la selection d'un bien
Public Sub resultGrid_SelectedIndexChanged(ByVal sender As Object, ByVal args As System.EventArgs) Handles resultGrid.SelectedIndexChanged
Select Case Request("page")
Case "formRech"
Response.Redirect("default.aspx?page=detail&bien=" + resultGrid.SelectedItem.Cells(0).Text)
End Select
End Sub
End Class
visualisation de la source après avoir cliqué sur un bouton:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>Bienvenue</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
Par :
<select name="_ctl1:_ctl0:CritRechSimp" id="_ctl1__ctl0_CritRechSimp">
<option selected="selected" value="Référence">Référence</option>
<option value="Nom du propriétaire">Nom du propriétaire</option>
<option value="Référence">Référence</option>
<option value="Nom du propriétaire">Nom du propriétaire</option>
</select>
<hr width="85%">
----
<TABLE border="0" width="75%">
----,
<!-- text de la page -->
</td>
<!-- définition du table -->
<table id="_ctl1__ctl1_tableCenter" cellpadding="10">
----,