<% if request("state") <>"" Then where = "Where state = '" & request("state") &"'" End IF sql = "SELECT * FROM callme " & where & " order by state, city " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql ,objDataConn,adOpenKeyset,adLockOptimistic,adCmdText do while not rs.eof %> <% rs.moveNext loop rs.close set rs=nothing %>

Super China ACCESS PHONE NUMBERS
<% sql = "SELECT distinct state FROM callme order by state " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql ,objDataConn,adOpenKeyset,adLockOptimistic,adCmdText intCount = 0 do while not rs.eof intCount = intCount +1 if intCount = 21 then %> <% End IF%> <% rs.moveNext loop rs.close set rs=nothing %>  ACCESS FROM: ALL AVAILABLE   "><%=rs("state")%>
STATE	CITY/LOCATION	PHONE	LANGUAGE
<%=rs("state")%>	<%=rs("city")%>	<%=rs("didFormatted")%>	<%=rs("lang")%>