<%
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
%>
Pleasant Hill, FMP Floor Plans
Pleasant Hill Floor Plans Architect: Burgess
& Niple Limited
Front Views
The new
school's front entrance, as seen driving east on North Bend Road. The
round section is the school's media center.
A closer view of the school's main entrance and media
center.
Side View
The
front view of the new Pleasant Hill School as seen driving west on North
Bend Road.
