<%
Option Explicit
%>
<%

' Opens a new connection to the database
Function OpenDatabaseConnection( _
)

    ' New connection object
    Dim NewDatabaseConnection


    ' Connect to the database
    Set NewDatabaseConnection = Server.CreateObject( "ADODB.Connection" )
    NewDatabaseConnection.ConnectionString = Application( "CenturionCounsel_ConnectionString" )
    NewDatabaseConnection.Open

    Set OpenDatabaseConnection = NewDatabaseConnection

End Function

%>
<%

' Names of roles users may log in as
Const   AdvisorRoleName = "Advisor"
Const   GuestRoleName = "Guest"
Const   TeleconferenceRoleName = "Teleconference"
Const   AdminRoleName = "Admin"


' Returns the user name of the current user.
Function GetCurrentUserName( _
)

    GetCurrentUserName = Session( "MM_Username" )

End Function


' Returns the role name of the current user.
Function GetCurrentRoleName( _
)

    GetCurrentRoleName = Session( "MM_RoleName" )

End Function


' Validates that the current user is logged in and in the correct role.  If the user is not logged
' in or not in the correct role, he/she is redirected to a login page.
Sub AuthorizeCurrentUser( _
    RoleName, _
    LoginPage _
)

    Dim MM_grantAccess
    Dim MM_qsChar
    Dim MM_referrer


    ' *** Restrict Access To Page: Grant or deny access to this page
    MM_grantAccess=false

    ' If the user is logged in,
    If GetCurrentUserName( ) <> "" Then

        ' and if the user is in the correct role for this page,
        If GetCurrentRoleName( ) = RoleName Then

            ' The user is grnated access
            MM_grantAccess = true

        End If

    End If

    ' If the user is not allowed to view this page,
    If Not MM_grantAccess Then

        ' Redirect the user to the appropriate login page
        MM_qsChar = "?"
        If (InStr(1,LoginPage,"?") >= 1) Then MM_qsChar = "&"
        MM_referrer = Request.ServerVariables("URL")
        if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
        LoginPage = LoginPage & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
        Response.Redirect(LoginPage)

    End If

End Sub

%>
<%
' This file contains all the code needed to access the client statements on the web site.


' Base directory under which all advisor's directories can be found
Const BaseAdvisorVirtualDirectory = "advisor_central/advisors"


' Gets the statements for the current user
Function GetStatementsForCurrentUser( _
)

    GetStatementsForCurrentUser = GetStatementsForUser( GetCurrentUserName( ) )

End Function


