Méthode Server.CreateObject

Synopsis

Cette méthode crée une instance du composant serveur identifié par l'ObjectID. Le format de cet ObjectID doit être : [Editeur.]Composant[.Version]. Exemple : ADODB.Connection.

Si le composant implémente les méthodes OnStartPage et OnEndPage, c'est la méthode OnStartPage qui est appelée.

Par défaut, les objets créés par la méthode Server.CreateObject ont un scope limité à la page (i.e. l'objet est détruit après l'exécution de la page). Pour changer ce scope, il faut utiliser soit utiliser une section <OBJECT> du fichier global.asa et mettre l'attribut scope à Session ou Application, soit stocker l'objet dans une variable de session ou d'application.

En VBScript, il faut utiliser le mot-clé Set pour affecter le résultat de l'exécution de cette méthode.

Il n'est pas possible de créer d'instance d'objet portant le même nom qu'un objet standard ASP.

Exemple

Cet exemple montre comment utiliser la méthode Server.CreateObject pour ouvrir une connexion ODBC (appelée "myDatabase") sur une base de données et effectuer une requête SQL :

<%
Dim conn, rs, sql

' Ouverture de la connexion vers la base ODBC myDatabase
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "myDatabase"

' Requete
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM MYTABLE"
rs.Open sql, conn
%>

<TABLE border="1" width="100%">
	<TR>
<%
' On fait une boucle sur les colonnes de la table
For Each x In rs.Fields
%>
		<TH><% Response.Write("x.Name) %></TH>
<% Next %>
	</TR>
<%
' On boucle maintenant sur les valeurs
Do Until rs.EOF
%>
<TR>
<%
	For Each x In rs.Fields
%>
		<TD><% Response.Write(x.Value) %></TD>
<%
	Next
	rs.MoveNext
%>
	</TR>
<%
Loop

' Fin de traitement : on ferme tous les elements ouverts
rs.close
conn.close
%>
</TABLE>

 format imprimable