Предыдущая страница реферата | 21  22  23  24  25  26  27  28  29  30  31 | Следующая страница реферата

' Define some constant for ADO.

Const adopenStatic = 3

Const adLockReadOnly = 1

Const adCmdText = 1

Const adPersistXML = 1

' Creating objects

Dim rs,dom,stylesheet

Set dom = Server.CreateObject("MSXML2.DOMDocument")

Set stylesheet = Server.CreateObject("MSXML2.DOMDocument")

Set rs = Server.CreateObject("ADODB.Recordset")

' Open recordset

rs.Open "select au_fname,au_lname,address from authors where au_fname like 'M%'", _

  "Provider=sqloledb;Data Source=server;Initial Catalog=pubs;" & _

  "User Id=user;Password=password;", adopenStatic, adLockReadOnly, adCmdText

' Save recordset to DOMDocument

rs.Save dom,adPersistXML

' Loading stylesheet

stylesheet.async = false

stylesheet.load "C:Inetpubwwwrootserver_pubsformat_for_ado.xsl"

' Perform transformation

Response.Write dom.transformNode(stylesheet)

' Cleanup

Set dom = nothing

Set stylesheet = nothing

Set rs = nothing

%>