<% Dim rstSimple6 ' ADO recordset Dim rstSimple7 ' ADO recordset Dim rstSimple8 ' ADO recordset Set rstSimple6 = cnnSimple.Execute("SELECT top 7 * FROM new_contenu where idlocalite=2 and S01<>'0' order by date DESC") Set rstSimple7 = cnnSimple.Execute("SELECT top 7 * FROM new_contenu where idlocalite=1 and S01<>'0' order by date DESC") Set rstSimple8 = cnnSimple.Execute("SELECT top 5 * FROM whois where iview=1 and sexe='f' order by dateview DESC") %> <% Function sesure_mot(texte, longueur) Dim j Dim car j = longueur Do While j <= Len(texte) car = Mid(texte, j, 1) If car = " " Or car = Chr(10) Or car = Chr(13) Or car = "," Or car = "." Or car = ";" Or car = ":" Then Exit Do End If j = j + 1 Loop sesure_mot = Left(texte, j) If Len(sesure_mot) < Len(texte) Then sesure_mot = sesure_mot & "..." End If End Function %>