% '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) %>
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
|||
|
Market Commentary<% ' WHILE NOT listingsQuery.EOF %> <% ' listingsQuery.MoveNext ' WEND %> |
|||||||||
|
|
|||||||||