<% Set ObjCon=Server.CreateObject("ADODB.Connection") Set ObjRec=Server.CreateObject("ADODB.Recordset") Set ObjRec1=Server.CreateObject("ADODB.Recordset") ObjCon.Provider="MICROSOFT.JET.OLEDB.4.0" ObjCon.Open server.mappath("intranet.mdb") DIM tsql,tsql4,Splitme,TableName tsql="" tsql4="" tsql="Select * from bookmaster where 1=2" ObjRec.Open tsql,ObjCon,3,1 tsql4="Select * from bookmaster" ObjRec1.Open tsql4,ObjCon,3,1 splitme=split(tsql,"from")(1) TableName=split(splitme,"where")(0) filename="c:\" & trim(tablename) & ".xml" Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile=MyFileObject.CreateTextFile(filename) %>

Creating the Tags .......... <% ObjRec1.MoveFirst %> <% MyTextFile.WriteLine ("<" & trim(TableName) & ">") %>

<% dim RecNo RecNo=1 %> <% While Not ObjRec1.Eof %> <% MyTextFile.WriteLine ("" ) %> <% for i = 0 to ObjRec.Fields.Count-1 %> <% MyTextFile.WriteLine ("<" & ObjRec.Fields(i).Name & ">" & ObjRec1(i) & "") %> <% Next %> <% MyTextFile.WriteLine ("" ) %> <% RecNo=RecNo+1 %> <% ObjRec1.MoveNext %> <% Wend %>

<% MyTextFile.WriteLine ("") %> <% MyTextFile.Close %> File Created With Tags ClickHere to View the File