% 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 %>
|
![]() ![]() |
|
Roll Hill Floor Plans Architect: Roth Partnership/Lesko Associates Front View
Aerial View
|