<% 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 = '2' or AccessLevel = '6') order by FirstName" 'Set the recordset object equal to the SQL query string objRS.Open SQL, objADO, 1, 3 %>

DEALER SEARCH

Dealers for <%= strAgency %> are listed below.

<% if not objrs.EOF then %> <% while not objRs.eof %> <% objRs.movenext %> <% wend %>
  Name   Phone   Email   View Listings
"><%= objRs("firstName")%>
<%= objRs("LastName")%> 		<%= formatphonenumber(objRs("PhoneNumber"))%> "><%= objRs("EmailAddress")%> ">My Listings
<% else %>

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