<%
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
%>
<% If rs("Photo") = -1 Then response.write "" %>
<%=rs("Produit_es")%>
<% If rs("TarifActuel") = 1 Then %> <% End If %>
<% If rs("TarifActuel") = 2 Then %> <% End If %>
<% If rs("TarifActuel") = 3 Then %> <% End If %>
<%=rs("Descriptif_es")%>