<% displayDate=" " displaytabledata="" set dbconn=getDB() %>
» Market Data » MEX Daily & Weekly Prices
Historical Data

Market Data » MEX Daily & Weekly Prices
  • Daily
  • Weekly
<%Call ProcessFuturePrices(true) %>
<%=displaytabledata%>
Futures Price
 <%=displaydate%>
Item Open High Low Close
<%Call ProcessSpotPrices(true) %>
<%=displaytabledata%>
Spot Price
 <%=displaydate%>
Item Open High Low Close
 
<%Call ProcessFuturePrices(false) %>
<%=displaytabledata%>
Futures Price
 <%=displayDate%>
Item Open High Low Close
<%Call ProcessSpotPrices(false) %>
<%=displaytabledata %>
Spot Price
 <%=displayDate%>
Item Open High Low Close
 
<% Call freeDB() %> <% Private sub ProcessFuturePrices(isDaily) displayDate=" " displaytabledata="" Dim historyData Set historyData=GetFutureHistory(isDaily,true,null) if (historyData.HasDate) Then If (isDaily) Then displayDate=historyData.HistoricalDate Else displayDate=historyData.HistoricalFromDate & " - " & historyData.HistoricalDate End If End If if (historyData.HasHistory) Then while not historyData.RecordSet.eof displaytabledata=displaytabledata &"" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("item_name") & DateFormatMMMYY(historyData.RecordSet.Fields("item_date")) & "" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("open_val") & "" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("high_val") & "" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("low_val") & "" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("close_val") & "" displaytabledata=displaytabledata &"" historyData.RecordSet.movenext Wend Else displaytabledata=GetNoDataMessage() End If End Sub %> <% Private sub ProcessSpotPrices(isDaily) displayDate=" " displaytabledata="" Dim historyData Set historyData=GetSpotHistory(isDaily,true,null) if (historyData.HasDate) Then If (isDaily) Then displayDate=historyData.HistoricalDate Else displayDate=historyData.HistoricalFromDate & " - " & historyData.HistoricalDate End If End If if (historyData.HasHistory) Then while not historyData.RecordSet.eof displaytabledata=displaytabledata &"" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("item_name") & "" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("open_val") & "" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("high_val") & "" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("low_val") & "" displaytabledata=displaytabledata &"" & historyData.RecordSet.Fields("close_val") & "" displaytabledata=displaytabledata &"" historyData.RecordSet.movenext Wend Else displaytabledata=GetNoDataMessage() End If End Sub %> <% Private Function GetNoDataMessage() Dim msg msg="" msg=msg &"No Historical data found" msg=msg &"" msg=msg &"" GetNoDataMessage=msg End Function %>