 |
 |

Click here to learn about our management approach to financial affairs.

Click here to learn about our six process steps.
|
|
")
end if
strDate = aryRows(1,iRow)
response.write("" & monthname(month(strDate)) & " " & day(strDate) & ", " & Year(strDate) & " " & vbCRLF &_
"")
end if
response.write("" &_
"![]() | " &_
"" & aryRows(2,iRow))
if len(aryRows(3,iRow)) > 0 then
response.write("... more")
end if
response.write(" | ")
next
response.write(" ")
end if
objRS.close
set objRS = nothing
objConn.close
set objConn = nothing
%>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")
strDBOpen = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Acsysweb\havilandgroup\thehavilandgroup.com\data\haviland.mdb;"
objConn.Open strDBOpen
strSQL = "SELECT [NewsID], [PostDate], [Title], [Announcement]" &_
" FROM [News] WHERE [Section] = 'Articles' ORDER BY [PostDate] DESC"
objRS.open strSQL,objConn
if objRS.eof then
response.write ("There are currently no articles posted, please check back soon! ")
else
aryRows = objRS.getrows
for iRow = 0 to ubound(aryRows,2)
if strDate <> aryRows(1,iRow) then
if iRow > 0 then
response.write(" |