<%
IF request.QueryString("Type") = "" Then
Var_Type = "1"
Else
Var_Type = request.QueryString("Type")
End If
'----------------------------------------------------------------
sql = "SELECT * FROM Table_Produits WHERE Type = " & Var_Type & ";"
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=DSNtemp & "DBQ=" & server.mappath ("../../db/picotine.mdb")
conn.Open DSNtemp
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, conn, 3, 3
'----------------------------------------------------------------
if not rs.eof then
Do while not rs.eof
%>
<%=rs("Produit_gb")%>
<%
IF rs("Type") = 1 Then ImgFile = "ligne_orange"
IF rs("Type") = 2 Then ImgFile = "ligne_verte"
IF rs("Type") = 3 Then ImgFile = "ligne_verte_"
For i = 1 to 12
For j = 1 to 4
If rs("M" & i & "S" & j) = -1 Then response.write "" else response.write ""
Next
Next
%>
<%
rs.movenext
Loop
end if
rs.close
%>
<% If Var_Type = "3" Then %>
Global Quality Approach
"Freshly" cut lettuce
Systematic laboratory analysis of lettuces
Full traceability
Controlled by an Engineer in agriculture
Follow-up of treatments in compliance with the phytosanitaru standards
Different paper for each variety
Packaging on customer's demand
Cold chain monitoring
<% End If %>
<% If Var_Type = "2" Then response.write "" %>
<% If Var_Type = "1" Then response.write "" %>