guardar.asp
<!-#includeFile = "Adovbs.inc"->
<%
'ConstantsfileinCludedABove.
'Si el archivo existe, elimínelo
Dimobjfso
Setobjfso = server.createObject ("scripting.filesystemObject")
Ifobjfso.fileExists (server.mappath ("db_xml.xml")) entonces
objfso.deletefileserver.mappath ("db_xml.xml")
Endif
Setobjfso = nada
'Declaración variable
Dimcnnxml'adoconnection
Dimrstxml'Adorecordset
'Crear un objeto de conexión de datos
SetCNNXML = server.CreateObject ("ADODB.Connection")
'Este es un ejemplo de conectarse a la base de datos de acceso:
'cnnxml.open "Provider = Microsoft.Jet.OLEDB.4.0; DataSource =" _
'& Server.mappath ("db_scratch.mdb") & ";"
'El siguiente es un ejemplo para explicar:
cnnxml.open "Provider = sqloledb; dataSource = 10.2.1.214;" _
& "InicialCatalog = samples; userId = samples; contraseña = contraseña;" _
& "ConnectTimeOut = 15; NetworkLibrary = DBMSSOCN;"
Setrstxml = server.createObject ("ADODB.Recordset")
Setrstxml = cnnxml.execute ("SELECT*fromScratchOrderById;")
Response.Write "<P> SavingDataAsxml ... </p>" y vbcrlf
'Guardar en formato XML.
rstxml.saveserver.mappath ("db_xml.xml"), adpersistxml
'Cierre el objeto y suelte el recurso
rstxml.clare
Setrstxml = nada
cnnxml.clar
Setcnnxml = nada
Response.Write "<P> XMLFileWriten ... </p>" y vbcrlf
Response.write "<p> Click <ahref =" "db_xml.xml" "> aquí </a> toViewTheFile. </p>" & vbcrlf
%>