Dans cette fiche...

Début de page Principe

Une petite amélioration du listing précédent : on affiche toutes les informations provenant de notre table tblSites.

 

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("Site : " & objRecordset("NomSite") & "<BR>")
			Response.Write("Date d'enregistrement : " & objRecordset("DateEnreg") & "<BR>")
			Response.Write("WebMaster : " & objRecordset("WebMaster") & "<BR>")
			Response.Write("Adresse : " & objRecordset("URL") & "<BR>")
			Response.Write("Catégorie : " & objRecordset("CodeCatégorie") & "<BR>")
			Response.Write("Langue(s) : " & objRecordset("Langue") & "<BR>")
			Response.Write("Description : " & objRecordset("Description") & "<BR>")
			Response.Write("Note : " & objRecordset("Note") & "<BR>")
			Response.Write("<HR>")

			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.

Response.Write("Site : " & objRecordset("NomSite") & "<BR>")
...
Pour chaque champ provenant de la table des sites, on affiche : un intitulé, la valeur du champ prise dans objRecordset, un retour à la ligne <BR>.
  
Response.Write("<HR>")
Après chaque site, on affiche une ligne horizontale (<HR> en HTML).
 
Remarquez quelques petits problèmes dans l'affichage final :
  • la présentation est moyenne (va falloir placer du HTML là-dedans !).
  • les adresses de sites (URL) sont affichées de façon particulière par Access.
  • la catégorie est affichée sous forme de code, puisque c'est bien le code qui figure dans la table.

 

Cette section vous intéresse ? Abonnez-vous ! Hit-Parade