<% Set conn = Server.CreateObject("ADODB.Connection") ' chaine de connexion connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/data/m_produits.mdb" conn.Open connstring Set Session("boutique_conn") = conn %> <% 'sélection des mesureguits pour la catégorie num sql = "SELECT newse.*, DatePart('yyyy',newse.ndate) as ndateY, DatePart('m',newse.ndate) as ndateM, DatePart('d',newse.ndate) as ndateD FROM newse ORDER BY newse.ndate desc, newse.Id_Prod DESC" Set mesureg = Server.CreateObject("ADODB.Recordset") mesureg.Open sql, conn, 3, 3 'mesureg. movefirst %> <% if mesureg.recordcount>0 then%> <% mesureg.movefirst do while not mesureg.eof %>
<%=(CStr(mesureg.fields("ndateD")) + "/" + CStr(mesureg.fields("ndateM")) + "/" + CStr(mesureg.fields("ndateY")))%> <%=mesureg.fields("ntitre")%>
"> " target="_blank">read more...

<% mesureg.movenext loop%> <%else%>  <%end if%>