les paniers bretons

<% ' 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 %> les paniers bretons