Fruits et légumes de Provence : PICOTINE




La Provence


FruitsSaladsVegetables

<% 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_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 "" & rs("Produit_gb") & "" else response.write "" Next Next %>

<% If Var_Type = "3" Then %>

Salads of Provence

  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 "Vegetables of Provence" %> <% If Var_Type = "1" Then response.write "Fruits of Provence" %>