<%@ LANGUAGE="VBSCRIPT" %> <%VarBaseDonnees="DRIVER={Microsoft Access Driver (*.mdb)}; " VarBaseDonnees=VarBaseDonnees&"DBQ=e:\inetpub\euromere\database\copymere.mdb"%> Document Title <%if (request.form("Liste")="") AND (request.form("Rechercher")="") then%>

Recherche de produits

Familles des produits :

Mot clef :

<%else%> <%famille=request.form("ComboFamille")%> <%motclef=request.form("motclef")%> <% if (request.form("Liste")<>"") then%>

Liste des produits de la Famille : <%=famille%>

<%end if%> <% if (request.form("Rechercher")<>"") then%>

Liste des produits avec le mot clef : <%=request.form("motclef")%>

<%end if%>
<% if (request.form("Liste")<>"") then%> <%StrRequete="SELECT Reference, Designation, `Prix Unitaire HT`, `Unite lb`, Proprietes FROM Copymere WHERE (Familles = '" & famille & "')"%> <%end if%> <% if (request.form("Rechercher")<>"") then%> <%StrRequete="SELECT Reference, Designation, `Prix Unitaire HT`, `Unite lb`, Proprietes FROM Copymere WHERE (Proprietes like '%" & motclef & "%')"%> <%end if%> <%set connSelect= Server.CreateObject("ADODB.Connection") connSelect.Open VarBaseDonnees set RSSelect = connSelect.Execute(StrRequete)%> <%while not RSSelect.EOF %> <%RSSelect.MoveNext%> <%wend%> <%connSelect.close%>
Référence Désignation Prix Unitaire HT Unité lb Propriétés Commander
<%= RSSelect("Reference") %>  <%= RSSelect("Designation") %>  <%= RSSelect("Prix Unitaire HT") %>  <%= RSSelect("Unite lb") %>  <%= RSSelect("Proprietes") %> 

" >

Retour à la recherche des produits

<%end if%>