g trouve un moyen mais c un peu long a exe la page :
sql = "SELECT * from News"
set rsLigne = server.CreateObject("ADODB.RECORDSET")
rsLigne.CursorType = adOpenStatic
rsLigne.Open sql,conn,,,adCmdText
If not rsLigne.EOF Then
ligne = rsLigne.getrows()
nbligne = rsLigne.RecordCount
End If
rsLigne.Close
set rsLigne=nothing