' Gets the statement for a particular user
Function GetStatementsForUser( _
    Username _
)

    ' Database connection
    Dim DatabaseConnection
    ' Command to get the user's directory name
    Dim GetDirectoryCommand
    ' Recordset that contains the user's directory name
    Dim UserDirectoryRecordset
    ' Virtual directory for the current user
    Dim AdvisorVirtualDirectory
    ' File system object
    Dim FileSystem
    ' File system folder that contains the advisor's files
    Dim AdvisorFileFolder
    ' Statement array to return
    Dim Statements( )
    ' Current number of statements in the array
    Dim StatementCount
    ' Statement file
    Dim StatementFile
    ' New statement data object
    Dim NewStatement
    ' Index into the statement array
    Dim StatementIndex


    ' Get the user's virtual directory that holds the files
    Set DatabaseConnection = OpenDatabaseConnection( )
    Set GetDirectoryCommand = Server.CreateObject( "ADODB.Command" )
    GetDirectoryCommand.ActiveConnection = DatabaseConnection
    GetDirectoryCommand.CommandType = adCmdText
    GetDirectoryCommand.CommandText = "SELECT directory " & _
        "FROM advisors " & _
        "WHERE username = ?"
    Set UserDirectoryRecordset = GetDirectoryCommand.Execute( , Array( Username ) )
    AdvisorVirtualDirectory = BaseAdvisorVirtualDirectory & "/" & UserDirectoryRecordset( "directory" )
    UserDirectoryRecordset.Close
    DatabaseConnection.Close

    ' Find the directory that contains all the user's files
    Set FileSystem = Server.CreateObject( "Scripting.FileSystemObject" )
    Set AdvisorFileFolder = FileSystem.GetFolder( Server.MapPath( AdvisorVirtualDirectory ) )

    ' Loop through all the files
    StatementCount = 0
    For Each StatementFile In AdvisorFileFolder.Files

        ' Create a new statement object for the file
        Set NewStatement = New Statement
        NewStatement.Name = StatementFile.Name
        NewStatement.VirtualPath = AdvisorVirtualDirectory & "/" & StatementFile.Name
        NewStatement.Date = GetStatementDate( StatementFile )
        ' This sets the size to the next highest KB size
        NewStatement.SizeKb = -Int( -StatementFile.Size / 1024 )

        ' Add the statement to the array
        ReDim Preserve Statements( StatementCount )
        'Set Statements( StatementCount ) = NewStatement

        ' Loop through the elements already in the sorted array
        For StatementIndex = StatementCount To 0 Step -1

            ' If we are at the beginning of the array,
            If StatementIndex = 0 Then

                ' Put the new statement there
                Set Statements( StatementIndex ) = NewStatement

            ' If the new statement is older than the next one in the sorted array,
            ElseIf NewStatement.Date < Statements( StatementIndex - 1 ).Date Then

                ' Place the new statement after it
                Set Statements( StatementIndex ) = NewStatement
                Exit For

            ' If the new statement is newer than the next one,
            Else

                ' Shift the next one up a position
                Set Statements( StatementIndex ) = Statements( StatementIndex - 1 )

            End If

        Next

        StatementCount = StatementCount + 1

    Next

    ' Clean up
    Set AdvisorFileFolder = Nothing
    Set FileSystem = Nothing
    Set UserDirectoryRecordset = Nothing
    Set GetDirectoryCommand = Nothing
    Set DatabaseConnection = Nothing

    GetStatementsForUser = Statements

End Function


' Determines the date of the statement file
Function GetStatementDate( _
    StatementFile _
)

    ' Regular expression to parse the file names
    Dim FileNameParser
    ' Values parsed from the filename
    Dim CapturedValues
    ' Year parsed from the file name
    Dim StatementYear
    ' Quarter parsed from the file name
    Dim StatementQuarter
    ' Month parsed from the file name
    Dim StatementMonth
    ' Day parsed from the file name
    Dim StatementDay


    Set FileNameParser = New RegExp

    ' Looking for files in the format "<username>_<qtr>_QTR_<year>*.pdf"
    FileNameParser.Pattern = "^.*(1ST|2ND|3RD|4TH).*(\d{4}).*$"
    If FileNameParser.Test( StatementFile.Name ) Then

        Set CapturedValues = FileNameParser.Execute( StatementFile.Name )
        StatementYear = CapturedValues.Item( 0 ).SubMatches.Item( 1 )
        StatementQuarter = CInt( Left( CapturedValues.Item( 0 ).SubMatches( 0 ), 1 ) )
        GetStatementDate = DateAdd( "d", -1, DateSerial( StatementYear, StatementQuarter * 3 + 1, 1 ) )

    Else

        ' Looking for files in the format "<username>_<year>-<month>-<day>.pdf"
        FileNameParser.Pattern = "^.*(\d{4})\-(\d{2})\-(\d{2}).*$"
        If FileNameParser.Test( StatementFile.Name ) Then

            Set CapturedValues = FileNameParser.Execute( StatementFile.Name )
            StatementYear = CapturedValues.Item( 0 ).SubMatches.Item( 0 )
            StatementMonth = CapturedValues.Item( 0 ).SubMatches.Item( 1 )
            StatementDay = CapturedValues.Item( 0 ).SubMatches.Item( 2 )
            GetStatementDate = DateSerial( StatementYear, StatementMonth, StatementDay )

        Else

            ' Default to the date the file was uploaded
            GetStatementDate = StatementFile.DateCreated

        End If

    End If

    ' Clean up
    Set CapturedValues = Nothing
    Set FileNameParser = Nothing

End Function


