<%
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"
%>
Eze, site officiel de la mairie : Police Municipale.
>>
Service Police Municipale