<% AlphaTop = request("catstart") AlphaBottom = request("catend") artistnumber = request("artist") if AlphaTop = "" Then AlphaTop = " " if AlphaBottom = "" Then AlphaBottom = "Z" %>

<% 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")%>