Here is the list you requested!

<% dim conData, strSQL, rsStreets, arrStreets If Request.QueryString("s") = "a" Then strSQL = "SELECT * FROM SCData Order By StreetName" Else strSQL = "SELECT * FROM SCData Order by MilesFromEastPoint" End If Set conData = Server.CreateObject("ADODB.Connection") 'to create an instance of a Connection objectconData.ConnectionString ="DSN=Andrew"conData.OpenSet rsStreets = Server.CreateObject("adodb.recordset") 'to create an instance of a Recordset objectrsStreets.Open strSQL,conData 'pass in the SQL, Connection ObjectarrStreets = rsStreets.GetRows 'Convert the Recordset into an ArraySet rsStreets = Nothing 'Destroy the Recordset conData.Close 'Close the ConnectionSet conData = Nothing 'Destroy the Connection For x = 0 to UBound(arrStreets,2) 'find out how many rows of data are there dim mapmap = "East" & arrStreets(5,x) & ".htm"%> <% dim IntSectType Select Case arrStreets(4,x) Case 0 IntSectType = "Bridge" Case 1 IntSectType = "Underpass" Case 2 IntSectType = "Trestle" Case 3 IntSectType = "Tunnel" End Select %> <%Next %>
Street Name Distance From East Nearest Intersection to the East Type of Intersection Map
<%=arrStreets(1,x) %> <%=arrStreets(2,x)%> <%=arrStreets(3,x)%><%=IntSectType%> <%=map%>