%
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
<%=nom%>
<%
If (IsEmpty(dept))then
%>
Département vide
Signataire vide
<%
Else
%>
Département <%=departement%>
Signataire
<%=signataire%>
<%
end if
%>
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)
%>