Bonjour
Après avoir trouvé des exemples, j'ai essayé ce qui suit; sans résultat.
Je ne vois pas mon erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 <script language="VBScript">
	Const db  = 	"bibi.accdb"
 	Const pr1 =	"PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source="
 	Const pr2 =	";Persist Security Info=False;"
    connstring =  pr1 & db  & pr2
        Set       Rs    = CreateObject("ADODB.RecordSet")
z="<body bgcolor='#FFE4C4'>" & _
"<input type='button' onclick='window.close' name='sortie'/> "    & _
"&nbsp&nbsp(du plus recent au plus ancien)"	   & _
"<table cellspacing='2px' cellpadding='2px;' rules='all' " & _
"style='border:solid 1px black;'>" 		   & _
"<tr><th>N°<th>Nom<th>Type<th>nb Mo</tr>"
'----------------------------------------------------------
Const sql = "SELECT  * FROM [films]"  
        			Rs.open SQL, connstring
    				RS.MoveLast 
         Do Until   RS.BOF
	     z=z & "<tr><td>" & RS(0) _
	        & "</td><td>" & RS(1) _
	        & "</td><td>" & RS(2) _
	        & "</td><td>" & RS(4)   & "</td></tr>" 
                   rs.MovePrevious
         Loop :     rs.close
   self.document.write z & "</table></body>"
</script>
Pour lire la table dans l'ordre, je n'ai pas de problème.