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 alphabétique.

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 NomSite;", 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 alphabétique...
</FONT>

<P>
<FONT FACE="Verdana" SIZE="2">
<%
	Do While not objRecordset.eof
			Response.Write(objRecordset("NomSite"))
			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 NomSite;", objConnect
Comme la requête est basée sur SQL, il suffit d'ajouter une clause ORDER BY pour trier sur le champ NomSite.
C'est le seul changement à faire sur le listing précédent (sans compter le titre affiché en HTML, bien sûr !).