<%
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_es")%>
<%
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 %>
Gestión de Calidad Global
Lechugas recién cortadas"
Análisis sistemático en laboratorio
Trazabilidad total
Control por un ingeniero agrícola
Seguimiento de los tratamientos respetando las normas fitosanitarias
Papel diferente para cada variedad
Presentación a petición del cliente
Seguimiento de la cadena de frío
<% End If %>
<% If Var_Type = "2" Then response.write "" %>
<% If Var_Type = "1" Then response.write "" %>