<% AlphaTop = request("catstart") AlphaBottom = request("catend") artistnumber = request("artist") if AlphaTop = "" Then AlphaTop = " " if AlphaBottom = "" Then AlphaBottom = "Z" %> Latest News
<% firstRow = 0 currentDate = Date %>
<% Set rsCatalog = Server.CreateObject("ADODB.Recordset") checkCat = "SELECT * FROM news ORDER BY startdate DESC" rsCatalog.Open checkCat, dbAgentDat If Not rsCatalog.eof Then firstRow = 0 Do Until rsCatalog.eof if ((rsCatalog("startdate") <= currentDate) AND (rsCatalog("enddate") >= currentDate)) then If firstRow = 0 Then %> <% firstRow = 1 %> <% End If %> <% End If rsCatalog.MoveNext Loop End If %>
DATE ITEM
<%= rsCatalog("startdate")%> <%= rsCatalog("title")%>
<%= rsCatalog("item")%>