' Creates a new statement directory for a user
Function CreateStatementDirectory( _
    UserName _
)

    ' File system object
    Dim FileSystem
    ' Base bile system folder that contains the advisor's files
    Dim BaseAdvisorFileFolder
    ' Name of the new directory
    Dim DirectoryName
    ' Number used to make the directory name unique
    Dim DirectoryNumber
    ' Unexpected error information
    Dim ErrorNumber
    Dim ErrorSource
    Dim ErrorDescription
    Dim ErrorHelpFile
    Dim ErrorHelpContext


    ' Find the directory that contains the advisors' directories
    Set FileSystem = Server.CreateObject( "Scripting.FileSystemObject" )
    Set BaseAdvisorFileFolder = FileSystem.GetFolder( Server.MapPath( BaseAdvisorVirtualDirectory ) )

    ' Start with a directory the same name as the user name
    DirectoryName = UserName
    DirectoryNumber = 0

    ' Don't exit when there are errors creating the directory
    On Error Resume Next

    ' While the directory cannot be created,
    BaseAdvisorFileFolder.SubFolders.Add( DirectoryName )
    While Err.Number = 58

        ' Try a different directory name
        DirectoryNumber = DirectoryNumber + 1
        DirectoryName = UserName & DirectoryNumber
        Err.Clear
        BaseAdvisorFileFolder.SubFolders.Add( DirectoryName )

    WEnd

    ' If there was an error besides the directory not being created,
    If Err.Number <> 0 Then

        ' Save the error information
        ErrorNumber = Err.Number
        ErrorSource = Err.Source
        ErrorDescription = Err.Description
        ErrorHelpFile = Err.HelpFile
        ErrorHelpContext = Err.HelpContext

    Else

        ErrorNumber = 0

    End If

    On Error GoTo 0

    ' If there was an unexpected error while error trapping was turned off,
    If ErrorNumber <> 0 Then

        ' Re-raise the error
        Err.Raise ErrorNumber, ErrorSource, ErrorDescription, ErrorHelpFile, ErrorHelpContext

    End If

    ' Clean up
    Set BaseAdvisorFileFolder = Nothing
    Set FileSystem = Nothing

    CreateStatementDirectory = DirectoryName

End Function


