<style type="text/css">
td {color: #333366;font-size: 12px;font-family: arial,geneva,sans-serif}
th {color: #ffffff;font-size: 12px;font-family: arial,geneva,sans-serif}
</style>
<%
Dim objFSO, objInxt
Dim strWork, process
Dim name, edate, price, loadedat, load, y, z
strPathIn  = Server.MapPath("PowerPoolPrices.xml")

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

Set objIn  = objFSO.OpenTextFile(strPathIn, 1)
%>
<center>
  <TABLE width=600 border="1" cellspacing="1" cellpadding="0">
    <TR>
      <TH bgcolor="#333366" colspan=6 align=center>
          <B>Real Time ISO Marketing Data</B>
      </TH>
    </TR>
    <TR>
      <TH bgcolor="#333366" rowspan=2 align=center width=70>
          <B>ISO</B>
      </TH>
      <TH bgcolor="#333366" colspan=2 align=center>
          <B>Load</B>
      </TH>
      <TH  bgcolor="#333366" colspan=3 align=center>
           <B>Price</B>
      </TH>
    </TR>
    <TR>
      <TH bgcolor="#333366" align=center width=110>
          <B>Date</B>
      </TH>
      <TH bgcolor="#333366" align=center width=110>
          <B>(MW)</B>
      </TH>
      <TH  bgcolor="#333366" align=center width=110>
           <B>Date</B>
      </TH>
      <TH bgcolor="#333366" align=center width=160>
          <B>($/MWh)</B>
      </TH>
      <TH bgcolor="#333366" align=center width=20>
          <B>See Note</B>
      </TH>
    </TR>
<%
Do while Not objIn.AtEndOfStream 

strWork = Trim(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

process = 1
If Len(strWork) < 2 then process = 0
If Len(strWork) > 1 and Left(strWork, 2) = "<?" then process = 0
If Len(strWork) > 1 and Left(strWork, 2) = "<!" then process = 0
If Len(strWork) = 17 and strWork = "<PowerPoolPrices>" then process = 0
If Len(strWork) = 18 and strWork = "</PowerPoolPrices>" then process = 0

If process = 1 then
   If Len(strWork) > 16 and Left(strWork, 16) = "<PowerPool name=" then
      strWork = Left(strWork,  (Len(strWork) - 2))
      strWork = Right(strWork, (Len(strWork) - 17))
      name = strWork
   End If

   If Len(strWork) > 17 and Left(strWork, 18) = "<Price eventDate=""" then
      strWork = Left(strWork,  (Len(strWork) - 8))
      strWork = Right(strWork, (Len(strWork) - 18))
       
      If Left(strWork, 2) = """>" then
         strWork = Right(strWork, (Len(strWork) - 2))
         edate = ""
         price = strWork 
      Else
         y = InStr(strWork, ">")
         If y > 0 then
            edate = Left(strWork, (y - 2))
            price = Right(strWork, (Len(strWork) - y)) 
         End If          
      End If
   End If

   If Len(strWork) > 16 and Left(strWork, 17) = "<Load eventDate=""" then
      strWork = Left(strWork,  (Len(strWork) - 7))
      strWork = Right(strWork, (Len(strWork) - 17))
       
      If Left(strWork, 2) = """>" then
         strWork = Right(strWork, (Len(strWork) - 2))
         loadedate = ""
         load = strWork 
      Else
         y = InStr(strWork, ">")
         If y > 0 then
            loadedate = Left(strWork, (y - 2))
            load = Right(strWork, (Len(strWork) - y)) 
         End If          
      End If
   End If

   If Len(strWork) > 11 and Left(strWork, 12) = "</PowerPool>" then
%>

<tr>
<td><% =name  %>&nbsp</td>
<td><% =loadedate %>&nbsp;</td>
<td align=right><% =load %>&nbsp</td>
<td><% =edate %>&nbsp;</td>
<td align=right><% =price %>&nbsp</td>
<td align=right>
<% 
If name = "ISO-Cal" then Response.Write 1
If name = "ISO-ERCOT" then Response.Write 2
If name = "ISO-NE" then Response.Write 3
If name = "ISO-PJM" then Response.Write 4
If name = "ISO-NY" then Response.Write 5
%>
</td>
</tr>

<%
   End If

End if
Loop
%>
</table>
</center>