<%
dim sXMLFilename
dim sXSLFilename
Convert
sXMLFilename = "price.xml"
sXSLFilename = "../pricexsl.xsl"
TransformXML sXMLFilename, sXSLFilename
%>


<%
sub TransformXML(sXMLFilename, sXSLFilename)
  dim objXMLDoc
  dim objXSLDoc
  'First, load the XML Document
  set objXMLDoc = Server.CreateObject("Microsoft.XMLDOM")
  objXMLDoc.async = false
  objXMLDoc.load(Server.MapPath(sXMLFilename))
  'Now Load the XSL Document
  set objXSLDoc = Server.CreateObject("Microsoft.XMLDOM")
  objXSLDoc.async = false
  objXSLDoc.load(Server.MapPath(sXSLFilename))
  ' Now simply transform the XML/XSL files into HTML
  Response.Write(objXMLDoc.transformNode(objXSLDoc))
end sub

Sub Convert()
Dim objFSO, objIn, objTxt, objOut
Dim strPathIn, strPathOut

strPathIn  = Server.MapPath("../PowerPoolPrices.xml")
strPathOut = Server.MapPath("..\temp\prices.xml")
Response.Write strPathIn & "<br>"
Response.Write strPathOut

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTxt = Server.CreateObject("Scripting.FileSystemObject")

Set objIn  = objFSO.OpenTextFile(strPathIn, 1)
Set objOut = objTxt.CreateTextFile(strPathOut, True)

Do while Not objIn.AtEndOfStream 

strWork = objIn.ReadLine

y = len(strWork)
if y > 3 and left(strWork, 1) <> "<" then
   strWork = right(strWork, (y-1))
end if
z = len(strWork)
if z > 3 and left(strWork, 1) <> "<" then
   strWork = right(strWork, (z-1))
end if


x = len(strWork)
'Response.Write y & "===" & x & "-" & strWork & "<br>"

if x = 0 then
'Response.Write "<br>"
strOut = ""
objOut.WriteLine(strOut)

elseif x > 1 and mid(strWork, 2, 1) = "?" then
   'Response.Write "-" & mid(strWork, 2, (x - 2)) & "-" & "<br>"
   strOut = "<" & mid(strWork, 2, (x - 2)) & ">"
   objOut.WriteLine(strOut)

elseif x = 17 and mid(strWork, 2, 15) = "PowerPoolPrices" then
   'Response.Write "-" & mid(strWork, 2, 15) & "<br>"
   strOut = "<" & mid(strWork, 2, 15) & ">"
   objOut.WriteLine(strOut)

elseif x > 1 and mid(strWork, 2, 15) = "PowerPool name=" then
   'Response.Write "-PowerPool-" & "<br>"
   strOut = "  <PowerPool>"
   objOut.WriteLine(strOut)

   'Response.Write "-name-" & mid(strWork, 17, ( x - 17)) & "-/name-" & "<br>"
   strOut = "    <name>" & mid(strWork, 17, ( x - 17)) & "</name>" 
   objOut.WriteLine(strOut)

elseif x > 1 and mid(strWork, 2, 5) = "Price" then
   strWork=mid(strWork, 18, (x-17))
   x = x-17
   xx = instr(1, strWork, ">")
   'Response.Write  "-eventDate-" & left(strWork, (xx - 1)) & "-/eventDate" & "<br>"
   strOut = "    <eventDate>" & left(strWork, (xx - 1)) & "</eventDate>"
   objOut.WriteLine(strOut)
 
   strWork = mid(strWork, xx+1, (len(strWork) - xx))
   xx = instr(1, strWork, "<")
   strWork = left(strWork, (xx-1))
   'Response.Write "-Price-" & strWork & "-/Price-<br>"
   strOut = "    <Price>" & strWork & "</Price>"
   objOut.WriteLine(strOut)

   'Response.Write "-/PowerPool-<br>"
   strOut = "  </PowerPool>" 
   objOut.WriteLine(strOut)

elseif x = 18 and mid(strWork, 3, 15) = "PowerPoolPrices" then
   'Response.Write "-" & mid(strWork, 2, 16) & "<br>"
   strOut = "<" & mid(strWork, 2, 16) & ">"
   objOut.WriteLine(strOut)

elseif x > 1 and mid(strWork, 2, 1) = "!" then
'Response.Write "-!-- end ---" & "<br>"
strOut = "<!-- end -->" 
objOut.WriteLine(strOut)

end if

Loop
End Sub%>