<%
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
%>
Winton Hills, FMP Floor Plans
