Use ASP to Turn Your Database into an XML Document in an Instant

Use ASP to Turn Your Database into an XML Document in an Instant

Everyone is getting into XML but most of us have our data in Access or SQL databases. You can dump your data to an XML file in an instant by creating a recordset and writing its contents to a flat file. The only trick is to include the formatting that XML expects. Here’s an example of code that creates an XML file from an Access database. You’ll need to replace your own connection string and data fields. Also, watch for bad wordwrapping and carriage returns in the connection string provided here.

 <%dotable("SELECT * FROM cpdocs10 ORDER BY Title")sub dotable(query)Set OBJdbConnection = Server.CreateObject("adodb.Connection") connstr = "Provider=MSDASQL.1;Persist Security Info=False;
User ID=admin;Connect Timeout=15;Extended Properties=""DBQ=c:inetpubwwwrootkjc350cpinfonet.mdb;
DefaultDir=c:inetpubwwwrootkjc350;Driver={Microsoft Access Driver (*.mdb)};
DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;
SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"";Locale Identifier=1033;
User Id=admin;"OBJdbConnection.Open connstr' Construct a simple query to retrieve the data sqlquery = querySet rsdoc = OBJdbConnection.execute(SQLQuery)Set fs = CreateObject("Scripting.FileSystemObject")Set a = fs.CreateTextFile("c:documents.xml", True)a.WriteLine("")a.WriteLine("")while not rsdoc.eofa.WriteLine(space(3) & "")a.WriteLine(space(6) & "" & rsdoc("Title") & "")a.WriteLine(space(6) & "" & rsdoc("Part") & "")a.WriteLine(space(6) & "" & rsdoc("FileSize") & "")a.WriteLine(space(6) & "" & rsdoc("Date") & "")a.WriteLine(space(6) & "" & rsdoc("Filename") & "")a.WriteLine(space(3) & "")rsdoc.movenextwenda.WriteLine("")a.Closeset a=Nothingset fs=NothingSet rsdoc=NothingSet OBJdbConnection=Nothingend sub%>Done!
See also  Why ChatGPT Is So Important Today

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist