|
   |
 |
|
|
") end if strDate = aryRows(1,iRow) response.write("" & monthname(month(strDate)) & " " & day(strDate) & ", " & Year(strDate) & " " & vbCRLF &_ "
") 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(" | ||||||||||
") end if strDate = aryRows(1,iRow) response.write("" & monthname(month(strDate)) & " " & day(strDate) & ", " & Year(strDate) & "
" & vbCRLF &_ "
| " & aryRows(2,iRow)) if len(aryRows(3,iRow)) > 0 then response.write("... more") end if response.write(" |
") end if objRS.close set objRS = nothing objConn.close set objConn = nothing %>
 |
|
|
|
|
|