% Set conn = Server.CreateObject("ADODB.Connection") connstring= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base\Actualites.mdb") conn.Open connstring sql="SELECT * from Actualites ORDER BY DateActu" Set Rs= Server.CreateObject("ADODB.Recordset") Rs.Open sql, conn, 3, 3 Rs.MoveLast Actualite=Rs("Actu") NumActu=Rs("NumActu") If len(Actualite)>350 then Actualite=left(Actualite,350)&"..."&"Suite" %>
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
|
|
|
|
|