<% GetEntete() %> <% 'Ecrit 'Aucun' ou 'None dans les combo selon la LibLang if LibLang = "LibFr" then NoSel = "Aucun" else NoSel = "None" end if 'Ouverture de la base de données OpenBdd MaBase, res 'Ecriture des requetes SQLAppli = "SELECT * FROM Applications" SQLType = "SELECT * FROM Type" SQLDebit = "SELECT * FROM Debit" SQLPression = "SELECT * FROM Pression" SQLDepression = "SELECT * FROM Depression" 'Ouverture des recordset OpenRecordSet RecApp,MaBase, SQLAppli OpenRecordSet RecType,MaBase, SQLType OpenRecordSet RecDebit,MaBase, SQLDebit OpenRecordSet RecPression,MaBase, SQLPression OpenRecordSet RecDepression,MaBase, SQLDepression %>

Sélectionnez vos critères de recherche :

Application :	<%= NoSel %> <% do while not RecApp.EOF %> $"><%= left(RecApp(LibLang),50)%> <% RecApp.MoveNext loop %>
Type :	<%= NoSel %> <% do while not RecType.EOF %> "><%= left(RecType(LibLang),50)%> <% RecType.MoveNext loop %>
Débit (en Litre/Heure) :	<%= NoSel %> <% do while not RecDebit.EOF %> "><%= RecDebit("Debit")%> <% RecDebit.MoveNext loop %>
Pression (en bar) :	<%= NoSel %> <% do while not RecPression.EOF %> "><%= RecPression("Pression")%> <% RecPression.MoveNext loop %>
Dépression (vide, relative en bar) :	<%= NoSel %> <% do while not RecDepression.EOF %> "><%= RecDepression("Pression")%> <% RecDepression.MoveNext loop %>

<% 'Fermeture des recordsets CloseRecordset RecApp CloseRecordset RecType CloseRecordset RecDebit CloseRecordset RecPression CloseRecordset RecDepression 'Fermeture de la base CloseBdd MaBase %>

<% GetFin() %>