<% strAgency = request("Agency") strAccessLevel = session("AccessLevel") ' 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 = '" + strAgency + "' and (AccessLevel = '4' or AccessLevel = '4') order by FirstName" 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 %>

SERVICE COMPANY SEARCH

Service companies are listed below.

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

Company Name Category Email View Company Detail
<% if objRS("Picture1") <> "" then %> ">" border="0" width=60> <% end if %> "><%= objRs("AgencyName")%> <%= objRs("ServiceCategory")%> "><%= objRs("EmailAddress")%> ">[ View Company Detail ]
<% else %>

Currently we do not have bands named <%= objRS("AgencyName") %> listed. We are always adding new affiliations. Please check back again soon. <% end if %>

Company Name		Category	Email	View Company Detail
<% if objRS("Picture1") <> "" then %> ">" border="0" width=60> <% end if %>	"><%= objRs("AgencyName")%>	<%= objRs("ServiceCategory")%>	"><%= objRs("EmailAddress")%>	">[ View Company Detail ]