% Set Conn = Server.CreateObject("ADODB.Connection") connstring="DRIVER={Microsoft Access Driver (*.mdb)};" _ & " DBQ=" & Server.MapPath("data/admajoris.mdb") Conn.Open connstring SQL="SELECT * FROM news where etatpubli='encours' order by daten DESC" Set rsql = server.createobject("ADODB.Recordset") rsql.Open SQL,Conn , 3, 3 %>
|