% ' Obtention de la catégorie courante pg = TRIM( Request( "pg" ) ) IF pg = "" THEN pg = 1 Set prodRS = Server.CreateObject( "ADODB.Recordset" ) ' chaine de connexion conn="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("./database") & "/roidb2.mdb" prodRS.ActiveConnection = Conn prodRS.CursorLocation = 3 prodRS.PageSize = 120 ' Extraction des informations sur le produit sqlString = "SELECT * " &_ "FROM produits WHERE scat='bourriches'"&_ "ORDER BY titre_prod" prodRS.Open sqlString prodRS.AbsolutePage = pg %> <% 'sélection de la devise en cours définie dans global.asa sql = "SELECT devises.* FROM devises WHERE id_devise="&session("devise") Set devise = Server.CreateObject("ADODB.Recordset") devise.Open sql, conn, 3, 3 devise. movefirst %> <% Temp=Session("Caddy") If IsObject(Session("boutique_conn")) Then Set conn = Session("boutique_conn") Else %> <% end if %>
|
|
|
|||||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||||||
![]() |
Votre panier |
|||||||||||||||||||||||||||
|
Accompagnez
votre demande de 6 timbres poste de 0.50 , soit 3.00
qui vous seront remboursé dès votre première commande.
Si vous passez
une commande dès maintenant à la boutique en ligne, le catalogue Roi de
Bretagne vous parviendra gratuitement en même temps que votre commande.
|
|
||||||||||||||||||||||||||
![]() |
ROI
DE BRETAGNE - 12 Quai de la Douane, 29200 Brest - Bretagne - France - Tel.
+33 (0)2 98 46 09 00 |
![]() |
||||||||||||||||||||||||||
|
|
|
|
|
|||||||||||||||||||||||||