document.write('<font face="arial" size="2"><b><u>Actualité du logiciel gratuit avec </u><a href="http://www.gratuiciel.com/" target = "_blank">Gratuiciel.com</a></b></font><p>');
document.write('<blockquote>');
<%
Set objdbConnection = Server.CreateObject("ADODB.Connection")
objdbConnection.Open "Logitheque"
SQLQuery = "SELECT * FROM LogithequeMain Where Id_Ordi = 1 And DerAjout = 1 And Id_GratuitPayant = 1 Order By Nom_Logiciel ASC" 
Set RS = objdbConnection.Execute(SQLQuery)
Do
Nom = RS("Nom_Logiciel")
Nom = replace (Nom,"'","\'")
DescriptionCourte = RS("DescriptionCourte_Logiciel")
DescriptionCourte = replace (DescriptionCourte,"'","\'")
%>
document.write('<font face="arial" size="2"><li><b><a href="http://www.gratuiciel.com/derajouts.asp" target = "_blank"><%=Nom%></a></b><br><%=DescriptionCourte%></font>');  
<%RS.MoveNext
Loop While Not RS.eof
rs.close
set RS = Nothing
objdbConnection.close
set objdbConnection = Nothing
%>
document.write('</blockquote>');