<% '----ouverture de connexion 'set conn = server.createobject("ADODB.Connection") 'conn.open(Application("gien_connectstring")) Set Conn = Server.CreateObject("ADODB.Connection") ConnectDBQ="DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath("../../basedonnee/Catalogue_Gien.mdb") Conn.Open ConnectDBQ sql = "SELECT Produit.product_id, Produit.designation as designation, Produit.image_mea, Produit_EN.designation as designation_EN FROM Produit LEFT JOIN Produit_EN ON Produit.product_id = Produit_EN.product_id where famille='plaisir_tradition'" sql_mea = "SELECT Produit.product_id, Produit.designation as designation, Produit.image_mea, Produit_EN.designation as designation_EN FROM Produit LEFT JOIN Produit_EN ON Produit.product_id = Produit_EN.product_id where famille='plaisir_tradition' and mea=true" sql_count_mea = "select count(*) From Produit where famille='plaisir_tradition' and mea=true" Set Rs_count_mea = Server.CreateObject ("ADODB.Recordset") Rs_count_mea.Open sql_count_mea, conn nbprdt = Rs_count_mea(0) Rs_count_mea.close '----ouverture du recordset de produits Set Rs = Server.CreateObject ("ADODB.Recordset") Rs.Open sql, conn Set Rs_mea = Server.CreateObject ("ADODB.Recordset") Rs_mea.Open sql_mea, conn MyValue1="" MyValue2="" If nbprdt>=1 then Randomize MyValue1 = Int((nbprdt * Rnd) + 1) -1 end if if nbprdt>=2 then stopvar=false Do while stopvar=false Randomize MyValue2 = Int((nbprdt * Rnd) + 1) -1 if Myvalue1<>Myvalue2 Then stopvar=true end if Loop end if 'response.write "MyValue1 : "& MyValue1 &"
" 'response.write "MyValue2 : "& MyValue2 &"
" 'response.write "nbprdt : "& nbprdt &"
" 'response.end %>

<%if Myvalue1<>"" then%> <%rs_mea.movefirst%> <%rs_mea.move Myvalue1%> &gamme=plaisir_tradition','produit','width=408,height=510,scrollbars=yes')">" width="165" height="120" border="0"> <%if trim(rs_mea("designation_EN"))<>"" then%> <% designation=rs_mea("designation_EN")%> <%else%> <% designation=rs_mea("designation")%> <%end if%> <%=designation%> &gamme=plaisir_tradition','produit','width=408,height=510,scrollbars=yes')" class="bleu">Find out more <%end if%> <%if Myvalue2<>"" then%> <%rs_mea.movefirst%> <%rs_mea.move Myvalue2%> &gamme=plaisir_tradition','produit','width=408,height=510,scrollbars=yes')">" width="165" height="120" border="0"> <%if trim(rs_mea("designation_EN"))<>"" then%> <% designation=rs_mea("designation_EN")%> <%else%> <% designation=rs_mea("designation")%> <%end if%> <%=designation%> &gamme=plaisir_tradition','produit','width=408,height=510,scrollbars=yes')" class="bleu">Find out more <%end if%>   Since 1821, Gien has continuously created the tradition of new models inspired by older and varied styles. Art faience brings together collections, entirely painted by hand, in finely-worked forms. These delicately finished models are veritable works of art. TOUS NOS DÉCORS : <% Nmax = 10 ' nombre par page Ncur = 0 ' n° de la fiche courante Ndeb = 0 ' 1ère fiche transmise par l'URL if request.queryString("num")<>"" then _ Ndeb = Cint(request.queryString("num")) while not rs.eof and Ncur= Ndeb then %> <% end if rs.movenext Ncur = Ncur + 1 wend %>  <%if trim(rs("designation_EN"))<>"" then%> <% designation=rs("designation_EN")%> <%else%> <% designation=rs("designation")%> <%end if%> <%=designation%> ','produit','width=409,height=510,scrollbars=yes')" class="bleu">Find out more <% ' Navigation ' Des fiches avant ? if Ndeb > 0 then%> <% end if %> <% ' Navigation ' Des fiches après ? if not RS.eof then%> <%end if%>  Back Next