<% if session("username") = "" then Response.Redirect "login.asp?Return=AgentSearch.asp" end if %> <% ' 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 TblAlphabet" '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 distinct AgencyName From TblLogin where (AccessLevel = '2' or AccessLevel = '6') order by AgencyName" 'Set the recordset object equal to the SQL query string objRS2.Open SQL, objADO, 1, 3 ' Create a recordset object to store specific table information Set objRS3 = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblStates order by StateId" 'Set the recordset object equal to the SQL query string objRS3.Open SQL, objADO, 1, 3 %>

DEALERSHIP / DEALER SEARCH

Find a dealer by alphabetical listing, office, or state.

1. Find A Dealer by Alphabetical Listing:
<% while not objRS.EOF %> <% objRs.MoveNext %> <% wend %>

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

2. Find A Dealer by Dealership: