<%
strState = request("State")
session("State") = strState
' 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 distinct AgencyName, City, State From TblLogin where State = '" + strState + "' and (AccessLevel = '2' or AccessLevel = '6') order by city"
'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 objState = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Select * From TblStates where (StateName = '" + strState + "')"
'Set the recordset object equal to the SQL query string
objState.Open SQL, objADO, 1, 3
%>
DEALER SEARCH
<% if not objrs.EOF then %>
Dealerships for the state of <%= objState("StateName") %> are listed below.
Click on each dealership to get a list of dealers within that dealership.
|
Office
|
City
|
State
|
<% while not objRs.eof %>
|
"><%= objRs("AgencyName")%>
|
<%= objRs("City")%>
|
<%= objRs("State")%>
|
<% objRs.movenext %>
<% wend %>
<% else %>
Currently we do not have dealers / dealerships listed in <%= objState("StateName") %>.
We are always adding new affiliations. Please check back again soon.
<% end if %>