 |
 |
<%
Dim objXML
Dim objXSL
Dim strID
strID = request.querystring("id")
' Load the xml here.
set objXML= Server.CreateObject("MSXML2.DOMDocument")
objXML.async=false
objXML.load server.mapPath("/includes/cuautoonline/articles.xml")
set objXSL= Server.CreateObject("MSXML2.DOMDocument")
objXSL.async=false
if strID <> "" then
objXSL.load server.mapPath("/includes/cuautoonline/article.xsl")
set searchNode = objXSL.selectSingleNode("//xsl:param[@name='id']")
searchNode.setAttribute "select","'"+ strID +"'"
else
objXSL.load server.mapPath("/includes/cuautoonline/list.xsl")
end if
response.write objXML.transformNode(objXSL)
%>
|
|
