<%
Option Explicit 'You must dim all variables before using them.
Response.Buffer = True 'Hold web pages on the server until they are done
Response.Expires = 0 'Since this site is entirely data driven, web pages should expire as soon as they are created.
On Error Resume Next
'Declare all variables.
Dim strSQL
Dim dataconn
Dim rsHighSchools
Dim rsSatelliteSchools
Dim rsElemSchools
Dim strOutput
Dim strGrades
Dim strBegGrade
Dim strEndGrade
Dim strInterim
Dim strCounter
Dim strTimes
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
'---- CursorLocationEnum Values ----
Const adUseNone = 1
Const adUseServer = 2
Const adUseClient = 3
Const adUseClientBatch = 3
'Get connection to database
Set dataconn = Server.CreateObject("ADODB.Connection")
dataconn.ConnectionString ="PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=198.203.127.110;DATABASE=theMap;UID=web_visitor;PWD=web_visitor;"
dataconn.Open
%>
Rockdale, FMP Photos
Rockdale Floor Plans Architect: GBBN Architects,
Inc. and WA
Inc.
Front Views
The northern facade of the school on Rockdale Avenue.
The southern view facing Northern Avenue.
Aerial View
A bird's eye view of the proposed new Rockdale school in
Avondale, Rockdale Avenue is at the top, and the current Rockdale school,
slated for demolition, is located where basketball and tennis courts are
drawn.
