Je te le copie/colle:
Pour info, UC2 se trouve dans un répertoire parent de PageDeBase.ascx et de UC1.ascx
Pagedebase.ascx :
-------------------------
<%@ Control Language="vb" AutoEventWireup="false" src="ajoutPhoto.ascx.vb" Inherits="ajoutPhoto" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<asp:label id="table1" Runat="server"></asp:label><tr>
<td id="RechRapide" runat="server"></td>
</tr>
</TABLE>
<hr width="85%">
<asp:label id="table2" Runat="server"></asp:label><tr>
<td id="formRech" runat="server"></td>
</tr>
<table>
Pagedebase.ascx.vb :
----------------------------
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Collections
Imports Microsoft.VisualBasic
Imports System.Web.UI.HtmlControls
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
' Définition des tableaux (couleurs etc ...)
table1.Text = "<table width='" + Session("TailleTabCentral") + "' bgcolor='" + Session("fondTabCentral") + "' border='" + Session("TailleBordTabCent") + "' bordercolor='" + Session("BordureTabCentral") + "' align='center' valign='top' cellspacing='20'>"
table2.Text = "<table width='" + Session("TailleTabCentral") + "' bgcolor='" + Session("fondTabCentral") + "' border='" + Session("TailleBordTabCent") + "' bordercolor='" + Session("BordureTabCentral") + "' align='center' valign='top' cellspacing='20'>"
RechRapide.Controls.Add(Page.LoadControl("./RechRapide.ascx"))
FormRech.Controls.Add(Page.LoadControl("../formRech.ascx"))
End Sub
End Class
UC1.ascx :
--------------
<%@ Control Language="vb" AutoEventWireup="false" src="RechRapide.ascx.vb" Inherits="RechRapide" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<asp:label id="titreRechSimp" Runat="server"></asp:label><br>
Par :
<asp:dropdownlist id="CritRechSimp" Runat="server" EnableViewState="true"></asp:dropdownlist>
<asp:textbox id="textbxSimp" Runat="server"></asp:textbox>
<asp:button id="BtRechSimp" Runat="server"></asp:button>
UC1.ascx.vb :
------------------
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Collections
Imports Microsoft.VisualBasic
Imports System.Xml
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 = "<div align='center' style=""font-weigth: bold; font-size: 14pt; border-right: 1px dotted " + Session("text1") + ";border-bottom: 1px dotted " + Session("text1") + """>"
FStyle = "</div>"
titreRechSimp.Text = Style + " Recherche Rapide " + FStyle
BtRechSimp.Text = "Rechercher"
'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)
Next
XmlDocCrit = Nothing
End Sub
End Class
UC2.ascx :
--------------
<%@ Control Language="vb" AutoEventWireup="false" codebehind="FormRech.ascx.vb" Inherits="FormRech" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<TABLE border="0" width="75%">
<tr>
<td>
<div style="FONT-WEIGHT: bold; FONT-SIZE: 16px" align="center">
<!-- text de la page -->
<asp:label id="Titre" Runat="server"></asp:label>
</div>
</td>
</tr>
</TABLE>
<br>
<!-- définition du table -->
<table id="table" Runat="server">
<tr>
<td>
<table id="tableCenter" runat="server" cellPadding="10">
<tr>
<td width="36%" style="HEIGHT: 162px">
<asp:label id="TypeBien" Runat="server"></asp:label><br>
<asp:radiobuttonlist id="BtType" Runat="server" RepeatDirection="Horizontal" RepeatColumns="3"></asp:radiobuttonlist><br>
</td>
<td vAlign="top" align="center" width="32%" style="HEIGHT: 162px"><asp:label id="Surface" Runat="server"></asp:label><br>
<asp:label id="NomSurfaceMini" Runat="server"></asp:label><br>
<asp:textbox id="SurfaceMini" Runat="server"></asp:textbox><br>
<asp:label id="NomSurfaceMaxi" Runat="server"></asp:label><br>
<asp:textbox id="SurfaceMaxi" Runat="server"></asp:textbox><br>
<asp:rangevalidator id="RVSurfaceMini" ControlToValidate="SurfaceMini" MaximumValue="100000" MinimumValue="0"
ErrorMessage="Entrez une valeur" runat="server"></asp:rangevalidator><br>
</td>
<td vAlign="top" align="center" width="32%" style="HEIGHT: 162px"><asp:label id="Prix" Runat="server"></asp:label><br>
<asp:label id="NomPrixMini" Runat="server"></asp:label><br>
<asp:textbox id="PrixMini" Runat="server"></asp:textbox><br>
<asp:label id="NomPrixMaxi" Runat="server"></asp:label><br>
<asp:textbox id="PrixMaxi" Runat="server"></asp:textbox></td>
</tr>
<tr>
<td vAlign="top" align="center"><asp:label id="NbPiece" runat="server"></asp:label><br>
<asp:radiobuttonlist id="BtPiece" Runat="server" RepeatColumns="2"></asp:radiobuttonlist></td>
<td vAlign="top" align="center"><asp:label id="Lieu" Runat="server"></asp:label><br>
<asp:label id="NomDept" Runat="server"></asp:label><br>
<asp:dropdownlist id="Dept" Runat="server" AutoPostBack="True"></asp:dropdownlist><br>
<asp:label id="NomVille" Runat="server" visible="False"></asp:label><br>
<asp:dropdownlist id="Ville" Runat="server" visible="False"></asp:dropdownlist></td>
<td></td>
</tr>
<tr>
<td align="center" colSpan="3"><asp:button id="Rechercher" Runat="server" Text="Rechercher"></asp:button></td>
</tr>
<tr>
<td align="center" colSpan="3">
<P>
<asp:Label id="NomResultat" runat="server" Visible="False"></asp:Label></P>
<P>
<asp:Button id="AffResult" runat="server" Text="Afficher les résultats" Width="145px" Visible="False"></asp:Button></P>
</td>
</tr>
</table>
</td>
</tr>
</table>
<asp:Label ID="test" Runat="server" />
<asp:DataGrid ID="resultGrid" Runat="server" AutoGenerateColumns="False" OnSortCommand="resultGrid_SortCommand" AllowSorting="True" Width="100%">
<Columns>
<asp:BoundColumn DataField="IdBien" HeaderText="IdBien" Visible="false"></asp:BoundColumn>
<asp:BoundColumn DataField="ReferenceBien" HeaderText="ref" SortExpression="referenceBien"></asp:BoundColumn>
<asp:BoundColumn DataField="villeBien" HeaderText="ville" SortExpression="villeBien"></asp:BoundColumn>
<asp:BoundColumn DataField="TypeBien" HeaderText="Type" SortExpression="TypeBien"></asp:BoundColumn>
<asp:BoundColumn DataField="NbPiece" HeaderText="Nombre de pièces" SortExpression="NbPiece"></asp:BoundColumn>
<asp:BoundColumn DataField="SurfaceHabitable" HeaderText="Surface" SortExpression="SurfaceHabitable"></asp:BoundColumn>
<asp:BoundColumn DataField="Prix" HeaderText="Prix" SortExpression="Prix"></asp:BoundColumn>
<asp:ButtonColumn Text="Select" CommandName="Select"></asp:ButtonColumn>
</Columns>
</asp:DataGrid>
UC2.ascx.vb :
------------------
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Xml
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports Microsoft.VisualBasic
Imports System.IO
Imports System.Drawing
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 = "<div align='center' style=""font-weigth: bold; font-size: 11pt; border-right: 1px dotted " + Session("text1") + ";border-bottom: 1px dotted " + Session("text1") + """>"
Fstyle = "</div>"
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"))
Titre.Text = "<font color='" + Session("titre") + "' face='" + Session("policeTitre") + "'>"
Titre.Text = Titre.Text + temp
Titre.Text = Titre.Text + "</font>"
'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
'** affichage du texte
Dept.Items.Add(CP & " - " & ResultReader.GetValue(0))
'** 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)
' ouverture de la connexion
Conn.Open()
ReqResult.Connection = Conn
ReqResult.CommandText = SQL
ResultReader = ReqResult.ExecuteReader()
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
table.Visible = False
tableCenter.Visible = False
'Titre.Visible = False
resultGrid.DataSource = GetDataSet()
resultGrid.DataBind()
' 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 = ref
datagridcol.DataField = "ReferenceBien"
datagridcol.SortExpression = "ReferenceBien"
resultGrid.Columns.Add(datagridcol)
datagridcol = New BoundColumn
datagridcol.HeaderText = ville
datagridcol.DataField = "VilleBien"
datagridcol.SortExpression = "VilleBien"
resultGrid.Columns.Add(datagridcol)
datagridcol = New BoundColumn
datagridcol.HeaderText = type
datagridcol.DataField = "TypeBien"
datagridcol.SortExpression = "TypeBien"
resultGrid.Columns.Add(datagridcol)
datagridcol = New BoundColumn
datagridcol.HeaderText = pieces
datagridcol.DataField = "NbPiece"
datagridcol.SortExpression = "NbPiece"
resultGrid.Columns.Add(datagridcol)
datagridcol = New BoundColumn
datagridcol.HeaderText = surface
datagridcol.DataField = "SurfaceHabitable"
datagridcol.SortExpression = "SurfaceHabitable"
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>
<body>
<form name="_ctl0" method="post" action="admin.aspx?page=AjoutPhoto" language="javascript" onsubmit="ValidatorOnSubmit();" id="_ctl0">
<input type="hidden" name="__EVENTTARGET" value="" />
<input type="hidden" name="__EVENTARGUMENT" value="" />
<input type="hidden" name="__VIEWSTATE" value="dDwxNjczODc0ODU5O3Q8O2w8aTwxPjs+O2w8dDw7bDxpPDE+O2k8Mz47PjtsPHQ8O2w8aTwwPjtpPDI+Oz47bDx0PHA8cDxsPEltYWdlVXJsO0FsdGVybmF0ZVRleHQ7PjtsPC4uL2ltYWdlcy9pbW1vLmdpZjtSZXRvdXIgw6AgbCdhY2N1ZWlsOz4+Oz47Oz47dDxwPHA8bDxUZXh0Oz47bDxcPHRhYmxlIGJvcmRlcj0nMCcgY2VsbHBhZGRpbmc9JzAnIGNlbGxzcGFjaW5nPScwJyB3aWR0aD0nMTAwJScgc3R5bGU9IkZJTFRFUjogcHJvZ2lkOkRYSW1hZ2VUcmFuc2Zvcm0uTWljcm9zb2Z0LkdSQURJRU5UKHN0YXJ0Q29sb3JzdHI9LCBlbmRDb2xvcnN0cj0sZ3JhZGllbnRUeXBlPTEiIGJnQ29sb3I9I2ZmZmZmZiBzY3JvbGw9eWVzIlw+XDx0clw+XDx0ZCBoZWlnaHQ9JzUnIGNvbHNwYW49JzQnXD4mbmJzcFw7XDwvdGRcPlw8L3RyXD5cPHRyXD5cPHRkIHdpZHRoPSc1JSdcPiZuYnNwXDtcPC90ZFw+XDx0ZCBoZWlnaHQ9JzMwJyB3aWR0aD0nNDAlJ3N0eWxlPSJGSUxURVI6IHByb2dpZDpEWEltYWdlVHJhbnNmb3JtLk1pY3Jvc29mdC5HUkFESUVOVChzdGFydENvbG9yc3RyPSNENEQwQzgsIGVuZENvbG9yc3RyPSMwMDgwODAsZ3JhZGllbnRUeXBlPTEiIGJnQ29sb3I9I2ZmZmZmZiBzY3JvbGw9eWVzIiBvbm1vdXNlb3Zlcj0ic3R5bGUuY3Vyc29yPSdoYW5kJyIgb25jbGljaz0iIGphdmFzY3JpcHQ6IGRvY3VtZW50LmxvY2F0aW9uLmhyZWY9J2FkbWluLmFzcHg/cGFnZT1ham91dCdcOyJcPlw8Y2VudGVyXD5cPC9jZW50ZXJcPlw8L3RkXD5cPHRkIGhlaWdodD0nMzAnIGJnQ29sb3I9JyMwMDgwODAnICBvbm1vdXNlb3Zlcj0ic3R5bGUuY3Vyc29yPSdoYW5kJyIgb25jbGljaz0iIGphdmFzY3JpcHQ6IGRvY3VtZW50LmxvY2F0aW9uLmhyZWY9J2FkbWluLmFzcHg/cGFnZT1ham91dCdcOyJcPlw8Zm9udCBjb2xvcj0nI2ZmMDAwMCcgZmFjZT0nYXJpYWwnIHNpemU9JzMnXD5Bam91dGVyIHVuIGJpZW5cPC9mb250XD5cPC90ZFw+XDx0ZCB3aWR0aD0nNSUnXD4mbmJzcFw7XDwvdGRcPlw8L3RyXD5cPHRyXD5cPHRkIGhlaWdodD0nNScgY29sc3Bhbj0nNCdcPiZuYnNwXDtcPC90ZFw+XDwvdHJcPlw8dHJcPlw8dGQgd2lkdGg9JzUlJ1w+Jm5ic3BcO1w8L3RkXD5cPHRkIGhlaWdodD0nMzAnIHdpZHRoPSc0MCUnc3R5bGU9IkZJTFRFUjogcHJvZ2lkOkRYSW1hZ2VUcmFuc2Zvcm0uTWljcm9zb2Z0LkdSQURJRU5UKHN0YXJ0Q29sb3JzdHI9I0Q0RDBDOCwgZW5kQ29sb3JzdHI9IzAwODA4MCxncmFkaWVudFR5cGU9MSIgYmdDb2xvcj0jZmZmZmZmIHNjcm9sbD15ZXMiIG9ubW91c2VvdmVyPSJzdHlsZS5jdXJzb3I9J2hhbmQnIiBvbmNsaWNrPSIgamF2YXNjcmlwdDogZG9jdW1lbnQubG9jYXRpb24uaHJlZj0nYWRtaW4uYXNweD9wYWdlPW1vZGlmJ1w7Ilw+XDxjZW50ZXJcPlw8L2NlbnRlclw+XDwvdGRcPlw8dGQgaGVpZ2h0PSczMCcgYmdDb2xvcj0nIzAwODA4MCcgIG9ubW91c2VvdmVyPSJzdHlsZS5jdXJzb3I9J2hhbmQnIiBvbmNsaWNrPSIgamF2YXNjcmlwdDogZG9jdW1lbnQubG9jYXRpb24uaHJlZj0nYWRtaW4uYXNweD9wYWdlPW1vZGlmJ1w7Ilw+XDxmb250IGNvbG9yPScjZmYwMDAwJyBmYWNlPSdhcmlhbCcgc2l6ZT0nMydcPk1vZGlmaWVyIG91IHN1cHByaW1lclw8YnJcPnVuIGJpZW5cPC9mb250XD5cPC90ZFw+XDx0ZCB3aWR0aD0nNSUnXD4mbmJzcFw7XDwvdGRcPlw8L3RyXD5cPHRyXD5cPHRkIGhlaWdodD0nNScgY29sc3Bhbj0nNCdcPiZuYnNwXDtcPC90ZFw+XDwvdHJcPlw8dHJcPlw8dGQgd2lkdGg9JzUlJ1w+Jm5ic3BcO1w8L3RkXD5cPHRkIGhlaWdodD0nMzAnIHdpZHRoPSc0MCUnc3R5bGU9IkZJTFRFUjogcHJvZ2lkOkRYSW1hZ2VUcmFuc2Zvcm0uTWljcm9zb2Z0LkdSQURJRU5UKHN0YXJ0Q29sb3JzdHI9I0Q0RDBDOCwgZW5kQ29sb3JzdHI9IzAwODA4MCxncmFkaWVudFR5cGU9MSIgYmdDb2xvcj0jZmZmZmZmIHNjcm9sbD15ZXMiIG9ubW91c2VvdmVyPSJzdHlsZS5jdXJzb3I9J2hhbmQnIiBvbmNsaWNrPSIgamF2YXNjcmlwdDogZG9jdW1lbnQubG9jYXRpb24uaHJlZj0nYWRtaW4uYXNweD9wYWdlPUFqb3V0UGhvdG8nXDsiXD5cPGNlbnRlclw+XDwvY2VudGVyXD5cPC90ZFw+XDx0ZCBoZWlnaHQ9JzMwJyBiZ0NvbG9yPScjMDA4MDgwJyAgb25tb3VzZW92ZXI9InN0eWxlLmN1cnNvcj0naGFuZCciIG9uY2xpY2s9IiBqYXZhc2NyaXB0OiBkb2N1bWVudC5sb2NhdGlvbi5ocmVmPSdhZG1pbi5hc3B4P3BhZ2U9QWpvdXRQaG90bydcOyJcPlw8Zm9udCBjb2xvcj0nI2ZmMDAwMCcgZmFjZT0nYXJpYWwnIHNpemU9JzMnXD5Bam91dGVyIHVuZSBwaG90b1w8YnJcPm91IHVuIHBsYW5cPC9mb250XD5cPC90ZFw+XDx0ZCB3aWR0aD0nNSUnXD4mbmJzcFw7XDwvdGRcPlw8L3RyXD5cPHRyXD5cPHRkIGhlaWdodD0nNScgY29sc3Bhbj0nNCdcPiZuYnNwXDtcPC90ZFw+XDwvdHJcPlw8dHJcPlw8dGQgd2lkdGg9JzUlJ1w+Jm5ic3BcO1w8L3RkXD5cPHRkIGhlaWdodD0nMzAnIHdpZHRoPSc0MCUnc3R5bGU9IkZJTFRFUjogcHJvZ2lkOkRYSW1hZ2VUcmFuc2Zvcm0uTWljcm9zb2Z0LkdSQURJRU5UKHN0YXJ0Q29sb3JzdHI9I0Q0RDBDOCwgZW5kQ29sb3JzdHI9IzAwODA4MCxncmFkaWVudFR5cGU9MSIgYmdDb2xvcj0jZmZmZmZmIHNjcm9sbD15ZXMiIG9ubW91c2VvdmVyPSJzdHlsZS5jdXJzb3I9J2hhbmQnIiBvbmNsaWNrPSIgamF2YXNjcmlwdDogZG9jdW1lbnQubG9jYXRpb24uaHJlZj0nYWRtaW4uYXNweD9wYWdlPWRlY29ubmVjdCdcOyJcPlw8Y2VudGVyXD5cPC9jZW50ZXJcPlw8L3RkXD5cPHRkIGhlaWdodD0nMzAnIGJnQ29sb3I9JyMwMDgwODAnICBvbm1vdXNlb3Zlcj0ic3R5bGUuY3Vyc29yPSdoYW5kJyIgb25jbGljaz0iIGphdmFzY3JpcHQ6IGRvY3VtZW50LmxvY2F0aW9uLmhyZWY9J2FkbWluLmFzcHg/cGFnZT1kZWNvbm5lY3QnXDsiXD5cPGZvbnQgY29sb3I9JyNmZjAwMDAnIGZhY2U9J2FyaWFsJyBzaXplPSczJ1w+U2UgZMOpbG9ndWVyXDwvZm9udFw+XDwvdGRcPlw8dGQgd2lkdGg9JzUlJ1w+Jm5ic3BcO1w8L3RkXD5cPC90clw+XDx0clw+XDx0ZCBoZWlnaHQ9JzUnIGNvbHNwYW49JzQnXD4mbmJzcFw7XDwvdGRcPlw8L3RyXD5cPHRyXD5cPHRkIHdpZHRoPSc1JSdcPiZuYnNwXDtcPC90ZFw+XDx0ZCBoZWlnaHQ9JzMwJyB3aWR0aD0nNDAlJ3N0eWxlPSJGSUxURVI6IHByb2dpZDpEWEltYWdlVHJhbnNmb3JtLk1pY3Jvc29mdC5HUkFESUVOVChzdGFydENvbG9yc3RyPSNENEQwQzgsIGVuZENvbG9yc3RyPSMwMDgwODAsZ3JhZGllbnRUeXBlPTEiIGJnQ29sb3I9I2ZmZmZmZiBzY3JvbGw9eWVzIiBvbm1vdXNlb3Zlcj0ic3R5bGUuY3Vyc29yPSdoYW5kJyIgb25jbGljaz0iIGphdmFzY3JpcHQ6IGRvY3VtZW50LmxvY2F0aW9uLmhyZWY9J2FkbWluLmFzcHg/cGFnZT1jb21wdGVzJ1w7Ilw+XDxjZW50ZXJcPlw8L2NlbnRlclw+XDwvdGRcPlw8dGQgaGVpZ2h0PSczMCcgYmdDb2xvcj0nIzAwODA4MCcgIG9ubW91c2VvdmVyPSJzdHlsZS5jdXJzb3I9J2hhbmQnIiBvbmNsaWNrPSIgamF2YXNjcmlwdDogZG9jdW1lbnQubG9jYXRpb24uaHJlZj0nYWRtaW4uYXNweD9wYWdlPWNvbXB0ZXMnXDsiXD5cPGZvbnQgY29sb3I9JyNmZjAwMDAnIGZhY2U9J2FyaWFsJyBzaXplPSczJ1w+R2VzdGlvbiBkZXMgY29tcHRlc1w8L2ZvbnRcPlw8L3RkXD5cPHRkIHdpZHRoPSc1JSdcPiZuYnNwXDtcPC90ZFw+XDwvdHJcPlw8dHJcPlw8dGQgaGVpZ2h0PSc1JyBjb2xzcGFuPSc0J1w+Jm5ic3BcO1w8L3RkXD5cPC90clw+XDx0clw+XDx0ZCB3aWR0aD0nNSUnXD4mbmJzcFw7XDwvdGRcPlw8dGQgaGVpZ2h0PSczMCcgd2lkdGg9JzQwJSdzdHlsZT0iRklMVEVSOiBwcm9naWQ6RFhJbWFnZVRyYW5zZm9ybS5NaWNyb3NvZnQuR1JBRElFTlQoc3RhcnRDb2xvcnN0cj0jRDREMEM4LCBlbmRDb2xvcnN0cj0jMDA4MDgwLGdyYWRpZW50VHlwZT0xIiBiZ0NvbG9yPSNmZmZmZmYgc2Nyb2xsPXllcyIgb25tb3VzZW92ZXI9InN0eWxlLmN1cnNvcj0naGFuZCciIG9uY2xpY2s9IiBqYXZhc2NyaXB0OiBkb2N1bWVudC5sb2NhdGlvbi5ocmVmPSdhZG1pbi5hc3B4P3BhZ2U9c3RhdHMnXDsiXD5cPGNlbnRlclw+XDwvY2VudGVyXD5cPC90ZFw+XDx0ZCBoZWlnaHQ9JzMwJyBiZ0NvbG9yPScjMDA4MDgwJyAgb25tb3VzZW92ZXI9InN0eWxlLmN1cnNvcj0naGFuZCciIG9uY2xpY2s9IiBqYXZhc2NyaXB0OiBkb2N1bWVudC5sb2NhdGlvbi5ocmVmPSdhZG1pbi5hc3B4P3BhZ2U9c3RhdHMnXDsiXD5cPGZvbnQgY29sb3I9JyNmZjAwMDAnIGZhY2U9J2FyaWFsJyBzaXplPSczJ1w+U3RhdGlzdGlxdWVzXDwvZm9udFw+XDwvdGRcPlw8dGQgd2lkdGg9JzUlJ1w+Jm5ic3BcO1w8L3RkXD5cPC90clw+XDx0clw+XDx0ZCBoZWlnaHQ9JzUnIGNvbHNwYW49JzQnXD4mbmJzcFw7XDwvdGRcPlw8L3RyXD5cPC90YWJsZVw+Oz4+Oz47Oz47Pj47dDw7bDxpPDE+Oz47bDx0PDtsPGk8MD47aTwyPjtpPDQ+O2k8Nj47PjtsPHQ8cDxwPGw8VGV4dDs+O2w8XDx0YWJsZSB3aWR0aD0nOTAlJyBiZ2NvbG9yPScjQ0RFMTIzJyBib3JkZXI9JzAnIGJvcmRlcmNvbG9yPScjMEYwRjBGJyBhbGlnbj0nY2VudGVyJyB2YWxpZ249J3RvcCcgY2VsbHNwYWNpbmc9JzIwJ1w+Oz4+Oz47Oz47dDw7bDxpPDA+Oz47bDx0PDtsPGk8MD47aTwyPjtpPDY+Oz47bDx0PHA8cDxsPFRleHQ7PjtsPFw8ZGl2IGFsaWduPSdjZW50ZXInIHN0eWxlPSJmb250LXdlaWd0aDogYm9sZFw7IGZvbnQtc2l6ZTogMTRwdFw7IGJvcmRlci1yaWdodDogMXB4IGRvdHRlZCAjRkYwMDAwXDtib3JkZXItYm90dG9tOiAxcHggZG90dGVkICNGRjAwMDAiXD4gUmVjaGVyY2hlIFJhcGlkZSBcPC9kaXZcPjs+Pjs+Ozs+O3Q8dDw7cDxsPGk8MD47aTwxPjtpPDI+O2k8Mz47PjtsPHA8UsOpZsOpcmVuY2U7UsOpZsOpcmVuY2U+O3A8Tm9tIGR1IHByb3ByacOpdGFpcmU7Tm9tIGR1IHByb3ByacOpdGFpcmU+O3A8UsOpZsOpcmVuY2U7UsOpZsOpcmVuY2U+O3A8Tm9tIGR1IHByb3ByacOpdGFpcmU7Tm9tIGR1IHByb3ByacOpdGFpcmU+Oz4+Oz47Oz47dDxwPHA8bDxUZXh0Oz47bDxSZWNoZXJjaGVyOz4+Oz47Oz47Pj47Pj47dDxwPHA8bDxUZXh0Oz47bDxcPHRhYmxlIHdpZHRoPSc5MCUnIGJnY29sb3I9JyNDREUxMjMnIGJvcmRlcj0nMCcgYm9yZGVyY29sb3I9JyMwRjBGMEYnIGFsaWduPSdjZW50ZXInIHZhbGlnbj0ndG9wJyBjZWxsc3BhY2luZz0nMjAnXD47Pj47Pjs7Pjt0PDtsPGk8MD47PjtsPHQ8O2w8aTwxPjtpPDM+O2k8Nz47PjtsPHQ8cDxwPGw8VmlzaWJsZTs+O2w8bzxmPjs+Pjs+Ozs+O3Q8cDxsPGJnY29sb3I7d2lkdGg7Ym9yZGVyO2JvcmRlcmNvbG9yOz47bDwjQ0RFMTIzOzkwJTswOyMwRjBGMEY7Pj47bDxpPDA+Oz47bDx0PDtsPGk8MD47PjtsPHQ8O2w8aTwxPjs+O2w8dDw7bDxpPDA+O2k8MT47aTwzPjs+O2w8dDw7bDxpPDA+O2k8MT47aTwyPjs+O2w8dDw7bDxpPDE+O2k8Mz47PjtsPHQ8cDxwPGw8VGV4dDs+O2w8XDxkaXYgYWxpZ249J2NlbnRlcicgc3R5bGU9ImZvbnQtd2VpZ3RoOiBib2xkXDsgZm9udC1zaXplOiAxMXB0XDsgYm9yZGVyLXJpZ2h0OiAxcHggZG90dGVkICNGRjAwMDBcO2JvcmRlci1ib3R0b206IDFweCBkb3R0ZWQgI0ZGMDAwMCJcPlR5cGUgZGUgYmllblw8L2Rpdlw+Oz4+Oz47Oz47dDx0PDtwPGw8aTwwPjtpPDE+O2k8Mj47aTwzPjtpPDQ+O2k8NT47aTw2Pjs+O2w8cDxJbmRpZmbDqXJlbnQ7SW5kaWZmZXJlbnQ+O3A8TWFpc29uO01haXNvbj47cDxBcHBhcnRlbWVudDtBcHBhcnRlbWVudD47cDxWaWxsYTtWaWxsYT47cDxMb2Z0O0xvZnQ+O3A8VGVycmFpbjtUZXJyYWluPjtwPEF1dHJlO0F1dHJlcz47Pj47Pjs7Pjs+Pjt0PDtsPGk8MD47aTwyPjtpPDY+Oz47bDx0PHA8cDxsPFRleHQ7PjtsPFw8ZGl2IGFsaWduPSdjZW50ZXInIHN0eWxlPSJmb250LXdlaWd0aDogYm9sZFw7IGZvbnQtc2l6ZTogMTFwdFw7IGJvcmRlci1yaWdodDogMXB4IGRvdHRlZCAjRkYwMDAwXDtib3JkZXItYm90dG9tOiAxcHggZG90dGVkICNGRjAwMDAiXD5TdXJmYWNlIGhhYml0YWJsZSAoZW4gbcKyKVw8L2Rpdlw+Oz4+Oz47Oz47dDxwPHA8bDxUZXh0Oz47bDxNaW5pbXVtOz4+Oz47Oz47dDxwPHA8bDxUZXh0Oz47bDxNYXhpbXVtOz4+Oz47Oz47Pj47dDw7bDxpPDA+O2k8Mj47aTw2Pjs+O2w8dDxwPHA8bDxUZXh0Oz47bDxcPGRpdiBhbGlnbj0nY2VudGVyJyBzdHlsZT0iZm9udC13ZWlndGg6IGJvbGRcOyBmb250LXNpemU6IDExcHRcOyBib3JkZXItcmlnaHQ6IDFweCBkb3R0ZWQgI0ZGMDAwMFw7Ym9yZGVyLWJvdHRvbTogMXB4IGRvdHRlZCAjRkYwMDAwIlw+UHJpeCAoZW4g4oKsKVw8L2Rpdlw+Oz4+Oz47Oz47dDxwPHA8bDxUZXh0Oz47bDxNaW5pbXVtOz4+Oz47Oz47dDxwPHA8bDxUZXh0Oz47bDxNYXhpbXVtOz4+Oz47Oz47Pj47Pj47dDw7bDxpPDA+O2k8MT47PjtsPHQ8O2w8aTwwPjtpPDI+Oz47bDx0PHA8cDxsPFRleHQ7PjtsPFw8ZGl2IGFsaWduPSdjZW50ZXInIHN0eWxlPSJmb250LXdlaWd0aDogYm9sZFw7IGZvbnQtc2l6ZTogMTFwdFw7IGJvcmRlci1yaWdodDogMXB4IGRvdHRlZCAjRkYwMDAwXDtib3JkZXItYm90dG9tOiAxcHggZG90dGVkICNGRjAwMDAiXD5Ob21icmUgZGUgcGnDqGNlc1w8L2Rpdlw+Oz4+Oz47Oz47dDx0PDtwPGw8aTwwPjtpPDE+O2k8Mj47aTwzPjtpPDQ+O2k8NT47PjtsPHA8SW5kaWZmw6lyZW50OzA+O3A8MTsxPjtwPDI7Mj47cDwzOzM+O3A8NDs0PjtwPDUgZXQgKzs1Pjs+Pjs+Ozs+Oz4+O3Q8O2w8aTwwPjtpPDI+O2k8ND47aTw2Pjs+O2w8dDxwPHA8bDxUZXh0Oz47bDxcPGRpdiBhbGlnbj0nY2VudGVyJyBzdHlsZT0iZm9udC13ZWlndGg6IGJvbGRcOyBmb250LXNpemU6IDExcHRcOyBib3JkZXItcmlnaHQ6IDFweCBkb3R0ZWQgI0ZGMDAwMFw7Ym9yZGVyLWJvdHRvbTogMXB4IGRvdHRlZCAjRkYwMDAwIlw+TGlldVw8L2Rpdlw+Oz4+Oz47Oz47dDxwPHA8bDxUZXh0Oz47bDxEw6lwYXJ0ZW1lbnQ7Pj47Pjs7Pjt0PHQ8O3A8bDxpPDA+O2k8MT47aTwyPjtpPDM+O2k8ND47aTw1Pjs+O2w8cDxUb3VzIGxlcyBkw6lwYXJ0ZW1lbnRzO1xlPjtwPDEyIC0gQ09URSBEJ09SOzEyPjtwPDQ1IC0gTE9JUkVUOzQ1PjtwPDc1IC0gU0VJTkU7NzU+O3A8OTEgLSBFU1NPTk5FOzkxPjtwPDk0IC0gVkFMIERFIE1BUk5FOzk0Pjs+PjtsPGk8MD47Pj47Oz47dDxwPHA8bDxUZXh0Oz47bDxWaWxsZTs+Pjs+Ozs+Oz4+Oz4+O3Q8O2w8aTwwPjs+O2w8dDw7bDxpPDE+O2k8Mz47PjtsPHQ8cDxwPGw8VGV4dDtWaXNpYmxlOz47bDxOb21icmUgZGUgYmllbnMgcsOpcG9uZGFudCDDoCB2b3MgY3JpdMOocmVzIDogMTI7bzx0Pjs+Pjs+Ozs+O3Q8cDxwPGw8VmlzaWJsZTs+O2w8bzx0Pjs+Pjs+Ozs+Oz4+Oz4+Oz4+Oz4+Oz4+Oz4+O3Q8QDA8Ozs7Ozs7Ozs7Oz47Oz47Pj47Pj47Pj47Pj47Pj47Pj47bDxNZW51QWRtaW46bG9nbzs+Ptpg/j+182+Tyf/jwOBfoFkIB5Ot" />
<script language="javascript">
<!--
function __doPostBack(eventTarget, eventArgument) {
var theform;
if (window.navigator.appName.toLowerCase().indexOf("netscape") > -1) {
theform = document.forms["_ctl0"];
}
else {
theform = document._ctl0;
}
theform.__EVENTTARGET.value = eventTarget.split("$").join(":");
theform.__EVENTARGUMENT.value = eventArgument;
theform.submit();
}
// -->
</script>
<script language="javascript" src="/aspnet_client/system_web/1_1_4322/WebUIValidation.js"></script>
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td width="15%" valign="top">
<input type="image" name="MenuAdmin:logo" onclick="if (typeof(Page_ClientValidate) == 'function') Page_ClientValidate(); " language="javascript" id="MenuAdmin_logo" src="../images/immo.gif" alt="Retour à l'accueil" border="0" /><br>
<br>
<span id="MenuAdmin_ListMenuAdmin"><table border='0' cellpadding='0' cellspacing='0' width='100%' style="FILTER: progid:DXImageTransform.Microsoft.GRADIENT(startColorstr=, endColorstr=,gradientType=1" bgColor=#ffffff scroll=yes"><tr><td height='5' colspan='4'> </td></tr><tr><td width='5%'> </td><td height='30' width='40%'style="FILTER: progid:DXImageTransform.Microsoft.GRADIENT(startColorstr=#D4D0C8, endColorstr=#008080,gradientType=1" bgColor=#ffffff scroll=yes" onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=ajout';"><center></center></td><td height='30' bgColor='#008080' onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=ajout';"><font color='#ff0000' face='arial' size='3'>Ajouter un bien</font></td><td width='5%'> </td></tr><tr><td height='5' colspan='4'> </td></tr><tr><td width='5%'> </td><td height='30' width='40%'style="FILTER: progid:DXImageTransform.Microsoft.GRADIENT(startColorstr=#D4D0C8, endColorstr=#008080,gradientType=1" bgColor=#ffffff scroll=yes" onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=modif';"><center></center></td><td height='30' bgColor='#008080' onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=modif';"><font color='#ff0000' face='arial' size='3'>Modifier ou supprimer<br>un bien</font></td><td width='5%'> </td></tr><tr><td height='5' colspan='4'> </td></tr><tr><td width='5%'> </td><td height='30' width='40%'style="FILTER: progid:DXImageTransform.Microsoft.GRADIENT(startColorstr=#D4D0C8, endColorstr=#008080,gradientType=1" bgColor=#ffffff scroll=yes" onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=AjoutPhoto';"><center></center></td><td height='30' bgColor='#008080' onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=AjoutPhoto';"><font color='#ff0000' face='arial' size='3'>Ajouter une photo<br>ou un plan</font></td><td width='5%'> </td></tr><tr><td height='5' colspan='4'> </td></tr><tr><td width='5%'> </td><td height='30' width='40%'style="FILTER: progid:DXImageTransform.Microsoft.GRADIENT(startColorstr=#D4D0C8, endColorstr=#008080,gradientType=1" bgColor=#ffffff scroll=yes" onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=deconnect';"><center></center></td><td height='30' bgColor='#008080' onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=deconnect';"><font color='#ff0000' face='arial' size='3'>Se déloguer</font></td><td width='5%'> </td></tr><tr><td height='5' colspan='4'> </td></tr><tr><td width='5%'> </td><td height='30' width='40%'style="FILTER: progid:DXImageTransform.Microsoft.GRADIENT(startColorstr=#D4D0C8, endColorstr=#008080,gradientType=1" bgColor=#ffffff scroll=yes" onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=comptes';"><center></center></td><td height='30' bgColor='#008080' onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=comptes';"><font color='#ff0000' face='arial' size='3'>Gestion des comptes</font></td><td width='5%'> </td></tr><tr><td height='5' colspan='4'> </td></tr><tr><td width='5%'> </td><td height='30' width='40%'style="FILTER: progid:DXImageTransform.Microsoft.GRADIENT(startColorstr=#D4D0C8, endColorstr=#008080,gradientType=1" bgColor=#ffffff scroll=yes" onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=stats';"><center></center></td><td height='30' bgColor='#008080' onmouseover="style.cursor='hand'" onclick=" javascript: document.location.href='admin.aspx?page=stats';"><font color='#ff0000' face='arial' size='3'>Statistiques</font></td><td width='5%'> </td></tr><tr><td height='5' colspan='4'> </td></tr></table></span>
</td>
<td id="Contenu" valign="top" align="center" width="100%">
<span id="_ctl1_table1"><table width='90%' bgcolor='#CDE123' border='0' bordercolor='#0F0F0F' align='center' valign='top' cellspacing='20'></span><tr>
<td id="_ctl1_RechRapide"><span id="_ctl1__ctl0_titreRechSimp"><div align='center' style="font-weigth: bold; font-size: 14pt; border-right: 1px dotted #FF0000;border-bottom: 1px dotted #FF0000"> Recherche Rapide </div></span><br>
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>
<input name="_ctl1:_ctl0:textbxSimp" type="text" id="_ctl1__ctl0_textbxSimp" />
<input type="submit" name="_ctl1:_ctl0:BtRechSimp" value="Rechercher" onclick="if (typeof(Page_ClientValidate) == 'function') Page_ClientValidate(); " language="javascript" id="_ctl1__ctl0_BtRechSimp" />
</td>
</tr>
</TABLE>
<hr width="85%">
<span id="_ctl1_table2"><table width='90%' bgcolor='#CDE123' border='0' bordercolor='#0F0F0F' align='center' valign='top' cellspacing='20'></span><tr>
<td id="_ctl1_formRech">
<TABLE border="0" width="75%">
<tr>
<td>
<div style="FONT-WEIGHT: bold; FONT-SIZE: 16px" align="center">
<!-- text de la page -->
</div>
</td>
</tr>
</TABLE>
<br>
<!-- définition du table -->
<table id="_ctl1__ctl1_table" bgcolor="#CDE123" width="90%" border="0" bordercolor="#0F0F0F">
<tr>
<td>
<table id="_ctl1__ctl1_tableCenter" cellpadding="10">
<tr>
<td width="36%" style="HEIGHT: 162px">
<span id="_ctl1__ctl1_TypeBien"><div align='center' style="font-weigth: bold; font-size: 11pt; border-right: 1px dotted #FF0000;border-bottom: 1px dotted #FF0000">Type de bien</div></span><br>
<table id="_ctl1__ctl1_BtType" border="0">
<tr>
<td><input id="_ctl1__ctl1_BtType_0" type="radio" name="_ctl1:_ctl1:BtType" value="Indifferent" checked="checked" /><label for="_ctl1__ctl1_BtType_0">Indifférent</label></td><td><input id="_ctl1__ctl1_BtType_1" type="radio" name="_ctl1:_ctl1:BtType" value="Maison" /><label for="_ctl1__ctl1_BtType_1">Maison</label></td><td><input id="_ctl1__ctl1_BtType_2" type="radio" name="_ctl1:_ctl1:BtType" value="Appartement" /><label for="_ctl1__ctl1_BtType_2">Appartement</label></td>
</tr><tr>
<td><input id="_ctl1__ctl1_BtType_3" type="radio" name="_ctl1:_ctl1:BtType" value="Villa" /><label for="_ctl1__ctl1_BtType_3">Villa</label></td><td><input id="_ctl1__ctl1_BtType_4" type="radio" name="_ctl1:_ctl1:BtType" value="Loft" /><label for="_ctl1__ctl1_BtType_4">Loft</label></td><td><input id="_ctl1__ctl1_BtType_5" type="radio" name="_ctl1:_ctl1:BtType" value="Terrain" /><label for="_ctl1__ctl1_BtType_5">Terrain</label></td>
</tr><tr>
<td><input id="_ctl1__ctl1_BtType_6" type="radio" name="_ctl1:_ctl1:BtType" value="Autres" /><label for="_ctl1__ctl1_BtType_6">Autre</label></td>
</tr>
</table><br>
</td>
<td valign="top" align="center" width="32%" style="HEIGHT: 162px"><span id="_ctl1__ctl1_Surface"><div align='center' style="font-weigth: bold; font-size: 11pt; border-right: 1px dotted #FF0000;border-bottom: 1px dotted #FF0000">Surface habitable (en m²)</div></span><br>
<span id="_ctl1__ctl1_NomSurfaceMini">Minimum</span><br>
<input name="_ctl1:_ctl1:SurfaceMini" type="text" id="_ctl1__ctl1_SurfaceMini" /><br>
<span id="_ctl1__ctl1_NomSurfaceMaxi">Maximum</span><br>
<input name="_ctl1:_ctl1:SurfaceMaxi" type="text" id="_ctl1__ctl1_SurfaceMaxi" /><br>
<span id="_ctl1__ctl1_RVSurfaceMini" controltovalidate="_ctl1__ctl1_SurfaceMini" errormessage="Entrez une valeur" evaluationfunction="RangeValidatorEvaluateIsValid" maximumvalue="100000" minimumvalue="0" style="color:Red;visibility:hidden;">Entrez une valeur</span><br>
</td>
<td valign="top" align="center" width="32%" style="HEIGHT: 162px"><span id="_ctl1__ctl1_Prix"><div align='center' style="font-weigth: bold; font-size: 11pt; border-right: 1px dotted #FF0000;border-bottom: 1px dotted #FF0000">Prix (en ¤)</div></span><br>
<span id="_ctl1__ctl1_NomPrixMini">Minimum</span><br>
<input name="_ctl1:_ctl1:PrixMini" type="text" id="_ctl1__ctl1_PrixMini" /><br>
<span id="_ctl1__ctl1_NomPrixMaxi">Maximum</span><br>
<input name="_ctl1:_ctl1:PrixMaxi" type="text" id="_ctl1__ctl1_PrixMaxi" /></td>
</tr>
<tr>
<td valign="top" align="center"><span id="_ctl1__ctl1_NbPiece"><div align='center' style="font-weigth: bold; font-size: 11pt; border-right: 1px dotted #FF0000;border-bottom: 1px dotted #FF0000">Nombre de pièces</div></span><br>
<table id="_ctl1__ctl1_BtPiece" border="0">
<tr>
<td><input id="_ctl1__ctl1_BtPiece_0" type="radio" name="_ctl1:_ctl1:BtPiece" value="0" checked="checked" /><label for="_ctl1__ctl1_BtPiece_0">Indifférent</label></td><td><input id="_ctl1__ctl1_BtPiece_3" type="radio" name="_ctl1:_ctl1:BtPiece" value="3" /><label for="_ctl1__ctl1_BtPiece_3">3</label></td>
</tr><tr>
<td><input id="_ctl1__ctl1_BtPiece_1" type="radio" name="_ctl1:_ctl1:BtPiece" value="1" /><label for="_ctl1__ctl1_BtPiece_1">1</label></td><td><input id="_ctl1__ctl1_BtPiece_4" type="radio" name="_ctl1:_ctl1:BtPiece" value="4" /><label for="_ctl1__ctl1_BtPiece_4">4</label></td>
</tr><tr>
<td><input id="_ctl1__ctl1_BtPiece_2" type="radio" name="_ctl1:_ctl1:BtPiece" value="2" /><label for="_ctl1__ctl1_BtPiece_2">2</label></td><td><input id="_ctl1__ctl1_BtPiece_5" type="radio" name="_ctl1:_ctl1:BtPiece" value="5" /><label for="_ctl1__ctl1_BtPiece_5">5 et +</label></td>
</tr>
</table></td>
<td valign="top" align="center"><span id="_ctl1__ctl1_Lieu"><div align='center' style="font-weigth: bold; font-size: 11pt; border-right: 1px dotted #FF0000;border-bottom: 1px dotted #FF0000">Lieu</div></span><br>
<span id="_ctl1__ctl1_NomDept">Département</span><br>
<select name="_ctl1:_ctl1:Dept" onchange="__doPostBack('_ctl1$_ctl1$Dept','')" language="javascript" id="_ctl1__ctl1_Dept">
<option selected="selected" value="">Tous les départements</option>
<option value="12">12 - COTE D'OR</option>
<option value="45">45 - LOIRET</option>
<option value="75">75 - SEINE</option>
<option value="91">91 - ESSONNE</option>
<option value="94">94 - VAL DE MARNE</option>
</select><br>
<br>
</td>
<td></td>
</tr>
<tr>
<td align="center" colspan="3"><input type="submit" name="_ctl1:_ctl1:Rechercher" value="Rechercher" onclick="if (typeof(Page_ClientValidate) == 'function') Page_ClientValidate(); " language="javascript" id="_ctl1__ctl1_Rechercher" /></td>
</tr>
<tr>
<td align="center" colspan="3">
<P>
<span id="_ctl1__ctl1_NomResultat">Nombre de biens répondant à vos critères : 12</span></P>
<P>
<input type="submit" name="_ctl1:_ctl1:AffResult" value="Afficher les résultats" onclick="if (typeof(Page_ClientValidate) == 'function') Page_ClientValidate(); " language="javascript" id="_ctl1__ctl1_AffResult" style="width:145px;" /></P>
</td>
</tr>
</table>
</td>
</tr>
</table>
<span id="_ctl1__ctl1_test"></span>
</td>
</tr>
<table>
</td>
</tr>
</table>
<script language="javascript">
<!--
var Page_Validators = new Array(document.all["_ctl1__ctl1_RVSurfaceMini"]);
// -->
</script>
<script language="javascript">
<!--
var Page_ValidationActive = false;
if (typeof(clientInformation) != "undefined" && clientInformation.appName.indexOf("Explorer") != -1) {
if ((typeof(Page_ValidationVer) != "undefined") && (Page_ValidationVer == "125"))
ValidatorOnLoad();
}
function ValidatorOnSubmit() {
if (Page_ValidationActive) {
ValidatorCommonOnSubmit();
}
}
// -->
</script>
</form>
</body>
</HTML>
Si tu préfères je te les envois par mail.
En espérant que tu puisse m'éclairer.
A bientôt