<% 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 = '4' or AccessLevel = '8') 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 %>

SERVICE COMPANY SEARCH

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

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

<%= objRs.RecordCount %> Service Companies Listed in Alphabetical Order.

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

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

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

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