Line 1: #ExternalChecksum("E:\inetpub\public\Schools\evhs\people\Gustafsaweb\default.aspx","{406ea660-64cf-4c82-b6f0-42d48172a799}","664F2C867915E246D78096CDBD426851")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:2.0.50727.8806
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Specialized
Line 19: Imports System.Configuration
Line 20: Imports System.Text
Line 21: Imports System.Text.RegularExpressions
Line 22: Imports System.Web
Line 23: Imports System.Web.Caching
Line 24: Imports System.Web.Profile
Line 25: Imports System.Web.Security
Line 26: Imports System.Web.SessionState
Line 27: Imports System.Web.UI
Line 28: Imports System.Web.UI.HtmlControls
Line 29: Imports System.Web.UI.WebControls
Line 30: Imports System.Web.UI.WebControls.WebParts
Line 31:
Line 32: Namespace ASP
Line 33:
Line 34: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 35: Public Class people_gustafsaweb_default_aspx
Line 36: Inherits Global.System.Web.UI.Page
Line 37: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 38:
Line 39: Private Shared __initialized As Boolean
Line 40:
Line 41: Private Shared __stringResource As Object
Line 42:
Line 43: Private Shared __fileDependencies As Object
Line 44:
Line 45: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 46: Public Sub New()
Line 47: MyBase.New
Line 48: Dim dependencies() As String
Line 49: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/people/Gustafsaweb/default.aspx"
Line 50: If (Global.ASP.people_gustafsaweb_default_aspx.__initialized = false) Then
Line 51: Global.ASP.people_gustafsaweb_default_aspx.__stringResource = Me.ReadStringResource
Line 52: dependencies = New String(12) {}
Line 53: dependencies(0) = "~/inc/menus/students.asp"
Line 54: dependencies(1) = "~/news/newsmenu.asp"
Line 55: dependencies(2) = "~/inc/menus/activities.asp"
Line 56: dependencies(3) = "~/inc/menus/today.asp"
Line 57: dependencies(4) = "~/pride/pridemenu.asp"
Line 58: dependencies(5) = "~/inc/menus/mediacenter.asp"
Line 59: dependencies(6) = "~/inc/menu.asp"
Line 60: dependencies(7) = "~/people/Gustafsaweb/default.aspx"
Line 61: dependencies(8) = "~/inc/menus/about.asp"
Line 62: dependencies(9) = "~/inc/header.asp"
Line 63: dependencies(10) = "~/inc/menus/people.asp"
Line 64: dependencies(11) = "~/inc/menus/athletics.asp"
Line 65: dependencies(12) = "~/inc/menus/academics.asp"
Line 66: Global.ASP.people_gustafsaweb_default_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 67: Global.ASP.people_gustafsaweb_default_aspx.__initialized = true
Line 68: End If
Line 69: Me.Server.ScriptTimeout = 30000000
Line 70: End Sub
Line 71:
Line 72: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 73: Get
Line 74: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 75: End Get
Line 76: End Property
Line 77:
Line 78: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 79: Get
Line 80: Return false
Line 81: End Get
Line 82: End Property
Line 83:
Line 84: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 85: Get
Line 86: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 87: End Get
Line 88: End Property
Line 89:
Line 90: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 91: Private Sub __BuildControlTree(ByVal __ctrl As people_gustafsaweb_default_aspx)
Line 92:
Line 93: #ExternalSource("E:\inetpub\public\Schools\evhs\people\Gustafsaweb\default.aspx",1)
Line 94: Me.InitializeCulture
Line 95:
Line 96: #End ExternalSource
Line 97: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 98: End Sub
Line 99:
Line 100: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 101: __w.Write("<!-- TemplateBeginEditable name=""Header"" -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 102:
Line 103: #ExternalSource("E:\inetpub\public\Schools\evhs\people\Gustafsaweb\default.aspx",2)
Line 104:
Line 105: 'Category should be "Home", "About", "Academics", "Activities", "Athletics", "Media Center", "People",
Line 106: '"Student Services", "Today", or just leave it blank if it doesn't fall in to a category.
Line 107: 'Sites should be categorized as best as possible.
Line 108: Category = "People" 'insert your category between the quotes.
Line 109: 'Enter page header here:
Line 110: PageHeader = "Mr Gustafson's Web Page" 'insert your page header between the quotes.
Line 111:
Line 112:
Line 113: #End ExternalSource
Line 114: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!-- TemplateEndEditable -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 115: __w.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 116: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<link rel=""shortcut icon"" href=""http://public.district196.org/evhs/favicon.ico"& _
Line 117: """ >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 118:
Line 119: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",7)
Line 120:
Line 121: IF PageHeader = "" THEN
Line 122: Response.Write "Eastview High School"
Line 123: ELSE
Line 124: Response.Write "EVHS > "& PageHeader
Line 125: END IF
Line 126:
Line 127:
Line 128: #End ExternalSource
Line 129: Me.WriteUTF8ResourceString(__w, 0, 3660, true)
Line 130:
Line 131: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",106)
Line 132:
Line 133:
Line 134: 'Pass the name of the file to the function.
Line 135: Function getFileContents(strIncludeFile)
Line 136: Dim objFSO
Line 137: Dim objText
Line 138: Dim strPage
Line 139:
Line 140:
Line 141: 'Instantiate the FileSystemObject Object.
Line 142: Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Line 143:
Line 144:
Line 145: 'Open the file and pass it to a TextStream Object (objText). The
Line 146: '"MapPath" function of the Server Object is used to get the
Line 147: 'physical path for the file.
Line 148: Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile))
Line 149:
Line 150:
Line 151: 'Read and return the contents of the file as a string.
Line 152: getFileContents = objText.ReadAll
Line 153:
Line 154: objText.Close
Line 155: Set objText = Nothing
Line 156: Set objFSO = Nothing
Line 157: End Function
Line 158:
Line 159:
Line 160: '''''''''''''''''''''''''''''''''''
Line 161: Dim page
Line 162: SET FSO = Server.CreateObject("Scripting.FileSystemObject")
Line 163: IF FSO.FileExists(Server.MapPath("sidemenu.asp"))=true THEN
Line 164: page = getFileContents("sidemenu.asp")
Line 165: ELSE
Line 166: page = getFileContents("/evhs/inc/sidemenu.asp")
Line 167: END IF
Line 168:
Line 169: Response.Write(page)
Line 170:
Line 171:
Line 172:
Line 173: #End ExternalSource
Line 174: Me.WriteUTF8ResourceString(__w, 3660, 478, true)
Line 175:
Line 176: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",154)
Line 177: IF Category = "" THEN Response.Write "Menu" ELSE Response.Write Category END IF
Line 178:
Line 179: #End ExternalSource
Line 180: Me.WriteUTF8ResourceString(__w, 4138, 356, true)
Line 181:
Line 182: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",160)
Line 183: IF Category = "About" THEN
Line 184:
Line 185: #End ExternalSource
Line 186: Me.WriteUTF8ResourceString(__w, 4494, 772, true)
Line 187:
Line 188: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",162)
Line 189: ELSE IF Category = "Academics" THEN
Line 190:
Line 191: #End ExternalSource
Line 192: Me.WriteUTF8ResourceString(__w, 5266, 505, true)
Line 193:
Line 194: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",164)
Line 195: ELSE IF Category = "Activities" THEN
Line 196:
Line 197: #End ExternalSource
Line 198: Me.WriteUTF8ResourceString(__w, 5771, 914, true)
Line 199:
Line 200: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",166)
Line 201: ELSE IF Category = "Athletics" THEN
Line 202:
Line 203: #End ExternalSource
Line 204: Me.WriteUTF8ResourceString(__w, 6685, 897, true)
Line 205:
Line 206: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",168)
Line 207: ELSE IF Category = "Media Center" THEN
Line 208:
Line 209: #End ExternalSource
Line 210: Me.WriteUTF8ResourceString(__w, 7582, 336, true)
Line 211:
Line 212: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",170)
Line 213: ELSE IF Category = "People" THEN
Line 214:
Line 215: #End ExternalSource
Line 216: Me.WriteUTF8ResourceString(__w, 7918, 451, true)
Line 217:
Line 218: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",172)
Line 219: ELSE IF Category = "Student Services" THEN
Line 220:
Line 221: #End ExternalSource
Line 222: Me.WriteUTF8ResourceString(__w, 8369, 532, true)
Line 223:
Line 224: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",174)
Line 225: ELSE IF Category = "Today" THEN
Line 226:
Line 227: #End ExternalSource
Line 228: Me.WriteUTF8ResourceString(__w, 8901, 657, true)
Line 229:
Line 230: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",176)
Line 231: ELSE
Line 232:
Line 233: #End ExternalSource
Line 234: Me.WriteUTF8ResourceString(__w, 9558, 480, true)
Line 235:
Line 236: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",178)
Line 237:
Line 238: END IF
Line 239: END IF
Line 240: END IF
Line 241: END IF
Line 242: END IF
Line 243: END IF
Line 244: END IF
Line 245: END IF
Line 246:
Line 247:
Line 248: #End ExternalSource
Line 249: Me.WriteUTF8ResourceString(__w, 10038, 282, true)
Line 250:
Line 251: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",195)
Line 252: IF SpecialPage = 1 THEN
Line 253:
Line 254: #End ExternalSource
Line 255: Me.WriteUTF8ResourceString(__w, 10320, 922, true)
Line 256: Me.WriteUTF8ResourceString(__w, 11242, 553, true)
Line 257: Me.WriteUTF8ResourceString(__w, 11795, 1794, true)
Line 258: Me.WriteUTF8ResourceString(__w, 13589, 565, true)
Line 259: Me.WriteUTF8ResourceString(__w, 14154, 608, true)
Line 260:
Line 261: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",245)
Line 262: END IF
Line 263:
Line 264: #End ExternalSource
Line 265: Me.WriteUTF8ResourceString(__w, 14762, 288, true)
Line 266:
Line 267: #ExternalSource("E:\inetpub\public\Schools\evhs\inc\header.asp",249)
Line 268: IF PageHeader = "" THEN
Line 269: Response.Write "Eastview High School"
Line 270: ELSE
Line 271: Response.Write PageHeader
Line 272: END IF
Line 273:
Line 274:
Line 275: #End ExternalSource
Line 276: Me.WriteUTF8ResourceString(__w, 15050, 447, true)
Line 277: Me.WriteUTF8ResourceString(__w, 15497, 14209, true)
Line 278: End Sub
Line 279:
Line 280: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 281: Protected Overrides Sub FrameworkInitialize()
Line 282: MyBase.FrameworkInitialize
Line 283: Me.SetStringResourcePointer(Global.ASP.people_gustafsaweb_default_aspx.__stringResource, 0)
Line 284: Me.__BuildControlTree(Me)
Line 285: Me.AddWrappedFileDependencies(Global.ASP.people_gustafsaweb_default_aspx.__fileDependencies)
Line 286: Me.Request.ValidateInput
Line 287: End Sub
Line 288:
Line 289: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 290: Public Overrides Function GetTypeHashCode() As Integer
Line 291: Return -1381655955
Line 292: End Function
Line 293:
Line 294: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 295: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 296: MyBase.ProcessRequest(context)
Line 297: End Sub
Line 298: End Class
Line 299: End Namespace
Line 300:
|