Collection Application.Contents

Synopsis

Application.Contents(Cle)

Lecture seule

Cette collection contient la liste des éléments qui ont été créés et ajoutés à l'object Application. On peut ajouter des éléments à l'objet Application de la façon suivante :

Application("scalaire") = "toto" ' valeur scalaire
Set Application("objet") = Server.CreateObject("ADODB.Connection") ' objet

L'intérêt de cette collection est de pouvoir l'utiliser dans une boucle For Each....

Il faut obligatoirement préciser une clé (le nom de l'élément que l'on cherche à utiliser) pour pouvoir utiliser cette collection.

Exemple

Dans l'exemple suivant, on va ajouter 1 scalaire et un objet à l'objet Application et utiliser la collection Application.Contents pour les retrouver :

<%
' Ajout d un scalaire
Application("nom") = "mon nom"
' Ajout d un objet
Set Application("objet") = Server.CreateObject("ADODB.Connection")

For Each Item In Application.Contents
	If IsObject(Application.Contents(Item)) Then
		Response.Write(Item & " is un objet")
	Else
		Response.Write(Item & "=" & Application.Contents(Item))
	End If
	Response.Write("<BR>" & vbNewLine)
Next
%>

Ce qui donne :

nom=mon nom
objet est un objet.

format imprimable