XML schema generation from/to RDBMS

the ADO 2.6 from Microsoft can generate xml out put from a recordset
<!--

if Request.ServerVariables( "SERVER_SOFTWARE" ) = "Microsoft-IIS/5.0" then
RS.Save Response, adPersistXML
else
dim objFS, strFilename, strTempFolder, objTextStream
set objFS = Server.CreateObject( "Scripting.FileSystemObject" )
strTempFolder = objFS.GetSpecialFolder( TemporaryFolder ) + "\"
strFilename = objFS.GetTempName()
'Response.Write strTempFolder + strFilename
RS.Save strTempFolder + strFilename, adPersistXML
set objTextStream = objFS.OpenTextFile( strTempFolder + strFilename, ForReading
)
dim txt
txt = objTextStream.ReadAll()
Response.Write txt
objTextStream.Close()

' NOTE: if you get a Permission Denied message here, you must edit the
' DACL for your winnt\temp folder to allow IUSR_MACHINENAME and
' IWAM_MACHINENAME to be able to delete temporary files created here
objFS.DeleteFile strTempFolder + strFilename, False
end if

-->
Suraj

"Donovan" <dhsieh_9@yahoo.com> wrote:
>
>Hi,
>
>Does any one know good tools that will perform automatic XML schema generation
>from/to RDBMS? I cehck both XMLSpy and ERWin but both fall way short of
delivering
>this capability.
>
>Thanks,
>
>- Donovan Hsieh
> AutoSoft Technology