<% nom = request.querystring("nom") Session("login") = request.querystring("nom") ' Path long de la base de données dbPath = Server.MapPath("../../base/bdc.mdb") ' Création de l'objet permettant la connexion Set Conn = Server.CreateObject("ADODB.Connection") ' Connexion Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & " DBQ=" & dbPath dept = request.querystring("departement") If (IsEmpty(dept)) then %> dept est vide <% else %> dept n'est pas vide <% end if %> Création d'un bon de commande
BON DE COMMANDE - PURCHASE ORDER
  > Création d'un nouveau bon de commande

 

<% If (IsEmpty(dept))then %> <% Else %> <% end if %>
<%=nom%>
Département vide
Signataire vide
Département
<%=departement%>
Signataire
<%=signataire%>
 Département
<% If (IsEmpty(dept)) then ' Path long de la base de données dbPath = Server.MapPath("../../base/bdc.mdb") ' Création de l'objet permettant la connexion Set Conn = Server.CreateObject("ADODB.Connection") ' Connexion Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & " DBQ=" & dbPath 'Sélection des départemements sql = "SELECT DEPARTEMENT.DEPT_DES FROM DEPARTEMENT GROUP BY DEPARTEMENT.DEPT_DES;" Set selection_dept = Server.CreateObject("ADODB.RecordSet") Set selection_dept = Conn.Execute(sql) departement = selection_dept(0) %>
<% Conn.close %>