Here is the list you requested!
Street Name |
Distance From East |
Nearest Intersection to the East |
Type of Intersection |
Map |
<% 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"%>
<%=arrStreets(1,x) %> |
<%=arrStreets(2,x)%> |
<%=arrStreets(3,x)%> |
<% 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 %>
<%=IntSectType%> |
<%=map%> |
<%Next %>