Set conn = Server.CreateObject("ADODB.Connection" )
conn.Open DSN_BASE%>
 
<%SQL = "SELECT * FROM histo where nom order by N° DESC"
Set rs = Server.CreateObject("ADODB.Recordset" )
rs.Open SQL, conn
if rs.eof=true then%>
 <b>Aucune entrée actuellement <%else%>
...
<%rs.MoveFirst
  do while Not rs.eof%>  
...
<%=response.write(Server.HTMLEncode(rs.Fields("prenom" ).Value))%></p>
... blabla mise en page....
<%rs.MoveNext
loop%>
<%end if%>
<%rs.close
set rs=nothing
conn.close
set conn=nothing %>

<%
Nmax = 5 ' nombre par page
Ndeb = Cint(request.queryString("num" ))
 
' nombre total de fiches
SQL="SELECT count(*) FROM [histo]"
RS2 = conn.execute(SQL)
Ntotal = RS2(0) - 1 ' commence à 0
 
' sélectionne les fiches de la table
Set RS = server.createobject("ADODB.Recordset" )
SQL="SELECT TOP " & (Ndeb+Nmax)_
   & " * FROM [histo]"
RS.Open SQL,Conn , 3, 3%>
 
<div align="center"><table border="4" cellspacing="1" cellpadding="5">
<%' Avance à la 1ère
RS.Move(Ndeb)
' tant qu'il reste des fiches
while not RS.eof
   ' affiche le champ%>
.....

SQL = "SELECT * FROM histo where nom order by N° DESC"