Perdido en Microsoft.XMLDOM

[Julcar]

Pues ahora surge otro problema, tengo el siguiente codigo ASP:

Código ASP:

<%
Class XMLParser
  Private sFile
  Private oXML
  
  Public Property Get LoadXML(file)
    sFile = file
  End Property
  
  Private Sub Class_Initialize
    Set oXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
  End Sub
 
  Public Sub OpenXML()
    oXML.Load(sFile)
    oXML.Async = False
  End Sub
 
  Public Function ReadNode(node)
    Dim sNode, vNode, n
 
    Set sNode = oXML.SelectSingleNode(node)
    for each n in sNode.childnodes
      vNode = sNode.text
    next
    ReadNode = vNode
  End Function
  
End Class
 
Class Layout
  Private oParser
  
  Private Sub Class_Initialize()
   Set oParser = New XMLParser
   oParser.LoadXML (Server.MapPath("Layout/Main.xml"))
   oParser.OpenXML
  End Sub
 
  Public Sub SetHead()
    Dim head
    
    head = oParser.ReadNode("layout/head")
    Response.Write head
  End Sub
  
  Public Sub SetHeader()
    Dim header
 
    header = oParser.ReadNode("layout/header")
    Response.Write header
  End Sub
 
  Public Sub SetMiddle()
    Dim middle
 
    header = oParser.ReadNode("layout/middle")
    Response.Write middle
  End Sub
  
  Public Sub SetFooter()
    Dim footer
 
    header = oParser.ReadNode("layout/footer")
    Response.Write footer
  End Sub
 
End Class
%>
 
<%
Dim oLYT
 
Set oLYT = New Layout
oLYT.SetDoctype
oLYT.SetHead
oLYT.SetHeader
oLYT.SetMiddle
oLYT.SetFooter
%>
 

Pero cuando ejecuto el codigo solo me trae los nodos head y header, y necesito que tambien traiga a middle y footer, y por mas que intento no lo hace.

¿Que puede estar pasando?