<%
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 "" %>
![" & rs("Produit_es") & "](../images/" & ImgFile & ".gif){kind=small}
" else response.write "
Lechugas recién cortadas"
" %>
<% If Var_Type = "1" Then response.write "
" %>