save.asp
<!-#incluirfile = "Adovbs.inc"->
<%
'ConstantsFileincludedABove.
'Se o arquivo existir, exclua -o
DIMOBJFSO
Setobjfso = server.createObject ("scripting.filesystemoBject")
Ifobjfso.fileExists (server.mappath ("db_xml.xml")) então
objfso.deletefileServer.mappath ("db_xml.xml")
Endif
Setobjfso = nada
Declaração variável
Dimcnnxml'adoconnection
DIMRSTXML'ArDORECORDSET
'Crie um objeto de conexão de dados
Setcnnxml = server.createObject ("adodb.connection")
'Este é um exemplo de conexão com o banco de dados de acesso:
'cnnxml.open "provedor = microsoft.jet.oledb.4.0; DataSource =" _
'& Server.mappath ("db_scratch.mdb") & ";
'O seguinte é um exemplo a ser explicado:
cnnxml.open "provedor = sqloledb; DataSource = 10.2.1.214;" _
& "Initialcatalog = amostras; userID = amostras; senha = senha;" _
& "ConnectTimeout = 15; NetworkLibrary = dBmSsocn;"
SetRstxml = server.createObject ("adodb.recordset")
SetRstxml = cnnxml.execute ("Selecione*FromScratchOrderById;")
Response.Write "<p> SavingDataasxml ... </p>" & vbcrlf
'Salvar no formato XML.
rstxml.SaveServer.mappath ("db_xml.xml"), adpersistxml
'Feche o objeto e solte o recurso
rstxml.close
SetRstxml = nada
cnnxml.close
Setcnnxml = nada
Response.Write "<p> xmlfileWriten ... </p>" & vbcrlf
Response.Write "<p> clique <href =" "db_xml.xml" "> aqui </a> ToViewThefile. </p>" & vbcrlf
%>