<% '----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 * From Produit where famille='plaisir_recevoir'" sql_mea = "select * From Produit where gamme='coupdecoeur' and mea=true" sql_count_mea = "select count(*) From Produit where gamme='coupdecoeur' 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%> ','produit','width=407,height=510,scrollbars=yes')">" width="165" height="120" border="0"> <%=rs_mea("designation")%> ','produit','width=407,height=510,scrollbars=yes')" class="bleu">Find out more <%end if%> <%if Myvalue2<>"" then%> <%rs_mea.movefirst%> <%rs_mea.move Myvalue2%> ','produit','width=407,height=510,scrollbars=yes')">" width="165" height="120" border="0"> <%=rs_mea("designation")%> ','produit','width=407,height=510,scrollbars=yes')" class="bleu">Find out more <%end if%>   Here you will find all of the motifs we offer. You can search for them via our three types of products or based on the name of the style :  "Coups de coeur", services to fall in love with  Traditional services  Art faience  Search based on name of a style : A - B - C - D - E - F - G - H - I - J - K - L - M - N - O - P - Q - R - S - T - U - V - W - X - Y - Z