• Principe
• Listing de la page ASP
• Le listing en détail

<Retour ASP>

objRecordset.Open strSQL, objConnect, 3
...
<%=objRecordset.RecordCount%> sites...

• il existe 4 types de requêtes (ou curseurs)
• si vous omettez le type, c'est la valeur 0 qui est prise en compte. Ce type de requête autorise seulement une lecture de la 1ère ligne à la dernière, mais pas de retour en arrière, ni de décompte.
• la valeur 3, au contraire permet tout type de déplacement, et le décompte de valeurs.

Une fois la requête ouverte en mode 3, on peut utiliser sa propriété RecordCount qui donne le nombre d'enregistrements (ici, le nombre de sites).

Essayez de supprimer la valeur 3 et relancez la page Asp, pour voir...

<%
	intSite = 1
	Do While not objRecordset.eof
%>
...
<%=intSite & " - " & objRecordset("NomSite")%>
...
<%		
	objRecordset.MoveNext
	intSite = intSite + 1
	loop
%>

<%
	n = objRecordset("Note")
	for i = 1 to n
		Response.Write( "<IMG SRC=" & chr(34) & "icoBouleOrange.gif" & chr(34)&">" )
	next
%>

En HTML, l'insertion directe de l'image icoBouleOrange.gif se ferait par :
<IMG SRC="icoBouleOrange.gif">
Et pour placer plusieurs images, il faudrait dupliquer ce code n fois.

C'est ce que fait notre boucle FOR/NEXT : elle répète n fois l'insertion d'une image, mais de façon dynamique.
Pour ce qui est du code HTML d'image, on aurait pu écrire plus simplement :
Response.Write( "<IMG SRC=icoBouleOrange.gif>" )
... ce qui fonctionne aussi bien. Par contre, le code HTML final ne comporte pas les guillemets (moins standard ?)

Comme le Response.Write comporte déjà des guillemets, il est impossible de taper :
Response.Write( "<IMG SRC="icoBouleOrange.gif">" )
On est donc obligé de tronçonner la chaîne au niveau des guillemets, et de refaire un collage via l'opérateur &.
Le code des guillemets sera remplacé par Chr(34) (sous-entendu : le caractère numéro 34).

<%
	' Supprimer les dièses et les portions d'URL inutiles
	strURL = objRecordset("URL")
	i = InStr(strURL, "#")
	if i > 0 then strURL = mid(strURL, i)
	strURL = Replace(strURL, "#", "")
	
	' Créer un lien hypertexte en HTML
	Response.Write("<A HREF=" & chr(34) & strURL & chr(34) & ">" & strURL & "</A>")
%>

En théorie, en combinant un lien HTML et ce que vous avez vu sur les images (plus haut), il suffirait de produire le code HTML suivant : <A HREF="http://www.unsite.com">www.unsite.com</A>
En bleu : le code HTML gérant le lien, en noir : ce que voit le visiteur.
C'est ce que fait la ligne :
Response.Write("<A HREF=" & chr(34) & strURL & chr(34) & ">" & strURL & "</A>")
en gérant les guillemets et en plaçant l'adresse du site dans une variable strURL.

L'autre problème, vu dans les listings précédents, est que nous avons eu la mauvaise idée de gérer l'URL dans Access sous forme de champ "Lien hypertexte", et que ce #?+%& d'Access nous donne l'URL sous la forme suivante : www.unsite.com#http://www.unsite.com#

On obtiendrait un lien HTML du style :
<A HREF="www.unsite.com#http://www.unsite.com#">www.unsite.com#http://www.unsite.com#</A>
qui ne fonctionnerait pas.

Voilà comment rectifier le tir :

• L'idée est de trouver le 1er signe #, puisque l'adresse réelle commence à ce niveau. La fonction InStr(strURL, "#") permet cette recherche. Elle donne la position du 1er dièse trouvé (ou 0 sinon).
• Si un # a été trouvé, on extrait la portion d'URL qui démarre à ce niveau, grâce à Mid(strURL, i). Mid() extrait une portion de chaîne à partir d'un caractère donné. On obtient #http://www.unsite.com#, ce qui est quand même mieux !
• Enfin, pour supprimer les #, on fait appel à la fonction Replace(strURL, "#", "") qui remplace dans strURL tous les # par une chaîne vide. Ouf !

Faites comme moi, allez faire un tour, ça ira mieux après :o) !