Line 1: #ExternalChecksum("D:\waterfront\pdf\index.aspx","{406ea660-64cf-4c82-b6f0-42d48172a799}","E3966832917372869F73F7F26CBCE53B")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:2.0.50727.42
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.Data
Line 21: Imports System.Data.OleDb
Line 22: Imports System.Data.SqlClient
Line 23: Imports System.Text
Line 24: Imports System.Text.RegularExpressions
Line 25: Imports System.Web
Line 26: Imports System.Web.Caching
Line 27: Imports System.Web.Profile
Line 28: Imports System.Web.Security
Line 29: Imports System.Web.SessionState
Line 30: Imports System.Web.UI
Line 31: Imports System.Web.UI.HtmlControls
Line 32: Imports System.Web.UI.WebControls
Line 33: Imports System.Web.UI.WebControls.WebParts
Line 34: Imports System.Xml
Line 35:
Line 36: Namespace ASP
Line 37:
Line 38: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 39: Public Class pdf_index_aspx
Line 40: Inherits Global.System.Web.UI.Page
Line 41: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 42:
Line 43:
Line 44: #ExternalSource("D:\waterfront\pdf\index.aspx",4)
Line 45: Protected WithEvents eventnamedropdown As Global.System.Web.UI.WebControls.DropDownList
Line 46:
Line 47: #End ExternalSource
Line 48:
Line 49:
Line 50: #ExternalSource("D:\waterfront\pdf\index.aspx",8)
Line 51: Protected WithEvents eventtypedropdown As Global.System.Web.UI.WebControls.DropDownList
Line 52:
Line 53: #End ExternalSource
Line 54:
Line 55:
Line 56: #ExternalSource("D:\waterfront\pdf\index.aspx",11)
Line 57: Protected WithEvents monthdropdown As Global.System.Web.UI.WebControls.DropDownList
Line 58:
Line 59: #End ExternalSource
Line 60:
Line 61:
Line 62: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 63: Protected WithEvents Performances As Global.System.Web.UI.WebControls.Calendar
Line 64:
Line 65: #End ExternalSource
Line 66:
Line 67:
Line 68: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 69: Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 70:
Line 71: #End ExternalSource
Line 72:
Line 73: Private Shared __initialized As Boolean
Line 74:
Line 75: Private Shared __stringResource As Object
Line 76:
Line 77: Private Shared __fileDependencies As Object
Line 78:
Line 79:
Line 80: #ExternalSource("D:\waterfront\pdf\index.aspx",13)
Line 81:
Line 82:
Line 83:
Line 84: Protected Sub performances_selectionchanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Performances.SelectionChanged
Line 85: Response.Redirect("/whatson/Performances.aspx?dates=" & Performances.SelectedDate())
Line 86:
Line 87: End Sub
Line 88:
Line 89: Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Line 90:
Line 91:
Line 92:
Line 93: If Not Page.IsPostBack Then
Line 94: Dim objConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=d:\databases\waterfront.mdb")
Line 95: objConnection.Open()
Line 96: Dim sql7 As String = "SELECT id, eventtitle FROM event WHERE enddate >= date() ORDER BY eventtitle ASC"
Line 97: Dim objCommand7 As New OleDbCommand(sql7, objConnection)
Line 98: Dim objReader7 As OleDbDataReader = objCommand7.ExecuteReader()
Line 99: eventnamedropdown.DataSource = objReader7
Line 100: eventnamedropdown.DataBind()
Line 101: objReader7.Close()
Line 102: eventnamedropdown.Items.Insert(0, New ListItem("Event name", "0"))
Line 103:
Line 104: Dim sql6 As String = "SELECT * FROM category where id in (SELECT Distinct categoryid from event where enddate>=date()) order by title;"
Line 105: Dim objCommand6 As New OleDbCommand(sql6, objConnection)
Line 106: Dim objReader6 As OleDbDataReader = objCommand6.ExecuteReader()
Line 107: eventtypedropdown.DataSource = objReader6
Line 108: eventtypedropdown.DataBind()
Line 109: objReader6.Close()
Line 110: eventtypedropdown.Items.Insert(0, New ListItem("Event type", "0"))
Line 111:
Line 112: Dim sql8 As String = "SELECT distinct enddate FROM event where enddate >= date()"
Line 113: Dim objCommand8 As New OleDbCommand(sql8, objConnection)
Line 114: Dim objReader8 As OleDbDataReader = objCommand8.ExecuteReader()
Line 115: 'monthdropdown.DataSource = objReader8
Line 116: 'monthdropdown.DataBind()
Line 117: objReader8.Close()
Line 118:
Line 119: monthdropdown.Items.Insert(0, New ListItem("Month", "0"))
Line 120:
Line 121: Dim months
Line 122: Dim years
Line 123: months = MonthName(Month(Today))
Line 124: years = Year(Today)
Line 125: monthdropdown.Items.Insert(1, New ListItem(months & " " & years, Month(Today)))
Line 126:
Line 127:
Line 128: months = MonthName(Month(DateAdd("m", 1, Today)))
Line 129: If Month(Today) = 12 Then
Line 130: years = years + 1
Line 131: End If
Line 132: monthdropdown.Items.Insert(2, New ListItem(months & " " & years, (Month(DateAdd("m", 1, Today)))))
Line 133:
Line 134: months = MonthName(Month(DateAdd("m", 2, Today)))
Line 135: If Month(DateAdd("m", 1, Today)) = 12 Then
Line 136: years = years + 1
Line 137: End If
Line 138: monthdropdown.Items.Insert(3, New ListItem(months & " " & years, (Month(DateAdd("m", 2, Today)))))
Line 139:
Line 140: months = MonthName(Month(DateAdd("m", 3, Today)))
Line 141: If Month(DateAdd("m", 2, Today)) = 12 Then
Line 142: years = years + 1
Line 143: End If
Line 144: monthdropdown.Items.Insert(4, New ListItem(months & " " & years, (Month(DateAdd("m", 3, Today)))))
Line 145:
Line 146: months = MonthName(Month(DateAdd("m", 4, Today)))
Line 147: If Month(DateAdd("m", 3, Today)) = 12 Then
Line 148: years = years + 1
Line 149: End If
Line 150: monthdropdown.Items.Insert(5, New ListItem(months & " " & years, (Month(DateAdd("m", 4, Today)))))
Line 151:
Line 152: months = MonthName(Month(DateAdd("m", 5, Today)))
Line 153: If Month(DateAdd("m", 4, Today)) = 12 Then
Line 154: years = years + 1
Line 155: End If
Line 156: monthdropdown.Items.Insert(6, New ListItem(months & " " & years, (Month(DateAdd("m", 5, Today)))))
Line 157:
Line 158: End If
Line 159: objConnection.Close()
Line 160: End Sub
Line 161:
Line 162:
Line 163: Protected Sub eventnamechanged(ByVal sender As Object, ByVal e As System.EventArgs)
Line 164: Response.Redirect("/search/eventnamesearchresults.aspx?eventnameid=" & eventnamedropdown.SelectedItem.Value)
Line 165: End Sub
Line 166:
Line 167: Protected Sub eventtypechanged(ByVal sender As Object, ByVal e As System.EventArgs)
Line 168: Response.Redirect("/search/categorysearchresults.aspx?category=" & eventtypedropdown.SelectedItem.Value)
Line 169: End Sub
Line 170:
Line 171: Protected Sub monthchanged(ByVal sender As Object, ByVal e As System.EventArgs)
Line 172: Response.Redirect("/search/monthsearchresults.aspx?month=" & monthdropdown.SelectedItem.Value & "&year=" & monthdropdown.SelectedItem.Text)
Line 173: End Sub
Line 174:
Line 175:
Line 176:
Line 177: #End ExternalSource
Line 178:
Line 179:
Line 180: Public Sub New()
Line 181: MyBase.New
Line 182: Dim dependencies() As String
Line 183: CType(Me,System.Web.UI.Page).AppRelativeVirtualPath = "~/pdf/index.aspx"
Line 184: If (Global.ASP.pdf_index_aspx.__initialized = false) Then
Line 185: Global.ASP.pdf_index_aspx.__stringResource = Me.ReadStringResource
Line 186: dependencies = New String(8) {}
Line 187: dependencies(0) = "~/includes/boxoffice.inc"
Line 188: dependencies(1) = "~/includes/searchbar.inc"
Line 189: dependencies(2) = "~/includes/subnav.inc"
Line 190: dependencies(3) = "~/includes/footer.inc"
Line 191: dependencies(4) = "~/includes/homemast.inc"
Line 192: dependencies(5) = "~/includes/homeeventssearch.inc"
Line 193: dependencies(6) = "~/includes/homemenu.inc"
Line 194: dependencies(7) = "~/pdf/index.aspx"
Line 195: dependencies(8) = "~/includes/homemainnav.inc"
Line 196: Global.ASP.pdf_index_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 197: Global.ASP.pdf_index_aspx.__initialized = true
Line 198: End If
Line 199: Me.Server.ScriptTimeout = 30000000
Line 200: End Sub
Line 201:
Line 202: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 203: Get
Line 204: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 205: End Get
Line 206: End Property
Line 207:
Line 208: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 209: Get
Line 210: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 211: End Get
Line 212: End Property
Line 213:
Line 214: Private Function __BuildControl__control3() As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 215: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 216:
Line 217: #ExternalSource("D:\waterfront\pdf\index.aspx",113)
Line 218: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlTitle
Line 219:
Line 220: #End ExternalSource
Line 221: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 222:
Line 223: #ExternalSource("D:\waterfront\pdf\index.aspx",113)
Line 224: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("Belfast Waterfront. Waterfront events guide."))
Line 225:
Line 226: #End ExternalSource
Line 227: Return __ctrl
Line 228: End Function
Line 229:
Line 230: Private Function __BuildControl__control4() As Global.System.Web.UI.HtmlControls.HtmlLink
Line 231: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlLink
Line 232:
Line 233: #ExternalSource("D:\waterfront\pdf\index.aspx",115)
Line 234: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlLink
Line 235:
Line 236: #End ExternalSource
Line 237:
Line 238: #ExternalSource("D:\waterfront\pdf\index.aspx",115)
Line 239: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("rel", "Shortcut Icon")
Line 240:
Line 241: #End ExternalSource
Line 242:
Line 243: #ExternalSource("D:\waterfront\pdf\index.aspx",115)
Line 244: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("type", "image/ico")
Line 245:
Line 246: #End ExternalSource
Line 247:
Line 248: #ExternalSource("D:\waterfront\pdf\index.aspx",115)
Line 249: __ctrl.Href = "favicon.ico"
Line 250:
Line 251: #End ExternalSource
Line 252: Return __ctrl
Line 253: End Function
Line 254:
Line 255: Private Function __BuildControl__control5() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 256: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 257:
Line 258: #ExternalSource("D:\waterfront\pdf\index.aspx",117)
Line 259: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta
Line 260:
Line 261: #End ExternalSource
Line 262:
Line 263: #ExternalSource("D:\waterfront\pdf\index.aspx",117)
Line 264: __ctrl.Content = "text/html; charset=UTF-8"
Line 265:
Line 266: #End ExternalSource
Line 267:
Line 268: #ExternalSource("D:\waterfront\pdf\index.aspx",117)
Line 269: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("http-equiv", "content-type")
Line 270:
Line 271: #End ExternalSource
Line 272: Return __ctrl
Line 273: End Function
Line 274:
Line 275: Private Function __BuildControl__control6() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 276: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 277:
Line 278: #ExternalSource("D:\waterfront\pdf\index.aspx",118)
Line 279: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta
Line 280:
Line 281: #End ExternalSource
Line 282:
Line 283: #ExternalSource("D:\waterfront\pdf\index.aspx",118)
Line 284: __ctrl.Name = "robots"
Line 285:
Line 286: #End ExternalSource
Line 287:
Line 288: #ExternalSource("D:\waterfront\pdf\index.aspx",118)
Line 289: __ctrl.Content = "all"
Line 290:
Line 291: #End ExternalSource
Line 292: Return __ctrl
Line 293: End Function
Line 294:
Line 295: Private Function __BuildControl__control7() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 296: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 297:
Line 298: #ExternalSource("D:\waterfront\pdf\index.aspx",120)
Line 299: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta
Line 300:
Line 301: #End ExternalSource
Line 302:
Line 303: #ExternalSource("D:\waterfront\pdf\index.aspx",120)
Line 304: __ctrl.Name = "description"
Line 305:
Line 306: #End ExternalSource
Line 307:
Line 308: #ExternalSource("D:\waterfront\pdf\index.aspx",120)
Line 309: __ctrl.Content = "Belfast Waterfront is an award-winning conference, arts and entertainment centre."& _
Line 310: " It holds a range of events including concerts, exhibitions and conferences. It "& _
Line 311: "also runs Trans Belfast and the Urban Arts Academy."
Line 312:
Line 313: #End ExternalSource
Line 314: Return __ctrl
Line 315: End Function
Line 316:
Line 317: Private Function __BuildControl__control8() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 318: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 319:
Line 320: #ExternalSource("D:\waterfront\pdf\index.aspx",121)
Line 321: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta
Line 322:
Line 323: #End ExternalSource
Line 324:
Line 325: #ExternalSource("D:\waterfront\pdf\index.aspx",121)
Line 326: __ctrl.Name = "keywords"
Line 327:
Line 328: #End ExternalSource
Line 329:
Line 330: #ExternalSource("D:\waterfront\pdf\index.aspx",121)
Line 331: __ctrl.Content = "Belfast, Waterfront, Hall, conference, entertainment, arts, events, what's on, no"& _
Line 332: "rthern ireland, meetings, arc restaurant, exhibitions, trans, urban arts academy"& _
Line 333: ", auditorium, studio, gallery, history, background, contact, jobs, disclaimer"
Line 334:
Line 335: #End ExternalSource
Line 336: Return __ctrl
Line 337: End Function
Line 338:
Line 339: Private Function __BuildControl__control2() As Global.System.Web.UI.HtmlControls.HtmlHead
Line 340: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlHead
Line 341:
Line 342: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 343: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlHead("head")
Line 344:
Line 345: #End ExternalSource
Line 346: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 347:
Line 348: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 349: __ctrl1 = Me.__BuildControl__control3
Line 350:
Line 351: #End ExternalSource
Line 352: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 353:
Line 354: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 355: __parser.AddParsedSubObject(__ctrl1)
Line 356:
Line 357: #End ExternalSource
Line 358: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlLink
Line 359:
Line 360: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 361: __ctrl2 = Me.__BuildControl__control4
Line 362:
Line 363: #End ExternalSource
Line 364:
Line 365: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 366: __parser.AddParsedSubObject(__ctrl2)
Line 367:
Line 368: #End ExternalSource
Line 369: Dim __ctrl3 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 370:
Line 371: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 372: __ctrl3 = Me.__BuildControl__control5
Line 373:
Line 374: #End ExternalSource
Line 375:
Line 376: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 377: __parser.AddParsedSubObject(__ctrl3)
Line 378:
Line 379: #End ExternalSource
Line 380: Dim __ctrl4 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 381:
Line 382: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 383: __ctrl4 = Me.__BuildControl__control6
Line 384:
Line 385: #End ExternalSource
Line 386:
Line 387: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 388: __parser.AddParsedSubObject(__ctrl4)
Line 389:
Line 390: #End ExternalSource
Line 391: Dim __ctrl5 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 392:
Line 393: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 394: __ctrl5 = Me.__BuildControl__control7
Line 395:
Line 396: #End ExternalSource
Line 397:
Line 398: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 399: __parser.AddParsedSubObject(__ctrl5)
Line 400:
Line 401: #End ExternalSource
Line 402: Dim __ctrl6 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 403:
Line 404: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 405: __ctrl6 = Me.__BuildControl__control8
Line 406:
Line 407: #End ExternalSource
Line 408:
Line 409: #ExternalSource("D:\waterfront\pdf\index.aspx",111)
Line 410: __parser.AddParsedSubObject(__ctrl6)
Line 411:
Line 412: #End ExternalSource
Line 413: Return __ctrl
Line 414: End Function
Line 415:
Line 416: Private Function __BuildControleventnamedropdown() As Global.System.Web.UI.WebControls.DropDownList
Line 417: Dim __ctrl As Global.System.Web.UI.WebControls.DropDownList
Line 418:
Line 419: #ExternalSource("D:\waterfront\pdf\index.aspx",4)
Line 420: __ctrl = New Global.System.Web.UI.WebControls.DropDownList
Line 421:
Line 422: #End ExternalSource
Line 423: Me.eventnamedropdown = __ctrl
Line 424: __ctrl.ApplyStyleSheetSkin(Me)
Line 425:
Line 426: #ExternalSource("D:\waterfront\pdf\index.aspx",4)
Line 427: __ctrl.ID = "eventnamedropdown"
Line 428:
Line 429: #End ExternalSource
Line 430:
Line 431: #ExternalSource("D:\waterfront\pdf\index.aspx",4)
Line 432: __ctrl.DataTextField = "shorttitle"
Line 433:
Line 434: #End ExternalSource
Line 435:
Line 436: #ExternalSource("D:\waterfront\pdf\index.aspx",4)
Line 437: __ctrl.DataValueField = "id"
Line 438:
Line 439: #End ExternalSource
Line 440:
Line 441: #ExternalSource("D:\waterfront\pdf\index.aspx",4)
Line 442: __ctrl.AutoPostBack = true
Line 443:
Line 444: #End ExternalSource
Line 445:
Line 446: #ExternalSource("D:\waterfront\pdf\index.aspx",4)
Line 447: AddHandler __ctrl.SelectedIndexChanged, AddressOf Me.eventnamechanged
Line 448:
Line 449: #End ExternalSource
Line 450: Return __ctrl
Line 451: End Function
Line 452:
Line 453: Private Function __BuildControleventtypedropdown() As Global.System.Web.UI.WebControls.DropDownList
Line 454: Dim __ctrl As Global.System.Web.UI.WebControls.DropDownList
Line 455:
Line 456: #ExternalSource("D:\waterfront\pdf\index.aspx",8)
Line 457: __ctrl = New Global.System.Web.UI.WebControls.DropDownList
Line 458:
Line 459: #End ExternalSource
Line 460: Me.eventtypedropdown = __ctrl
Line 461: __ctrl.ApplyStyleSheetSkin(Me)
Line 462:
Line 463: #ExternalSource("D:\waterfront\pdf\index.aspx",8)
Line 464: __ctrl.ID = "eventtypedropdown"
Line 465:
Line 466: #End ExternalSource
Line 467:
Line 468: #ExternalSource("D:\waterfront\pdf\index.aspx",8)
Line 469: __ctrl.DataTextField = "title"
Line 470:
Line 471: #End ExternalSource
Line 472:
Line 473: #ExternalSource("D:\waterfront\pdf\index.aspx",8)
Line 474: __ctrl.DataValueField = "id"
Line 475:
Line 476: #End ExternalSource
Line 477:
Line 478: #ExternalSource("D:\waterfront\pdf\index.aspx",8)
Line 479: __ctrl.AutoPostBack = true
Line 480:
Line 481: #End ExternalSource
Line 482:
Line 483: #ExternalSource("D:\waterfront\pdf\index.aspx",8)
Line 484: AddHandler __ctrl.SelectedIndexChanged, AddressOf Me.eventtypechanged
Line 485:
Line 486: #End ExternalSource
Line 487: Return __ctrl
Line 488: End Function
Line 489:
Line 490: Private Function __BuildControlmonthdropdown() As Global.System.Web.UI.WebControls.DropDownList
Line 491: Dim __ctrl As Global.System.Web.UI.WebControls.DropDownList
Line 492:
Line 493: #ExternalSource("D:\waterfront\pdf\index.aspx",11)
Line 494: __ctrl = New Global.System.Web.UI.WebControls.DropDownList
Line 495:
Line 496: #End ExternalSource
Line 497: Me.monthdropdown = __ctrl
Line 498: __ctrl.ApplyStyleSheetSkin(Me)
Line 499:
Line 500: #ExternalSource("D:\waterfront\pdf\index.aspx",11)
Line 501: __ctrl.ID = "monthdropdown"
Line 502:
Line 503: #End ExternalSource
Line 504:
Line 505: #ExternalSource("D:\waterfront\pdf\index.aspx",11)
Line 506: __ctrl.DataTextField = "enddate"
Line 507:
Line 508: #End ExternalSource
Line 509:
Line 510: #ExternalSource("D:\waterfront\pdf\index.aspx",11)
Line 511: __ctrl.DataValueField = "enddate"
Line 512:
Line 513: #End ExternalSource
Line 514:
Line 515: #ExternalSource("D:\waterfront\pdf\index.aspx",11)
Line 516: __ctrl.AutoPostBack = true
Line 517:
Line 518: #End ExternalSource
Line 519:
Line 520: #ExternalSource("D:\waterfront\pdf\index.aspx",11)
Line 521: __ctrl.Visible = true
Line 522:
Line 523: #End ExternalSource
Line 524:
Line 525: #ExternalSource("D:\waterfront\pdf\index.aspx",11)
Line 526: AddHandler __ctrl.SelectedIndexChanged, AddressOf Me.monthchanged
Line 527:
Line 528: #End ExternalSource
Line 529: Return __ctrl
Line 530: End Function
Line 531:
Line 532: Private Sub __BuildControl__control9(ByVal __ctrl As System.Web.UI.WebControls.TableItemStyle)
Line 533:
Line 534: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 535: __ctrl.BackColor = System.Drawing.Color.Green
Line 536:
Line 537: #End ExternalSource
Line 538:
Line 539: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 540: __ctrl.ForeColor = System.Drawing.Color.White
Line 541:
Line 542: #End ExternalSource
Line 543: End Sub
Line 544:
Line 545: Private Sub __BuildControl__control10(ByVal __ctrl As System.Web.UI.WebControls.TableItemStyle)
Line 546:
Line 547: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 548: __ctrl.BackColor = CType(System.Drawing.Color.FromArgb(245, 100, 49),System.Drawing.Color)
Line 549:
Line 550: #End ExternalSource
Line 551:
Line 552: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 553: __ctrl.ForeColor = System.Drawing.Color.White
Line 554:
Line 555: #End ExternalSource
Line 556: End Sub
Line 557:
Line 558: Private Sub __BuildControl__control11(ByVal __ctrl As System.Web.UI.WebControls.TableItemStyle)
Line 559:
Line 560: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 561: __ctrl.BackColor = System.Drawing.Color.White
Line 562:
Line 563: #End ExternalSource
Line 564:
Line 565: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 566: __ctrl.ForeColor = CType(System.Drawing.Color.FromArgb(209, 55, 1),System.Drawing.Color)
Line 567:
Line 568: #End ExternalSource
Line 569: End Sub
Line 570:
Line 571: Private Sub __BuildControl__control12(ByVal __ctrl As System.Web.UI.WebControls.TableItemStyle)
Line 572:
Line 573: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 574: __ctrl.BackColor = CType(System.Drawing.Color.FromArgb(209, 55, 1),System.Drawing.Color)
Line 575:
Line 576: #End ExternalSource
Line 577:
Line 578: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 579: __ctrl.ForeColor = System.Drawing.Color.White
Line 580:
Line 581: #End ExternalSource
Line 582: End Sub
Line 583:
Line 584: Private Function __BuildControlPerformances() As Global.System.Web.UI.WebControls.Calendar
Line 585: Dim __ctrl As Global.System.Web.UI.WebControls.Calendar
Line 586:
Line 587: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 588: __ctrl = New Global.System.Web.UI.WebControls.Calendar
Line 589:
Line 590: #End ExternalSource
Line 591: Me.Performances = __ctrl
Line 592: __ctrl.ApplyStyleSheetSkin(Me)
Line 593:
Line 594: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 595: __ctrl.Width = New System.Web.UI.WebControls.Unit(100, System.Web.UI.WebControls.UnitType.Percentage)
Line 596:
Line 597: #End ExternalSource
Line 598:
Line 599: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 600: __ctrl.ID = "Performances"
Line 601:
Line 602: #End ExternalSource
Line 603:
Line 604: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 605: __ctrl.FirstDayOfWeek = System.Web.UI.WebControls.FirstDayOfWeek.Monday
Line 606:
Line 607: #End ExternalSource
Line 608:
Line 609: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 610: __ctrl.ForeColor = System.Drawing.Color.White
Line 611:
Line 612: #End ExternalSource
Line 613:
Line 614: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 615: __ctrl.BackColor = CType(System.Drawing.Color.FromArgb(209, 55, 1),System.Drawing.Color)
Line 616:
Line 617: #End ExternalSource
Line 618:
Line 619: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 620: __ctrl.SelectionMode = System.Web.UI.WebControls.CalendarSelectionMode.Day
Line 621:
Line 622: #End ExternalSource
Line 623:
Line 624: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 625: __ctrl.NextPrevFormat = System.Web.UI.WebControls.NextPrevFormat.ShortMonth
Line 626:
Line 627: #End ExternalSource
Line 628:
Line 629: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 630: __ctrl.DayNameFormat = System.Web.UI.WebControls.DayNameFormat.FirstLetter
Line 631:
Line 632: #End ExternalSource
Line 633:
Line 634: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 635: __ctrl.Font.Size = New System.Web.UI.WebControls.FontUnit(New System.Web.UI.WebControls.Unit(100, System.Web.UI.WebControls.UnitType.Percentage))
Line 636:
Line 637: #End ExternalSource
Line 638:
Line 639: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 640: __ctrl.BorderWidth = New System.Web.UI.WebControls.Unit(0, System.Web.UI.WebControls.UnitType.Pixel)
Line 641:
Line 642: #End ExternalSource
Line 643:
Line 644: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 645: Me.__BuildControl__control9(__ctrl.SelectedDayStyle)
Line 646:
Line 647: #End ExternalSource
Line 648:
Line 649: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 650: Me.__BuildControl__control10(__ctrl.OtherMonthDayStyle)
Line 651:
Line 652: #End ExternalSource
Line 653:
Line 654: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 655: Me.__BuildControl__control11(__ctrl.TodayDayStyle)
Line 656:
Line 657: #End ExternalSource
Line 658:
Line 659: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 660: Me.__BuildControl__control12(__ctrl.TitleStyle)
Line 661:
Line 662: #End ExternalSource
Line 663:
Line 664: #ExternalSource("D:\waterfront\pdf\index.aspx",25)
Line 665: AddHandler __ctrl.SelectionChanged, AddressOf Me.performances_selectionchanged
Line 666:
Line 667: #End ExternalSource
Line 668: Return __ctrl
Line 669: End Function
Line 670:
Line 671: Private Function __BuildControlform1() As Global.System.Web.UI.HtmlControls.HtmlForm
Line 672: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Line 673:
Line 674: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 675: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm
Line 676:
Line 677: #End ExternalSource
Line 678: Me.form1 = __ctrl
Line 679:
Line 680: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 681: __ctrl.ID = "form1"
Line 682:
Line 683: #End ExternalSource
Line 684: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 685:
Line 686: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 687: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<div id=""content"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""left_nav"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 688:
Line 689: #End ExternalSource
Line 690:
Line 691: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 692: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<div id=""box_office"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""/images/boxoffice.png"" alt=""Box Office Buy Tic"& _
Line 693: "kets""/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <strong>028 9033 4455</strong>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!--box_office-->"))
Line 694:
Line 695: #End ExternalSource
Line 696:
Line 697: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 698: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(0, 549, true))
Line 699:
Line 700: #End ExternalSource
Line 701:
Line 702: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 703: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<div id=""events_orange"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <strong>Event search</strong>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 704:
Line 705: #End ExternalSource
Line 706: Dim __ctrl1 As Global.System.Web.UI.WebControls.DropDownList
Line 707:
Line 708: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 709: __ctrl1 = Me.__BuildControleventnamedropdown
Line 710:
Line 711: #End ExternalSource
Line 712:
Line 713: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 714: __parser.AddParsedSubObject(__ctrl1)
Line 715:
Line 716: #End ExternalSource
Line 717:
Line 718: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 719: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 720:
Line 721: #End ExternalSource
Line 722: Dim __ctrl2 As Global.System.Web.UI.WebControls.DropDownList
Line 723:
Line 724: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 725: __ctrl2 = Me.__BuildControleventtypedropdown
Line 726:
Line 727: #End ExternalSource
Line 728:
Line 729: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 730: __parser.AddParsedSubObject(__ctrl2)
Line 731:
Line 732: #End ExternalSource
Line 733:
Line 734: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 735: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 736:
Line 737: #End ExternalSource
Line 738: Dim __ctrl3 As Global.System.Web.UI.WebControls.DropDownList
Line 739:
Line 740: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 741: __ctrl3 = Me.__BuildControlmonthdropdown
Line 742:
Line 743: #End ExternalSource
Line 744:
Line 745: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 746: __parser.AddParsedSubObject(__ctrl3)
Line 747:
Line 748: #End ExternalSource
Line 749:
Line 750: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 751: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""clear""></div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""calendar"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <strong>E"& _
Line 752: "vent calendar</strong>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 753:
Line 754: #End ExternalSource
Line 755: Dim __ctrl4 As Global.System.Web.UI.WebControls.Calendar
Line 756:
Line 757: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 758: __ctrl4 = Me.__BuildControlPerformances
Line 759:
Line 760: #End ExternalSource
Line 761:
Line 762: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 763: __parser.AddParsedSubObject(__ctrl4)
Line 764:
Line 765: #End ExternalSource
Line 766:
Line 767: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 768: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!--calendar-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!--events-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 769:
Line 770: #End ExternalSource
Line 771:
Line 772: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 773: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(549, 1400, true))
Line 774:
Line 775: #End ExternalSource
Line 776:
Line 777: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 778: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(1949, 1055, true))
Line 779:
Line 780: #End ExternalSource
Line 781:
Line 782: #ExternalSource("D:\waterfront\pdf\index.aspx",141)
Line 783: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"</div><!--content-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 784:
Line 785: #End ExternalSource
Line 786: Return __ctrl
Line 787: End Function
Line 788:
Line 789: Private Sub __BuildControlTree(ByVal __ctrl As pdf_index_aspx)
Line 790:
Line 791: #ExternalSource("D:\waterfront\pdf\index.aspx",1)
Line 792: __ctrl.Theme = "main"
Line 793:
Line 794: #End ExternalSource
Line 795:
Line 796: #ExternalSource("D:\waterfront\pdf\index.aspx",1)
Line 797: Me.InitializeCulture
Line 798:
Line 799: #End ExternalSource
Line 800: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlHead
Line 801:
Line 802: #ExternalSource("D:\waterfront\pdf\index.aspx",1)
Line 803: __ctrl1 = Me.__BuildControl__control2
Line 804:
Line 805: #End ExternalSource
Line 806: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 807:
Line 808: #ExternalSource("D:\waterfront\pdf\index.aspx",1)
Line 809: __parser.AddParsedSubObject(__ctrl1)
Line 810:
Line 811: #End ExternalSource
Line 812: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 813:
Line 814: #ExternalSource("D:\waterfront\pdf\index.aspx",1)
Line 815: __ctrl2 = Me.__BuildControlform1
Line 816:
Line 817: #End ExternalSource
Line 818:
Line 819: #ExternalSource("D:\waterfront\pdf\index.aspx",1)
Line 820: __parser.AddParsedSubObject(__ctrl2)
Line 821:
Line 822: #End ExternalSource
Line 823: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 824: End Sub
Line 825:
Line 826: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 827: __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 828: "rg/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 829: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang=""en"" lang=""en"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 830: parameterContainer.Controls(0).RenderControl(__w)
Line 831: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<body class=""homepage"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!--stopindex-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id="& _
Line 832: """wrap"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 833: Me.WriteUTF8ResourceString(__w, 3004, 303, true)
Line 834: __w.Write("<div id=""main_nav"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li id=""nav-homepage"" class=""active"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 835:
Line 836: #ExternalSource("D:\waterfront\includes\homemainnav.inc",4)
Line 837:
Line 838: if Request.ServerVariables("Path_Info") = "/index.aspx" then
Line 839: response.write ("<a class=""nolink"">Home</a>")
Line 840: else
Line 841: response.write ("<a href=""/"" accesskey=""1"" title=""Home. Accesskey=1"" tabindex=""2"">Home</a>")
Line 842: end if
Line 843:
Line 844:
Line 845: #End ExternalSource
Line 846: Me.WriteUTF8ResourceString(__w, 3307, 1284, true)
Line 847: Me.WriteUTF8ResourceString(__w, 4591, 1015, true)
Line 848: __w.Write("<div id=""sub_nav"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 849:
Line 850: #ExternalSource("D:\waterfront\includes\subnav.inc",5)
Line 851:
Line 852: if Request.ServerVariables("Path_Info") = "/sitemap/index.aspx" then
Line 853: response.write ("<a class=""nolink"">Site map</a>")
Line 854: else
Line 855: response.write ("<a href=""/sitemap/index.aspx"" accesskey=""m"" title=""Site Map. Access key=m"" tabindex=""5"">Site map</a>")
Line 856: end if
Line 857:
Line 858:
Line 859: #End ExternalSource
Line 860: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" <li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 861:
Line 862: #ExternalSource("D:\waterfront\includes\subnav.inc",14)
Line 863:
Line 864: if Request.ServerVariables("Path_Info") = "/enquiryform/index.aspx" then
Line 865: response.write ("<a class=""nolink"">Enquiry form</a>")
Line 866: else
Line 867: response.write ("<a href=""/enquiryform/index.aspx"" accesskey=""e"" title=""Enquiry Form. Accesskey=e"" tabindex=""5"">Enquiry form</a>")
Line 868: end if
Line 869:
Line 870:
Line 871: #End ExternalSource
Line 872: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 873:
Line 874: #ExternalSource("D:\waterfront\includes\subnav.inc",23)
Line 875:
Line 876: if Request.ServerVariables("Path_Info") = "/accessibility/index.aspx" then
Line 877: response.write ("<a class=""nolink"">Accessibility</a>")
Line 878: else
Line 879: response.write ("<a href=""/accessibility/index.aspx"" accesskey=""a"" title=""Accessibility. Accesskey=a"" tabindex=""5"">Accessibility</a>")
Line 880: end if
Line 881:
Line 882:
Line 883: #End ExternalSource
Line 884: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 885:
Line 886: #ExternalSource("D:\waterfront\includes\subnav.inc",32)
Line 887:
Line 888: if Request.ServerVariables("Path_Info") = "/copyright/index.aspx" then
Line 889: response.write ("<a class=""nolink"">Copyright</a>")
Line 890: else
Line 891: response.write ("<a href=""/copyright/index.aspx"" accesskey=""c"" title=""Copyright. Accesskey=c"" tabindex=""5"">Copyright</a>")
Line 892: end if
Line 893:
Line 894:
Line 895: #End ExternalSource
Line 896: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 897:
Line 898: #ExternalSource("D:\waterfront\includes\subnav.inc",41)
Line 899:
Line 900: if Request.ServerVariables("Path_Info") = "/privacy/index.aspx" then
Line 901: response.write ("<a class=""nolink"">Privacy</a>")
Line 902: else
Line 903: response.write ("<a href=""/privacy/index.aspx"" accesskey=""p"" title=""Privacy. Accesskey=p"" tabindex=""5"">Privacy</a>")
Line 904: end if
Line 905:
Line 906:
Line 907: #End ExternalSource
Line 908: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 909:
Line 910: #ExternalSource("D:\waterfront\includes\subnav.inc",50)
Line 911:
Line 912: if Request.ServerVariables("Path_Info") = "/disclaimer/index.aspx" then
Line 913: response.write ("<a class=""nolink"">Disclaimer</a>")
Line 914: else
Line 915: response.write ("<a href=""/disclaimer/index.aspx"" accesskey=""d"" title=""Disclaimer. Accesskey=d"" tabindex=""5"">Disclaimer</a>")
Line 916: end if
Line 917:
Line 918:
Line 919: #End ExternalSource
Line 920: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 921:
Line 922: #ExternalSource("D:\waterfront\includes\subnav.inc",59)
Line 923:
Line 924: if Request.ServerVariables("Path_Info") = "/freedomofinformation/index.aspx" then
Line 925: response.write ("<a class=""nolink"">Freedom of information</a>")
Line 926: else
Line 927: response.write ("<a href=""/freedomofinformation/index.aspx"" class=""last"" accesskey=""f"" title=""Freedom of information. Accesskey=f"" tabindex=""5"">Freedom of information</a>")
Line 928: end if
Line 929:
Line 930:
Line 931: #End ExternalSource
Line 932: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </ul>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!--#sub_nav-->")
Line 933: parameterContainer.Controls(1).RenderControl(__w)
Line 934: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div><!--wrap-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 935: End Sub
Line 936:
Line 937: Protected Overrides Sub FrameworkInitialize()
Line 938: MyBase.FrameworkInitialize
Line 939: SetStringResourcePointer(Global.ASP.pdf_index_aspx.__stringResource, 0)
Line 940: Me.__BuildControlTree(Me)
Line 941: Me.AddWrappedFileDependencies(Global.ASP.pdf_index_aspx.__fileDependencies)
Line 942: Me.Request.ValidateInput
Line 943: End Sub
Line 944:
Line 945: Public Overrides Function GetTypeHashCode() As Integer
Line 946: Return 1732368130
Line 947: End Function
Line 948:
Line 949: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 950: MyBase.ProcessRequest(context)
Line 951: End Sub
Line 952: End Class
Line 953: End Namespace
Line 954: |