<% strLetter = request("Letter") ' 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 TblLogin where AgencyName like '" + strLetter + "%' and (AccessLevel = '3' or AccessLevel = '7') order by AgencyName" 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 ' Create a recordset object to store specific table information Set objRS2 = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblAlphabet" 'Set the recordset object equal to the SQL query string objRS2.Open SQL, objADO, 1, 3 %>

BAND SEARCH

Bands By Alphabetical Listing: <%= strLetter %>
<% while not objRS2.EOF %> <% objRs2.MoveNext %> <% wend %>

"><%= objRS2("Alphabet") %>

<%= objRs.RecordCount %> Bands Listed in Alphabetical Order.

<% if not objrs.EOF then %> <% while not objRs.eof %> <% objRs.movenext %> <% wend %>

Name Genre City State View Shows / Band Detail
<% if objRS("Picture1") <> "" then %> ">" border="0" width=60> <% end if %> "><%= objRs("AgencyName")%> <%= objRs("Genre") %> <%= objRs("City") %> <%= objRs("State") %> ">[ View Shows ] ">[ View Band Detail ]

<% else %>

Currently we do not have bands that begin with the letter <%= strLetter %>. New bands are always being added. Please check back again soon. <% end if %>

Name		Genre	City	State	View Shows / Band Detail
<% if objRS("Picture1") <> "" then %> ">" border="0" width=60> <% end if %>	"><%= objRs("AgencyName")%>	<%= objRs("Genre") %>	<%= objRs("City") %>	<%= objRs("State") %>	">[ View Shows ] ">[ View Band Detail ]