<% strId = request("Id") ' Create a recordset object to store specific table information Set objRS = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From CDListing where BandId = " & strId & " AND ShowDate >= #" & Date() & "# order by ShowDate" 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 %>

SHOW DATES

<% if not objrs.EOF then %> <%= ucase(objRS("Band")) %>'S SHOWS DATES:
<% end if %> <%= objRs.RecordCount %> shows listed by show date.

<% if not objrs.EOF then %> <% while not objRs.eof %> <% objRs.movenext %> <% wend %>
  Show Date   Club   City   State
"><%= objRs("ShowDate") %> <%= objRs("Club") %> <%= objRs("City") %> <%= objRs("State") %>
<% else %>

Currently we do not have any shows listed for this band. <% end if %>