<% 'Dim dbPath 'dbPath = "e:\datasource\scm.mdb" 'Set dbConnection = Server.CreateObject("ADODB.Connection") 'dbConnection.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath ' Set objCmd = Server.CreateObject("ADODB.Command") ' Set objRS = createObject("ADODB.RecordSet") ' Set objCmd.ActiveConnection = dbConnection ' listingsSQL = " SELECT ID, title, prep_date, category, publish FROM news " ' listingsSQL = listingsSQL & " WHERE category = 5 " ' listingsSQL = listingsSQL & " ORDER BY prep_date DESC " ' SET listingsQuery = dbConnection.Execute(listingsSQL) %> Schuylkill Capital Management || Market Commentary

 

Market Commentary

<% ' WHILE NOT listingsQuery.EOF %>

Monthly Update - Sept 2005 (pdf file)
Monthly Update - July 2005 (pdf file)
Monthly Update - March 2005 (pdf file)

<% ' Writes New ' IF NOW - listingsQuery("prep_date") < 30 THEN ' Response.Write("") ' ELSE ' END IF %>

<% ' listingsQuery.MoveNext ' WEND %>