<%
function aff_applet
Set bd = Server.CreateObject ("ADODB.Connection")
conn="DRIVER={Microsoft Access Driver (*.mdb)};" _
& " DBQ=" & Server.MapPath("./base/fertima.mdb")
bd.Open conn
sql = "SELECT * FROM actualites where actu_accueil = " & 1 & " and date_expiration > date() and date_publication <= date() order by date_publication"
set actus = bd.execute(sql)
i=0
IF actus.eof THEN
response.write ""
ELSE
DO WHILE (NOT actus.EOF)
IF actus("description")<>"" THEN
url = "./actualite/index-intern.html?r=1&id_actualite=" & actus("id_actualite")
ELSE
url = "./actualite/index-intern.html?r=0"
END IF
response.write ""
response.write ""
'
actus.movenext
i=i+1
LOOP
actus.close
set actus = nothing
END IF
bd.close
set bd = nothing
end function
%>
FERTIMA -- Société Marocaine des Fertilisants
