Fabricant de linge de lit enfants et puericulture, Hacot et Colombier

<%@ Language=VBScript %> <% ' +------------------------------------------------------------------------------------------+ ' | BO STANDARD ' +------------------------------------------------------------------------------------------+ ' | Fichier : puericulture.asp ' | Date : 23/08/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 = 18 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") rubrique_id_session = session("rubrique_id_selection") session("rubrique_id_selection") = "" if rubrique_id_session = "" then rubrique_id_session = 0 end if 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 rs = Null set rs = Nothing else rubrique_libelle_page = "Quelques modéles" end if %> Fabricant de linge de lit enfants et puericulture, 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 = 18 AND rubrique_active = 1 AND rubrique_archive = 0" set rs = conn.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%>
<% 'Recuperation de la liste des modeles : SQL = "Select sous_rubrique_nom_fr,sous_rubrique_nom_en from dbo.TBl_SOUS_RUBRIQUE where sous_rubrique_active = 1 and sous_rubrique_archive = 0 and sous_rubrique_rubrique_id = " & rubrique_id set rs1 = conn2.Execute(SQL) if not rs1.eof then if (cint(rubrique_id_page) = cint(rubrique_id)) and cint(rubrique_id_session) <> cint(rubrique_id) then session("rubrique_id_selection") = rubrique_id do while not rs1.eof if session("lang") <> "en" then modele_nom = rs1("sous_rubrique_nom_fr") else modele_nom = rs1("sous_rubrique_nom_en") end if %> <% rs1.MoveNext loop end if rs1 = Null set rs1 = Nothing end if %>

<%=modele_nom%>

<%=rubrique_libelle%> <% 'Recuperation de la liste des modeles : SQL = "Select sous_rubrique_nom_fr,sous_rubrique_nom_en from dbo.TBl_SOUS_RUBRIQUE where sous_rubrique_active = 1 and sous_rubrique_archive = 0 and sous_rubrique_rubrique_id = " & rubrique_id set rs1 = conn2.Execute(SQL) if not rs1.eof then if (cint(rubrique_id_page) = cint(rubrique_id)) and cint(rubrique_id_session) <> cint(rubrique_id) then session("rubrique_id_selection") = rubrique_id do while not rs1.eof if session("lang") <> "en" then modele_nom = rs1("sous_rubrique_nom_fr") else modele_nom = rs1("sous_rubrique_nom_en") end if %> <% rs1.MoveNext loop end if rs1 = Null set rs1 = Nothing end if %>

<%=modele_nom%>

<%=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,produit_image 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,produit_image from dbo.TBL_PRODUIT where produit_active = 1 and produit_archive = 0 and produit_affiche_puericulture = 1 " end if set rs = conn.Execute(SQL) %> <%if not rs.eof then do while not rs.eof modele = rs("produit_miniature") modele_zoom = rs("produit_image") 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") modele_zoom = rs("produit_image") 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") modele_zoom = rs("produit_image") 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") modele_zoom = rs("produit_image") if session("lang") <> "en" then modele_nom = rs("produit_nom_fr") else modele_nom = rs("produit_nom_en") end if %> <% rs.MoveNext end if rs1 = Null set rs1 = Nothing %> <% loop else ' Pas d'image a affiche : %> <% end if %>

<%=modele_nom%> <% if (modele_zoom <> "") then %> <%end if%>	<%=modele_nom%> <%if modele_zoom <> "" then %> <%end if%>		<%=modele_nom%> <%if modele_zoom <> "" then %> <%end if%>	<%=modele_nom%> <%if modele_zoom <> "" then %> <%end if%>

		> Pas de modéles disponibles.