Store the information in the database to an XML file under asp

Save. asp
<! -- # Include file = "adovbs. inc" -->
<%
'Constants file supported ded above.
'Delete if the file exists.
Dim objFSO
Set objFSO = Server. CreateObject ("Scripting. FileSystemObject ")
If objFSO. FileExists (Server. MapPath ("db_xml.xml") Then
ObjFSO. DeleteFile Server. MapPath ("db_xml.xml ")
End IF
Set objFSO = Nothing
'Variable Declaration
Dim cnnXML 'ado connection
Dim rstXML 'ado recordset
'Create a data connection object
Set cnnXML = Server. CreateObject ("ADODB. Connection ")
'Here is an example of connecting to the access database:
'Cnnxml. Open "Provider = Microsoft. Jet. OLEDB.4.0; Data Source = "_
'& Server. MapPath ("db_scratch.mdb ")&";"
'Here is an example of Sqlserver:
CnnXML. Open "Provider = SQLOLEDB; Data Source = 10.2.1.214 ;"_
& "Initial Catalog = samples; User Id = samples; Password = password ;"_
& "Connect Timeout = 15; Network Library = dbmssocn ;"
Set rstXML = Server. CreateObject ("ADODB. Recordset ")
Set rstXML = cnnXML. Execute ("SELECT * FROM scratch order by id ;")
Response. Write "<p> Saving data as XML... </p>" & vbCrLf
'Save to xml format.
RstXML. Save Server. MapPath ("db_xml.xml"), adPersistXML
'Close objects and release resources
RstXML. Close
Set rstXML = Nothing
CnnXML. Close
Set cnnXML = Nothing
Response. Write "<p> XML file written... </p>" & vbCrLf
Response. Write "<p> Click <a href =" "db_xml.xml"> here </a> to view the file. </p> "& vbCrLf
%>