Dette tip, viser hvordan du kan lave et udtræk på en tabel i en database, og derefter gemme dit udtræk som en XML fil på din harddisk.
<%@LANGUAGE="VBScript"%>
<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ADO\msado15.dll" -->
<%
Response.Buffer = False
Response.ContentType = "text/xml"
%>
<?xml version="1.0"?>
<%
strConnect = "DIN CONNECTION STRING"
strSQL = "SELECT * FROM a"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, strConnect, adOpenDynamic, adLockOptimistic, adCmdText
objRS.Save "c:\test.xml", adPersistXML 'Gemmer filen c:\test.xml
objRS.Close
%>
Dette eksempel gemmer filen c:\test.xml, hvis du vil gemme filen i dit rod bibliotek på din webserver, så skal du huske der skal være skrive rettigheder til dette bibliotek, og så skal du bare udskifte :
objRS.Save "c:\test.xml", adPersistXML
til
objRS.Save Server.MapPath("test.xml"), adPersistXML
>>Smilly
|