Server.CreateObject("MSXML2.DOmDocument.3.0")
Hi,
I've developed a ASP page which combines several XML files into one.
This runs perfectly on a Windows based server. Running on Apache I get the following message.
HTTP 500.100 - Internal Server Error - ASP error
Apache
Technical Information (for support personnel)
* Error Type:
Server object, ASP 0177 (0x800401F3)
System message, messageid = 0x800401f3
/content.asp, line 9
* Browser Type:
Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051111 Firefox/1.5
* Page:
GET /content.asp
The ASP code is as follows:
<%@ Language=VBScript %>
<%
Dim objXmlDoc, objXmlDocTemp, objXsl
Dim strXslFile
Dim strPage
strPage = Request.QueryString("page")
Set objXmlDoc = Server.CreateObject("MSXML2.DOmDocument.3.0")
Set objXmlDocTemp = Server.CreateObject("MSXML2.DOmDocument.3.0")
Select Case strPage
Case"events":
objXmlDoc.load(Server.MapPath("xml/events.xml"))
objXmlDocTemp.load(Server.MapPath("xml/locations.xml"))
objXmlDoc.documentElement.appendChild(objXmlDocTemp.documentElement.selectSingleNode("locations"))
objXmlDocTemp.load(Server.MapPath("xml/people.xml"))
objXmlDoc.documentElement.appendChild(objXmlDocTemp.documentElement.selectSingleNode("people"))
strXslFile ="xsl/events.xsl"
Case"locations":
objXmlDoc.load(Server.MapPath("xml/locations.xml"))
strXslFile ="xsl/locations.xsl"
Case"people":
objXmlDoc.load(Server.MapPath("xml/people.xml"))
strXslFile ="xsl/people.xsl"
End Select
Set objXmlDocTemp = Nothing
'Call Response.Write(objXMLDoc.xml)
'Call Response.End
Set objXsl = Server.CreateObject("MSXML2.DOmDocument.3.0")
With objXsl
.async = False
Call .load(Server.MapPath(strXslFile))
End With
'//Replace metatag UTF-16 with ISO-8859-1
Response.Write objXmlDoc.transformNode(objXsl)
Set objXsl = Nothing
Set objXmlDoc = Nothing
%>
Can some one help me out?
Greetz Arno
