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 %>
<% If rs("Photo") = -1 Then response.write "" & rs("Produit_es") & "" %>

<%=rs("Produit_es")%>  <% If rs("TarifActuel") = 1 Then %> En baisse...
<% End If %> <% If rs("TarifActuel") = 2 Then %> Stable...
<% End If %> <% If rs("TarifActuel") = 3 Then %> En hausse...
<% End If %> <%=rs("Descriptif_es")%>