<%@ Language=VBScript %> Kimbrells.com - Store Locations
<% if (request("city") <> "") and (request("city") <> "NA") then %>


Find the store nearest you.

 

<% if (request("state") = "NA") or (request("state") = "") or ((request("city") <> "") and (request("city") <> "NA")) then %> 1. Select a state.
<% elseif (request("city") = "NA") or (request("city") = "") then%> >

2. Select a city.
<% end if %>




Search Results for <%= request("city") %>, <%= request("State") %>:

<% dim rsetLocations SQL = "select city, Address, Zip, [Area Code], Phone FROM Locations where city = '" & request("city") & "'" set rsetLocations = objConn.execute(SQL) while not (rsetLocations.EOF) Response.Write("") Response.Write("") Response.Write("") Response.Write("") rsetLocations.movenext wend Response.Write("") set rsetLocations = nothing end if %>
Address Zip Code Phone Number
" & rsetLocations("Address") & "" & rsetLocations("Zip") & "(" & rsetLocations("Area Code") & ") " & rsetLocations("Phone") & "