<%@ LANGUAGE="VBSCRIPT" %> Commodity Advantage
<% fHideNavBar = False fHideNumber = False fHideRequery = False fHideRule = False stQueryString = "" fEmptyRecordset = False fFirstPass = True fNeedRecordset = False fNoRecordset = False tBarAlignment = "Left" tHeaderName = "ca" tPageSize = 1 tPagingMove = "" tRangeType = "Text" tRecordsProcessed = 0 tPrevAbsolutePage = 0 intCurPos = 0 intNewPos = 0 fSupportsBookmarks = True fMoveAbsolute = False If Not IsEmpty(Request("ca_PagingMove")) Then tPagingMove = Trim(Request("ca_PagingMove")) End If If IsEmpty(Session("ca_Recordset")) Then fNeedRecordset = True Else If Session("ca_Recordset") Is Nothing Then fNeedRecordset = True Else Set ca = Session("ca_Recordset") End If End If If fNeedRecordset Then Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") DataConn.CommandTimeout = Session("DataConn_CommandTimeout") DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set ca = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT CommodityAdvantage.*, `Date` FROM CommodityAdvantage ORDER BY `Date` DESC" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn ca.Open cmdTemp, , 1, 1 End If On Error Resume Next If ca.BOF And ca.EOF Then fEmptyRecordset = True On Error Goto 0 If Err Then fEmptyRecordset = True ca.PageSize = tPageSize fSupportsBookmarks = ca.Supports(8192) If Not IsEmpty(Session("ca_Filter")) And Not fEmptyRecordset Then ca.Filter = Session("ca_Filter") If ca.BOF And ca.EOF Then fEmptyRecordset = True End If If IsEmpty(Session("ca_PageSize")) Then Session("ca_PageSize") = tPageSize If IsEmpty(Session("ca_AbsolutePage")) Then Session("ca_AbsolutePage") = 1 If Session("ca_PageSize") <> tPageSize Then tCurRec = ((Session("ca_AbsolutePage") - 1) * Session("ca_PageSize")) + 1 tNewPage = Int(tCurRec / tPageSize) If tCurRec Mod tPageSize <> 0 Then tNewPage = tNewPage + 1 End If If tNewPage = 0 Then tNewPage = 1 Session("ca_PageSize") = tPageSize Session("ca_AbsolutePage") = tNewPage End If If fEmptyRecordset Then fHideNavBar = True fHideRule = True Else tPrevAbsolutePage = Session("ca_AbsolutePage") Select Case tPagingMove Case "" fMoveAbsolute = True Case "Requery" ca.Requery fMoveAbsolute = True Case "<<" Session("ca_AbsolutePage") = 1 Case "<" If Session("ca_AbsolutePage") > 1 Then Session("ca_AbsolutePage") = Session("ca_AbsolutePage") - 1 End If Case ">" If Not ca.EOF Then Session("ca_AbsolutePage") = Session("ca_AbsolutePage") + 1 End If Case ">>" If fSupportsBookmarks Then Session("ca_AbsolutePage") = ca.PageCount End If End Select Do If fSupportsBookmarks Then ca.AbsolutePage = Session("ca_AbsolutePage") Else If fNeedRecordset Or fMoveAbsolute Or ca.EOF Then ca.MoveFirst ca.Move (Session("ca_AbsolutePage") - 1) * tPageSize Else intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize intNewPos = ((Session("ca_AbsolutePage") - 1) * tPageSize) + 1 ca.Move intNewPos - intCurPos End If If ca.BOF Then ca.MoveNext End If If Not ca.EOF Then Exit Do Session("ca_AbsolutePage") = Session("ca_AbsolutePage") - 1 Loop End If Do If fEmptyRecordset Then Exit Do If tRecordsProcessed = tPageSize Then Exit Do If Not fFirstPass Then ca.MoveNext Else fFirstPass = False End If If ca.EOF Then Exit Do tRecordsProcessed = tRecordsProcessed + 1 %>
Commodity Advantage
Commodity
. . . . . . . .Advantage		 APOGEE
"The Acceptable Trading Logic"
www.apogee-atl.com
cta@apogee-atl.com
Commodity Advantage

TRADING STRATEGY FOR THE WEEK OF <%= ca("Date") %>
<%= ca("Market1") %>
<%= ca("Strategy1") %>
<%= ca("Market2") %>
<%= ca("Strategy2") %>
<%= ca("Market3") %>
<%= ca("Strategy3") %>
<%= ca("Market4") %>
<%= ca("Strategy4") %>
<%= ca("Market5") %>
<%= ca("Strategy5") %>
<%= ca("Market6") %>
<%= ca("Strategy6") %>
<%= ca("Market7") %>
<%= ca("Strategy7") %>

Commodity Advantage

MARKET SUMMARY FOR THE WEEK OF <%= ca("Date") %>
<%= ca("Summary1") %>

<%= ca("Summary2") %>

<%= ca("Summary3") %>

<%= ca("Summary4") %>

<%= ca("Summary5") %>

<%= ca("Summary6") %>

<%= ca("Summary7") %>

<%= ca("Summary8") %>

<%= ca("Summary9") %>

<%= ca("Summary10") %>

<%= ca("Summary11") %>

<%= ca("Summary12") %>

<%= ca("Summary13") %>

<%= ca("Summary14") %>

 <%= ca("Summary15") %>

<%= ca("Summary16") %>

<%= ca("Summary17") %>

<%= ca("Summary18") %>

<%= ca("Summary19") %>

<%= ca("Summary20") %>

<%= ca("Summary21") %>

<%= ca("Summary22") %>

<%= ca("Summary23") %>

<%= ca("Summary24") %>

<%= ca("Summary25") %>

<%= ca("Summary26") %>

<%= ca("Summary27") %>

<%= ca("Summary28") %>

All aspects of any trade recommendations contained in this report are subject to modification at any time.

<% Loop If tRangeType = "Table" Then Response.Write "

" If tPageSize > 0 Then If Not fHideRule Then Response.Write "
" If Not fHideNavBar Then %>

>

METHOD="POST"> " VALUE=" << "> " VALUE=" < "> " VALUE=" > "> <% If fSupportsBookmarks Then %> " VALUE=" >> "> <% End If %> <% If Not fHideRequery Then %> " VALUE=" Requery "> <% End If %>

<% If Not fHideNumber Then If tPageSize > 1 Then Response.Write "Page: " & Session(tHeaderName & "_AbsolutePage") & "" Else Response.Write "Record: " & Session(tHeaderName & "_AbsolutePage") & "" End If End If %>
<% End If End If %> Click the Arrow For Previous Newsletters