% 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 %>
|
![]() ![]() |
|
Covedale Architectural Drawings Architect: KZF Design The new Covedale School, designed by KZF Design Inc., will be a 66,000-square-foot school for 450 students in preschool through sixth grade. It will be constructed on the school's Sidney Road campus in the same location as the current building. (Covedale School's temporary home during construction is on Midway Avenue.) The three-story building's style will be similar to collegiate gothic with red brick and white stone accents. Much of the current green space will be preserved, as well as the baseball field. A three-story atrium will bring light into the building's core.
|