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

<% firstRow = 0 currentDate = Date If artistnumber = "" Then %> <% For j=1 to ttlRows if (StrComp(Left(artAlpha(j),1), AlphaTop, 1) >= 0) AND (StrComp(Left(artAlpha(j),1), AlphaBottom, 1) <= 0) then %> <% Set rsCatalog = Server.CreateObject("ADODB.Recordset") checkCat = "SELECT * FROM tourdates WHERE artist_id=" & artNumber(j) & " ORDER BY tour_date" rsCatalog.Open checkCat, dbAgentDat If Not rsCatalog.eof Then firstRow = 0 Do Until rsCatalog.eof nextDate = rsCatalog("tour_date") If DateDiff("d", currentDate, nextDate) > 0 Then If firstRow = 0 Then %> <% firstRow = 1 %> <% End If %> <% End If rsCatalog.MoveNext Loop End If End If Next %>   <%= UCase(artName(j))%> DATE DAY LOCATION VENUE TIME <%= nextDate %> <%= WeekdayName(Weekday(nextDate)) %> <%= rsCatalog("tour_city")%>  <%= rsCatalog("tour_state")%> <%= rsCatalog("tour_venue")%> <%= rsCatalog("tour_time")%> <% else %> <% For j=1 to ttlRows if (artNumber(j) = CInt(artistnumber)) then %> <% Set rsCatalog = Server.CreateObject("ADODB.Recordset") checkCat = "SELECT * FROM tourdates WHERE artist_id=" & artistnumber & " ORDER BY tour_date" rsCatalog.Open checkCat, dbAgentDat If Not rsCatalog.eof Then firstRow = 0 Do Until rsCatalog.eof nextDate = rsCatalog("tour_date") If DateDiff("d", currentDate, nextDate) > 0 Then If firstRow = 0 Then %> <% firstRow = 1 %> <% End If %> <% End If rsCatalog.MoveNext Loop End If End If Next %>   <%= UCase(artName(j))%> DATE DAY LOCATION VENUE TIME <%= nextDate %> <%= WeekdayName(Weekday(nextDate)) %> <%= rsCatalog("tour_city")%> <%= rsCatalog("tour_state")%> <%= rsCatalog("tour_venue")%> <%= rsCatalog("tour_time")%> <% end if %>