' Data about each statement
Class Statement

    ' Name of the file
    Public Name
    ' Web path to the file
    Public VirtualPath
    ' Date/time the statement was created
    Public Date
    ' Size of the statement
    Public SizeKb


    ' Returns the HTML of a link to this statement
    Public Function ToLink( _
    )

        ToLink = "<a href=""" & VirtualPath &""">" & Server.HTMLEncode( Name ) & "</a> (" & SizeKb & "Kb)"

    End Function

End Class

%>
<%
' Statement for the current user
Dim ClientStatements
' Next statement in the list
Dim ClientStatement
' Current year that statements are being listed for
Dim CurrentYear


AuthorizeCurrentUser AdvisorRoleName, "advisoradvantage.htm"

ClientStatements = GetStatementsForCurrentUser( )
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/centurion-counsel.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<title>Welcome to Centurion Counsel, Inc.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<script language="JavaScript" type="text/JavaScript">

function mmLoadMenus() {
  if (window.mm_menu_1102222009_0) return;
                  window.mm_menu_1102222009_0 = new Menu("root",128,18,"Times New Roman, Times, serif",12,"#FFFFFF","#000033","#000033","#FFFFFF","left","middle",3,0,500,-5,7,true,true,true,0,true,true);
  mm_menu_1102222009_0.addMenuItem("Who We Are","location='whoweare_a.htm'");
  mm_menu_1102222009_0.addMenuItem("Principal Officers","location='principalofficers.htm'");
   mm_menu_1102222009_0.fontWeight="bold";
   mm_menu_1102222009_0.hideOnMouseOut=true;
   mm_menu_1102222009_0.bgColor='#FFCC66';
   mm_menu_1102222009_0.menuBorder=1;
   mm_menu_1102222009_0.menuLiteBgColor='#FFCC66';
   mm_menu_1102222009_0.menuBorderBgColor='#405783';
  window.mm_menu_1102231842_0 = new Menu("root",180,18,"Times New Roman, Times, serif",12,"#FFFFFF","#000033","#000033","#FFFFFF","left","middle",3,0,500,-5,7,true,true,true,0,true,true);
  mm_menu_1102231842_0.addMenuItem("What&nbsp;We&nbsp;Do","location='whatwedo_b.htm'");
  mm_menu_1102231842_0.addMenuItem("How&nbsp;We&nbsp;Do&nbsp;It","location='howwedoit_c.htm'");
  mm_menu_1102231842_0.addMenuItem("Our&nbsp;Clients","location='whowedoitfor_d.htm'");
  mm_menu_1102231842_0.addMenuItem("Strategic&nbsp;Asset&nbsp;Allocation","location='saa.htm'");
   mm_menu_1102231842_0.fontWeight="bold";
   mm_menu_1102231842_0.hideOnMouseOut=true;
   mm_menu_1102231842_0.bgColor='#FFCC66';
   mm_menu_1102231842_0.menuBorder=1;
   mm_menu_1102231842_0.menuLiteBgColor='#FFCC66';
   mm_menu_1102231842_0.menuBorderBgColor='#405783';
  window.mm_menu_1102232105_0 = new Menu("root",129,18,"Times New Roman, Times, serif",12,"#FFFFFF","#000033","#000033","#FFFFFF","left","middle",3,0,500,-5,7,true,true,true,0,true,true);
  mm_menu_1102232105_0.addMenuItem("Our&nbsp;Commitment","location='commitment.htm'");
  mm_menu_1102232105_0.addMenuItem("FAQ","location='faq.htm'");
   mm_menu_1102232105_0.fontWeight="bold";
   mm_menu_1102232105_0.hideOnMouseOut=true;
   mm_menu_1102232105_0.bgColor='#FFCC66';
   mm_menu_1102232105_0.menuBorder=1;
   mm_menu_1102232105_0.menuLiteBgColor='#FFCC66';
   mm_menu_1102232105_0.menuBorderBgColor='#405783';
        window.mm_menu_1102232238_0 = new Menu("root",191,18,"Times New Roman, Times, serif",12,"#FFFFFF","#000033","#000033","#FFFFFF","left","middle",3,0,500,-5,7,true,true,true,0,true,true);
  // mm_menu_1102232238_0.addMenuItem("Weekly&nbsp;Market&nbsp;Review","location='weeklymarketreview.htm'");
  mm_menu_1102232238_0.addMenuItem("Centurion&nbsp;Counselor","location='centurioncounselor.htm'");
  mm_menu_1102232238_0.addMenuItem("Quarterly&nbsp;Market&nbsp;Summary","location='quarterlymarketreview.htm'");
   mm_menu_1102232238_0.fontWeight="bold";
   mm_menu_1102232238_0.hideOnMouseOut=true;
   mm_menu_1102232238_0.bgColor='#FFCC66';
   mm_menu_1102232238_0.menuBorder=1;
   mm_menu_1102232238_0.menuLiteBgColor='#FFCC66';
   mm_menu_1102232238_0.menuBorderBgColor='#405783';
window.mm_menu_1102232338_0 = new Menu("root",101,18,"Times New Roman, Times, serif",12,"#FFFFFF","#000033","#000033","#FFFFFF","left","middle",3,0,500,-5,7,true,true,true,0,true,true);
  mm_menu_1102232338_0.addMenuItem("Locate&nbsp;Us","window.open('http://maps.yahoo.com/maps_result?q1=1282+Pacific+Oaks+Place%2C+Escondido%2C+CA+92029', '_blank');");
  mm_menu_1102232338_0.addMenuItem("Request&nbsp;Info","location='requestinfo.htm'");
   mm_menu_1102232338_0.fontWeight="bold";
   mm_menu_1102232338_0.hideOnMouseOut=true;
   mm_menu_1102232338_0.bgColor='#FFCC66';
   mm_menu_1102232338_0.menuBorder=1;
   mm_menu_1102232338_0.menuLiteBgColor='#FFCC66';
   mm_menu_1102232338_0.menuBorderBgColor='#405783';

        window.mm_menu_1205200202_0 = new Menu("root",102,18,"Times New Roman, Times, serif",12,"#FFFFFF","#000033","#000033","#FFFFFF","left","middle",3,0,500,-5,7,true,true,true,0,true,true);
  mm_menu_1205200202_0.addMenuItem("Client&nbsp;Forms","location='advisorforms.htm'");
   mm_menu_1205200202_0.fontWeight="bold";
   mm_menu_1205200202_0.hideOnMouseOut=true;
   mm_menu_1205200202_0.bgColor='#555555';
   mm_menu_1205200202_0.menuBorder=1;
   mm_menu_1205200202_0.menuLiteBgColor='#000033';
   mm_menu_1205200202_0.menuBorderBgColor='#FFCC66';

mm_menu_1205200202_0.writeMenus();
} // mmLoadMenus()<!--

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

//-->

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<script language="JavaScript" src="mm_menu.js"></script>
<link href="centurion.css" rel="stylesheet" type="text/css" />
</head>

<body bgcolor="#000033" text="#000033" link="#000033" vlink="#405783" alink="#FFCC66" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="whitebg" onload="MM_preloadImages('image/images/navigation2_study_r1_c1_f2.gif','image/images/navigation2_study_r1_c2_f2.gif','image/images/navigation2_study_r1_c3_f2.gif','image/images/navigation2_study_r1_c4_f2.gif','image/images/navigation2_study_r1_c5_f2.gif','image/images/navigation2_study_r1_c6_f2.gif')">

  <script language="JavaScript1.2">mmLoadMenus();</script>

<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000033" id="top">
    <tr>
      <td height="15" valign="middle" class="topnav"><div align="right">  <img src="../CenturionCounsel/image/spacer.gif" width="1" height="1" /> 
        <a href="advisorforms.htm">Client Forms</a> | <a href="advisor_central.asp" name="link3" id="link1" onmouseover="MM_showMenu(window.mm_menu_1205200202_0,0,19,null,'link3')" onmouseout="MM_startTimeout();">Advisor 
        Central</a> | <a href="businessowners.htm">Business Owners</a> | <a href="disclosures.htm">Disclosures</a> 
        | <a href="sitemap.htm">Site Map</a><img src="image/spacer.gif" width="5" height="10" /> 
        | <a href="admin.asp">Admin</a></div>
      </td>
    </tr>
</table>
  <div align="center">
    <table width="95%" border="0" cellpadding="0" cellspacing="0">
      <tr align="left">
        <td width="500" height="93" valign="top" background="image/topbg_behindlogo.gif" bgcolor="#405783"><div align="left"><a href="default.htm"><img src="image/centurion_counsel_incorporated-style5-golder.jpg" width="500" height="93" border="0" /></a></div>
        </td>
        <td height="93" valign="top" background="image/topbg_behindlogo.gif" bgcolor="#405783"><div align="left"><img src="image/spacer.gif" width="1" height="1" /><!-- InstanceBeginEditable name="quotes" --><!-- InstanceEndEditable --></div>
        </td>
        <td width="100" height="93" valign="top" background="image/topbg_behindlogo.gif" bgcolor="#405783"><img src="image/helmet_logo100x100-gold_bluebg.gif" width="100" height="93" /></td>
      </tr>
    </table>
    <table width="95%" height="23" border="0" align="center" cellpadding="0" cellspacing="0" background="image/navtablebg.gif" bgcolor="#405783">
      <tr>
        <td width="5" class="topnav"><img src="image/navtable_left.gif" width="5" height="23" /></td>
        <td width="173" class="topnav"><!-- InstanceBeginEditable name="breadcrumbs" -->Log
            Out<!-- InstanceEndEditable --></td>
        <td width="700" valign="top"><a href="default.htm" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('welcome','','image/images/navigation2_study_r1_c1_f2.gif',1)"><img src="image/images/navigation2_study_r1_c1.gif" alt="Welcome" name="welcome" width="79" height="23" border="0" id="welcome" /></a><a href="whoweare_a.htm" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('ourcompany','','image/images/navigation2_study_r1_c2_f2.gif',1)"><img src="image/images/navigation2_study_r1_c2.gif" alt="Our Company" name="ourcompany" width="124" height="23" border="0" id="ourcompany" onmouseover="MM_showMenu(window.mm_menu_1102222009_0,0,23,null,'ourcompany')" onmouseout="MM_startTimeout();" /></a><a href="whatwedo_b.htm" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('ourservices','','image/images/navigation2_study_r1_c3_f2.gif',1)"><img src="image/images/navigation2_study_r1_c3.gif" alt="Our Services" name="ourservices" width="121" height="23" border="0" id="ourservices" onmouseover="MM_showMenu(window.mm_menu_1102231842_0,0,23,null,'ourservices')" onmouseout="MM_startTimeout();" /></a><a href="commitment.htm" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('ourcommitment','','image/images/navigation2_study_r1_c4_f2.gif',1)"><img src="image/images/navigation2_study_r1_c4.gif" alt="Our Commitment" name="ourcommitment" width="144" height="23" border="0" id="ourcommitment" onmouseover="MM_showMenu(window.mm_menu_1102232105_0,0,23,null,'ourcommitment')" onmouseout="MM_startTimeout();" /></a><a href="publications.htm" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('ourpublications','','image/images/navigation2_study_r1_c5_f2.gif',1)"><img src="image/images/navigation2_study_r1_c5.gif" alt="Our Publications" name="ourpublications" width="138" height="23" border="0" class="topnav" id="ourpublications" onmouseover="MM_showMenu(window.mm_menu_1102232238_0,0,23,null,'ourpublications')" onmouseout="MM_startTimeout();" /></a><a href="contact.htm" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('contactus','','image/images/navigation2_study_r1_c6_f2.gif',1)"><img src="image/images/navigation2_study_r1_c6.gif" alt="Contact Us" name="contactus" width="94" height="23" border="0" id="contactus" onmouseover="MM_showMenu(window.mm_menu_1102232338_0,0,23,null,'contactus')" onmouseout="MM_startTimeout();" /></a></td>
        <td><div align="right"><img src="image/navtable_right.gif" width="2" height="23" /></div>
        </td>
      </tr>
    </table>
    <table width="95%" border="0" cellpadding="0" cellspacing="0" background="image/texture1.gif">
    <tr>
      <td width="178" valign="top" background="image/leftborder_blue.gif" bgcolor="#405783">
              <div align="center"><img src="image/spacer.gif" width="160" height="7" />
                  <table width="160" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#FFCC66">
                    <tr>
                      <td><table width="100%" border="0" cellspacing="0" cellpadding="3">
                          <tr>
                            <td bgcolor="#000033" class="leftcolumn"><img src="image/leftcolumn_stuff2.jpg" alt="For more information:" width="155" height="102" border="0" usemap="#Map" /></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                  <p>&nbsp;</p>
                  <table width="160" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#FFCC66">
                    <tr>
                      <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="3">
                          <tr>
                            <td bgcolor="#000033" class="topnav"><div align="center"><a href="weekly.htm">
                              <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="35" height="35" id=ShockwaveFlash1>
                                <param name="movie" value="image/globe_.swf" />
                                <param name="quality" value="high" />
                                <embed src="image/globe_.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="35" height="35"></embed>
                            </object>
                            </a><a href="requestinfo2.htm"><img src="image/weekly_review2.jpg" alt="Receive Our Weekly Market Review" width="134" height="26" border="0" /></a></div>
                              <div align="center"><img src="image/spacer.gif" width="100" height="10" /></div></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
        </div>

      </td>
      <td valign="top" background="image/marble_bg.jpg"><table width="100%" height="100%" border="0" cellpadding="10" cellspacing="0" class="whitebg">
        <tr>
          <td valign="top" background="image/marble_bg.jpg"><!-- InstanceBeginEditable name="body" -->
            <h1 align="left" class="heading"><strong>Client Statements</strong></h1>
            <table width="542" border="0" cellpadding="2" cellspacing="2" bgcolor="#000032">
              <tr bgcolor="#FFFFFF">
                <td width="534"><div align="left"> 
                  <table width="498" border="0" cellspacing="1" cellpadding="1">
                    <tr>
                      <td width="140"><div align="center"><a href="http://www.adobe.com/products/acrobat/readstep2.html" target="_blank"><img src="image/get_adobe_reader.gif" width="88" height="31" border="0" /></a></div></td>
                      <td width="351"><span style="font-weight: bold">Important:</span> In order to view your statements, you must have the most current Adobe Acrobat Reader software installed. This software is free, and can be downloaded by clicking here.</td>
                    </tr>
                  </table>
                </div>                  </td>
                </tr>
            </table>
            <br />
            <div align="justify">
<%
' Initialize to "no years displayed"
CurrentYear = 0

' Loop through all the statements
For Each ClientStatement In ClientStatements

    ' If this statement's year is not the current year being displayed,
    If Year( ClientStatement.Date) <> CurrentYear Then

        ' If there is a year before this one,
        If CurrentYear <> 0 Then

            ' End its paragraph
%>
              </p>
<%
        End If

        ' Set the year begin displayed
        CurrentYear = Year( ClientStatement.Date)

        ' Start a new paragraph with a year header graphic
%>
              <p><img src="image/<%= CurrentYear %>.gif" width="250" height="22" border="0" />
<%
    End If

    ' Display a link to the statement
%>
                <br /><%= ClientStatement.ToLink( ) %>
<%
Next

' If there were years displayed,
If CurrentYear <> 0 Then

    ' End the last year's paragraph
%>
              </p>
<%
End If
%>
<p>&nbsp;</p>
<p><br />
                  If you are having problems viewing your files, you can try downloading them to your computer by Right-Clicking on the file, and choosing &quot;Save Target as&quot;, and saving the file to your hard drive. You can then locate the file on your hard drive, and double click on it to open it. You will still need <a href="http://www.adobe.com/products/acrobat/readstep2.html" target="_blank">Adobe Acrobat Reader</a> to view the file. If you still continue to have problems, please <a href="contact.htm">click here to email us</a>, and a representative will respond promptly. <br />
                  <br />
                  <br />
              </p>
<p align="left" class="whitebg"><a href="advisor_central.asp">Back
                    To Advisor Central</a></p>
            </div>
          <!-- InstanceEndEditable --></td>
        </tr>
      </table></td>
    </tr>
  </table>
  <table width="95%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td width="178" height="126" valign="bottom" background="image/leftborder_blue.gif" bgcolor="#405783"><div align="center"><img src="image/216x1.gif" width="178" height="1" /></div>
      </td>
      <td background="image/marble_bg.jpg"><div align="right">
          <table width="100%" border="0" cellspacing="0" cellpadding="5">
            <tr>
              <td class="footer"><div align="right">
                <table width="100%" border="0" cellspacing="0" cellpadding="5">
                  <tr>
                    <td height="91" class="footer"><div align="center">
                        <p><br />
&copy; 2006 Centurion Counsel, Inc. <br />
                    1282 Pacific Oaks Place <br />
                    Escondido, CA 92029 <br />
                    Phone: 760-471-8536 Fax: 760-471-0399 <br />
                    <a href="mailto:info@centurioncounsel.com">Email: info@centurioncounsel.com</a> </p>
                        <p>&nbsp;</p>
                      </div>
                    </td>
                  </tr>
                </table>
                <table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr class="footer">
                    <td><div align="center"><a href="default.htm">Welcome</a></div>
                    </td>
                    <td><div align="center"><a href="whoweare_a.htm">Our Company</a></div>
                    </td>
                    <td><div align="center"><a href="whatwedo_b.htm">Our Services</a></div>
                    </td>
                    <td><div align="center"><a href="commitment.htm">Our Committment</a></div>
                    </td>
                    <td><div align="center"><a href="publications.htm">Our Publications</a> </div>
                    </td>
                    <td><div align="center"><a href="contact.htm">Contact Us</a></div>
                    </td>
                  </tr>
                </table>
                <p class="footer"></p>
              </div>
              </td>
            </tr>
          </table>
          <p class="topnav">&nbsp;</p>
        </div>
      </td>
    </tr>
  </table>
  </div>
  <map name="Map" id="Map">
  <area shape="rect" coords="5,70,149,94" href="contact.htm" />
  </map>
  <br />
</body>
<!-- InstanceEnd --></html>