|
<% Sub BasicConversion(RootName) Dim ADORst, XMLDoc, XMLRoot, XMLChild Dim strConn As String, SQLString, fld Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data
Source=D:InetpubwwwrootBiblio.mdb" SQLString = "Select Au_ID AS AuthID, _ Author as AuthName FROM Authors" Set ADORst = Server.CreateObject("ADODB.Recordset") ADORst.Open SQLString, strConn, 1 ADORst.MoveFirst Set XMLRoot = XMLDoc.createElement(RootName) XMLDoc.appendChild XMLRoot Do Until ADORst.EOF
For Each fld In ADORst.Fields Set XMLChild = XMLDoc.createElement(fld.Name)
If Not IsNull(fld.Value) Then XMLChild.Text = CStr(fld.Value)
XMLRoot.appendChild XMLChild Next ADORst.MoveNext Loop XMLDoc.save "D:InetPubwwwrootXMLBasic.xml" Set XMLChild = Nothing Set fld = Nothing Set ADORst = Nothing Set XMLDoc = Nothing End Sub %>
|
