Fruits et légumes de Provence : PICOTINE




La Provence


Las FrutasLas SaladasLas Verduras

<% 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.movenext Loop end if rs.close %>
<%=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 "" & rs("Produit_es") & "" else response.write "" Next Next %>

<% If Var_Type = "3" Then %>

Las ensaladas de Provence

  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 "Las verduras de Provence" %> <% If Var_Type = "1" Then response.write "Las frutas de Provence" %>