Dans cette fiche...

<Retour ASP>

Début de page Principe

Une petite amélioration du listing précédent : cette fois les sites sont classés par ordre chronologique inverse (les plus récents en haut de la liste).

Début de page Listing de la page ASP

<%@ LANGUAGE="VBSCRIPT" %>
<HTML>

<HEAD>
<TITLE>Exemple</TITLE>
</HEAD>

<BODY>
<%
	dim objConnect
	dim objRecordset

	set objConnect = Server.CreateObject("ADODB.Connection")
	objConnect.Open "WebDB"
	set objRecordset = Server.CreateObject("ADODB.Recordset")
	objRecordset.Open "SELECT * FROM tblSites ORDER BY DateEnreg DESC;", objConnect
%>

<P><FONT FACE="Verdana" COLOR="#004080"><BIG><BIG><STRONG>
Liste des sites
</STRONG></BIG></BIG></FONT></P>
<FONT FACE="Verdana" SIZE="3">
Voici la liste des sites, par ordre chronologique...
</FONT>

<P>
<FONT FACE="Verdana" SIZE="2">
<%
	Do While not objRecordset.eof
			Response.Write(objRecordset("NomSite") & " - " & objRecordset("DateEnreg"))
			Response.Write("<BR>")

			objRecordset.MoveNext
	loop

	set objRecordset=nothing
	set objConnect=nothing
%>
</FONT>
</P>
</BODY>
</HTML>

Début de page Le listing en détail...

Seules les nouveautés sont commentées.
Les codes entre < et > concernent l'affichage par HTML classique.

objRecordset.Open "SELECT * FROM tblSites ORDER BY DateEnreg DESC;", objConnect
Pour trier sur la date par ordre décroissant, il suffit de modifier le ORDER BY du code SQL.
  
Response.Write(objRecordset("NomSite") & " - " & objRecordset("DateEnreg")))
Pour afficher le nom du site et la date d'enregistrement du site dans la base, il suffit de faire appel aux 2 champs de l'objet Recordset (donc de la table).