|
<%
Option Explicit
dim comObj
dim strXML
set comObj = createobject("xmlrs.xmlrsobj")
'Modify the connection String to fit your environment
comobj.ConnectDB "Provider=sqloledb;Data Source=MyServer;" & _
"Initial Catalog=pubs;User Id=sa;Password=YourPassword;"
strXML = comObj.GetXmlrs
Response.ContentType = "text/xml"
response.write "<?xml version=""1.0""?>"
response.write "<?xml-stylesheet type=""text/xsl"" href=""xml.xsl""?>"
response.write strXML
comObj.CloseDB
%>
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.