")
Response.Write("| " & sRootNav & " |
")
Response.Write("")
Response.Write(" |
")
Response.Write("")
Response.Write("" & sBaseName & gsInfoBaseName & "") '***
Response.Write("
Items added/changed on or after " & FormatDateTime(DateAdd("d", -1 * giNewItemsDays, Now),2) & "")
Response.Write(" |
")
Response.Write(" |
")
sSQL = "SELECT basID, basTitle, basLastUpdated FROM tblIBInfoBase " & _
"WHERE basLastUpdated >= " & SQLDate( DateAdd("d", -1 * giNewItemsDays, Now) ) & " AND basAvailable = 'Y' ORDER BY basLastUpdated DESC"
Set rsIB = gobjConn.Execute(sSQL)
If Not rsIB.Eof Then
Response.Write(" |
")
iLineFlag = True
Do While Not rsIB.Eof
sLineTag = AlternateTag(iLineFlag, gsLineColorEven, gsLineColorOdd)
Response.Write "| " & gsTableLineOpen & "" & gsTableLineClose & " | " & gsTableLineOpen & " |
"
rsIB.MoveNext
Loop
End If
rsIB.Close
Set rsIB = Nothing
Response.Write(" |
")
Response.Write("| ")
ShowNavigationBar
Response.Write(" |
")
Response.Write(" |
")
Response.Write("