Linge de lit Hacot et Colombier

<%@ Language=VBScript %> <% ' +------------------------------------------------------------------------------------------+ ' | BO STANDARD ' +------------------------------------------------------------------------------------------+ ' | Fichier : lingedelit.asp ' | Date : 27/10/2004 ' | Version : 1.0 ' | Auteur : J.ZARIOUH ' +------------------------------------------------------------------------------------------+ ' | Page d'accueil du backoffice ' +------------------------------------------------------------------------------------------+ ' | Modifications: ' | DATE VERSION AUTEUR MODIFS APPORTEES ' +------------------------------------------------------------------------------------------+ %> <% 'Rubrique Puericulture 'Recuperation du texte de la gamme : SQL = "select gamme_texte_fr,gamme_texte_en from dbo.TBL_GAMME where gamme_id = 19 AND gamme_active = 1 AND gamme_archive = 0" set rs = conn.Execute(SQL) if not rs.eof then if session("lang") <> "en" then gamme_texte = nl2br(rs("gamme_texte_fr")) else gamme_texte = nl2br(rs("gamme_texte_en")) end if else gamme_texte = "" end if rs = Null Set rs = Nothing rubrique_id_page = Request.QueryString("rubrique_id") if rubrique_id_page <> "" then SQL = "Select rubrique_libelle_fr,rubrique_libelle_en from dbo.TBL_RUBRIQUE where rubrique_id = '" & rubrique_id_page & "' AND rubrique_active = 1 AND rubrique_archive = 0" set rs = conn.Execute(SQL) if not rs.eof then if session("lang") <> "en" then rubrique_libelle_page = rs("rubrique_libelle_fr") else rubrique_libelle_page = rs("rubrique_libelle_en") end if end if else rubrique_libelle_page = "Quelques modéles" end if %> Linge de lit Hacot et Colombier

<%=gamme_texte%>

<% 'Recuperation de la liste des rubriques SQL = "select rubrique_id,rubrique_libelle_fr,rubrique_libelle_en from dbo.TBL_RUBRIQUE where rubrique_gamme_id = 19 AND rubrique_active = 1 AND rubrique_archive = 0" set rs = conn2.Execute(SQL) if not rs.eof then do while not rs.eof rubrique_id = rs("rubrique_id") if session("lang") <> "en" then rubrique_libelle = rs("rubrique_libelle_fr") else rubrique_libelle = rs("rubrique_libelle_en") end if %> <% rs.MoveNext if not rs.eof then rubrique_id = rs("rubrique_id") if session("lang") <> "en" then rubrique_libelle = rs("rubrique_libelle_fr") else rubrique_libelle = rs("rubrique_libelle_en") end if %> <% end if %> <% if not rs.eof then rs.MoveNext end if loop end if %>


<%=rubrique_libelle%>		<%=rubrique_libelle%>

<%=rubrique_libelle_page%> :

<% 'Récupération des modéles de la rubrique de la page : if rubrique_id_page <> "" then SQL = "Select produit_nom_fr,produit_nom_en ,produit_miniature from dbo.TBL_PRODUIT where produit_active = 1 and produit_archive = 0 and produit_rubrique_id = " & rubrique_id_page else SQL = "Select produit_nom_fr,produit_nom_en ,produit_miniature from dbo.TBL_PRODUIT where produit_active = 1 and produit_archive = 0 and produit_affiche_linge = 1 " end if set rs = conn.Execute(SQL) %> <%if not rs.eof then do while not rs.eof modele = rs("produit_miniature") if session("lang") <> "en" then modele_nom = rs("produit_nom_fr") else modele_nom = rs("produit_nom_en") end if %> <% rs.MoveNext if not rs.eof then modele = rs("produit_miniature") if session("lang") <> "en" then modele_nom = rs("produit_nom_fr") else modele_nom = rs("produit_nom_en") end if %> <% rs.MoveNext end if if not rs.eof then modele = rs("produit_miniature") if session("lang") <> "en" then modele_nom = rs("produit_nom_fr") else modele_nom = rs("produit_nom_en") end if %> <% rs.MoveNext end if if not rs.eof then modele = rs("produit_miniature") if session("lang") <> "en" then modele_nom = rs("produit_nom_fr") else modele_nom = rs("produit_nom_en") end if %> <% rs.MoveNext end if %> <% loop else ' Pas d'image a affiche : %> <% end if %>

<%=modele_nom%>	<%=modele_nom%>		<%=modele_nom%>	<%=modele_nom%>

		> Pas de modéles disponibles.