Line 1: #ExternalChecksum("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","44FF4829ED89794705B55F8F3AAE4A06E8A3B1C9")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
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.IO
Line 21: Imports System.Text
Line 22: Imports System.Text.RegularExpressions
Line 23: Imports System.Web
Line 24: Imports System.Web.Caching
Line 25: Imports System.Web.DynamicData
Line 26: Imports System.Web.Profile
Line 27: Imports System.Web.Security
Line 28: Imports System.Web.SessionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.HtmlControls
Line 31: Imports System.Web.UI.WebControls
Line 32: Imports System.Web.UI.WebControls.Expressions
Line 33: Imports System.Web.UI.WebControls.WebParts
Line 34:
Line 35: Namespace ASP
Line 36:
Line 37: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 38: Public Class _1988criterion_aspx
Line 39: Inherits Global.System.Web.UI.Page
Line 40: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 41:
Line 42:
Line 43: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",144)
Line 44: Protected WithEvents LeftSideTitle As Global.System.Web.UI.WebControls.Label
Line 45:
Line 46: #End ExternalSource
Line 47:
Line 48:
Line 49: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",148)
Line 50: Protected WithEvents RightSideTitle As Global.System.Web.UI.WebControls.Label
Line 51:
Line 52: #End ExternalSource
Line 53:
Line 54:
Line 55: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",164)
Line 56: Protected WithEvents LLink As Global.System.Web.UI.WebControls.HyperLink
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60:
Line 61: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",167)
Line 62: Protected WithEvents RLink As Global.System.Web.UI.WebControls.HyperLink
Line 63:
Line 64: #End ExternalSource
Line 65:
Line 66:
Line 67: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",173)
Line 68: Protected WithEvents PDFLeft As Global.System.Web.UI.WebControls.HyperLink
Line 69:
Line 70: #End ExternalSource
Line 71:
Line 72:
Line 73: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",174)
Line 74: Protected WithEvents PDFRight As Global.System.Web.UI.WebControls.HyperLink
Line 75:
Line 76: #End ExternalSource
Line 77:
Line 78:
Line 79: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",181)
Line 80: Protected WithEvents LLink2 As Global.System.Web.UI.WebControls.HyperLink
Line 81:
Line 82: #End ExternalSource
Line 83:
Line 84:
Line 85: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 86: Protected WithEvents DDL1 As Global.System.Web.UI.WebControls.DropDownList
Line 87:
Line 88: #End ExternalSource
Line 89:
Line 90:
Line 91: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",197)
Line 92: Protected WithEvents SelectClassButton As Global.System.Web.UI.WebControls.Button
Line 93:
Line 94: #End ExternalSource
Line 95:
Line 96:
Line 97: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",202)
Line 98: Protected WithEvents GotoPage As Global.System.Web.UI.WebControls.TextBox
Line 99:
Line 100: #End ExternalSource
Line 101:
Line 102:
Line 103: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",203)
Line 104: Protected WithEvents GoToPageButton As Global.System.Web.UI.WebControls.Button
Line 105:
Line 106: #End ExternalSource
Line 107:
Line 108:
Line 109: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",210)
Line 110: Protected WithEvents PrevLink As Global.System.Web.UI.WebControls.HyperLink
Line 111:
Line 112: #End ExternalSource
Line 113:
Line 114:
Line 115: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",211)
Line 116: Protected WithEvents NextLink As Global.System.Web.UI.WebControls.HyperLink
Line 117:
Line 118: #End ExternalSource
Line 119:
Line 120:
Line 121: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",230)
Line 122: Protected WithEvents Label5 As Global.System.Web.UI.WebControls.Label
Line 123:
Line 124: #End ExternalSource
Line 125:
Line 126:
Line 127: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",234)
Line 128: Protected WithEvents label6 As Global.System.Web.UI.WebControls.Label
Line 129:
Line 130: #End ExternalSource
Line 131:
Line 132:
Line 133: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 134: Protected WithEvents Form1 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 135:
Line 136: #End ExternalSource
Line 137:
Line 138: Private Shared __initialized As Boolean
Line 139:
Line 140: Private Shared __stringResource As Object
Line 141:
Line 142: Private Shared __fileDependencies As Object
Line 143:
Line 144:
Line 145: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",4)
Line 146:
Line 147: Dim LImageUrl As String
Line 148: Dim RImageUrl As String
Line 149: Dim imgIndex As Integer = 0
Line 150: Dim ImageArray As New ArrayList
Line 151: Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Line 152: Dim X1 As Integer
Line 153: Dim ImageCount As Integer = 200
Line 154: Dim PageCount As Integer = ImageCount - 4
Line 155: If Request.QueryString("Count") = "Admin" Then
Line 156: Session("NoCounter") = "True"
Line 157: End If
Line 158: If Not Request.QueryString("N") Is Nothing AndAlso IsNumeric(Request.QueryString("N")) Then
Line 159: imgIndex = CInt(Request.QueryString("N"))
Line 160: End If
Line 161: If imgIndex < ImageCount - 2 Then NextLink.NavigateUrl = "1988Criterion.aspx?N=" & imgIndex + 2
Line 162: If imgIndex = 0 Then NextLink.NavigateUrl = "1988Criterion.aspx?N=1"
Line 163: If imgIndex > 0 Then
Line 164: If imgIndex = 1 Then
Line 165: PrevLink.NavigateUrl = "1988Criterion.aspx?N=0"
Line 166: Else
Line 167: PrevLink.NavigateUrl = "1988Criterion.aspx?N=" & imgIndex - 2
Line 168: End If
Line 169: End If
Line 170: If Request.QueryString("N") Is Nothing Or Session("PageArray1988") Is Nothing Then
Line 171: ImageArray.Insert(0, "Cover.jpg")
Line 172: ImageArray.Insert(1, "Inside Cover Left.jpg")
Line 173: ImageArray.Insert(2, "Inside Cover Right.jpg")
Line 174: ImageArray.Insert(3, "Page a.jpg")
Line 175: For X1 = 1 To PageCount
Line 176: ImageArray.Insert(X1 + 3, "Page " & X1.ToString & ".jpg")
Line 177: Next
Line 178: Session("PageArray1988") = ImageArray
Line 179: 'Dim ClientIP As String = Request.UserHostAddress()
Line 180: 'Dim X2 As Integer
Line 181: 'Dim objCon As New SqlConnection("Data Source=criterioncounter.db.5149998.hostedresource.com;Initial Catalog=criterioncounter;Persist Security Info=True;User ID=criterioncounter;Password=Has00050")
Line 182: 'objCon.Open()
Line 183: 'Dim cmd As New SqlCommand("SELECT * FROM [CHC] where [Book] like '1988'", objCon)
Line 184: 'Dim R1 As SqlDataReader = cmd.ExecuteReader
Line 185: 'R1.Read()
Line 186: 'X2 = R1(1) + 1
Line 187: 'R1.Close()
Line 188: 'cmd.CommandText = "Update [CHC] SET [Visitors]=" & X2.ToString & ", [Hit Date]='" & DateTime.Now.AddHours(1).ToString & "' where [Book] like '1988'"
Line 189: 'R1 = cmd.ExecuteReader()
Line 190: 'R1.Close()
Line 191: 'objCon.Close()
Line 192: End If
Line 193:
Line 194: If imgIndex < ImageCount Then
Line 195: Dim TempRST As String = Nothing
Line 196: LeftSideTitle.Text = Path.GetFileNameWithoutExtension(Session("PageArray1988")(imgIndex))
Line 197:
Line 198: LLink.Target = "_blank"
Line 199: LLink.NavigateUrl = "PopUpPage.aspx?IUrl=" & "1988Images/" & LeftSideTitle.Text &
Line 200: ".jpg&PageN=" & LeftSideTitle.Text & "&YearB=1988"
Line 201: LLink2.Target = "_blank"
Line 202: LLink2.NavigateUrl = "PopUpPage.aspx?IUrl=" & "1988Images/" & LeftSideTitle.Text &
Line 203: ".jpg&PageN=" & LeftSideTitle.Text & "&YearB=1988"
Line 204: LImageUrl = "1988Thumbs/" & Session("PageArray1988")(imgIndex)
Line 205: If imgIndex < 199 Then
Line 206: TempRST = Path.GetFileNameWithoutExtension(Session("PageArray1988")(imgIndex + 1))
Line 207: RightSideTitle.Text = Path.GetFileNameWithoutExtension(Session("PageArray1988")(imgIndex + 1)) & " of " & PageCount.ToString
Line 208: RImageUrl = "1988Thumbs/" & Session("PageArray1988")(imgIndex + 1)
Line 209:
Line 210: RLink.Target = "_blank"
Line 211: RLink.NavigateUrl = "PopUpPage.aspx?IUrl=" & "1988Images/" & TempRST &
Line 212: ".jpg&PageN=" & TempRST & "&YearB=1988"
Line 213: End If
Line 214: 'Dim X2 As Integer
Line 215: 'Dim objCon As New SqlConnection("Data Source=criterioncounter.db.5149998.hostedresource.com;Initial Catalog=criterioncounter;Persist Security Info=True;User ID=criterioncounter;Password=Has00050")
Line 216: 'objCon.Open()
Line 217: 'Dim cmd As New SqlCommand("SELECT * FROM [CHC] where [Book] like '1988'", objCon)
Line 218: 'Dim R1 As SqlDataReader = cmd.ExecuteReader
Line 219: 'R1.Read()
Line 220: 'X2 = R1(2) + 1
Line 221: 'R1.Close()
Line 222: 'cmd.CommandText = "Update [CHC] SET [Hits]=" & X2.ToString & ", [Hit Date]='" & DateTime.Now.AddHours(1).ToString & "' where [Book] like '1988'"
Line 223: 'R1 = cmd.ExecuteReader()
Line 224: 'R1.Close()
Line 225: objCon.Close()
Line 226: End If
Line 227: End Sub
Line 228:
Line 229: Sub PageButtonSub(ByVal Source As Object, ByVal e As EventArgs)
Line 230: If Me.GotoPage.Text = "" Then Exit Sub
Line 231: If Val(Me.GotoPage.Text) <= 0 Then Exit Sub
Line 232: If Val(Me.GotoPage.Text) > Me.ImageArray.Count Then Exit Sub
Line 233: Dim PageNum As Integer = Me.GotoPage.Text
Line 234: If PageNum Mod 2 = 0 Then
Line 235: PageNum += 3
Line 236: Response.Redirect("1988Criterion.aspx?N=" & PageNum.ToString)
Line 237: Else
Line 238: PageNum += 2
Line 239: Response.Redirect("1988Criterion.aspx?N=" & PageNum.ToString)
Line 240: End If
Line 241: End Sub
Line 242:
Line 243: Sub SelectClassSub(ByVal Source As Object, ByVal e As EventArgs)
Line 244: Dim PageNum As Integer = Me.DDL1.Text
Line 245: If PageNum Mod 2 = 0 Then
Line 246: PageNum += 3
Line 247: Response.Redirect("1988Criterion.aspx?N=" & PageNum.ToString)
Line 248: Else
Line 249: PageNum += 2
Line 250: Response.Redirect("1988Criterion.aspx?N=" & PageNum.ToString)
Line 251: End If
Line 252: End Sub
Line 253:
Line 254: #End ExternalSource
Line 255:
Line 256:
Line 257: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 258: Public Sub New()
Line 259: MyBase.New
Line 260: Dim dependencies() As String
Line 261: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/1988Criterion.aspx"
Line 262: If (Global.ASP._1988criterion_aspx.__initialized = false) Then
Line 263: Global.ASP._1988criterion_aspx.__stringResource = Me.ReadStringResource
Line 264: dependencies = New String(0) {}
Line 265: dependencies(0) = "~/1988Criterion.aspx"
Line 266: Global.ASP._1988criterion_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 267: Global.ASP._1988criterion_aspx.__initialized = true
Line 268: End If
Line 269: Me.Server.ScriptTimeout = 30000000
Line 270: End Sub
Line 271:
Line 272: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 273: Get
Line 274: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 275: End Get
Line 276: End Property
Line 277:
Line 278: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 279: Get
Line 280: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 281: End Get
Line 282: End Property
Line 283:
Line 284: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 285: Private Function __BuildControlLeftSideTitle() As Global.System.Web.UI.WebControls.Label
Line 286: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 287:
Line 288: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",144)
Line 289: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 290:
Line 291: #End ExternalSource
Line 292: Me.LeftSideTitle = __ctrl
Line 293: __ctrl.ApplyStyleSheetSkin(Me)
Line 294:
Line 295: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",144)
Line 296: __ctrl.ID = "LeftSideTitle"
Line 297:
Line 298: #End ExternalSource
Line 299:
Line 300: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",144)
Line 301: __ctrl.CssClass = "ImageTitle"
Line 302:
Line 303: #End ExternalSource
Line 304: Return __ctrl
Line 305: End Function
Line 306:
Line 307: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 308: Private Function __BuildControlRightSideTitle() As Global.System.Web.UI.WebControls.Label
Line 309: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 310:
Line 311: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",148)
Line 312: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 313:
Line 314: #End ExternalSource
Line 315: Me.RightSideTitle = __ctrl
Line 316: __ctrl.ApplyStyleSheetSkin(Me)
Line 317:
Line 318: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",148)
Line 319: __ctrl.ID = "RightSideTitle"
Line 320:
Line 321: #End ExternalSource
Line 322:
Line 323: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",148)
Line 324: __ctrl.CssClass = "ImageTitle"
Line 325:
Line 326: #End ExternalSource
Line 327: Return __ctrl
Line 328: End Function
Line 329:
Line 330: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 331: Private Function __BuildControlLLink() As Global.System.Web.UI.WebControls.HyperLink
Line 332: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 333:
Line 334: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",164)
Line 335: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 336:
Line 337: #End ExternalSource
Line 338: Me.LLink = __ctrl
Line 339: __ctrl.ApplyStyleSheetSkin(Me)
Line 340:
Line 341: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",164)
Line 342: __ctrl.ID = "LLink"
Line 343:
Line 344: #End ExternalSource
Line 345: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderLLink)
Line 346: Return __ctrl
Line 347: End Function
Line 348:
Line 349: Private Sub __RenderLLink(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 350: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""")
Line 351:
Line 352: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",165)
Line 353: __w.Write(LImageUrl )
Line 354:
Line 355:
Line 356: #End ExternalSource
Line 357: __w.Write(""" style=""Width: 100%; Height: 100%"" border=""0""/>")
Line 358: End Sub
Line 359:
Line 360: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 361: Private Function __BuildControlRLink() As Global.System.Web.UI.WebControls.HyperLink
Line 362: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 363:
Line 364: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",167)
Line 365: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 366:
Line 367: #End ExternalSource
Line 368: Me.RLink = __ctrl
Line 369: __ctrl.ApplyStyleSheetSkin(Me)
Line 370:
Line 371: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",167)
Line 372: __ctrl.ID = "RLink"
Line 373:
Line 374: #End ExternalSource
Line 375: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderRLink)
Line 376: Return __ctrl
Line 377: End Function
Line 378:
Line 379: Private Sub __RenderRLink(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 380: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img alt="""" src =""")
Line 381:
Line 382: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",168)
Line 383: __w.Write(RImageUrl )
Line 384:
Line 385:
Line 386: #End ExternalSource
Line 387: __w.Write(""" style=""Width: 100%; Height: 100%; border:0""/>")
Line 388: End Sub
Line 389:
Line 390: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 391: Private Function __BuildControlPDFLeft() As Global.System.Web.UI.WebControls.HyperLink
Line 392: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 393:
Line 394: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",173)
Line 395: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 396:
Line 397: #End ExternalSource
Line 398: Me.PDFLeft = __ctrl
Line 399: __ctrl.ApplyStyleSheetSkin(Me)
Line 400:
Line 401: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",173)
Line 402: __ctrl.ID = "PDFLeft"
Line 403:
Line 404: #End ExternalSource
Line 405:
Line 406: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",173)
Line 407: __ctrl.Visible = false
Line 408:
Line 409: #End ExternalSource
Line 410: Return __ctrl
Line 411: End Function
Line 412:
Line 413: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 414: Private Function __BuildControlPDFRight() As Global.System.Web.UI.WebControls.HyperLink
Line 415: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 416:
Line 417: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",174)
Line 418: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 419:
Line 420: #End ExternalSource
Line 421: Me.PDFRight = __ctrl
Line 422: __ctrl.ApplyStyleSheetSkin(Me)
Line 423:
Line 424: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",174)
Line 425: __ctrl.ID = "PDFRight"
Line 426:
Line 427: #End ExternalSource
Line 428:
Line 429: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",174)
Line 430: __ctrl.Visible = false
Line 431:
Line 432: #End ExternalSource
Line 433: Return __ctrl
Line 434: End Function
Line 435:
Line 436: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 437: Private Function __BuildControlLLink2() As Global.System.Web.UI.WebControls.HyperLink
Line 438: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 439:
Line 440: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",181)
Line 441: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 442:
Line 443: #End ExternalSource
Line 444: Me.LLink2 = __ctrl
Line 445: __ctrl.ApplyStyleSheetSkin(Me)
Line 446:
Line 447: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",181)
Line 448: __ctrl.ID = "LLink2"
Line 449:
Line 450: #End ExternalSource
Line 451: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderLLink2)
Line 452: Return __ctrl
Line 453: End Function
Line 454:
Line 455: Private Sub __RenderLLink2(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 456: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img alt="""" src=""")
Line 457:
Line 458: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",182)
Line 459: __w.Write(LImageUrl )
Line 460:
Line 461:
Line 462: #End ExternalSource
Line 463: __w.Write(""" style=""Width: 100%; Height: 100%; border:0""/>")
Line 464: End Sub
Line 465:
Line 466: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 467: Private Function __BuildControl__control3() As Global.System.Web.UI.WebControls.ListItem
Line 468: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 469:
Line 470: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",191)
Line 471: __ctrl = New Global.System.Web.UI.WebControls.ListItem()
Line 472:
Line 473: #End ExternalSource
Line 474:
Line 475: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",191)
Line 476: __ctrl.Value = "114"
Line 477:
Line 478: #End ExternalSource
Line 479:
Line 480: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",191)
Line 481: __ctrl.Text = "Select Class"
Line 482:
Line 483: #End ExternalSource
Line 484: Return __ctrl
Line 485: End Function
Line 486:
Line 487: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 488: Private Function __BuildControl__control4() As Global.System.Web.UI.WebControls.ListItem
Line 489: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 490:
Line 491: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",192)
Line 492: __ctrl = New Global.System.Web.UI.WebControls.ListItem()
Line 493:
Line 494: #End ExternalSource
Line 495:
Line 496: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",192)
Line 497: __ctrl.Value = "114"
Line 498:
Line 499: #End ExternalSource
Line 500:
Line 501: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",192)
Line 502: __ctrl.Text = "Seniors"
Line 503:
Line 504: #End ExternalSource
Line 505: Return __ctrl
Line 506: End Function
Line 507:
Line 508: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 509: Private Function __BuildControl__control5() As Global.System.Web.UI.WebControls.ListItem
Line 510: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 511:
Line 512: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",193)
Line 513: __ctrl = New Global.System.Web.UI.WebControls.ListItem()
Line 514:
Line 515: #End ExternalSource
Line 516:
Line 517: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",193)
Line 518: __ctrl.Value = "126"
Line 519:
Line 520: #End ExternalSource
Line 521:
Line 522: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",193)
Line 523: __ctrl.Text = "Juniors"
Line 524:
Line 525: #End ExternalSource
Line 526: Return __ctrl
Line 527: End Function
Line 528:
Line 529: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 530: Private Function __BuildControl__control6() As Global.System.Web.UI.WebControls.ListItem
Line 531: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 532:
Line 533: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",194)
Line 534: __ctrl = New Global.System.Web.UI.WebControls.ListItem()
Line 535:
Line 536: #End ExternalSource
Line 537:
Line 538: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",194)
Line 539: __ctrl.Value = "140"
Line 540:
Line 541: #End ExternalSource
Line 542:
Line 543: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",194)
Line 544: __ctrl.Text = "Sophmores"
Line 545:
Line 546: #End ExternalSource
Line 547: Return __ctrl
Line 548: End Function
Line 549:
Line 550: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 551: Private Function __BuildControl__control7() As Global.System.Web.UI.WebControls.ListItem
Line 552: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 553:
Line 554: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",195)
Line 555: __ctrl = New Global.System.Web.UI.WebControls.ListItem()
Line 556:
Line 557: #End ExternalSource
Line 558:
Line 559: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",195)
Line 560: __ctrl.Value = "152"
Line 561:
Line 562: #End ExternalSource
Line 563:
Line 564: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",195)
Line 565: __ctrl.Text = "Freshmen"
Line 566:
Line 567: #End ExternalSource
Line 568: Return __ctrl
Line 569: End Function
Line 570:
Line 571: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 572: Private Sub __BuildControl__control2(ByVal __ctrl As System.Web.UI.WebControls.ListItemCollection)
Line 573: Dim __ctrl1 As Global.System.Web.UI.WebControls.ListItem
Line 574:
Line 575: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 576: __ctrl1 = Me.__BuildControl__control3
Line 577:
Line 578: #End ExternalSource
Line 579:
Line 580: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 581: __ctrl.Add(__ctrl1)
Line 582:
Line 583: #End ExternalSource
Line 584: Dim __ctrl2 As Global.System.Web.UI.WebControls.ListItem
Line 585:
Line 586: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 587: __ctrl2 = Me.__BuildControl__control4
Line 588:
Line 589: #End ExternalSource
Line 590:
Line 591: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 592: __ctrl.Add(__ctrl2)
Line 593:
Line 594: #End ExternalSource
Line 595: Dim __ctrl3 As Global.System.Web.UI.WebControls.ListItem
Line 596:
Line 597: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 598: __ctrl3 = Me.__BuildControl__control5
Line 599:
Line 600: #End ExternalSource
Line 601:
Line 602: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 603: __ctrl.Add(__ctrl3)
Line 604:
Line 605: #End ExternalSource
Line 606: Dim __ctrl4 As Global.System.Web.UI.WebControls.ListItem
Line 607:
Line 608: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 609: __ctrl4 = Me.__BuildControl__control6
Line 610:
Line 611: #End ExternalSource
Line 612:
Line 613: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 614: __ctrl.Add(__ctrl4)
Line 615:
Line 616: #End ExternalSource
Line 617: Dim __ctrl5 As Global.System.Web.UI.WebControls.ListItem
Line 618:
Line 619: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 620: __ctrl5 = Me.__BuildControl__control7
Line 621:
Line 622: #End ExternalSource
Line 623:
Line 624: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 625: __ctrl.Add(__ctrl5)
Line 626:
Line 627: #End ExternalSource
Line 628: End Sub
Line 629:
Line 630: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 631: Private Function __BuildControlDDL1() As Global.System.Web.UI.WebControls.DropDownList
Line 632: Dim __ctrl As Global.System.Web.UI.WebControls.DropDownList
Line 633:
Line 634: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 635: __ctrl = New Global.System.Web.UI.WebControls.DropDownList()
Line 636:
Line 637: #End ExternalSource
Line 638: Me.DDL1 = __ctrl
Line 639: __ctrl.ApplyStyleSheetSkin(Me)
Line 640:
Line 641: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 642: __ctrl.ID = "DDL1"
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",190)
Line 647: Me.__BuildControl__control2(__ctrl.Items)
Line 648:
Line 649: #End ExternalSource
Line 650: Return __ctrl
Line 651: End Function
Line 652:
Line 653: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 654: Private Function __BuildControlSelectClassButton() As Global.System.Web.UI.WebControls.Button
Line 655: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 656:
Line 657: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",197)
Line 658: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 659:
Line 660: #End ExternalSource
Line 661: Me.SelectClassButton = __ctrl
Line 662: __ctrl.ApplyStyleSheetSkin(Me)
Line 663:
Line 664: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",197)
Line 665: __ctrl.ID = "SelectClassButton"
Line 666:
Line 667: #End ExternalSource
Line 668:
Line 669: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",197)
Line 670: __ctrl.Text = "GO"
Line 671:
Line 672: #End ExternalSource
Line 673:
Line 674: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",197)
Line 675: __ctrl.PostBackUrl = "~/1988Criterion.aspx"
Line 676:
Line 677: #End ExternalSource
Line 678:
Line 679: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",197)
Line 680: __ctrl.Width = New System.Web.UI.WebControls.Unit(45R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Line 681:
Line 682: #End ExternalSource
Line 683:
Line 684: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",197)
Line 685: AddHandler __ctrl.Click, AddressOf Me.SelectClassSub
Line 686:
Line 687: #End ExternalSource
Line 688: Return __ctrl
Line 689: End Function
Line 690:
Line 691: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 692: Private Function __BuildControlGotoPage() As Global.System.Web.UI.WebControls.TextBox
Line 693: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 694:
Line 695: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",202)
Line 696: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 697:
Line 698: #End ExternalSource
Line 699: Me.GotoPage = __ctrl
Line 700: __ctrl.ApplyStyleSheetSkin(Me)
Line 701:
Line 702: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",202)
Line 703: __ctrl.Width = New System.Web.UI.WebControls.Unit(25R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Line 704:
Line 705: #End ExternalSource
Line 706:
Line 707: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",202)
Line 708: __ctrl.ID = "GotoPage"
Line 709:
Line 710: #End ExternalSource
Line 711: Return __ctrl
Line 712: End Function
Line 713:
Line 714: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 715: Private Function __BuildControlGoToPageButton() As Global.System.Web.UI.WebControls.Button
Line 716: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 717:
Line 718: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",203)
Line 719: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 720:
Line 721: #End ExternalSource
Line 722: Me.GoToPageButton = __ctrl
Line 723: __ctrl.ApplyStyleSheetSkin(Me)
Line 724:
Line 725: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",203)
Line 726: __ctrl.ID = "GoToPageButton"
Line 727:
Line 728: #End ExternalSource
Line 729:
Line 730: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",203)
Line 731: __ctrl.Text = "GO"
Line 732:
Line 733: #End ExternalSource
Line 734:
Line 735: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",203)
Line 736: __ctrl.PostBackUrl = "~/1988Criterion.aspx"
Line 737:
Line 738: #End ExternalSource
Line 739:
Line 740: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",203)
Line 741: __ctrl.Width = New System.Web.UI.WebControls.Unit(45R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Line 742:
Line 743: #End ExternalSource
Line 744:
Line 745: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",203)
Line 746: AddHandler __ctrl.Click, AddressOf Me.PageButtonSub
Line 747:
Line 748: #End ExternalSource
Line 749: Return __ctrl
Line 750: End Function
Line 751:
Line 752: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 753: Private Function __BuildControlPrevLink() As Global.System.Web.UI.WebControls.HyperLink
Line 754: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 755:
Line 756: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",210)
Line 757: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 758:
Line 759: #End ExternalSource
Line 760: Me.PrevLink = __ctrl
Line 761: __ctrl.ApplyStyleSheetSkin(Me)
Line 762:
Line 763: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",210)
Line 764: __ctrl.CssClass = "NavLink"
Line 765:
Line 766: #End ExternalSource
Line 767:
Line 768: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",210)
Line 769: __ctrl.ID = "PrevLink"
Line 770:
Line 771: #End ExternalSource
Line 772:
Line 773: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",210)
Line 774: __ctrl.Text = "< Previous"
Line 775:
Line 776: #End ExternalSource
Line 777: Return __ctrl
Line 778: End Function
Line 779:
Line 780: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 781: Private Function __BuildControlNextLink() As Global.System.Web.UI.WebControls.HyperLink
Line 782: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 783:
Line 784: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",211)
Line 785: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 786:
Line 787: #End ExternalSource
Line 788: Me.NextLink = __ctrl
Line 789: __ctrl.ApplyStyleSheetSkin(Me)
Line 790:
Line 791: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",211)
Line 792: __ctrl.CssClass = "NavLink"
Line 793:
Line 794: #End ExternalSource
Line 795:
Line 796: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",211)
Line 797: __ctrl.ID = "NextLink"
Line 798:
Line 799: #End ExternalSource
Line 800:
Line 801: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",211)
Line 802: __ctrl.Text = "Next >"
Line 803:
Line 804: #End ExternalSource
Line 805: Return __ctrl
Line 806: End Function
Line 807:
Line 808: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 809: Private Function __BuildControlLabel5() As Global.System.Web.UI.WebControls.Label
Line 810: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 811:
Line 812: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",230)
Line 813: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 814:
Line 815: #End ExternalSource
Line 816: Me.Label5 = __ctrl
Line 817: __ctrl.ApplyStyleSheetSkin(Me)
Line 818:
Line 819: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",230)
Line 820: __ctrl.ID = "Label5"
Line 821:
Line 822: #End ExternalSource
Line 823:
Line 824: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",230)
Line 825: __ctrl.Text = "Click on a Page for a Large PopUp Window"
Line 826:
Line 827: #End ExternalSource
Line 828:
Line 829: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",230)
Line 830: __ctrl.CssClass = "PageCount"
Line 831:
Line 832: #End ExternalSource
Line 833: Return __ctrl
Line 834: End Function
Line 835:
Line 836: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 837: Private Function __BuildControllabel6() As Global.System.Web.UI.WebControls.Label
Line 838: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 839:
Line 840: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",234)
Line 841: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 842:
Line 843: #End ExternalSource
Line 844: Me.label6 = __ctrl
Line 845: __ctrl.ApplyStyleSheetSkin(Me)
Line 846:
Line 847: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",234)
Line 848: __ctrl.Text = "Problems? email me: "
Line 849:
Line 850: #End ExternalSource
Line 851:
Line 852: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",234)
Line 853: __ctrl.CssClass = "PageCount"
Line 854:
Line 855: #End ExternalSource
Line 856:
Line 857: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",234)
Line 858: __ctrl.ID = "label6"
Line 859:
Line 860: #End ExternalSource
Line 861: Return __ctrl
Line 862: End Function
Line 863:
Line 864: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 865: Private Function __BuildControlForm1() As Global.System.Web.UI.HtmlControls.HtmlForm
Line 866: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Line 867:
Line 868: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 869: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm()
Line 870:
Line 871: #End ExternalSource
Line 872: Me.Form1 = __ctrl
Line 873:
Line 874: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 875: __ctrl.ID = "Form1"
Line 876:
Line 877: #End ExternalSource
Line 878:
Line 879: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 880: __ctrl.DefaultButton = "GoToPageButton"
Line 881:
Line 882: #End ExternalSource
Line 883: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 884:
Line 885: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 886: __ctrl1 = Me.__BuildControlLeftSideTitle
Line 887:
Line 888: #End ExternalSource
Line 889: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 890:
Line 891: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 892: __parser.AddParsedSubObject(__ctrl1)
Line 893:
Line 894: #End ExternalSource
Line 895: Dim __ctrl2 As Global.System.Web.UI.WebControls.Label
Line 896:
Line 897: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 898: __ctrl2 = Me.__BuildControlRightSideTitle
Line 899:
Line 900: #End ExternalSource
Line 901:
Line 902: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 903: __parser.AddParsedSubObject(__ctrl2)
Line 904:
Line 905: #End ExternalSource
Line 906: Dim __ctrl3 As Global.System.Web.UI.WebControls.HyperLink
Line 907:
Line 908: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 909: __ctrl3 = Me.__BuildControlLLink
Line 910:
Line 911: #End ExternalSource
Line 912:
Line 913: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 914: __parser.AddParsedSubObject(__ctrl3)
Line 915:
Line 916: #End ExternalSource
Line 917: Dim __ctrl4 As Global.System.Web.UI.WebControls.HyperLink
Line 918:
Line 919: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 920: __ctrl4 = Me.__BuildControlRLink
Line 921:
Line 922: #End ExternalSource
Line 923:
Line 924: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 925: __parser.AddParsedSubObject(__ctrl4)
Line 926:
Line 927: #End ExternalSource
Line 928: Dim __ctrl5 As Global.System.Web.UI.WebControls.HyperLink
Line 929:
Line 930: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 931: __ctrl5 = Me.__BuildControlPDFLeft
Line 932:
Line 933: #End ExternalSource
Line 934:
Line 935: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 936: __parser.AddParsedSubObject(__ctrl5)
Line 937:
Line 938: #End ExternalSource
Line 939: Dim __ctrl6 As Global.System.Web.UI.WebControls.HyperLink
Line 940:
Line 941: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 942: __ctrl6 = Me.__BuildControlPDFRight
Line 943:
Line 944: #End ExternalSource
Line 945:
Line 946: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 947: __parser.AddParsedSubObject(__ctrl6)
Line 948:
Line 949: #End ExternalSource
Line 950: Dim __ctrl7 As Global.System.Web.UI.WebControls.HyperLink
Line 951:
Line 952: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 953: __ctrl7 = Me.__BuildControlLLink2
Line 954:
Line 955: #End ExternalSource
Line 956:
Line 957: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 958: __parser.AddParsedSubObject(__ctrl7)
Line 959:
Line 960: #End ExternalSource
Line 961: Dim __ctrl8 As Global.System.Web.UI.WebControls.DropDownList
Line 962:
Line 963: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 964: __ctrl8 = Me.__BuildControlDDL1
Line 965:
Line 966: #End ExternalSource
Line 967:
Line 968: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 969: __parser.AddParsedSubObject(__ctrl8)
Line 970:
Line 971: #End ExternalSource
Line 972: Dim __ctrl9 As Global.System.Web.UI.WebControls.Button
Line 973:
Line 974: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 975: __ctrl9 = Me.__BuildControlSelectClassButton
Line 976:
Line 977: #End ExternalSource
Line 978:
Line 979: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 980: __parser.AddParsedSubObject(__ctrl9)
Line 981:
Line 982: #End ExternalSource
Line 983: Dim __ctrl10 As Global.System.Web.UI.WebControls.TextBox
Line 984:
Line 985: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 986: __ctrl10 = Me.__BuildControlGotoPage
Line 987:
Line 988: #End ExternalSource
Line 989:
Line 990: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 991: __parser.AddParsedSubObject(__ctrl10)
Line 992:
Line 993: #End ExternalSource
Line 994: Dim __ctrl11 As Global.System.Web.UI.WebControls.Button
Line 995:
Line 996: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 997: __ctrl11 = Me.__BuildControlGoToPageButton
Line 998:
Line 999: #End ExternalSource
Line 1000:
Line 1001: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 1002: __parser.AddParsedSubObject(__ctrl11)
Line 1003:
Line 1004: #End ExternalSource
Line 1005: Dim __ctrl12 As Global.System.Web.UI.WebControls.HyperLink
Line 1006:
Line 1007: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 1008: __ctrl12 = Me.__BuildControlPrevLink
Line 1009:
Line 1010: #End ExternalSource
Line 1011:
Line 1012: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 1013: __parser.AddParsedSubObject(__ctrl12)
Line 1014:
Line 1015: #End ExternalSource
Line 1016: Dim __ctrl13 As Global.System.Web.UI.WebControls.HyperLink
Line 1017:
Line 1018: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 1019: __ctrl13 = Me.__BuildControlNextLink
Line 1020:
Line 1021: #End ExternalSource
Line 1022:
Line 1023: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 1024: __parser.AddParsedSubObject(__ctrl13)
Line 1025:
Line 1026: #End ExternalSource
Line 1027: Dim __ctrl14 As Global.System.Web.UI.WebControls.Label
Line 1028:
Line 1029: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 1030: __ctrl14 = Me.__BuildControlLabel5
Line 1031:
Line 1032: #End ExternalSource
Line 1033:
Line 1034: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 1035: __parser.AddParsedSubObject(__ctrl14)
Line 1036:
Line 1037: #End ExternalSource
Line 1038: Dim __ctrl15 As Global.System.Web.UI.WebControls.Label
Line 1039:
Line 1040: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 1041: __ctrl15 = Me.__BuildControllabel6
Line 1042:
Line 1043: #End ExternalSource
Line 1044:
Line 1045: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",138)
Line 1046: __parser.AddParsedSubObject(__ctrl15)
Line 1047:
Line 1048: #End ExternalSource
Line 1049: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderForm1)
Line 1050: Return __ctrl
Line 1051: End Function
Line 1052:
Line 1053: Private Sub __RenderForm1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 1054: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <center>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1055:
Line 1056: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",140)
Line 1057: If (imgIndex > 0) And (imgIndex < 199) Then
Line 1058:
Line 1059: #End ExternalSource
Line 1060: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table id=""Header"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td style=""height: 10px; wid"& _
Line 1061: "th:33%; text-align: center"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1062: parameterContainer.Controls(0).RenderControl(__w)
Line 1063: Me.WriteUTF8ResourceString(__w, 4061, 266, true)
Line 1064: parameterContainer.Controls(1).RenderControl(__w)
Line 1065: __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr></table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1066:
Line 1067: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",150)
Line 1068: Else
Line 1069:
Line 1070: #End ExternalSource
Line 1071: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table style=""width:70%"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr id=""Tr1"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td align=""cen"& _
Line 1072: "ter"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""1988Criterion.aspx"" style=""font-size: 16pt; font-fami"& _
Line 1073: "ly: Verdana"">1988 Criterion</a></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr></table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1074:
Line 1075: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",157)
Line 1076: End If
Line 1077:
Line 1078: #End ExternalSource
Line 1079:
Line 1080: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",158)
Line 1081: If (imgIndex > 0) And (imgIndex < 199) Then
Line 1082:
Line 1083: #End ExternalSource
Line 1084: Me.WriteUTF8ResourceString(__w, 4327, 281, true)
Line 1085: parameterContainer.Controls(2).RenderControl(__w)
Line 1086: __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td rowspan=""2"" id=""RightTD"" style=""height: 60px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 1087: " ")
Line 1088: parameterContainer.Controls(3).RenderControl(__w)
Line 1089: __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td style=""vertical-align:top; margin-top: 30px; height: 60p"& _
Line 1090: "x;"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img alt="""" src=""/Images/Sidebar.jpg"" width=""48px"" /></td"& _
Line 1091: ">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td style=""vertical-align:top;"">"& _
Line 1092: "")
Line 1093: parameterContainer.Controls(4).RenderControl(__w)
Line 1094: __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td style=""vertical-align:top;"">")
Line 1095: parameterContainer.Controls(5).RenderControl(__w)
Line 1096: __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1097:
Line 1098: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",177)
Line 1099: else
Line 1100:
Line 1101: #End ExternalSource
Line 1102: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td id=""LeftTD"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 1103: " ")
Line 1104: parameterContainer.Controls(6).RenderControl(__w)
Line 1105: __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1106:
Line 1107: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",185)
Line 1108: end if
Line 1109:
Line 1110: #End ExternalSource
Line 1111: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table width=""80%"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td align=""center"" style=""fo"& _
Line 1112: "nt-size: medium; width: 25%; color: maroon; font-family: Verdana; text-align: ce"& _
Line 1113: "nter"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1114: parameterContainer.Controls(7).RenderControl(__w)
Line 1115: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1116: parameterContainer.Controls(8).RenderControl(__w)
Line 1117: Me.WriteUTF8ResourceString(__w, 4608, 364, false)
Line 1118: parameterContainer.Controls(9).RenderControl(__w)
Line 1119: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1120: parameterContainer.Controls(10).RenderControl(__w)
Line 1121: __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table width=""75%"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td align="& _
Line 1122: """center"" style=""width: 20%""></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td align=""center"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1123: parameterContainer.Controls(11).RenderControl(__w)
Line 1124: __w.Write(" |"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1125: parameterContainer.Controls(12).RenderControl(__w)
Line 1126: Me.WriteUTF8ResourceString(__w, 4972, 548, true)
Line 1127: parameterContainer.Controls(13).RenderControl(__w)
Line 1128: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1129: parameterContainer.Controls(14).RenderControl(__w)
Line 1130: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""mailto:sahamm@msn.com?subject=1988 Criterion"">sahamm@msn.com</a"& _
Line 1131: "></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1132: End Sub
Line 1133:
Line 1134: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1135: Private Sub __BuildControlTree(ByVal __ctrl As _1988criterion_aspx)
Line 1136:
Line 1137: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",1)
Line 1138: Me.InitializeCulture
Line 1139:
Line 1140: #End ExternalSource
Line 1141: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 1142:
Line 1143: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",1)
Line 1144: __ctrl1 = Me.__BuildControlForm1
Line 1145:
Line 1146: #End ExternalSource
Line 1147: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 1148:
Line 1149: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",1)
Line 1150: __parser.AddParsedSubObject(__ctrl1)
Line 1151:
Line 1152: #End ExternalSource
Line 1153: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 1154: End Sub
Line 1155:
Line 1156: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 1157: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.o"& _
Line 1158: "rg/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1159: Me.WriteUTF8ResourceString(__w, 5520, 891, true)
Line 1160: parameterContainer.Controls(0).RenderControl(__w)
Line 1161: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1162:
Line 1163: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",239)
Line 1164: If (imgIndex > 0) And (imgIndex < 199) Then
Line 1165:
Line 1166: #End ExternalSource
Line 1167: Me.WriteUTF8ResourceString(__w, 6411, 461, true)
Line 1168:
Line 1169: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",248)
Line 1170: Else
Line 1171:
Line 1172: #End ExternalSource
Line 1173: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script type=""text/javascript"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WinH = document.documentElement.clientHeig"& _
Line 1174: "ht - 125;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" document.getElementById(""LeftTD"").style.height = WinH + ""px"";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 1175: "document.getElementById(""LeftTD"").style.width = WinH * .75 + ""px"";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </script>"& _
Line 1176: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1177:
Line 1178: #ExternalSource("D:\InetPub\vhosts\ardmorecriterion.com\httpdocs\1988Criterion.aspx",254)
Line 1179: End If
Line 1180:
Line 1181: #End ExternalSource
Line 1182: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>")
Line 1183: End Sub
Line 1184:
Line 1185: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1186: Protected Overrides Sub FrameworkInitialize()
Line 1187: MyBase.FrameworkInitialize
Line 1188: Me.SetStringResourcePointer(Global.ASP._1988criterion_aspx.__stringResource, 0)
Line 1189: Me.__BuildControlTree(Me)
Line 1190: Me.AddWrappedFileDependencies(Global.ASP._1988criterion_aspx.__fileDependencies)
Line 1191: Me.Request.ValidateInput
Line 1192: End Sub
Line 1193:
Line 1194: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1195: Public Overrides Function GetTypeHashCode() As Integer
Line 1196: Return -1905446051
Line 1197: End Function
Line 1198:
Line 1199: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1200: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 1201: MyBase.ProcessRequest(context)
Line 1202: End Sub
Line 1203: End Class
Line 1204: End Namespace
Line 1205:
|