<% BeginChar = request("b") EndChar = request("e") SingleLetter = request("l") set oConn = server.createobject("adodb.connection") oConn.open strConn If (BeginChar = "") AND (EndChar ="") AND (SingleLetter = "") Then SingleLetter = "A" Message = "Displaying States with letter between " & BeginChar & " and " & EndChar Elseif (BeginChar = "") OR (EndChar ="") Then Message = "Displaying States with letter beginning with " & SingleLetter Else SingleLetter = "" Message = "Displaying States with letter between " & BeginChar & " and " & EndChar End If %>
<% sql = "SELECT ID, CompanyName, Address, City, State, PostalCode, Country, PhoneNumber, Extension, Lon, Lat " _ & " FROM Retailers " IF SingleLetter = "" Then sql = sql & " WHERE State BETWEEN '"& BeginChar &"%' AND '"& EndChar &"%' " ELSE sql = sql & " WHERE State LIKE '"& SingleLetter &"%'" END IF sql = sql & " ORDER BY State, City " 'Response.Write(sql) set rs = oConn.execute(sql) count = 0 If rs.EOF Then %> <%Else Do While (Not rs.EOF) If bgColor = "tablebgcolor2" then bgColor = "tablebgcolor1" else bgColor = "tablebgcolor2" end if count =count +1 %> "> <% rs.MoveNext Loop End if%>

 RETAIL ADMINISTRATION

Display States that range from  A-G | H-O| P-Z or choose a single letter below

A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z
   

<%=Message%>

Company City State

 

 
No Record(s)
<%=rs.fields("CompanyName")%> <%=rs.fields("City")%> <%=rs.fields("State")%>
<%=count%> Record(s) Displayed
<% rs.close set rs = Nothing Set oConn= Nothing %>