Line 1: #ExternalChecksum("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","970D2B8594047B8EB3A4D5BBA982A003935099EB")
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 ASP
Line 16: Imports Microsoft.VisualBasic
Line 17: Imports System
Line 18: Imports System.Collections
Line 19: Imports System.Collections.Generic
Line 20: Imports System.Collections.Specialized
Line 21: Imports System.ComponentModel.DataAnnotations
Line 22: Imports System.Configuration
Line 23: Imports System.Data
Line 24: Imports System.Linq
Line 25: Imports system.net
Line 26: Imports System.Text
Line 27: Imports System.Text.RegularExpressions
Line 28: Imports System.Web
Line 29: Imports System.Web.Caching
Line 30: Imports System.Web.DynamicData
Line 31: Imports System.Web.Profile
Line 32: Imports System.Web.Security
Line 33: Imports System.Web.SessionState
Line 34: Imports System.Web.UI
Line 35: Imports System.Web.UI.HtmlControls
Line 36: Imports System.Web.UI.WebControls
Line 37: Imports System.Web.UI.WebControls.Expressions
Line 38: Imports System.Web.UI.WebControls.WebParts
Line 39: Imports System.Xml.Linq
Line 40:
Line 41: Namespace ASP
Line 42:
Line 43: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 44: Public Class header
Line 45: Inherits Global.System.Web.UI.UserControl
Line 46:
Line 47:
Line 48: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1436)
Line 49: Protected WithEvents db As Global.ASP.dbconnect
Line 50:
Line 51: #End ExternalSource
Line 52:
Line 53:
Line 54: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1437)
Line 55: Protected WithEvents fs As Global.ASP.files
Line 56:
Line 57: #End ExternalSource
Line 58:
Line 59:
Line 60: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1438)
Line 61: Protected WithEvents lu As Global.ASP.lookup
Line 62:
Line 63: #End ExternalSource
Line 64:
Line 65:
Line 66: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1440)
Line 67: Protected WithEvents hdnSubmit As Global.System.Web.UI.WebControls.HiddenField
Line 68:
Line 69: #End ExternalSource
Line 70:
Line 71:
Line 72: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1442)
Line 73: Protected WithEvents hdnShort As Global.System.Web.UI.WebControls.HiddenField
Line 74:
Line 75: #End ExternalSource
Line 76:
Line 77:
Line 78: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1443)
Line 79: Protected WithEvents hdn_pageType As Global.System.Web.UI.WebControls.HiddenField
Line 80:
Line 81: #End ExternalSource
Line 82:
Line 83:
Line 84: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1444)
Line 85: Protected WithEvents hdn_pageSect As Global.System.Web.UI.WebControls.HiddenField
Line 86:
Line 87: #End ExternalSource
Line 88:
Line 89:
Line 90: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1446)
Line 91: Protected WithEvents hdnWidth As Global.System.Web.UI.WebControls.HiddenField
Line 92:
Line 93: #End ExternalSource
Line 94:
Line 95:
Line 96: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1447)
Line 97: Protected WithEvents hdnHeight As Global.System.Web.UI.WebControls.HiddenField
Line 98:
Line 99: #End ExternalSource
Line 100:
Line 101:
Line 102: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1454)
Line 103: Protected WithEvents imgChar As Global.System.Web.UI.WebControls.Image
Line 104:
Line 105: #End ExternalSource
Line 106:
Line 107:
Line 108: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1455)
Line 109: Protected WithEvents imgSymbol As Global.System.Web.UI.WebControls.Image
Line 110:
Line 111: #End ExternalSource
Line 112:
Line 113:
Line 114: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1459)
Line 115: Protected WithEvents ddlAdmin As Global.System.Web.UI.WebControls.DropDownList
Line 116:
Line 117: #End ExternalSource
Line 118:
Line 119:
Line 120: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1460)
Line 121: Protected WithEvents btnAdmin As Global.System.Web.UI.WebControls.Button
Line 122:
Line 123: #End ExternalSource
Line 124:
Line 125:
Line 126: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 127: Protected WithEvents spnAdmin As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 128:
Line 129: #End ExternalSource
Line 130:
Line 131:
Line 132: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1463)
Line 133: Protected WithEvents lnkHead As Global.System.Web.UI.WebControls.HyperLink
Line 134:
Line 135: #End ExternalSource
Line 136:
Line 137:
Line 138: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1464)
Line 139: Protected WithEvents lnkNav As Global.System.Web.UI.WebControls.HyperLink
Line 140:
Line 141: #End ExternalSource
Line 142:
Line 143:
Line 144: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1465)
Line 145: Protected WithEvents ddlAlts As Global.System.Web.UI.WebControls.DropDownList
Line 146:
Line 147: #End ExternalSource
Line 148:
Line 149:
Line 150: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1466)
Line 151: Protected WithEvents lnkData As Global.System.Web.UI.WebControls.HyperLink
Line 152:
Line 153: #End ExternalSource
Line 154:
Line 155:
Line 156: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1467)
Line 157: Protected WithEvents lblDetail As Global.System.Web.UI.WebControls.Label
Line 158:
Line 159: #End ExternalSource
Line 160:
Line 161:
Line 162: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1469)
Line 163: Protected WithEvents dlHead As Global.System.Web.UI.WebControls.DataList
Line 164:
Line 165: #End ExternalSource
Line 166:
Line 167:
Line 168: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 169: Protected WithEvents divMaxi As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 170:
Line 171: #End ExternalSource
Line 172:
Line 173:
Line 174: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1484)
Line 175: Protected WithEvents li As Global.ASP.login
Line 176:
Line 177: #End ExternalSource
Line 178:
Line 179:
Line 180: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1485)
Line 181: Protected WithEvents masterTheme As Global.ASP.theme_ascx
Line 182:
Line 183: #End ExternalSource
Line 184:
Line 185:
Line 186: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 187: Protected WithEvents ddlSubs As Global.System.Web.UI.WebControls.DropDownList
Line 188:
Line 189: #End ExternalSource
Line 190:
Line 191:
Line 192: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1487)
Line 193: Protected WithEvents divSubs As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 194:
Line 195: #End ExternalSource
Line 196:
Line 197:
Line 198: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1493)
Line 199: Protected WithEvents txtSearch As Global.System.Web.UI.WebControls.TextBox
Line 200:
Line 201: #End ExternalSource
Line 202:
Line 203:
Line 204: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1495)
Line 205: Protected WithEvents masterSearch As Global.ASP.search
Line 206:
Line 207: #End ExternalSource
Line 208:
Line 209:
Line 210: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1498)
Line 211: Protected WithEvents bonHead As Global.ASP.bonus
Line 212:
Line 213: #End ExternalSource
Line 214:
Line 215:
Line 216: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 217: Protected WithEvents lnkSeries As Global.System.Web.UI.WebControls.HyperLink
Line 218:
Line 219: #End ExternalSource
Line 220:
Line 221:
Line 222: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 223: Protected WithEvents spnSeries As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 224:
Line 225: #End ExternalSource
Line 226:
Line 227:
Line 228: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1505)
Line 229: Protected WithEvents lblSub As Global.System.Web.UI.WebControls.Label
Line 230:
Line 231: #End ExternalSource
Line 232:
Line 233:
Line 234: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 235: Protected WithEvents lnkBy As Global.System.Web.UI.WebControls.HyperLink
Line 236:
Line 237: #End ExternalSource
Line 238:
Line 239:
Line 240: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 241: Protected WithEvents lnkPub As Global.System.Web.UI.WebControls.HyperLink
Line 242:
Line 243: #End ExternalSource
Line 244:
Line 245:
Line 246: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 247: Protected WithEvents spnPub As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 248:
Line 249: #End ExternalSource
Line 250:
Line 251:
Line 252: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1514)
Line 253: Protected WithEvents headSub As Global.ASP.subform_ascx
Line 254:
Line 255: #End ExternalSource
Line 256:
Line 257:
Line 258: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 259: Protected WithEvents rptHeader As Global.System.Web.UI.WebControls.Repeater
Line 260:
Line 261: #End ExternalSource
Line 262:
Line 263: Private Shared __initialized As Boolean
Line 264:
Line 265:
Line 266: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",20)
Line 267:
Line 268: Dim headRow
Line 269: Dim headTbl
Line 270:
Line 271: Public Const BOX_WIDTH As Integer = 60
Line 272: Public Const BOX_HEIGHT As Integer = 25
Line 273:
Line 274: Public Const COL_COUNT As Integer = 7
Line 275: Public Const COL_WIDTH As Integer = 8
Line 276:
Line 277: 'Public Const IMG_WIDTH As Integer = 28
Line 278: 'Public Const IMG_HEIGHT As Integer = 30
Line 279: Public Property imgWidth
Line 280: Get
Line 281: Return hdnWidth.value
Line 282: End Get
Line 283: Set(value)
Line 284: hdnWidth.value = value
Line 285: End Set
Line 286: End Property
Line 287:
Line 288: Public Property imgHeight
Line 289: Get
Line 290: Return hdnHeight.value
Line 291: End Get
Line 292: Set(value)
Line 293: hdnHeight.value = value
Line 294: End Set
Line 295: End Property
Line 296:
Line 297: Public property rptHead
Line 298: get
Line 299: return rptHeader
Line 300: end get
Line 301: set (value)
Line 302: End Set
Line 303: end property
Line 304:
Line 305: public Property charStr as String
Line 306: Get
Line 307: return hdnShort.value
Line 308: end get
Line 309:
Line 310: set(s as string)
Line 311: hdnShort.value = s
Line 312: end set
Line 313: end property
Line 314:
Line 315:
Line 316: Public Property pageSect() As Integer
Line 317:
Line 318: Get
Line 319: Return hdn_pageSect.Value
Line 320: End Get
Line 321: Set(ByVal value As Integer)
Line 322: hdn_pageSect.Value = value
Line 323: End Set
Line 324: End Property
Line 325:
Line 326: Public Property pageType() As String
Line 327: Get
Line 328: Return hdn_pageType.Value
Line 329: End Get
Line 330: Set(ByVal value As String)
Line 331: hdn_pageType.Value = value
Line 332: End Set
Line 333: End Property
Line 334:
Line 335: Sub adminUpdate(ByVal sender As Object, ByVal e As CommandEventArgs)
Line 336: Dim sData
Line 337: Dim sRow As DataRow
Line 338: Dim updateStr = ""
Line 339: Dim pageId = e.CommandArgument
Line 340:
Line 341:
Line 342: db.Open("fab")
Line 343:
Line 344:
Line 345: If hdn_pageType.Value = db.TYPE_CHAR Then
Line 346: sData = db.getUpdate("SELECT * FROM chars WHERE refno = " & pageId, "admin", 0)
Line 347: updateStr = "series"
Line 348: ElseIf hdn_pageType.Value = db.TYPE_GAME Then
Line 349: sData = db.getUpdate("SELECT * FROM games WHERE [id#] = " & pageId, "admin", 0)
Line 350: updateStr = "series"
Line 351: ElseIf hdn_pageType.Value = db.TYPE_GAME Then
Line 352: sData = db.getUpdate("SELECT * FROM story_event WHERE [id#] = " & pageId, "admin", 0)
Line 353: 'updateStr = "saga"
Line 354: End If
Line 355:
Line 356: If updateStr <> "" Then
Line 357: sData.tables(0).rows(0).ITem(updateStr) = ddlAdmin.SelectedValue
Line 358: db.setUpdate(sData, "admin", 0)
Line 359: End If
Line 360:
Line 361:
Line 362:
Line 363: db.Close()
Line 364: End Sub
Line 365:
Line 366: Private Sub buildBox(ByVal pageId, ByVal adminId)
Line 367: Dim byId = -1
Line 368: Dim aliasStr = "", byStr = "", subStr = ""
Line 369: Dim at, dt As New DataTable
Line 370: Dim dr As DataRow
Line 371:
Line 372:
Line 373:
Line 374:
Line 375: lnkBy.Text = longName(hdn_pageSect.Value)
Line 376: If hdn_pageSect.Value = "arena" Then lnkBy.NavigateUrl = "arenaSelect.aspx"
Line 377: If hdn_pageSect.Value = "char" Then lnkBy.NavigateUrl = "charSelect.aspx"
Line 378: If hdn_pageSect.Value = "credit" Then lnkBy.NavigateUrl = "termSelect.aspx"
Line 379: If hdn_pageSect.Value = "fgc" Then lnkBy.NavigateUrl = "fgcMain.aspx"
Line 380: If hdn_pageSect.Value = "game" Then lnkBy.NavigateUrl = "gameSelect.aspx"
Line 381: If hdn_pageSect.Value = "move" Then lnkBy.NavigateUrl = "moveSelect.aspx"
Line 382: If hdn_pageSect.Value = "quote" Then lnkBy.NavigateUrl = "quoteSelect.aspx"
Line 383: If hdn_pageSect.Value = "gallery" Then lnkBy.NavigateUrl = "imageSelect.aspx"
Line 384: If hdn_pageSect.Value = "story" Then lnkBy.NavigateUrl = "storySelect.aspx"
Line 385:
Line 386:
Line 387: If pageType = db.TYPE_GAME Then
Line 388:
Line 389:
Line 390: ' ElseIf pageType = db.TYPE_SAGA Then
Line 391: ' dt = db.getTable("SELECT story_saga.id as ddlId, story_saga.name as ddlName, story_saga.id as altId, story_saga.name as altName,'' as alias,'' as subName,-1 as byId,'' as byName,-1 as pubId,'' as pubName,-1 as seriesId FROM story_saga WHERE story_Saga.id = " & pageId)
Line 392:
Line 393: ElseIf pageType = db.TYPE_SERIES Then
Line 394: dt = db.getTable("SELECT series.id as ddlId, series.name as ddlName, series.id as altId, series.name as altName,devs.id as byId,devs.name as byName,pubs.id as pubId,pubs.name as pubName,-1 as seriesId FROM ((series LEFT OUTER JOIN games on games.series = series.id) LEFT OUTER JOIN glossary as devs on games.developer = cast(devs.id as nvarchar(10))) LEFT OUTER JOIN glossary as pubs on cast(pubs.id as nvarchar(10)) = games.publisher WHERE series.id = " & pageId)
Line 395: ElseIf pageType = db.TYPE_STORY Then
Line 396: dt = db.getTable("SELECT alts.saga as altId,alts.[id#] as ddlId,alts.name as ddlName,alts.game as byId,games.name as byName,story_saga.id as seriesId, story_saga.name as seriesName FROM ((story_event INNER JOIN story_event AS alts ON story_event.saga = alts.saga) LEFT OUTER JOIN story_Saga ON cast(story_Saga.id as nvarchar(20)) = alts.saga or alts.saga = story_saga.name) LEFT OUTER JOIN games ON games.[id#] = alts.game WHERE story_event.[id#] = " & pageId & " ORDER BY alts.[order],alts.name")
Line 397: ElseIf pageType = db.TYPE_TERM Then
Line 398: dt = db.getTable("SELECT terms.id as ddlId,terms.name as ddlName,bys.id as byId, bys.name as byName from glossary as terms INNER JOIN glossary as bys on terms.type = bys.shortname where terms.id = " & pageId)
Line 399: ElseIf pageType = db.TYPE_USER Then
Line 400: dt = db.getTable("SELECT sys_user.id as ddlId,userName as ddlName from sys_user WHERE id = " & pageId)
Line 401:
Line 402: ElseIf pageType = db.TYPE_QUOTE Then
Line 403: dt = db.getTable("SELECT sys_user.id as ddlId,userName as ddlName from sys_user WHERE id = " & pageId)
Line 404:
Line 405: End If
Line 406:
Line 407: If dt.Rows.Count > 0 Then
Line 408: If dt.Rows.Count > 1 Then
Line 409:
Line 410:
Line 411:
Line 412: End If
Line 413:
Line 414:
Line 415: dr = dt.Rows(0)
Line 416: For Each r As DataRow In dt.Rows()
Line 417: If r("ddlId").ToString = "" Then r("ddlId") = pageId
Line 418: If r("ddlId") = pageId Then dr = r
Line 419: Next
Line 420:
Line 421: 'lblName.Text = dr("ddlName").ToString
Line 422:
Line 423: ' If pageType = db.TYPE_SAGA Then
Line 424: 'cl.sagaRepair(dr("ddlName"), dr("ddlId"))
Line 425:
Line 426: ' lnkSeries.NavigateUrl = "storySelect.aspx"
Line 427: ' lnkSeries.Text = "Storylines"
Line 428:
Line 429: ' spnSeries.Visible = True
Line 430:
Line 431: ' If dr("ddlName") = "Unsorted" Then lblName.Visible = False
Line 432: ' End If
Line 433:
Line 434: If pageType = db.TYPE_SERIES Then
Line 435: 'cl.seriesRepair(dr("ddlName"), dr("ddlId"))
Line 436:
Line 437:
Line 438: lnkSeries.NavigateUrl = "seriesSelect.aspx"
Line 439: lnkSeries.Text = "Series"
Line 440:
Line 441: spnSeries.Visible = True
Line 442: ElseIf pageType = db.TYPE_STORY Then
Line 443: 'cl.sagaRepair(dr("seriesName"), dr("seriesId"))
Line 444: ElseIf pageType = db.TYPE_GAME Then
Line 445: aliasStr = dr("alias").ToString
Line 446: subStr = dr("subname").ToString
Line 447:
Line 448: ElseIf pageType = db.TYPE_CHAR Then
Line 449: hdnShort.Value = dr("shortname")
Line 450: 'cl.plotRepair("application", dr("shortName"), dr("ddlId"))
Line 451:
Line 452:
Line 453: If dr("sex").ToString <> "" And dr("sex").ToString <> "-1" Then
Line 454: imgSymbol.Visible = True
Line 455: If dr("sex") = 0 Then imgSymbol.ImageUrl = "images/male.png"
Line 456: If dr("sex") = 1 Then imgSymbol.ImageUrl = "images/female.png"
Line 457: imgSymbol.Attributes.Add("onLoad", "imageResize(this,75,75);")
Line 458:
Line 459: End If
Line 460: End If
Line 461:
Line 462: If pageSect = db.TYPE_QUOTE Then
Line 463: lnkBy.Text = "Dialogue"
Line 464: lnkBy.NavigateUrl = "quoteSelect.aspx"
Line 465: Else
Line 466: lnkBy.Text = dr("byName").ToString
Line 467: lnkBy.NavigateUrl = "termMain.aspx?id=" & dr("byId")
Line 468:
Line 469: End If
Line 470: End If
Line 471:
Line 472:
Line 473:
Line 474:
Line 475: 'If aliasStr <> "" Then lblAlias.Text = "a.k.a. " & aliasStr & "<br/>"
Line 476: 'If dr("alias").ToString <> "" Then lblAlias.Text = "a.k.a. " & dr("alias").ToString & "<br/>"
Line 477: If subStr <> "" Then lblSub.Text = """" & subStr & """<br/>"
Line 478: ' If dr("subName").ToString <> "" Then lblSub.Text = """" & dr("subName") & """<br/>"
Line 479:
Line 480: If pageType = db.TYPE_USER Then
Line 481: If pageSect = db.TYPE_BLOG Then lnkBy.NavigateUrl = "index.aspx"
Line 482: If pageSect = db.TYPE_SUBMIT Then lnkBy.NavigateUrl = "fabSelect.aspx"
Line 483:
Line 484: Else
Line 485: If pageSect = db.TYPE_MENU Then
Line 486: byId = -1
Line 487: If IsNumeric(dr("byId").ToString) Then byId = dr("byId").ToString
Line 488: If byId <> -1 Then
Line 489: lnkBy.Text = dr("byName").ToString
Line 490: lnkBy.NavigateUrl = "termMain.aspx?id=" & dr("byId").ToString
Line 491:
Line 492: If pageType <> db.TYPE_CHAR And pageType <> db.TYPE_STORY And pageType <> db.TYPE_TERM Then
Line 493: If Not IsDBNull(dr("pubId")) Then
Line 494: If dr("byId").ToString <> dr("pubId") Then
Line 495: lnkPub.Text = dr("pubName")
Line 496: If pageType = db.TYPE_GAME Then
Line 497: lnkPub.NavigateUrl = "termMain.aspx?id=" & dr("pubId")
Line 498: 'Else
Line 499: 'lnkPub.NavigateUrl = "seriesMain.aspx?id=" & dr("pubId")
Line 500: End If
Line 501:
Line 502: spnPub.Visible = True
Line 503: End If
Line 504: End If
Line 505: End If
Line 506:
Line 507: End If
Line 508: End If
Line 509:
Line 510: If pageType <> db.TYPE_TERM Then
Line 511: If IsDBNull(dr("seriesId")) Then dr("seriesId") = -1
Line 512: If dr("seriesId") <> -1 And dr("seriesId") <> 38 Then
Line 513: spnSeries.Visible = True
Line 514:
Line 515:
Line 516: If pageType = db.TYPE_STORY Then
Line 517: If dr("seriesId") = 24 Then
Line 518: lnkSeries.NavigateUrl = "storySelect.aspx"
Line 519: lnkSeries.Text = "Storyline"
Line 520: Else
Line 521: lnkSeries.NavigateUrl = "storyMain.aspx?id=" & dr("SeriesId") & "&sid=" & pageId
Line 522: lnkSeries.Text = dr("seriesName") & " Storyline"
Line 523: End If
Line 524: Else
Line 525:
Line 526:
Line 527:
Line 528: End If
Line 529:
Line 530: End If
Line 531: End If
Line 532: End If
Line 533:
Line 534:
Line 535: 'Administrative drop down
Line 536: If adminId <> -1 Then
Line 537: spnAdmin.Visible = True
Line 538:
Line 539: If pageType = db.TYPE_CHAR Or pageType = db.TYPE_GAME Then
Line 540:
Line 541: at = db.getTable("SELECT id,name FROM series ORDER BY case when id = 38 then 0 else 1 end,name")
Line 542:
Line 543: ddlAdmin.DataSource = at
Line 544: ddlAdmin.DataValueField = "id"
Line 545: ddlAdmin.DataTextField = "name"
Line 546: ddlAdmin.DataBind()
Line 547:
Line 548: ddlAdmin.SelectedIndex = ddlAdmin.Items.IndexOf(ddlAdmin.Items.FindByValue(dr("seriesId")))
Line 549: btnAdmin.Text = "Update Series"
Line 550: btnAdmin.CommandArgument = pageId
Line 551: ElseIf pageType = db.TYPE_STORY Then
Line 552: at = db.getTable("SELECT id,name FROM story_saga ORDER BY case when id = 24 then 0 else 1 end,name")
Line 553:
Line 554: ddlAdmin.DataSource = at
Line 555: ddlAdmin.DataValueField = "id"
Line 556: ddlAdmin.DataTextField = "name"
Line 557: ddlAdmin.DataBind()
Line 558:
Line 559: ddlAdmin.SelectedIndex = ddlAdmin.Items.IndexOf(ddlAdmin.Items.FindByValue(dr("seriesId")))
Line 560: btnAdmin.Text = "Update Storyline"
Line 561: End If
Line 562: End If
Line 563:
Line 564:
Line 565:
Line 566:
Line 567:
Line 568: End Sub
Line 569:
Line 570: Private Sub buildDDL(ByVal ddlTbl, ByVal pageId)
Line 571: ' lblName.Visible = True
Line 572:
Line 573: If ddlTbl.Rows.count > 1 Then
Line 574: For Each r In ddlTbl.rows
Line 575: r("ddlName") = WebUtility.HtmlDecode(r("ddlName").ToString)
Line 576: Next
Line 577: ddlAlts.Visible = True
Line 578: ddlAlts.DataSource = ddlTbl
Line 579: ddlAlts.DataValueField = "ddlId"
Line 580: ddlAlts.DataTextField = "ddlName"
Line 581: ddlAlts.DataBind()
Line 582: ddlAlts.SelectedIndex = ddlAlts.Items.IndexOf(ddlAlts.Items.FindByValue(pageId))
Line 583: 'lnkNav.Visible = False
Line 584:
Line 585: End If
Line 586:
Line 587: End Sub
Line 588:
Line 589: Sub headContent(ByVal pageStr)
Line 590: Dim hdData
Line 591: Dim dv As DataView
Line 592: Dim ddlFlag = False
Line 593:
Line 594:
Line 595: hdn_pageType.Value = pageStr
Line 596:
Line 597: db.Open("fab")
Line 598: If pageStr = "arena" Then
Line 599:
Line 600: 'hdData = db.getReader("SELECT arenas.name as arenaName FROM arenas WHERE id = " & hdn_pageId.Value)
Line 601: If hdData.Read() Then
Line 602: 'lblName.Text = hdData("arenaName")
Line 603:
Line 604: lnkBy.Text = "Back to Arenas"
Line 605: lnkBy.NavigateUrl = "arenaSelect.aspx"
Line 606: Else
Line 607: 'lblName.Text = "Arenas"
Line 608: lnkBy.Text = "Back to Main Menu"
Line 609: lnkBy.NavigateUrl = "fabSelect.aspx"
Line 610: End If
Line 611: hdData.Close()
Line 612:
Line 613: ddlFlag = True
Line 614: 'hdData = db.getTable("SELECT -1 as altId, alts.id as ddlId, alts.name + ' (' + games.name + ')' as ddlName FROM (arenas as alts INNER JOIN arenas ON arenas.name = alts.name) INNER JOIN games ON games.[id#] = alts.gameId WHERE arenas.id = " & hdn_pageId.Value & " ORDER BY games.name")
Line 615: ElseIf pageStr = "move" Then
Line 616:
Line 617: ' hdData = db.getReader("SELECT char_move.name as moveName,char_move.alias as aliasName,chars.refno as charId,chars.name as charName FROM char_move INNER JOIN chars ON char_move.user = chars.shortname OR char_move.application like '%' & chars.shortname & '%' WHERE char_move.[id#] = " & hdnId.Value & " AND (char_move.user = chars.shortname OR (isnull(char_move.user) and char_move.application like '%' & shortname & '%'))")
Line 618: ' If hdData.Read() Then
Line 619: 'lblName.Text = hdData("moveName")
Line 620: ' If hdData("aliasName").ToString <> "" Then
Line 621: 'lblAlias.Text = "a.k.a. " & hdData("aliasName")
Line 622: ' lbl_aliasBR.Visible = True
Line 623: ' End If
Line 624: 'lnkBy.Text = hdData("charName")
Line 625: ' lnkBy.NavigateUrl = "charMove.aspx?id=" & hdData("charId")
Line 626: ' Else
Line 627: 'lblName.Text = "Movelist"
Line 628: lnkBy.Text = "FIGHT-A-BASE Moves List"
Line 629: lnkBy.NavigateUrl = "fabSelect.aspx"
Line 630: ' End If
Line 631: 'hdData.Close()
Line 632:
Line 633: ' hdData = db.getTable("SELECT -1 as altId, alts.[id#] as ddlId, alts.name & ' (' & chars.name & ')' as ddlName FROM (char_move as alts INNER JOIN char_move ON char_move.name = alts.name) INNER JOIN chars ON chars.shortname = alts.user OR alts.application like '%' & chars.shortname & '%' WHERE char_move.[id#] = " & hdnId.Value & " AND (alts.user = chars.shortname OR (isNull(alts.user) and alts.application like '%' & chars.shortname & '%')) ORDER BY chars.name")
Line 634: ' ddlFlag = True
Line 635: ElseIf pageStr = "tag" Then
Line 636: 'hdData = db.getReader("SELECT tags.name,tags.type,glossary.id as classId, glossary.name as className FROM tags INNER JOIN glossary ON tags.class = glossary.shortname WHERE tags.id = " & hdn_pageId.Value)
Line 637: If hdData.read() Then
Line 638: 'lblName.Text = hdData("name")
Line 639: lnkBy.NavigateUrl = "termMain.aspx?id=" & hdData("classId")
Line 640: lnkBy.Text = db.tagType(hdData("type")) & " " & hdData("className")
Line 641: End If
Line 642:
Line 643: hdData.Close()
Line 644:
Line 645: hdData = Nothing
Line 646: ElseIf pageStr = "term" Then
Line 647: 'hdData = db.getReader("SELECT glossary.name,types.id as typeId, types.name as typeName FROM glossary INNER JOIN glossary as types ON glossary.type = types.shortname WHERE glossary.id = " & hdn_pageId.Value)
Line 648: If hdData.read() Then
Line 649: 'lblName.Text = hdData("name")
Line 650: lnkBy.NavigateUrl = "termMain.aspx?id=" & hdData("typeId")
Line 651: lnkBy.Text = hdData("typeName")
Line 652: End If
Line 653:
Line 654: End If
Line 655:
Line 656: 'lblName.Visible = True
Line 657: 'If ddlFlag Then buildDDL(hdData)
Line 658:
Line 659:
Line 660: dv = headTbl.defaultview
Line 661: 'dv.sort = "lnkText"
Line 662:
Line 663: rptHeader.DataSource = dv.ToTable
Line 664: rptHeader.DataBind()
Line 665:
Line 666:
Line 667: End Sub
Line 668:
Line 669:
Line 670: Sub headInfo(ByVal pageStr As String)
Line 671: headTbl = New DataTable()
Line 672: headTbl.COlumns.Add(New DataColumn("lnkUrl", GetType(System.String)))
Line 673: headTbl.Columns.Add(New DataColumn("lnkText", GetType(System.String)))
Line 674:
Line 675: headRow = headTbl.newrow
Line 676: If pageStr <> "FAQ" Then headRow("lnkUrl") = "faqMain.aspx"
Line 677: headRow("lnkText") = "FAQ"
Line 678: headTbl.rows.add(headRow)
Line 679:
Line 680: headRow = headTbl.newrow
Line 681: If pageStr <> "trivia" Then headRow("lnkUrl") = "triviaMain.aspx"
Line 682: headRow("lnkText") = "Trivia"
Line 683: headTbl.rows.add(headRow)
Line 684:
Line 685: headRow = headTbl.newrow
Line 686: If pageStr <> "tag" Then headRow("lnkUrl") = "tagSelect.aspx"
Line 687: headRow("lnkText") = "Tags"
Line 688: headTbl.rows.add(headRow)
Line 689:
Line 690: headRow = headTbl.newrow
Line 691: If pageStr <> "term" Then headRow("lnkUrl") = "termSelect.aspx"
Line 692: headRow("lnkText") = "Terminology"
Line 693: headTbl.rows.add(headRow)
Line 694:
Line 695:
Line 696: End Sub
Line 697:
Line 698: Sub headSelect(ByVal pageStr As String)
Line 699: hdn_pageType.Value = pageStr
Line 700:
Line 701: If pageStr <> "" Then
Line 702: lnkBy.Text = "Back to Main Menu"
Line 703: lnkBy.NavigateUrl = "fabSelect.aspx"
Line 704:
Line 705: headTbl = New DataTable()
Line 706: headTbl.COlumns.Add(New DataColumn("lnkUrl", GetType(System.String)))
Line 707: headTbl.Columns.Add(New DataColumn("lnkText", GetType(System.String)))
Line 708:
Line 709: If InStr(pageStr, "char") = 0 Then
Line 710: headRow = headTbl.newrow
Line 711: If pageStr <> "quote" Then headRow("lnkUrl") = pageStr & "Select.aspx"
Line 712: headRow("lnkText") = "Master List"
Line 713: headTbl.rows.add(headRow)
Line 714: End If
Line 715:
Line 716:
Line 717: If pageStr = "arena" Then
Line 718: 'lblName.Text = "Arenas"
Line 719:
Line 720: ElseIf InStr(pageStr, "char") > 0 Then
Line 721: 'lblName.Text = "Characters"
Line 722: ElseIf pageStr = "game" Then
Line 723: 'lblName.Text = "Games"
Line 724:
Line 725: headRow = headTbl.newrow
Line 726: 'headRow("lnkUrl") = "gameSelect.aspx"
Line 727: headRow("lnkText") = "Timeline"
Line 728: headTbl.rows.add(headRow)
Line 729: ElseIf pageStr = "move" Then
Line 730: 'lblName.Text = "Movelist"
Line 731:
Line 732: End If
Line 733:
Line 734: 'headRow = headTbl.newrow
Line 735: 'headRow("lnkUrl") = "gameSelect.aspx"
Line 736: 'headRow("lnkText") = "Most Wanted"
Line 737: 'headTbl.rows.add(headRow)
Line 738: Else
Line 739: rptHeader.Visible = False
Line 740:
Line 741: End If
Line 742: End Sub
Line 743:
Line 744:
Line 745:
Line 746:
Line 747: Public Function liUser()
Line 748: Return login.liUser
Line 749: End Function
Line 750:
Line 751: Public Function funLoad()
Line 752: Dim userId = -1
Line 753:
Line 754: userId = login.LoggedIn()
Line 755: If userId = -1 Then Return False
Line 756:
Line 757:
Line 758: 'imgUser.Visible = False
Line 759: login.setUser(userId)
Line 760: masterTheme.userId = userId
Line 761:
Line 762: headBox(-1, -1, -1)
Line 763: divMaxi.Visible = False
Line 764:
Line 765: Return True
Line 766: End Function
Line 767:
Line 768:
Line 769: Sub loadNew(ByVal pageId As Integer, ByVal subId As Integer)
Line 770: 'Dim imgH = LOGO_HEIGHT
Line 771: Dim imgStr = "", typeStr = "", navStr = "" 'Welcome to Fight-A-Base"
Line 772: Dim basicFlag = False, subFlag = False
Line 773: Dim pageTbl As DataTable
Line 774:
Line 775: Dim headFlag = False, siteFlag = False
Line 776: Dim qType As Integer = -1
Line 777:
Line 778: Dim adminId = login.admin
Line 779: Dim userId As Integer = -1
Line 780:
Line 781: Dim head_storyId = -1, head_moveId = -1, head_quoteId = -1, head_sceneId = -1, head_arenaId = -1, head_creditId = -1
Line 782:
Line 783: userId = login.LoggedIn()
Line 784: If userId <> -1 Then
Line 785: login.setUser(userId)
Line 786: divSubs.Visible = True
Line 787: End If
Line 788:
Line 789: subFlag = fs.cookieGet("subMode", False)
Line 790:
Line 791: ddlSubs.SelectedIndex = ddlSubs.Items.IndexOf(ddlSubs.Items.FindByValue(subFlag))
Line 792:
Line 793: masterTheme.userId = userId
Line 794: menuOpen()
Line 795:
Line 796: imgStr = fs.findImage("images/theme/homelogo" & masterTheme.themeId)
Line 797: If pageType = db.TYPE_CHAR Then typeStr = "char"
Line 798: If pageType = db.TYPE_GAME Then typeStr = "game"
Line 799: If pageType = db.TYPE_FAQ Or pageType = db.TYPE_TERM Then typeStr = "site"
Line 800: If pageType = db.TYPE_MOVE Then typeStr = "move"
Line 801: If pageType = db.TYPE_QUOTE Then typeStr = "quote"
Line 802:
Line 803: db.Open("fab")
Line 804:
Line 805:
Line 806: If pageSect = -1 Then
Line 807: lnkNav.NavigateUrl = "fabSelect.aspx"
Line 808: navStr = "Welcome to FIGHT-A-BASE"
Line 809:
Line 810: If pageType = -1 Then
Line 811: basicFlag = True
Line 812: siteFlag = True
Line 813: ElseIf pageType = db.TYPE_FAQ Then
Line 814: menuAdd(db.TYPE_TERM, pageId)
Line 815: menuAdd(db.TYPE_TAGS, pageId)
Line 816: Else
Line 817: basicFlag = True
Line 818: navStr = ""
Line 819: End If
Line 820:
Line 821: Else
Line 822: 'imgStr = fs.findImage("images/theme/" & typeStr & "Menu")
Line 823: 'If imgStr = "" Then imgStr = fs.findImage("images/theme/homelogo" & masterTheme.themeId)
Line 824:
Line 825: If pageId = -1 Then
Line 826: lnkNav.NavigateUrl = "fabSelect.aspx"
Line 827: navStr = "Fight-A-Base Main Menu"
Line 828:
Line 829:
Line 830:
Line 831: If pageType = db.TYPE_QUOTE Then navStr = "FIGHT-A-BASE Dialogue"
Line 832: If pageType = db.TYPE_TAGS Then navStr = "FIGHT-A-BASE Tags"
Line 833: If pageType = db.TYPE_MENU Then navStr = "FIGHT-A-BASE Main Menu"
Line 834:
Line 835: If pageType = db.TYPE_ARENA Or
Line 836: pageType = db.TYPE_QUOTE Or
Line 837: pageType = db.TYPE_TAGS Then
Line 838: basicFlag = True
Line 839: siteFlag = True
Line 840: End If
Line 841:
Line 842:
Line 843: If pageType = db.TYPE_CHAR Then
Line 844: 'menuAdd(db.TYPE_SIMS, pageId)
Line 845: menuAdd(db.TYPE_RANK, pageId)
Line 846:
Line 847: menuAdd(db.TYPE_WANT, pageId)
Line 848:
Line 849: 'lnkNav.NavigateUrl = "charSelect.aspx"
Line 850: navStr = "FIGHT-A-BASE Fighters"
Line 851: siteFlag = True
Line 852: ElseIf pageType = db.TYPE_GAME Then
Line 853: 'menuAdd(MENU_SIMS)
Line 854: menuAdd(db.TYPE_SERIES, pageId)
Line 855:
Line 856: 'lnkNav.NavigateUrl = "gameSelect.aspx"
Line 857: siteFlag = True
Line 858: basicFlag = False
Line 859:
Line 860: navStr = "FIGHT-A-BASE Games"
Line 861: ElseIf pageType = db.TYPE_FAQ Or pageType = db.TYPE_TERM Then
Line 862: imgStr = fs.findImage("images/theme/homelogo" & masterTheme.themeId)
Line 863: lnkNav.NavigateUrl = "faqMain.aspx"
Line 864: ElseIf pageType = db.TYPE_MENU Then
Line 865: basicFlag = True
Line 866: siteFlag = True
Line 867: lnkNav.NavigateUrl = "index.aspx"
Line 868: ElseIf pageType = db.TYPE_MOVE Then
Line 869: menuAdd(db.TYPE_SELECT, pageId)
Line 870: menuAdd(db.TYPE_WANT, pageId)
Line 871: siteFlag = True
Line 872: ElseIf pageType = db.TYPE_SELECT Then
Line 873: 'lnkNav.NavigateUrl = "fabSelect.aspx"
Line 874: 'navStr = "Back to Main Menu"
Line 875: basicFlag = True
Line 876: siteFlag = True
Line 877: ElseIf pageType = db.TYPE_FUN Then
Line 878: navStr = "Welcome to BONUS Game!"
Line 879: lnkNav.NavigateUrl = "funMain.aspx"
Line 880: End If
Line 881:
Line 882: Else
Line 883: If pageType = db.TYPE_QUOTE Or pageType = db.TYPE_MOVE Then
Line 884: basicFlag = True
Line 885: siteFlag = True
Line 886: ElseIf pageType = db.TYPE_TERM Then
Line 887: menuAdd(db.TYPE_TERM, pageId)
Line 888: menuAdd(db.TYPE_FAQ, pageId)
Line 889: Else
Line 890:
Line 891: navStr = "Fight-A-Base"
Line 892:
Line 893: menuAdd(db.TYPE_MENU, pageId)
Line 894:
Line 895: headFlag = False
Line 896: If pageType = db.TYPE_CHAR Then
Line 897: menuAdd(db.TYPE_GAME, pageId)
Line 898:
Line 899: pageTbl = db.getTable("SELECT [id#] from PLOTS where application = '" & pageId & "'")
Line 900: If pageTbl.Rows.Count = 0 Then pageTbl = db.getTable("select id as [id#] from char_Relations INNER JOIn chars ON char_relations.application = chars.shortname or char_Relations.related = chars.shortname WHERE chars.refno = " & pageId)
Line 901: If pageTbl.Rows.Count > 0 Then head_storyId = pageTbl.Rows(0).Item("id#")
Line 902:
Line 903: pageTbl = db.getTable("SELECT id FROM char_move INNER JOIN chars ON char_move.[user] = chars.shortname or char_move.application = chars.shortname WHERE chars.refno = " & pageId)
Line 904: If pageTbl.Rows.Count > 0 Then head_moveId = pageTbl.Rows(0).Item("id")
Line 905:
Line 906: pageTbl = db.getTable("SELECT id FROM char_quote where application = '" & pageId & "'")
Line 907: If pageTbl.Rows.Count > 0 Then head_quoteId = pageTbl.Rows(0).Item("id")
Line 908:
Line 909: pageTbl = db.getTable("SELECT id FROM scene_lines where cId = " & pageId)
Line 910: If pageTbl.Rows.Count > 0 Then head_sceneId = pageTbl.Rows(0).Item("id")
Line 911:
Line 912: pageTbl = db.getTable("SELECT id FROM arenas INNER JOIN chars ON arenas.application = chars.shortname WHERE chars.refno = " & pageId)
Line 913: If pageTbl.Rows.Count > 0 Then head_arenaId = pageTbl.Rows(0).Item("id")
Line 914:
Line 915: pageTbl = db.getTable("SELECT id FROM staffcredit WHERE charId = " & pageId)
Line 916: If pageTbl.Rows.Count > 0 Then head_creditId = pageTbl.Rows(0).Item("id")
Line 917:
Line 918: headFlag = True
Line 919:
Line 920: lnkNav.NavigateUrl = "charSelect.aspx"
Line 921: navStr = "Back to Characters"
Line 922: ElseIf pageType = db.TYPE_GAME Then
Line 923: pageTbl = db.getTable("SELECT [id#] FROM story_Event where game = " & pageId)
Line 924: If pageTbl.Rows.Count > 0 Then head_storyId = pageTbl.Rows(0).Item("id#")
Line 925:
Line 926: pageTbl = db.getTable("SELECT id FROM move2game where game = " & pageId)
Line 927: If pageTbl.Rows.Count > 0 Then head_moveId = pageTbl.Rows(0).Item("id")
Line 928:
Line 929: pageTbl = db.getTable("SELECT id FROM char_quote where game = '" & pageId & "'")
Line 930: If pageTbl.Rows.Count > 0 Then head_quoteId = pageTbl.Rows(0).Item("id")
Line 931:
Line 932: pageTbl = db.getTable("SELECT id FROM scenes where game = " & pageId)
Line 933: If pageTbl.Rows.Count > 0 Then head_sceneId = pageTbl.Rows(0).Item("id")
Line 934:
Line 935: pageTbl = db.getTable("SELECT id FROM arenas WHERE gameId = " & pageId)
Line 936: If pageTbl.Rows.Count > 0 Then head_arenaId = pageTbl.Rows(0).Item("id")
Line 937:
Line 938: pageTbl = db.getTable("SELECT id FROM staffcredit WHERE gameId = " & pageId)
Line 939: If pageTbl.Rows.Count > 0 Then head_creditId = pageTbl.Rows(0).Item("id")
Line 940:
Line 941: lnkNav.NavigateUrl = "gameSelect.aspx"
Line 942: headFlag = True
Line 943: End If
Line 944:
Line 945: If headFlag Then
Line 946:
Line 947: 'Storyline
Line 948: If subsReturn() Or head_storyId <> -1 Then menuAdd(db.TYPE_STORY, pageId)
Line 949:
Line 950: 'Movelists
Line 951: If subsReturn() Or head_moveId <> -1 Then menuAdd(db.TYPE_MOVE, pageId)
Line 952:
Line 953: 'Dialogue
Line 954: If subsReturn() Or head_quoteId <> -1 Then menuAdd(db.TYPE_QUOTE, pageId)
Line 955:
Line 956: 'Arena
Line 957: If subsReturn() Or head_arenaId <> -1 Then menuAdd(db.TYPE_ARENA, pageId)
Line 958:
Line 959: 'Cinema
Line 960: If subsReturn() Or head_sceneId <> -1 Then menuAdd(db.TYPE_CINEMA, pageId)
Line 961:
Line 962: 'Gallery
Line 963: 'di = New IO.DirectoryInfo(Server.MapPath("images/" & preStr & "s/" & headId))
Line 964: 'If hdn_pageSect.Value <> "gallery" And (di.Exists Or subFlag Or Not IsDBNull(dr("costId"))) Then addHeader(ht, preStr & "Gallery.aspx?id=" & headId & subStr, "Gallery")
Line 965: menuAdd(db.TYPE_IMAGE, pageId)
Line 966:
Line 967: '07/22/19 - Credit Header
Line 968: If subsReturn() Or head_creditId <> -1 Then menuAdd(db.TYPE_TERM, pageId)
Line 969:
Line 970: '07/02/21 - Sims Header
Line 971: menuAdd(db.TYPE_SIMS, pageId)
Line 972: End If
Line 973: End If
Line 974:
Line 975: End If
Line 976: End If
Line 977:
Line 978: 'QUOTE BOX
Line 979: qType = pageType
Line 980: If typeStr = "quote" Then pageType = db.TYPE_QUOTE
Line 981:
Line 982: If basicFlag Then
Line 983: If pageType = db.TYPE_GAME Then
Line 984: typeStr = "game"
Line 985: Else
Line 986: menuAdd(db.TYPE_GAME, pageId)
Line 987: End If
Line 988:
Line 989: If pageType = db.TYPE_CHAR Then
Line 990: typeStr = "char"
Line 991: Else
Line 992: menuAdd(db.TYPE_CHAR, pageId)
Line 993: End If
Line 994:
Line 995: If pageType = db.TYPE_IMAGE Then
Line 996: typeStr = "image"
Line 997: Else
Line 998: menuAdd(db.TYPE_IMAGE, pageId)
Line 999: End If
Line 1000:
Line 1001: If pageType = db.TYPE_STORY Then
Line 1002: typeStr = "story"
Line 1003: Else
Line 1004: menuAdd(db.TYPE_STORY, pageId)
Line 1005: End If
Line 1006:
Line 1007: If pageType = db.TYPE_MOVE Then
Line 1008: typeStr = "move"
Line 1009: Else
Line 1010: menuAdd(db.TYPE_MOVE, pageId)
Line 1011: End If
Line 1012:
Line 1013: If pageType = db.TYPE_QUOTE Then
Line 1014: typeStr = "quote"
Line 1015: Else
Line 1016: menuAdd(db.TYPE_QUOTE, pageId)
Line 1017: End If
Line 1018:
Line 1019: If pageType = db.TYPE_ARENA Then
Line 1020: typeStr = "arena"
Line 1021: Else
Line 1022: menuAdd(db.TYPE_ARENA, pageId)
Line 1023: End If
Line 1024:
Line 1025: If typeStr <> "" Then
Line 1026: imgStr = fs.findImage("images/theme/" & typeStr & "Menu")
Line 1027: If imgStr = "" Then imgStr = fs.findImage("images/theme/homelogo" & masterTheme.themeId)
Line 1028: 'If imgStr <> "" Then imgNav.ImageUrl = imgStr
Line 1029: 'imgNav.ImageUrl =
Line 1030:
Line 1031: End If
Line 1032: End If
Line 1033:
Line 1034: If siteFlag Then
Line 1035: menuAdd(db.TYPE_FUN, pageId)
Line 1036: menuAdd(db.TYPE_FAQ, pageId)
Line 1037: End If
Line 1038:
Line 1039: lnkNav.Text = navStr '
Line 1040:
Line 1041: menuClose()
Line 1042:
Line 1043:
Line 1044:
Line 1045: 'imgH = 125
Line 1046:
Line 1047:
Line 1048: headBox(pageType, pageId, subId)
Line 1049:
Line 1050: userBox(userId)
Line 1051:
Line 1052: db.Close()
Line 1053:
Line 1054:
Line 1055: 'lnkBack.Text = navStr
Line 1056: End Sub
Line 1057:
Line 1058: Public Sub userBox(ByVal userId)
Line 1059: Dim userTbl As New DataTable
Line 1060:
Line 1061: 'imgUser.Attributes.Add("onLoad", "imageResize(this," & BOX_WIDTH & "," & BOX_HEIGHT & ");")
Line 1062: 'imgUser.Attributes.Add("onClick", "window.open(this.src,'_blank');")
Line 1063: 'imgUser.Visible = False
Line 1064:
Line 1065: 'userTbl = db.getTable("SELECT id FROM userBonus WHERE userId = " & userId & " and bonusId = " & db.BONUS_DAILY)
Line 1066: 'If userTbl.Rows.Count = 0 Then lnkBonus.Visible = True
Line 1067:
Line 1068: bonHead.userId = userId
Line 1069: bonHead.Reset()
Line 1070:
Line 1071: End Sub
Line 1072:
Line 1073: Sub menuAdd(ByVal menuId As Integer, ByVal pageId As Integer)
Line 1074: Dim typeStr As String
Line 1075:
Line 1076: If pageSect = menuId Then Return
Line 1077:
Line 1078: headRow = headTbl.newrow
Line 1079:
Line 1080: If pageType = db.TYPE_CHAR Then typeStr = "char"
Line 1081: If pageType = db.TYPE_GAME Then typeStr = "game"
Line 1082: If pageType = db.TYPE_MOVE Then typeStr = "move"
Line 1083:
Line 1084: If menuId = db.TYPE_FAQ Then
Line 1085: headRow("lnkUrl") = "faqMain.aspx"
Line 1086: headRow("lnkText") = "Site Info"
Line 1087: ElseIf menuId = db.TYPE_ARENA Then
Line 1088: headRow("lnkUrl") = "arenaSelect.aspx"
Line 1089: headRow("lnkText") = "Arenas"
Line 1090: If typeStr <> "" Then headRow("lnkUrl") = typeStr & "Arena.aspx?id=" & pageId
Line 1091: ElseIf menuId = db.TYPE_CHAR Then
Line 1092: headRow("lnkUrl") = "charSelect.aspx"
Line 1093: headRow("lnkText") = "Fighters"
Line 1094: If typeStr <> "" Then headRow("lnkUrl") = typeStr & "Char.aspx?id=" & pageId
Line 1095: ElseIf menuId = db.TYPE_CINEMA Then
Line 1096: headRow("lnkText") = "Cinema"
Line 1097: If typeStr <> "" Then headRow("lnkUrl") = "charScene.aspx?id=" & pageId
Line 1098: ElseIf menuId = db.TYPE_GAME Then
Line 1099: headRow("lnkUrl") = "gameSelect.aspx"
Line 1100: headRow("lnkText") = "Games"
Line 1101: If typeStr <> "" Then headRow("lnkUrl") = "charGame.aspx?id=" & pageId
Line 1102: ElseIf menuId = db.TYPE_IMAGE Then
Line 1103: headRow("lnkUrl") = "imageSelect.aspx"
Line 1104: headRow("lnkText") = "Gallery"
Line 1105: If typeStr <> "" Then headRow("lnkUrl") = typeStr & "Gallery.aspx?id=" & pageId
Line 1106: ElseIf menuId = db.TYPE_MOVE Then
Line 1107: headRow("lnkUrl") = "moveSelect.aspx"
Line 1108: headRow("lnkText") = "Movelist"
Line 1109: If typeStr <> "" Then headRow("lnkUrl") = typeStr & "Move.aspx?id=" & pageId
Line 1110: ElseIf menuId = db.TYPE_QUOTE Then
Line 1111: headRow("lnkUrl") = "quoteSelect.aspx"
Line 1112: headRow("lnkText") = "Dialogue"
Line 1113: If typeStr <> "" Then headRow("lnkUrl") = typeStr & "Quote.aspx?id=" & pageId
Line 1114: ' ElseIf menuId = db.TYPE_FGC Then
Line 1115: ' headRow("lnkUrl") = "fgcMain.aspx"
Line 1116: ' headRow("lnkText") = "Community"
Line 1117: ' If typeStr <> "" Then headRow("lnkUrl") = typeStr & "FGC.aspx?id=" & pageId
Line 1118: ElseIf menuId = db.TYPE_FUN Then
Line 1119: headRow("lnkUrl") = "funMain.aspx"
Line 1120: headRow("lnkText") = "Fun & Games"
Line 1121: ElseIf menuId = db.TYPE_MENU Then
Line 1122: headRow("lnkUrl") = "fabSelect.aspx"
Line 1123: headRow("lnkText") = "Main Menu"
Line 1124: If typeStr <> "" Then
Line 1125: headRow("lnkUrl") = typeStr & "Main.aspx?id=" & pageId
Line 1126: headRow("lnkText") = "Summary"
Line 1127: End If
Line 1128: ElseIf menuId = db.TYPE_RANK Then
Line 1129: headRow("lnkUrl") = typeStr & "Rank.aspx"
Line 1130: headRow("lnkText") = "Profile Rankings"
Line 1131: ElseIf menuId = db.TYPE_SIMS Then
Line 1132: headRow("lnkUrl") = typeStr & "Sims.aspx?id=" & pageId
Line 1133: headRow("lnkText") = "Similar"
Line 1134: ElseIf menuId = db.TYPE_SELECT Then
Line 1135: headRow("lnkUrl") = typeStr & "Select.aspx"
Line 1136: headRow("lnkText") = "Master List"
Line 1137: ElseIf menuId = db.TYPE_SERIES Then
Line 1138: headRow("lnkUrl") = "seriesSelect.aspx"
Line 1139: headRow("lnkText") = "Series"
Line 1140: ElseIf menuId = db.TYPE_STORY Then
Line 1141: headRow("lnkUrl") = "storySelect.aspx"
Line 1142: headRow("lnkText") = "Storylines"
Line 1143: If typeStr <> "" Then headRow("lnkUrl") = typeStr & "Story.aspx?id=" & pageId
Line 1144: ElseIf menuId = db.TYPE_TAGS Then
Line 1145: headRow("lnkUrl") = "tagSelect.aspx"
Line 1146: headRow("lnkText") = "Tags"
Line 1147: ElseIf menuId = db.TYPE_TERM Then
Line 1148: headRow("lnkUrl") = "termSelect.aspx"
Line 1149: headRow("lnkText") = "Terminology"
Line 1150: If typeStr <> "" Then
Line 1151: headRow("lnkUrl") = typeStr & "Credit.aspx?id=" & pageId
Line 1152: headRow("lnkText") = "Credits"
Line 1153: End If
Line 1154: ElseIf menuId = db.type_Want Then
Line 1155: headRow("lnkUrl") = typeStr & "Wanted.aspx"
Line 1156: headRow("lnkText") = "Most Wanted"
Line 1157: End If
Line 1158: headTbl.rows.add(headRow)
Line 1159:
Line 1160: End Sub
Line 1161:
Line 1162:
Line 1163: Sub menuOpen()
Line 1164: headTbl = New DataTable()
Line 1165: headTbl.COlumns.Add(New DataColumn("lnkUrl", GetType(System.String)))
Line 1166: headTbl.Columns.Add(New DataColumn("lnkText", GetType(System.String)))
Line 1167:
Line 1168: End Sub
Line 1169:
Line 1170:
Line 1171:
Line 1172: Sub menuClose()
Line 1173: rptHeader.DataSource = Nothing
Line 1174: If headTbl.rows.count > 0 Then rptHeader.DataSource = headTbl
Line 1175:
Line 1176: rptHeader.DataBind()
Line 1177: End Sub
Line 1178:
Line 1179: Sub Load(ByVal pageId, ByVal typeId, ByVal pageStr, ByVal userId)
Line 1180:
Line 1181:
Line 1182:
Line 1183:
Line 1184:
Line 1185: If typeId = 0 Or typeId = 1 Then
Line 1186: If typeId = 0 Then hdn_pageType.Value = "char"
Line 1187: If typeId = 1 Then hdn_pageType.Value = "game"
Line 1188:
Line 1189: ElseIf typeId = 3 Then
Line 1190: headContent(pageStr)
Line 1191: ElseIf typeId = 4 Then
Line 1192: hdn_pageType.Value = "select"
Line 1193: headSelect(pageStr)
Line 1194: ElseIf typeId = 7 Then
Line 1195: hdn_pageType.Value = "info"
Line 1196: headInfo(pageStr)
Line 1197: End If
Line 1198:
Line 1199:
Line 1200: End Sub
Line 1201:
Line 1202:
Line 1203:
Line 1204: Function longName(ByVal menuVal)
Line 1205: If menuVal = db.TYPE_ARENA Then Return "Arenas"
Line 1206: If menuVal = db.TYPE_BLOG Then Return "Blog"
Line 1207: If menuVal = db.TYPE_CHAR Then Return "Characters"
Line 1208: If menuVal = db.TYPE_CINEMA Then Return "Cinema"
Line 1209: If menuVal = db.TYPE_FGC Then Return "Community"
Line 1210: If menuVal = db.TYPE_QUOTE Then Return "Dialogue"
Line 1211: If menuVal = db.TYPE_IMAGE Then Return "Gallery"
Line 1212: If menuVal = db.TYPE_GAME Then Return "History"
Line 1213: If menuVal = db.TYPE_MENU Then Return "Summary"
Line 1214: If menuVal = db.TYPE_MOVE Then Return "Movelist"
Line 1215: If menuVal = db.TYPE_REVIEW Then Return "Reviews"
Line 1216: If menuVal = db.TYPE_STORY Then Return "Storyline"
Line 1217: If menuVal = db.TYPE_SUBMIT Then Return "Submissions"
Line 1218: If menuVal = db.TYPE_TERM Then Return "Credits"
Line 1219:
Line 1220: If menuVal = db.TYPE_USER Then
Line 1221: If pageType = "user" Then
Line 1222: Return "Users"
Line 1223: Else
Line 1224: Return "by " & lnkBy.Text
Line 1225: End If
Line 1226: End If
Line 1227:
Line 1228:
Line 1229: Return menuVal
Line 1230: End Function
Line 1231:
Line 1232: Function returnTitle() As String
Line 1233: Dim retStr As String
Line 1234:
Line 1235:
Line 1236:
Line 1237:
Line 1238: retStr = lnkNav.Text & " (" & lnkHead.Text & ")"
Line 1239:
Line 1240: 'If lblAlias.Text <> "" Then retStr = retStr & " / " & Replace(Replace(lblAlias.Text, "a.k.a. ", ""), "<br/>", "")
Line 1241:
Line 1242: If pageType = db.TYPE_CHAR Or pageType = db.TYPE_GAME Or pageType = db.TYPE_MOVE Then
Line 1243: ' retStr = retStr & " " & longName(hdn_pageSect.Value)
Line 1244: retStr = ddlAlts.SelectedItem.Text & " (" & lnkNav.Text & ")"
Line 1245: Else
Line 1246: 'If hdn_pageId.Value <> -1 Then retStr = retStr & " (" & Replace(hdn_pageType.Value, Left(hdn_pageType.Value, 1), UCase(Left(hdn_pageType.Value, 1)), 1, 1) & ")"
Line 1247: End If
Line 1248:
Line 1249: If retStr = "" Then retStr = "Welcome to Fight-A-Base"
Line 1250:
Line 1251: Return retStr & " | Fight-A-Base"
Line 1252: End Function
Line 1253:
Line 1254:
Line 1255:
Line 1256: Sub selectAlt(ByVal sender As Object, ByVal e As EventArgs)
Line 1257: Dim preStr = "fab", sufStr = "Main"
Line 1258:
Line 1259: If pageType = db.TYPE_CHAR Then preStr = "char"
Line 1260: If pageType = db.TYPE_GAME Then preStr = "game"
Line 1261: If pageType = db.TYPE_MOVE Then preStr = "move"
Line 1262: If pageType = db.TYPE_TERM Then preStr = "term"
Line 1263: If pageSect = db.TYPE_MENU Then sufStr = "Main"
Line 1264: If pageSect = db.TYPE_MOVE Then sufStr = "Move"
Line 1265:
Line 1266:
Line 1267:
Line 1268: 'If ddlAlts.SelectedValue <> hdn_pageId.Value Then
Line 1269: Response.Redirect(preStr & sufStr & ".aspx?id=" & ddlAlts.SelectedValue)
Line 1270: 'End If
Line 1271: End Sub
Line 1272:
Line 1273:
Line 1274:
Line 1275: Sub showHeader(ByVal showTbl, ByVal currStr)
Line 1276: Dim linkStr, pageStr, imgStr As String
Line 1277: Dim fgcFlag, imgFlag
Line 1278: Dim di
Line 1279: Dim iPos
Line 1280: Dim dv As New DataView
Line 1281: Dim h
Line 1282:
Line 1283:
Line 1284: fgcFlag = False
Line 1285:
Line 1286:
Line 1287:
Line 1288: If showTbl.rows.count > 0 Then
Line 1289: For h = 0 To showTbl.Columns.Count - 1
Line 1290: If Not IsDBNull(showTbl.Rows(0).Item(h)) And showTbl.Rows(0).Item(h).ToString <> "" Then
Line 1291: linkStr = ""
Line 1292: pageStr = ""
Line 1293: If showTbl.Columns(h).columnName = "headStr" Then hdnShort.Value = showTbl.Rows(0).Item(h)
Line 1294:
Line 1295: If showTbl.Columns(h).columnname = "byName" And currStr = "main" Then
Line 1296: lnkBy.NavigateUrl = "termMain.aspx?id=" & showTbl.rows(0).item("byId").ToString
Line 1297: lnkBy.Text = showTbl.Rows(0).Item("byName").ToString
Line 1298: End If
Line 1299:
Line 1300: If showTbl.Columns(h).columnname = "pubName" And currStr = "main" Then
Line 1301: If Not IsDBNull(showTbl.rows(0).item("pubName")) And showTbl.rows(0).item("pubName").ToString <> "" And showTbl.rows(0).item("pubName").ToString <> showTbl.rows(0).item("byName").ToString Then
Line 1302: spnPub.Visible = True
Line 1303: lnkPub.NavigateUrl = "termMain.aspx?id=" & showTbl.rows(0).item("pubId")
Line 1304: lnkPub.Text = showTbl.rows(0).item("pubName")
Line 1305: End If
Line 1306: End If
Line 1307:
Line 1308:
Line 1309: End If
Line 1310: Next
Line 1311: End If
Line 1312:
Line 1313:
Line 1314:
Line 1315:
Line 1316: End Sub
Line 1317:
Line 1318:
Line 1319: Sub subsChange(sender As Object, e As EventArgs)
Line 1320: Dim subflag = fs.cookieGet("subMode", False)
Line 1321:
Line 1322: If subflag Then
Line 1323: subflag = False
Line 1324: Else
Line 1325: subflag = True
Line 1326: End If
Line 1327:
Line 1328:
Line 1329: 'chkSub.Checked = subflag
Line 1330: ddlSubs.SelectedIndex = ddlSubs.Items.IndexOf(ddlSubs.Items.FindByValue(subflag))
Line 1331:
Line 1332:
Line 1333: fs.cookieSet("subMode", subflag)
Line 1334:
Line 1335:
Line 1336: Response.Redirect(Request.RawUrl, True)
Line 1337: End Sub
Line 1338:
Line 1339: Function subsReturn()
Line 1340: Return ddlSubs.SelectedValue
Line 1341: End Function
Line 1342:
Line 1343: Public Sub headBox(ByVal pageType, ByVal mainId, ByVal subId)
Line 1344: Dim seriesId
Line 1345: Dim imageStr, seriesStr
Line 1346: Dim luRow
Line 1347: Dim dt As New DataTable
Line 1348: Dim ddlSet As New DataSet
Line 1349:
Line 1350: headSub.formWidth = BOX_WIDTH
Line 1351: headSub.UserId = login.liUser
Line 1352: headSub.Admin = login.admin
Line 1353: headSub.Subflag = subsReturn()
Line 1354:
Line 1355: If pageType = db.TYPE_GAME And mainId <> -1 Then
Line 1356: luRow = lu.luGet("games", mainId)
Line 1357: If Not luRow Is Nothing Then
Line 1358: imageStr = fs.pageImage("", mainId, "")
Line 1359:
Line 1360: If imageStr <> "" Then
Line 1361: imgChar.ImageUrl = imageStr
Line 1362: End If
Line 1363:
Line 1364: dt = New DataTable
Line 1365: If IsNumeric(luRow("series")) Then
Line 1366:
Line 1367: If luRow("series") <> -1 And luRow("Series") <> 38 Then
Line 1368: lnkNav.NavigateUrl = "seriesMain.aspx?id=" & luRow("Series") & "&gId=" & mainId
Line 1369: lnkNav.Text = luRow("seriesName") & " Games"
Line 1370: 'If pageSect = db.TYPE_MOVE Then lnkNav.Text = luRow("seriesName") & " Movelist"
Line 1371:
Line 1372: dt = db.getTable("select games.[id#] as ddlId, case when alias <> '' then games.name + ' / ' + games.alias else games.name end as ddlName,game_releases.release FROM games INNER JOIN game_releases ON game_releases.game = games.[id#] WHERE series = '" & luRow("series") & "'")
Line 1373: dt = db.dateBuild(dt, "release", "ddlId", True)
Line 1374:
Line 1375: End If
Line 1376: End If
Line 1377: If dt.Rows.Count = 0 Then
Line 1378: lnkNav.NavigateUrl = "termMain.aspx?id=" & luRow("developer")
Line 1379: lnkNav.Text = luRow("devName") & " Games"
Line 1380: dt = db.getTable("select games.[id#] as ddlId, case when alias <> '' then games.name + ' / ' + games.alias else games.name end as ddlName,game_releases.release FROM games INNER JOIN game_releases ON game_releases.game = games.[id#] WHERE developer = '" & luRow("developer") & "'")
Line 1381: End If
Line 1382:
Line 1383: If dt.Rows.Count > 0 Then buildDDL(dt, mainId)
Line 1384:
Line 1385: lnkData.NavigateUrl = "termMain.aspx?id=" & luRow("developer")
Line 1386: lnkData.Text = luRow("devName").ToString
Line 1387: End If
Line 1388:
Line 1389:
Line 1390: If hdn_pageSect.Value = db.TYPE_QUOTE Then lnkNav.NavigateUrl = "quoteSelect.aspx"
Line 1391: lnkNav.Text = luRow("name")
Line 1392: If hdn_pageSect.Value <> -1 Then lnkNav.Text = lnkNav.Text & " " & longName(hdn_pageSect.Value)
Line 1393: dt = db.getTable("SELECT case when alts.series is null then games.series else alts.series end as altId,case when alts.[id#] is null then games.[id#] else alts.[id#] end as ddlId,'' as shortname,case when alts.name is null then games.name else alts.name end as ddlName,case when alts.alias is null then games.alias else alts.alias end as alias,case when alts.subname is null then games.subname else alts.subname end as subName,game_releases.release,devs.id as byId,devs.name as byName,pubs.id as pubId,pubs.name as pubName,series.id as seriesId,series.name as seriesName FROM ((((games LEFT OUTER JOIN games AS alts ON games.series = alts.series) LEFT OUTER JOIN glossary as devs ON games.developer = cast(devs.id as nvarchar(10))) LEFT OUTER JOIN glossary as pubs ON games.publisher = cast(pubs.id as nvarchar(10))) LEFT OUTER JOIN game_releases ON game_releases.game = alts.[id#]) LEFT OUTER JOIN series ON series.id = games.series WHERE games.[id#] = " & mainId & " ORDER BY alts.name")
Line 1394: If dt.Rows.Count > 1 Then
Line 1395: If dt.Rows(0).Item("altId").ToString <> "38" And dt.Rows(0).Item("altId").ToString <> "Unsorted" Then buildDDL(db.dateBuild(dt, "release", "ddlId", True), mainId)
Line 1396:
Line 1397: End If
Line 1398:
Line 1399:
Line 1400: headSub.form_gameTags(mainId)
Line 1401:
Line 1402: dt = db.getTable("SELECT 'gameSelect.aspx?tId=' + cast(tags.id as nvarchar(5)) as dlLink, tags.name as dlName FROM tag2game INNER JOIN tags ON tag2game.tag = tags.id WHERE game = " & mainId & " order by tags.name")
Line 1403: dlHead.DataSource = dt
Line 1404: dlHead.DataBind()
Line 1405:
Line 1406: ElseIf pageType = db.type_move Then
Line 1407: lnkNav.Text = "FIGHT-A-BASE Movelist"
Line 1408:
Line 1409:
Line 1410: If mainId <> -1 Then
Line 1411: luRow = lu.luGet("moves", mainId)
Line 1412: 'luRow = Nothing
Line 1413: If Not luRow Is Nothing Then
Line 1414: lnkNav.NavigateUrl = "charMove.aspx?id=" & luRow("charId")
Line 1415: 'lnkNav.Text = luRow("charName") & " Movelist"
Line 1416:
Line 1417: lblDetail.Text = luRow("moveDesc").ToString
Line 1418:
Line 1419: imageStr = fs.pageImage(luRow("charStr"), -1, "select")
Line 1420: If imageStr = "" Then imageStr = fs.findFile("images/chars/select/" & luRow("charStr"))
Line 1421: If imageStr <> "" Then
Line 1422: imgChar.ImageUrl = imageStr
Line 1423: End If
Line 1424:
Line 1425: dt = db.getTable("SELECT alts.id as ddlId, case when alts.alias <> '' then alts.name + ' / ' + alts.alias else alts.name end as ddlName FROM char_move as alts INNER JOIN char_move ON char_move.[user] = alts.[user] or char_move.[application] = alts.[application] WHERE char_move.id = " & mainId & " ORDER BY alts.name")
Line 1426: buildDDL(dt, mainId)
Line 1427: End If
Line 1428:
Line 1429:
Line 1430: dt = db.getTable("SELECT 'moveSelect.aspx?tId=' + cast(tags.id as nvarchar(5)) as dlLink, tags.name as dlName FROM tag2move INNER JOIN tags ON tag2move.tag = tags.id WHERE tag2move.move = " & mainId & " order by tags.name")
Line 1431: dlHead.DataSource = dt
Line 1432: dlHead.DataBind()
Line 1433:
Line 1434: headSub.moveTag_form(mainId)
Line 1435: headSub.titleNav = "tagSelect.aspx"
Line 1436: Else
Line 1437:
Line 1438: quoteBox(pageType)
Line 1439: End If
Line 1440: ElseIf pageType = db.TYPE_TERM Then
Line 1441: luRow = lu.luGet("terms", mainId)
Line 1442: lnkNav.NavigateUrl = "termMain.aspx?id=" & luRow("typeId")
Line 1443: lnkNav.Text = "FIGHT-A-BASE " & luRow("typeName")
Line 1444: lblDetail.Text = luRow("termDesc").ToString
Line 1445:
Line 1446: dt = db.getTable("SELECT alts.id as ddlID, alts.name as ddlName FROM glossary INNER JOIN glossary as alts ON glossary.type = alts.type WHERE glossary.id = " & mainId & " ORDER by alts.Name")
Line 1447: buildDDL(dt, mainId)
Line 1448:
Line 1449: ElseIf pageType <> db.TYPE_CHAR Or mainId = -1 Then
Line 1450: quoteBox(pageType)
Line 1451:
Line 1452: Else
Line 1453:
Line 1454: luRow = lu.luGet("chars", mainId)
Line 1455: If Not luRow Is Nothing Then
Line 1456: hdnShort.Value = luRow("shortname")
Line 1457: 'If hdn_pageSect.Value = db.TYPE_QUOTE Then lnkNav.NavigateUrl = "quoteSelect.aspx"
Line 1458: 'lnkNav.Text = luRow("name")
Line 1459: 'If hdn_pageSect.Value <> -1 Then lnkNav.Text = lnkNav.Text & " " & longName(hdn_pageSect.Value)
Line 1460:
Line 1461: 'fix id#
Line 1462: If luRow("id#").ToString = "-1" Then
Line 1463: ddlSet = db.getUpdate("SELECT [id#],[order#],refno,shortname from chars WHERE [id#] = -1", "ddl", 0)
Line 1464: For Each r In ddlSet.Tables(0).Rows
Line 1465: r("id#") = r("refno")
Line 1466: r("order#") = -1
Line 1467: Next
Line 1468: db.setUpdate(ddlSet, "ddl", 0)
Line 1469: luRow("id#") = mainId
Line 1470: End If
Line 1471:
Line 1472:
Line 1473: 'fix order#
Line 1474: If luRow("order#").ToString = "-1" Then
Line 1475: ddlSet = db.getUpdate("SELECT [id#],[order#],shortname from chars WHERE [id#] = " & luRow("id#") & " ORDER BY refno ASC", "ddl", 0)
Line 1476: For Each r In ddlSet.Tables(0).Rows
Line 1477:
Line 1478: r("order#") = ddlSet.Tables(0).Rows.IndexOf(r)
Line 1479: Next
Line 1480: db.setUpdate(ddlSet, "ddl", 0)
Line 1481: End If
Line 1482:
Line 1483:
Line 1484: dt = db.getTable("SELECT alts.[id#] as altId,alts.shortname as charStr, alts.refno as ddlId,case when alts.alias <> '' then alts.name + ' / ' + alts.alias else alts.name end as ddlName,alts.sex,'' as subName,devs.id as byId,devs.name as byName,case when series.id is null then 38 else series.[id] end as seriesId,case when series.name is null then '' else series.name end as seriesName FROM ((chars INNER JOIN chars AS alts ON chars.[id#] = alts.[id#]) LEFT OUTER JOIN glossary as devs on alts.affiliation = cast(devs.id as nvarchar(10))) LEFT OUTER JOIN series ON cast(series.id as nvarchar(10)) = alts.series WHERE chars.refno = " & mainId & " ORDER BY alts.[order#]")
Line 1485: If dt.Rows.Count = 0 Then
Line 1486: Response.Write("headbox returned no characters, bummer...")
Line 1487: Else
Line 1488:
Line 1489: For Each r In dt.Rows
Line 1490: If r("ddlId") = mainId Then
Line 1491: imageStr = fs.pageImage(r("charStr"), subId, "select")
Line 1492: If imageStr <> "" Then imgChar.ImageUrl = imageStr
Line 1493: End If
Line 1494: Next
Line 1495:
Line 1496: If dt.Rows.Count > 1 Then
Line 1497:
Line 1498: seriesStr = dt.Rows(0).Item("ddlName")
Line 1499:
Line 1500:
Line 1501: lnkNav.Text = seriesStr & " Variations"
Line 1502: If pageSect = db.TYPE_GAME Then lnkNav.Text = seriesStr & " Games"
Line 1503: If pageSect = db.TYPE_MOVE Then lnkNav.Text = seriesStr & " Movelist"
Line 1504: 'seriesId = dt.Rows(0).Item("seriesId")
Line 1505:
Line 1506:
Line 1507:
Line 1508: Else
Line 1509: seriesId = dt.Rows(0).Item("seriesId")
Line 1510:
Line 1511: If seriesId <> -1 And seriesId <> 38 Then
Line 1512: seriesStr = dt.Rows(0).Item("seriesName")
Line 1513: dt = db.getTable("SELECT refno as ddlId,case when alias <> '' then chars.name + ' / ' + alias else chars.name + ' (' + devs.name + ')' end as ddlName,sex,alias,'' as subName,devs.id as byId FROM chars LEFT OUTER JOIN glossary as devs on affiliation = cast(devs.id as nvarchar(10)) WHERE chars.series = '" & seriesId & "' ORDER BY chars.name")
Line 1514: Else
Line 1515: dt = db.getTable("SELECT refno as ddlId,case when alias <> '' then chars.name + ' / ' + alias else chars.name + ' (' + devs.name + ')' end as ddlname,sex,alias,'' as subName,devs.id as byId FROM chars LEFT OUTER JOIN glossary as devs on affiliation = cast(devs.id as nvarchar(10)) where chars.affiliation = '" & luRow("affiliation") & "' ORDER BY chars.name")
Line 1516: seriesStr = luRow("byName")
Line 1517: End If
Line 1518:
Line 1519: lnkNav.Text = seriesStr & " Characters"
Line 1520: If pageSect = db.TYPE_MOVE Then
Line 1521: lnkNav.Text = seriesStr & " Character Movelist"
Line 1522: lnkNav.NavigateUrl = "moveSelect.aspx"
Line 1523: End If
Line 1524: 'If dt.Rows(0).Item("seriesId") <> -1 And dt.Rows(0).Item("seriesId") <> 38 Then
Line 1525: 'dt = db.getTable()
Line 1526:
Line 1527: End If
Line 1528:
Line 1529: buildDDL(dt, mainId)
Line 1530: End If
Line 1531:
Line 1532:
Line 1533: ' If luRow("alias").ToString <> "" Then
Line 1534: lnkData.Text = luRow("byName")
Line 1535: lnkData.NavigateUrl = "termMain.aspx?id=" & luRow("affiliation")
Line 1536: ' Else
Line 1537: ' lnkData.Visible = False
Line 1538: ' End If
Line 1539:
Line 1540: If subId <> -1 Then
Line 1541: headSub.form_charTags(subsReturn, hdnShort.Value, login.liUser, mainId, subId)
Line 1542: End If
Line 1543:
Line 1544: dt = db.getTable("SELECT 'charSelect.aspx?tId=' + cast(tags.id as nvarchar(5)) as dlLink, tags.name as dlName FROM (tag2char INNER JOIN tags ON tag2char.tag = tags.id) INNER JOIN chars ON tag2char.charStr = chars.shortname WHERE refno = " & mainId & " order by tags.name")
Line 1545: dlHead.DataSource = dt
Line 1546: dlHead.DataBind()
Line 1547:
Line 1548:
Line 1549: End If
Line 1550:
Line 1551:
Line 1552: luRow = lu.luGet("games", subId)
Line 1553: If Not luRow Is Nothing Then
Line 1554: 'lnkData.NavigateUrl = "gameMain.aspx?id=" & subId
Line 1555: 'lnkData.Text = luRow("name")
Line 1556: Else
Line 1557:
Line 1558: 'lnkNav.Text = luRow("name")
Line 1559: 'End If
Line 1560: End If
Line 1561:
Line 1562: End If
Line 1563:
Line 1564: dlHead.RepeatColumns = COL_COUNT
Line 1565: 'If dlHead.Items.Count < 7 Then dlHead.RepeatColumns = 5
Line 1566:
Line 1567:
Line 1568: imgChar.Attributes.Add("onLoad", "imageSize(this," & imgWidth & "," & imgHeight & ");")
Line 1569: imgChar.Attributes.Add("onClick", "window.open(this.src,'_blank');")
Line 1570: End Sub
Line 1571:
Line 1572: Public Sub quoteBox(ByVal pageType)
Line 1573: Dim loopCnt = 0
Line 1574: Dim rowId As Integer = -1
Line 1575: Dim charStr, imageStr, whereStr As String
Line 1576: Dim qRow As DataRow
Line 1577: Dim qTbl As New DataTable
Line 1578: Dim reasonStr = "", lStr = "", notStr = ""
Line 1579:
Line 1580: '2d-3d, final boss, beautiful, celebtriy, girl power, parent, politician, new challenger
Line 1581: '285 - parent
Line 1582: '289 - beautiful
Line 1583: '304 - 4th wall
Line 1584: Dim tagStr = "(tag = 374 or " & _
Line 1585: "tag = 260 or " & _
Line 1586: "tag = 227 or " & _
Line 1587: "tag = 187 or " & _
Line 1588: "tag = 476 or " & _
Line 1589: "tag = 553 or " & _
Line 1590: "tag = 304 or " & _
Line 1591: "tag = 289 or " & _
Line 1592: "tag = 235)" 'final boss"
Line 1593: If pageType = db.TYPE_FUN Then tagStr = "tag = 322"
Line 1594:
Line 1595: whereStr = "WHERE " & tagStr
Line 1596:
Line 1597:
Line 1598: lStr = "lower(reason)"
Line 1599: reasonStr = "(" & lStr & " like '%match start%' or " &
Line 1600: lStr & " like '%before battle%' or " &
Line 1601: lStr & " like '%prefight%' or " &
Line 1602: lStr & " like '%tag in%' or " &
Line 1603: lStr & " like '%throw%' or " &
Line 1604: lStr & " like '%taunt%' or " &
Line 1605: lStr & " like '%teleport%' or " &
Line 1606: lStr & " like '%ridicule%' or " &
Line 1607: lStr & " like '%round win quote%')" ' or " & _
Line 1608: 'lStr & " like '%character select%')"
Line 1609:
Line 1610: notStr = " and lower([reason]) not like '%vs%'" &
Line 1611: " and lower([reason]) not like '%vs.%'" &
Line 1612: " and lower([reason]) not like '%battle with%'" &
Line 1613: " and len([detail]) < 190"
Line 1614:
Line 1615: whereStr = whereStr & " and " & reasonStr & notStr
Line 1616: '(reason like 'win quote' or reason like '%before battle%' or reason like '%match start%' or reason like '%tag in%' or reason like '%intro%' or reason like '%character select%' or reason like '%entry%')"
Line 1617:
Line 1618: 'If pageType = qdb.TYPE_QUOTE Then whereStr = " and (reason like '%taunt%')"
Line 1619:
Line 1620:
Line 1621:
Line 1622:
Line 1623: db.Open("fab")
Line 1624:
Line 1625:
Line 1626: qTbl = db.getTable("SELECT chars.shortname as charStr, chars.name as charName,chars.refno as charId,char_Quote.game as gameId,games.name as gameName,reason,detail FROM ((chars INNER JOIN tag2char ON tag2char.charStr = chars.shortname) INNER JOIN char_quote ON application = cast(chars.refno as nvarchar(20))) INNER JOIN games ON char_quote.game = games.[id#]" & whereStr)
Line 1627:
Line 1628: ' qTbl = qdb.getTable("SELECT chars.shortname as charStr, chars.name as charName,chars.refno as charId,game as gameId,games.name as gameName,reason,detail FROM (char_quote INNER JOIN chars ON application = cast(chars.refno as nvarchar(20))) INNER JOIN games ON char_quote.game = games.[id#]" & whereStr)
Line 1629:
Line 1630: db.Close()
Line 1631:
Line 1632: Randomize()
Line 1633: If qTbl.Rows.Count > 0 Then
Line 1634: Do
Line 1635: loopCnt = loopCnt + 1
Line 1636: rowId = Rnd() * (qTbl.Rows.Count - 1)
Line 1637: qRow = qTbl.Rows(rowId)
Line 1638:
Line 1639: charStr = qRow("charStr")
Line 1640:
Line 1641:
Line 1642: imageStr = fs.pageImage(charStr, qRow("gameId"), "quote")
Line 1643: If imageStr = "" Then imageStr = fs.pageImage(charStr, qRow("gameId"), "game")
Line 1644: If imageStr = "" Then imageStr = fs.findImage("images/chars/select/" & qRow("charStr") & "-" & qRow("gameId"))
Line 1645: If imageStr = "" Then imageStr = fs.findImage("images/chars/select/" & qRow("charStr"))
Line 1646: If imageStr <> "" Then
Line 1647:
Line 1648: imgChar.ImageUrl = imageStr
Line 1649:
Line 1650:
Line 1651: lnkData.NavigateUrl = "charQuote.aspx?id=" & qRow("charId") & "&gId=" & qRow("gameId")
Line 1652:
Line 1653: lnkData.Text = qRow("charName") & " (" & qRow("gameName") & ")"
Line 1654:
Line 1655: lblDetail.Text = qRow("detail")
Line 1656: Else
Line 1657: rowId = -1
Line 1658: End If
Line 1659: Loop While rowId = -1 And loopCnt < 50
Line 1660: End If
Line 1661: End Sub
Line 1662:
Line 1663: Public Function bonusReturn()
Line 1664: Return bonHead
Line 1665: End Function
Line 1666:
Line 1667: Sub search(ByVal sender As Object, ByVal e As EventArgs)
Line 1668: Dim txtObj
Line 1669: txtObj = FindControl("txtSearch")
Line 1670:
Line 1671: Response.Redirect("fabSearch.aspx?s=" & txtObj.text)
Line 1672: End Sub
Line 1673:
Line 1674: Public Function login()
Line 1675: Return li
Line 1676: End Function
Line 1677:
Line 1678: Public Function theme()
Line 1679: Return masterTheme
Line 1680: End Function
Line 1681:
Line 1682: #End ExternalSource
Line 1683:
Line 1684:
Line 1685: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1686: Public Sub New()
Line 1687: MyBase.New
Line 1688: CType(Me,Global.System.Web.UI.UserControl).AppRelativeVirtualPath = "~/header.ascx"
Line 1689: If (Global.ASP.header.__initialized = false) Then
Line 1690: Global.ASP.header.__initialized = true
Line 1691: End If
Line 1692: End Sub
Line 1693:
Line 1694: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 1695: Get
Line 1696: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 1697: End Get
Line 1698: End Property
Line 1699:
Line 1700: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 1701: Get
Line 1702: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 1703: End Get
Line 1704: End Property
Line 1705:
Line 1706: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1707: Private Function __BuildControldb() As Global.ASP.dbconnect
Line 1708: Dim __ctrl As Global.ASP.dbconnect
Line 1709:
Line 1710: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1436)
Line 1711: __ctrl = New Global.ASP.dbconnect()
Line 1712:
Line 1713: #End ExternalSource
Line 1714: Me.db = __ctrl
Line 1715:
Line 1716: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1436)
Line 1717: __ctrl.InitializeAsUserControl(Me.Page)
Line 1718:
Line 1719: #End ExternalSource
Line 1720:
Line 1721: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1436)
Line 1722: __ctrl.ID = "db"
Line 1723:
Line 1724: #End ExternalSource
Line 1725: Return __ctrl
Line 1726: End Function
Line 1727:
Line 1728: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1729: Private Function __BuildControlfs() As Global.ASP.files
Line 1730: Dim __ctrl As Global.ASP.files
Line 1731:
Line 1732: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1437)
Line 1733: __ctrl = New Global.ASP.files()
Line 1734:
Line 1735: #End ExternalSource
Line 1736: Me.fs = __ctrl
Line 1737:
Line 1738: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1437)
Line 1739: __ctrl.InitializeAsUserControl(Me.Page)
Line 1740:
Line 1741: #End ExternalSource
Line 1742:
Line 1743: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1437)
Line 1744: __ctrl.ID = "fs"
Line 1745:
Line 1746: #End ExternalSource
Line 1747: Return __ctrl
Line 1748: End Function
Line 1749:
Line 1750: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1751: Private Function __BuildControllu() As Global.ASP.lookup
Line 1752: Dim __ctrl As Global.ASP.lookup
Line 1753:
Line 1754: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1438)
Line 1755: __ctrl = New Global.ASP.lookup()
Line 1756:
Line 1757: #End ExternalSource
Line 1758: Me.lu = __ctrl
Line 1759:
Line 1760: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1438)
Line 1761: __ctrl.InitializeAsUserControl(Me.Page)
Line 1762:
Line 1763: #End ExternalSource
Line 1764:
Line 1765: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1438)
Line 1766: __ctrl.ID = "lu"
Line 1767:
Line 1768: #End ExternalSource
Line 1769: Return __ctrl
Line 1770: End Function
Line 1771:
Line 1772: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1773: Private Function __BuildControlhdnSubmit() As Global.System.Web.UI.WebControls.HiddenField
Line 1774: Dim __ctrl As Global.System.Web.UI.WebControls.HiddenField
Line 1775:
Line 1776: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1440)
Line 1777: __ctrl = New Global.System.Web.UI.WebControls.HiddenField()
Line 1778:
Line 1779: #End ExternalSource
Line 1780: Me.hdnSubmit = __ctrl
Line 1781:
Line 1782: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1440)
Line 1783: __ctrl.ID = "hdnSubmit"
Line 1784:
Line 1785: #End ExternalSource
Line 1786:
Line 1787: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1440)
Line 1788: __ctrl.Value = "false"
Line 1789:
Line 1790: #End ExternalSource
Line 1791: Return __ctrl
Line 1792: End Function
Line 1793:
Line 1794: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1795: Private Function __BuildControlhdnShort() As Global.System.Web.UI.WebControls.HiddenField
Line 1796: Dim __ctrl As Global.System.Web.UI.WebControls.HiddenField
Line 1797:
Line 1798: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1442)
Line 1799: __ctrl = New Global.System.Web.UI.WebControls.HiddenField()
Line 1800:
Line 1801: #End ExternalSource
Line 1802: Me.hdnShort = __ctrl
Line 1803:
Line 1804: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1442)
Line 1805: __ctrl.ID = "hdnShort"
Line 1806:
Line 1807: #End ExternalSource
Line 1808: Return __ctrl
Line 1809: End Function
Line 1810:
Line 1811: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1812: Private Function __BuildControlhdn_pageType() As Global.System.Web.UI.WebControls.HiddenField
Line 1813: Dim __ctrl As Global.System.Web.UI.WebControls.HiddenField
Line 1814:
Line 1815: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1443)
Line 1816: __ctrl = New Global.System.Web.UI.WebControls.HiddenField()
Line 1817:
Line 1818: #End ExternalSource
Line 1819: Me.hdn_pageType = __ctrl
Line 1820:
Line 1821: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1443)
Line 1822: __ctrl.ID = "hdn_pageType"
Line 1823:
Line 1824: #End ExternalSource
Line 1825:
Line 1826: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1443)
Line 1827: __ctrl.Value = ""
Line 1828:
Line 1829: #End ExternalSource
Line 1830: Return __ctrl
Line 1831: End Function
Line 1832:
Line 1833: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1834: Private Function __BuildControlhdn_pageSect() As Global.System.Web.UI.WebControls.HiddenField
Line 1835: Dim __ctrl As Global.System.Web.UI.WebControls.HiddenField
Line 1836:
Line 1837: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1444)
Line 1838: __ctrl = New Global.System.Web.UI.WebControls.HiddenField()
Line 1839:
Line 1840: #End ExternalSource
Line 1841: Me.hdn_pageSect = __ctrl
Line 1842:
Line 1843: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1444)
Line 1844: __ctrl.ID = "hdn_pageSect"
Line 1845:
Line 1846: #End ExternalSource
Line 1847:
Line 1848: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1444)
Line 1849: __ctrl.Value = ""
Line 1850:
Line 1851: #End ExternalSource
Line 1852: Return __ctrl
Line 1853: End Function
Line 1854:
Line 1855: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1856: Private Function __BuildControlhdnWidth() As Global.System.Web.UI.WebControls.HiddenField
Line 1857: Dim __ctrl As Global.System.Web.UI.WebControls.HiddenField
Line 1858:
Line 1859: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1446)
Line 1860: __ctrl = New Global.System.Web.UI.WebControls.HiddenField()
Line 1861:
Line 1862: #End ExternalSource
Line 1863: Me.hdnWidth = __ctrl
Line 1864:
Line 1865: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1446)
Line 1866: __ctrl.ID = "hdnWidth"
Line 1867:
Line 1868: #End ExternalSource
Line 1869:
Line 1870: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1446)
Line 1871: __ctrl.Value = "0"
Line 1872:
Line 1873: #End ExternalSource
Line 1874: Return __ctrl
Line 1875: End Function
Line 1876:
Line 1877: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1878: Private Function __BuildControlhdnHeight() As Global.System.Web.UI.WebControls.HiddenField
Line 1879: Dim __ctrl As Global.System.Web.UI.WebControls.HiddenField
Line 1880:
Line 1881: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1447)
Line 1882: __ctrl = New Global.System.Web.UI.WebControls.HiddenField()
Line 1883:
Line 1884: #End ExternalSource
Line 1885: Me.hdnHeight = __ctrl
Line 1886:
Line 1887: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1447)
Line 1888: __ctrl.ID = "hdnHeight"
Line 1889:
Line 1890: #End ExternalSource
Line 1891:
Line 1892: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1447)
Line 1893: __ctrl.Value = "0"
Line 1894:
Line 1895: #End ExternalSource
Line 1896: Return __ctrl
Line 1897: End Function
Line 1898:
Line 1899: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1900: Private Function __BuildControlimgChar() As Global.System.Web.UI.WebControls.Image
Line 1901: Dim __ctrl As Global.System.Web.UI.WebControls.Image
Line 1902:
Line 1903: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1454)
Line 1904: __ctrl = New Global.System.Web.UI.WebControls.Image()
Line 1905:
Line 1906: #End ExternalSource
Line 1907: Me.imgChar = __ctrl
Line 1908: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 1909:
Line 1910: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1454)
Line 1911: __ctrl.ID = "imgChar"
Line 1912:
Line 1913: #End ExternalSource
Line 1914: Return __ctrl
Line 1915: End Function
Line 1916:
Line 1917: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1918: Private Function __BuildControlimgSymbol() As Global.System.Web.UI.WebControls.Image
Line 1919: Dim __ctrl As Global.System.Web.UI.WebControls.Image
Line 1920:
Line 1921: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1455)
Line 1922: __ctrl = New Global.System.Web.UI.WebControls.Image()
Line 1923:
Line 1924: #End ExternalSource
Line 1925: Me.imgSymbol = __ctrl
Line 1926: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 1927:
Line 1928: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1455)
Line 1929: __ctrl.ID = "imgSymbol"
Line 1930:
Line 1931: #End ExternalSource
Line 1932:
Line 1933: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1455)
Line 1934: __ctrl.Visible = false
Line 1935:
Line 1936: #End ExternalSource
Line 1937:
Line 1938: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1455)
Line 1939: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "badge")
Line 1940:
Line 1941: #End ExternalSource
Line 1942:
Line 1943: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1455)
Line 1944: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("style", "left:0px")
Line 1945:
Line 1946: #End ExternalSource
Line 1947: Return __ctrl
Line 1948: End Function
Line 1949:
Line 1950: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1951: Private Function __BuildControlddlAdmin() As Global.System.Web.UI.WebControls.DropDownList
Line 1952: Dim __ctrl As Global.System.Web.UI.WebControls.DropDownList
Line 1953:
Line 1954: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1459)
Line 1955: __ctrl = New Global.System.Web.UI.WebControls.DropDownList()
Line 1956:
Line 1957: #End ExternalSource
Line 1958: Me.ddlAdmin = __ctrl
Line 1959: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 1960:
Line 1961: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1459)
Line 1962: __ctrl.ID = "ddlAdmin"
Line 1963:
Line 1964: #End ExternalSource
Line 1965: Return __ctrl
Line 1966: End Function
Line 1967:
Line 1968: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1969: Private Function __BuildControlbtnAdmin() As Global.System.Web.UI.WebControls.Button
Line 1970: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 1971:
Line 1972: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1460)
Line 1973: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 1974:
Line 1975: #End ExternalSource
Line 1976: Me.btnAdmin = __ctrl
Line 1977: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 1978:
Line 1979: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1460)
Line 1980: __ctrl.ID = "btnAdmin"
Line 1981:
Line 1982: #End ExternalSource
Line 1983:
Line 1984: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1460)
Line 1985: __ctrl.Text = "Update"
Line 1986:
Line 1987: #End ExternalSource
Line 1988:
Line 1989: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1460)
Line 1990: AddHandler __ctrl.Command, AddressOf Me.adminUpdate
Line 1991:
Line 1992: #End ExternalSource
Line 1993: Return __ctrl
Line 1994: End Function
Line 1995:
Line 1996: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1997: Private Function __BuildControlspnAdmin() As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 1998: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 1999:
Line 2000: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2001: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlGenericControl("div")
Line 2002:
Line 2003: #End ExternalSource
Line 2004: Me.spnAdmin = __ctrl
Line 2005:
Line 2006: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2007: __ctrl.ID = "spnAdmin"
Line 2008:
Line 2009: #End ExternalSource
Line 2010:
Line 2011: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2012: __ctrl.Visible = false
Line 2013:
Line 2014: #End ExternalSource
Line 2015: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 2016:
Line 2017: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2018: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2019:
Line 2020: #End ExternalSource
Line 2021: Dim __ctrl1 As Global.System.Web.UI.WebControls.DropDownList
Line 2022:
Line 2023: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2024: __ctrl1 = Me.__BuildControlddlAdmin
Line 2025:
Line 2026: #End ExternalSource
Line 2027:
Line 2028: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2029: __parser.AddParsedSubObject(__ctrl1)
Line 2030:
Line 2031: #End ExternalSource
Line 2032:
Line 2033: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2034: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2035:
Line 2036: #End ExternalSource
Line 2037: Dim __ctrl2 As Global.System.Web.UI.WebControls.Button
Line 2038:
Line 2039: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2040: __ctrl2 = Me.__BuildControlbtnAdmin
Line 2041:
Line 2042: #End ExternalSource
Line 2043:
Line 2044: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2045: __parser.AddParsedSubObject(__ctrl2)
Line 2046:
Line 2047: #End ExternalSource
Line 2048:
Line 2049: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1458)
Line 2050: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2051:
Line 2052: #End ExternalSource
Line 2053: Return __ctrl
Line 2054: End Function
Line 2055:
Line 2056: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2057: Private Function __BuildControllnkHead() As Global.System.Web.UI.WebControls.HyperLink
Line 2058: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 2059:
Line 2060: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1463)
Line 2061: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 2062:
Line 2063: #End ExternalSource
Line 2064: Me.lnkHead = __ctrl
Line 2065: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2066:
Line 2067: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1463)
Line 2068: __ctrl.ID = "lnkHead"
Line 2069:
Line 2070: #End ExternalSource
Line 2071:
Line 2072: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1463)
Line 2073: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "navHeading")
Line 2074:
Line 2075: #End ExternalSource
Line 2076: Return __ctrl
Line 2077: End Function
Line 2078:
Line 2079: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2080: Private Function __BuildControllnkNav() As Global.System.Web.UI.WebControls.HyperLink
Line 2081: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 2082:
Line 2083: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1464)
Line 2084: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 2085:
Line 2086: #End ExternalSource
Line 2087: Me.lnkNav = __ctrl
Line 2088: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2089:
Line 2090: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1464)
Line 2091: __ctrl.ID = "lnkNav"
Line 2092:
Line 2093: #End ExternalSource
Line 2094:
Line 2095: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1464)
Line 2096: __ctrl.NavigateUrl = "index.aspx"
Line 2097:
Line 2098: #End ExternalSource
Line 2099:
Line 2100: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1464)
Line 2101: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "navSection")
Line 2102:
Line 2103: #End ExternalSource
Line 2104:
Line 2105: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1464)
Line 2106: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("style", "right:0px;margin:auto")
Line 2107:
Line 2108: #End ExternalSource
Line 2109: Return __ctrl
Line 2110: End Function
Line 2111:
Line 2112: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2113: Private Function __BuildControlddlAlts() As Global.System.Web.UI.WebControls.DropDownList
Line 2114: Dim __ctrl As Global.System.Web.UI.WebControls.DropDownList
Line 2115:
Line 2116: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1465)
Line 2117: __ctrl = New Global.System.Web.UI.WebControls.DropDownList()
Line 2118:
Line 2119: #End ExternalSource
Line 2120: Me.ddlAlts = __ctrl
Line 2121: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2122:
Line 2123: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1465)
Line 2124: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "navHeading")
Line 2125:
Line 2126: #End ExternalSource
Line 2127:
Line 2128: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1465)
Line 2129: __ctrl.ID = "ddlAlts"
Line 2130:
Line 2131: #End ExternalSource
Line 2132:
Line 2133: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1465)
Line 2134: __ctrl.Visible = false
Line 2135:
Line 2136: #End ExternalSource
Line 2137:
Line 2138: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1465)
Line 2139: __ctrl.AutoPostBack = true
Line 2140:
Line 2141: #End ExternalSource
Line 2142:
Line 2143: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1465)
Line 2144: AddHandler __ctrl.SelectedIndexChanged, AddressOf Me.selectAlt
Line 2145:
Line 2146: #End ExternalSource
Line 2147: Return __ctrl
Line 2148: End Function
Line 2149:
Line 2150: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2151: Private Function __BuildControllnkData() As Global.System.Web.UI.WebControls.HyperLink
Line 2152: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 2153:
Line 2154: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1466)
Line 2155: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 2156:
Line 2157: #End ExternalSource
Line 2158: Me.lnkData = __ctrl
Line 2159: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2160:
Line 2161: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1466)
Line 2162: __ctrl.ID = "lnkData"
Line 2163:
Line 2164: #End ExternalSource
Line 2165:
Line 2166: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1466)
Line 2167: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "navData")
Line 2168:
Line 2169: #End ExternalSource
Line 2170: Return __ctrl
Line 2171: End Function
Line 2172:
Line 2173: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2174: Private Function __BuildControllblDetail() As Global.System.Web.UI.WebControls.Label
Line 2175: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 2176:
Line 2177: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1467)
Line 2178: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 2179:
Line 2180: #End ExternalSource
Line 2181: Me.lblDetail = __ctrl
Line 2182: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2183:
Line 2184: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1467)
Line 2185: __ctrl.ID = "lblDetail"
Line 2186:
Line 2187: #End ExternalSource
Line 2188:
Line 2189: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1467)
Line 2190: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "navDetail")
Line 2191:
Line 2192: #End ExternalSource
Line 2193: Return __ctrl
Line 2194: End Function
Line 2195:
Line 2196: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2197: Private Function __BuildControl__control3() As Global.System.Web.UI.WebControls.HyperLink
Line 2198: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 2199:
Line 2200: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1472)
Line 2201: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 2202:
Line 2203: #End ExternalSource
Line 2204: __ctrl.TemplateControl = Me
Line 2205: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2206:
Line 2207: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1472)
Line 2208: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "navDetail")
Line 2209:
Line 2210: #End ExternalSource
Line 2211:
Line 2212: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1472)
Line 2213: __ctrl.ID = "lnkDL"
Line 2214:
Line 2215: #End ExternalSource
Line 2216:
Line 2217: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1472)
Line 2218: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control3
Line 2219:
Line 2220: #End ExternalSource
Line 2221: Return __ctrl
Line 2222: End Function
Line 2223:
Line 2224: Public Sub __DataBinding__control3(ByVal sender As Object, ByVal e As System.EventArgs)
Line 2225: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.HyperLink
Line 2226: Dim Container As System.Web.UI.WebControls.DataListItem
Line 2227:
Line 2228: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1472)
Line 2229: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.HyperLink)
Line 2230:
Line 2231: #End ExternalSource
Line 2232:
Line 2233: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1472)
Line 2234: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.DataListItem)
Line 2235:
Line 2236: #End ExternalSource
Line 2237:
Line 2238: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1472)
Line 2239: dataBindingExpressionBuilderTarget.NavigateUrl = Global.System.Convert.ToString(Eval("dlLink"), Global.System.Globalization.CultureInfo.CurrentCulture)
Line 2240:
Line 2241: #End ExternalSource
Line 2242:
Line 2243: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1472)
Line 2244: dataBindingExpressionBuilderTarget.Text = Global.System.Convert.ToString(Eval("dlName"), Global.System.Globalization.CultureInfo.CurrentCulture)
Line 2245:
Line 2246: #End ExternalSource
Line 2247: End Sub
Line 2248:
Line 2249: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2250: Private Sub __BuildControl__control2(ByVal __ctrl As System.Web.UI.Control)
Line 2251: Dim __ctrl1 As Global.System.Web.UI.WebControls.HyperLink
Line 2252:
Line 2253: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1469)
Line 2254: __ctrl1 = Me.__BuildControl__control3
Line 2255:
Line 2256: #End ExternalSource
Line 2257: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 2258:
Line 2259: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1469)
Line 2260: __parser.AddParsedSubObject(__ctrl1)
Line 2261:
Line 2262: #End ExternalSource
Line 2263: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control2)
Line 2264: End Sub
Line 2265:
Line 2266: Private Sub __Render__control2(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 2267: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div style=""min-width:")
Line 2268:
Line 2269: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1471)
Line 2270: __w.Write(COL_WIDTH)
Line 2271:
Line 2272:
Line 2273: #End ExternalSource
Line 2274: __w.Write("vw;text-align:center;"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 2275: parameterContainer.Controls(0).RenderControl(__w)
Line 2276: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 2277: End Sub
Line 2278:
Line 2279: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2280: Private Function __BuildControldlHead() As Global.System.Web.UI.WebControls.DataList
Line 2281: Dim __ctrl As Global.System.Web.UI.WebControls.DataList
Line 2282:
Line 2283: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1469)
Line 2284: __ctrl = New Global.System.Web.UI.WebControls.DataList()
Line 2285:
Line 2286: #End ExternalSource
Line 2287: Me.dlHead = __ctrl
Line 2288: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2289:
Line 2290: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1469)
Line 2291: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control2)
Line 2292:
Line 2293: #End ExternalSource
Line 2294:
Line 2295: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1469)
Line 2296: __ctrl.ID = "dlHead"
Line 2297:
Line 2298: #End ExternalSource
Line 2299:
Line 2300: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1469)
Line 2301: __ctrl.RepeatDirection = Global.System.Web.UI.WebControls.RepeatDirection.Horizontal
Line 2302:
Line 2303: #End ExternalSource
Line 2304: Return __ctrl
Line 2305: End Function
Line 2306:
Line 2307: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2308: Private Function __BuildControldivMaxi() As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 2309: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 2310:
Line 2311: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2312: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlGenericControl("div")
Line 2313:
Line 2314: #End ExternalSource
Line 2315: Me.divMaxi = __ctrl
Line 2316:
Line 2317: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2318: __ctrl.ID = "divMaxi"
Line 2319:
Line 2320: #End ExternalSource
Line 2321:
Line 2322: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2323: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "themeDiv")
Line 2324:
Line 2325: #End ExternalSource
Line 2326:
Line 2327: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2328: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("style", "max-width:60vw")
Line 2329:
Line 2330: #End ExternalSource
Line 2331: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 2332:
Line 2333: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2334: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2335:
Line 2336: #End ExternalSource
Line 2337: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 2338:
Line 2339: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2340: __ctrl1 = Me.__BuildControlspnAdmin
Line 2341:
Line 2342: #End ExternalSource
Line 2343:
Line 2344: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2345: __parser.AddParsedSubObject(__ctrl1)
Line 2346:
Line 2347: #End ExternalSource
Line 2348:
Line 2349: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2350: __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 2351:
Line 2352: #End ExternalSource
Line 2353: Dim __ctrl2 As Global.System.Web.UI.WebControls.HyperLink
Line 2354:
Line 2355: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2356: __ctrl2 = Me.__BuildControllnkHead
Line 2357:
Line 2358: #End ExternalSource
Line 2359:
Line 2360: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2361: __parser.AddParsedSubObject(__ctrl2)
Line 2362:
Line 2363: #End ExternalSource
Line 2364:
Line 2365: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2366: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2367:
Line 2368: #End ExternalSource
Line 2369: Dim __ctrl3 As Global.System.Web.UI.WebControls.HyperLink
Line 2370:
Line 2371: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2372: __ctrl3 = Me.__BuildControllnkNav
Line 2373:
Line 2374: #End ExternalSource
Line 2375:
Line 2376: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2377: __parser.AddParsedSubObject(__ctrl3)
Line 2378:
Line 2379: #End ExternalSource
Line 2380:
Line 2381: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2382: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2383:
Line 2384: #End ExternalSource
Line 2385: Dim __ctrl4 As Global.System.Web.UI.WebControls.DropDownList
Line 2386:
Line 2387: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2388: __ctrl4 = Me.__BuildControlddlAlts
Line 2389:
Line 2390: #End ExternalSource
Line 2391:
Line 2392: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2393: __parser.AddParsedSubObject(__ctrl4)
Line 2394:
Line 2395: #End ExternalSource
Line 2396:
Line 2397: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2398: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2399:
Line 2400: #End ExternalSource
Line 2401: Dim __ctrl5 As Global.System.Web.UI.WebControls.HyperLink
Line 2402:
Line 2403: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2404: __ctrl5 = Me.__BuildControllnkData
Line 2405:
Line 2406: #End ExternalSource
Line 2407:
Line 2408: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2409: __parser.AddParsedSubObject(__ctrl5)
Line 2410:
Line 2411: #End ExternalSource
Line 2412:
Line 2413: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2414: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<Br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2415:
Line 2416: #End ExternalSource
Line 2417: Dim __ctrl6 As Global.System.Web.UI.WebControls.Label
Line 2418:
Line 2419: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2420: __ctrl6 = Me.__BuildControllblDetail
Line 2421:
Line 2422: #End ExternalSource
Line 2423:
Line 2424: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2425: __parser.AddParsedSubObject(__ctrl6)
Line 2426:
Line 2427: #End ExternalSource
Line 2428:
Line 2429: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2430: __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 2431:
Line 2432: #End ExternalSource
Line 2433: Dim __ctrl7 As Global.System.Web.UI.WebControls.DataList
Line 2434:
Line 2435: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2436: __ctrl7 = Me.__BuildControldlHead
Line 2437:
Line 2438: #End ExternalSource
Line 2439:
Line 2440: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2441: __parser.AddParsedSubObject(__ctrl7)
Line 2442:
Line 2443: #End ExternalSource
Line 2444:
Line 2445: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1457)
Line 2446: __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)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2447:
Line 2448: #End ExternalSource
Line 2449: Return __ctrl
Line 2450: End Function
Line 2451:
Line 2452: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2453: Private Function __BuildControlli() As Global.ASP.login
Line 2454: Dim __ctrl As Global.ASP.login
Line 2455:
Line 2456: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1484)
Line 2457: __ctrl = New Global.ASP.login()
Line 2458:
Line 2459: #End ExternalSource
Line 2460: Me.li = __ctrl
Line 2461:
Line 2462: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1484)
Line 2463: __ctrl.InitializeAsUserControl(Me.Page)
Line 2464:
Line 2465: #End ExternalSource
Line 2466:
Line 2467: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1484)
Line 2468: __ctrl.ID = "li"
Line 2469:
Line 2470: #End ExternalSource
Line 2471:
Line 2472: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1484)
Line 2473: __ctrl.data = "fab"
Line 2474:
Line 2475: #End ExternalSource
Line 2476: Return __ctrl
Line 2477: End Function
Line 2478:
Line 2479: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2480: Private Function __BuildControlmasterTheme() As Global.ASP.theme_ascx
Line 2481: Dim __ctrl As Global.ASP.theme_ascx
Line 2482:
Line 2483: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1485)
Line 2484: __ctrl = New Global.ASP.theme_ascx()
Line 2485:
Line 2486: #End ExternalSource
Line 2487: Me.masterTheme = __ctrl
Line 2488:
Line 2489: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1485)
Line 2490: __ctrl.InitializeAsUserControl(Me.Page)
Line 2491:
Line 2492: #End ExternalSource
Line 2493:
Line 2494: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1485)
Line 2495: __ctrl.ID = "masterTheme"
Line 2496:
Line 2497: #End ExternalSource
Line 2498: Return __ctrl
Line 2499: End Function
Line 2500:
Line 2501: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2502: Private Function __BuildControl__control5() As Global.System.Web.UI.WebControls.ListItem
Line 2503: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 2504:
Line 2505: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1489)
Line 2506: __ctrl = New Global.System.Web.UI.WebControls.ListItem()
Line 2507:
Line 2508: #End ExternalSource
Line 2509:
Line 2510: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1489)
Line 2511: __ctrl.Text = "Submissions On"
Line 2512:
Line 2513: #End ExternalSource
Line 2514:
Line 2515: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1489)
Line 2516: __ctrl.Value = "True"
Line 2517:
Line 2518: #End ExternalSource
Line 2519: Return __ctrl
Line 2520: End Function
Line 2521:
Line 2522: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2523: Private Function __BuildControl__control6() As Global.System.Web.UI.WebControls.ListItem
Line 2524: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 2525:
Line 2526: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1490)
Line 2527: __ctrl = New Global.System.Web.UI.WebControls.ListItem()
Line 2528:
Line 2529: #End ExternalSource
Line 2530:
Line 2531: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1490)
Line 2532: __ctrl.Text = "Submissions Off"
Line 2533:
Line 2534: #End ExternalSource
Line 2535:
Line 2536: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1490)
Line 2537: __ctrl.Value = "False"
Line 2538:
Line 2539: #End ExternalSource
Line 2540:
Line 2541: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1490)
Line 2542: __ctrl.Selected = true
Line 2543:
Line 2544: #End ExternalSource
Line 2545: Return __ctrl
Line 2546: End Function
Line 2547:
Line 2548: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2549: Private Sub __BuildControl__control4(ByVal __ctrl As System.Web.UI.WebControls.ListItemCollection)
Line 2550: Dim __ctrl1 As Global.System.Web.UI.WebControls.ListItem
Line 2551:
Line 2552: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2553: __ctrl1 = Me.__BuildControl__control5
Line 2554:
Line 2555: #End ExternalSource
Line 2556:
Line 2557: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2558: __ctrl.Add(__ctrl1)
Line 2559:
Line 2560: #End ExternalSource
Line 2561: Dim __ctrl2 As Global.System.Web.UI.WebControls.ListItem
Line 2562:
Line 2563: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2564: __ctrl2 = Me.__BuildControl__control6
Line 2565:
Line 2566: #End ExternalSource
Line 2567:
Line 2568: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2569: __ctrl.Add(__ctrl2)
Line 2570:
Line 2571: #End ExternalSource
Line 2572: End Sub
Line 2573:
Line 2574: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2575: Private Function __BuildControlddlSubs() As Global.System.Web.UI.WebControls.DropDownList
Line 2576: Dim __ctrl As Global.System.Web.UI.WebControls.DropDownList
Line 2577:
Line 2578: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2579: __ctrl = New Global.System.Web.UI.WebControls.DropDownList()
Line 2580:
Line 2581: #End ExternalSource
Line 2582: Me.ddlSubs = __ctrl
Line 2583: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2584:
Line 2585: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2586: __ctrl.ID = "ddlSubs"
Line 2587:
Line 2588: #End ExternalSource
Line 2589:
Line 2590: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2591: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "navData")
Line 2592:
Line 2593: #End ExternalSource
Line 2594:
Line 2595: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2596: __ctrl.AutoPostBack = true
Line 2597:
Line 2598: #End ExternalSource
Line 2599:
Line 2600: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2601: Me.__BuildControl__control4(__ctrl.Items)
Line 2602:
Line 2603: #End ExternalSource
Line 2604:
Line 2605: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1488)
Line 2606: AddHandler __ctrl.SelectedIndexChanged, AddressOf Me.subsChange
Line 2607:
Line 2608: #End ExternalSource
Line 2609: Return __ctrl
Line 2610: End Function
Line 2611:
Line 2612: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2613: Private Function __BuildControldivSubs() As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 2614: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 2615:
Line 2616: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1487)
Line 2617: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlGenericControl("div")
Line 2618:
Line 2619: #End ExternalSource
Line 2620: Me.divSubs = __ctrl
Line 2621:
Line 2622: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1487)
Line 2623: __ctrl.ID = "divSubs"
Line 2624:
Line 2625: #End ExternalSource
Line 2626:
Line 2627: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1487)
Line 2628: __ctrl.Visible = false
Line 2629:
Line 2630: #End ExternalSource
Line 2631: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 2632:
Line 2633: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1487)
Line 2634: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2635:
Line 2636: #End ExternalSource
Line 2637: Dim __ctrl1 As Global.System.Web.UI.WebControls.DropDownList
Line 2638:
Line 2639: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1487)
Line 2640: __ctrl1 = Me.__BuildControlddlSubs
Line 2641:
Line 2642: #End ExternalSource
Line 2643:
Line 2644: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1487)
Line 2645: __parser.AddParsedSubObject(__ctrl1)
Line 2646:
Line 2647: #End ExternalSource
Line 2648:
Line 2649: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1487)
Line 2650: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 2651:
Line 2652: #End ExternalSource
Line 2653: Return __ctrl
Line 2654: End Function
Line 2655:
Line 2656: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2657: Private Function __BuildControltxtSearch() As Global.System.Web.UI.WebControls.TextBox
Line 2658: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 2659:
Line 2660: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1493)
Line 2661: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 2662:
Line 2663: #End ExternalSource
Line 2664: Me.txtSearch = __ctrl
Line 2665: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2666:
Line 2667: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1493)
Line 2668: __ctrl.ID = "txtSearch"
Line 2669:
Line 2670: #End ExternalSource
Line 2671:
Line 2672: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1493)
Line 2673: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("style", "font-size:1.4em;")
Line 2674:
Line 2675: #End ExternalSource
Line 2676:
Line 2677: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1493)
Line 2678: __ctrl.Columns = 10
Line 2679:
Line 2680: #End ExternalSource
Line 2681:
Line 2682: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1493)
Line 2683: __ctrl.Visible = true
Line 2684:
Line 2685: #End ExternalSource
Line 2686: Return __ctrl
Line 2687: End Function
Line 2688:
Line 2689: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2690: Private Function __BuildControl__control7() As Global.System.Web.UI.WebControls.Button
Line 2691: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 2692:
Line 2693: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1494)
Line 2694: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 2695:
Line 2696: #End ExternalSource
Line 2697: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2698:
Line 2699: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1494)
Line 2700: __ctrl.CssClass = "subButton"
Line 2701:
Line 2702: #End ExternalSource
Line 2703:
Line 2704: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1494)
Line 2705: __ctrl.Text = "FIGHT-A-BASE Search"
Line 2706:
Line 2707: #End ExternalSource
Line 2708:
Line 2709: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1494)
Line 2710: AddHandler __ctrl.Click, AddressOf Me.search
Line 2711:
Line 2712: #End ExternalSource
Line 2713: Return __ctrl
Line 2714: End Function
Line 2715:
Line 2716: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2717: Private Function __BuildControlmasterSearch() As Global.ASP.search
Line 2718: Dim __ctrl As Global.ASP.search
Line 2719:
Line 2720: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1495)
Line 2721: __ctrl = New Global.ASP.search()
Line 2722:
Line 2723: #End ExternalSource
Line 2724: Me.masterSearch = __ctrl
Line 2725:
Line 2726: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1495)
Line 2727: __ctrl.InitializeAsUserControl(Me.Page)
Line 2728:
Line 2729: #End ExternalSource
Line 2730:
Line 2731: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1495)
Line 2732: __ctrl.ID = "masterSearch"
Line 2733:
Line 2734: #End ExternalSource
Line 2735:
Line 2736: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1495)
Line 2737: __ctrl.Visible = false
Line 2738:
Line 2739: #End ExternalSource
Line 2740: Return __ctrl
Line 2741: End Function
Line 2742:
Line 2743: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2744: Private Function __BuildControlbonHead() As Global.ASP.bonus
Line 2745: Dim __ctrl As Global.ASP.bonus
Line 2746:
Line 2747: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1498)
Line 2748: __ctrl = New Global.ASP.bonus()
Line 2749:
Line 2750: #End ExternalSource
Line 2751: Me.bonHead = __ctrl
Line 2752:
Line 2753: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1498)
Line 2754: __ctrl.InitializeAsUserControl(Me.Page)
Line 2755:
Line 2756: #End ExternalSource
Line 2757:
Line 2758: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1498)
Line 2759: __ctrl.ID = "bonHead"
Line 2760:
Line 2761: #End ExternalSource
Line 2762:
Line 2763: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1498)
Line 2764: __ctrl.Visible = false
Line 2765:
Line 2766: #End ExternalSource
Line 2767: Return __ctrl
Line 2768: End Function
Line 2769:
Line 2770: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2771: Private Function __BuildControllnkSeries() As Global.System.Web.UI.WebControls.HyperLink
Line 2772: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 2773:
Line 2774: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 2775: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 2776:
Line 2777: #End ExternalSource
Line 2778: Me.lnkSeries = __ctrl
Line 2779: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2780:
Line 2781: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 2782: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "bodyHeading")
Line 2783:
Line 2784: #End ExternalSource
Line 2785:
Line 2786: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 2787: __ctrl.ID = "lnkSeries"
Line 2788:
Line 2789: #End ExternalSource
Line 2790: Return __ctrl
Line 2791: End Function
Line 2792:
Line 2793: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2794: Private Function __BuildControlspnSeries() As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 2795: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 2796:
Line 2797: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 2798: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlGenericControl("span")
Line 2799:
Line 2800: #End ExternalSource
Line 2801: Me.spnSeries = __ctrl
Line 2802:
Line 2803: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 2804: __ctrl.ID = "spnSeries"
Line 2805:
Line 2806: #End ExternalSource
Line 2807: Dim __ctrl1 As Global.System.Web.UI.WebControls.HyperLink
Line 2808:
Line 2809: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 2810: __ctrl1 = Me.__BuildControllnkSeries
Line 2811:
Line 2812: #End ExternalSource
Line 2813: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 2814:
Line 2815: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 2816: __parser.AddParsedSubObject(__ctrl1)
Line 2817:
Line 2818: #End ExternalSource
Line 2819:
Line 2820: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1502)
Line 2821: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"))
Line 2822:
Line 2823: #End ExternalSource
Line 2824: Return __ctrl
Line 2825: End Function
Line 2826:
Line 2827: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2828: Private Function __BuildControllblSub() As Global.System.Web.UI.WebControls.Label
Line 2829: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 2830:
Line 2831: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1505)
Line 2832: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 2833:
Line 2834: #End ExternalSource
Line 2835: Me.lblSub = __ctrl
Line 2836: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2837:
Line 2838: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1505)
Line 2839: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "bodyData")
Line 2840:
Line 2841: #End ExternalSource
Line 2842:
Line 2843: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1505)
Line 2844: __ctrl.ID = "lblSub"
Line 2845:
Line 2846: #End ExternalSource
Line 2847: Return __ctrl
Line 2848: End Function
Line 2849:
Line 2850: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2851: Private Function __BuildControllnkBy() As Global.System.Web.UI.WebControls.HyperLink
Line 2852: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 2853:
Line 2854: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2855: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 2856:
Line 2857: #End ExternalSource
Line 2858: Me.lnkBy = __ctrl
Line 2859: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2860:
Line 2861: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2862: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "bodyData")
Line 2863:
Line 2864: #End ExternalSource
Line 2865:
Line 2866: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2867: __ctrl.ID = "lnkBy"
Line 2868:
Line 2869: #End ExternalSource
Line 2870: Return __ctrl
Line 2871: End Function
Line 2872:
Line 2873: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2874: Private Function __BuildControllnkPub() As Global.System.Web.UI.WebControls.HyperLink
Line 2875: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 2876:
Line 2877: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2878: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 2879:
Line 2880: #End ExternalSource
Line 2881: Me.lnkPub = __ctrl
Line 2882: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2883:
Line 2884: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2885: __ctrl.ID = "lnkPub"
Line 2886:
Line 2887: #End ExternalSource
Line 2888:
Line 2889: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2890: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "bodyData")
Line 2891:
Line 2892: #End ExternalSource
Line 2893: Return __ctrl
Line 2894: End Function
Line 2895:
Line 2896: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2897: Private Function __BuildControlspnPub() As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 2898: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 2899:
Line 2900: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2901: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlGenericControl("span")
Line 2902:
Line 2903: #End ExternalSource
Line 2904: Me.spnPub = __ctrl
Line 2905:
Line 2906: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2907: __ctrl.ID = "spnPub"
Line 2908:
Line 2909: #End ExternalSource
Line 2910:
Line 2911: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2912: __ctrl.Visible = false
Line 2913:
Line 2914: #End ExternalSource
Line 2915: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 2916:
Line 2917: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2918: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" / "))
Line 2919:
Line 2920: #End ExternalSource
Line 2921: Dim __ctrl1 As Global.System.Web.UI.WebControls.HyperLink
Line 2922:
Line 2923: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2924: __ctrl1 = Me.__BuildControllnkPub
Line 2925:
Line 2926: #End ExternalSource
Line 2927:
Line 2928: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1506)
Line 2929: __parser.AddParsedSubObject(__ctrl1)
Line 2930:
Line 2931: #End ExternalSource
Line 2932: Return __ctrl
Line 2933: End Function
Line 2934:
Line 2935: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2936: Private Function __BuildControlheadSub() As Global.ASP.subform_ascx
Line 2937: Dim __ctrl As Global.ASP.subform_ascx
Line 2938:
Line 2939: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1514)
Line 2940: __ctrl = New Global.ASP.subform_ascx()
Line 2941:
Line 2942: #End ExternalSource
Line 2943: Me.headSub = __ctrl
Line 2944:
Line 2945: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1514)
Line 2946: __ctrl.InitializeAsUserControl(Me.Page)
Line 2947:
Line 2948: #End ExternalSource
Line 2949:
Line 2950: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1514)
Line 2951: __ctrl.ID = "headSub"
Line 2952:
Line 2953: #End ExternalSource
Line 2954:
Line 2955: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1514)
Line 2956: __ctrl.Title = "Submit Tags"
Line 2957:
Line 2958: #End ExternalSource
Line 2959: Return __ctrl
Line 2960: End Function
Line 2961:
Line 2962: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2963: Private Function __BuildControl__control9() As Global.System.Web.UI.WebControls.Image
Line 2964: Dim __ctrl As Global.System.Web.UI.WebControls.Image
Line 2965:
Line 2966: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1523)
Line 2967: __ctrl = New Global.System.Web.UI.WebControls.Image()
Line 2968:
Line 2969: #End ExternalSource
Line 2970: __ctrl.TemplateControl = Me
Line 2971: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 2972:
Line 2973: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1523)
Line 2974: __ctrl.ID = "imgHead"
Line 2975:
Line 2976: #End ExternalSource
Line 2977: Return __ctrl
Line 2978: End Function
Line 2979:
Line 2980: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2981: Private Sub __BuildControl__control8(ByVal __ctrl As System.Web.UI.Control)
Line 2982: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 2983:
Line 2984: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 2985: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td style=""padding:0px"">"))
Line 2986:
Line 2987: #End ExternalSource
Line 2988: Dim __ctrl1 As Global.System.Web.UI.WebControls.Image
Line 2989:
Line 2990: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 2991: __ctrl1 = Me.__BuildControl__control9
Line 2992:
Line 2993: #End ExternalSource
Line 2994:
Line 2995: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 2996: __parser.AddParsedSubObject(__ctrl1)
Line 2997:
Line 2998: #End ExternalSource
Line 2999:
Line 3000: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3001: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 3002:
Line 3003: #End ExternalSource
Line 3004: End Sub
Line 3005:
Line 3006: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3007: Private Function __BuildControl__control12() As Global.System.Web.UI.WebControls.HyperLink
Line 3008: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 3009:
Line 3010: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3011: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 3012:
Line 3013: #End ExternalSource
Line 3014: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 3015:
Line 3016: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3017: __ctrl.ID = "Hyperlink1"
Line 3018:
Line 3019: #End ExternalSource
Line 3020:
Line 3021: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3022: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "header")
Line 3023:
Line 3024: #End ExternalSource
Line 3025:
Line 3026: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3027: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("style", "text-decoration:none;")
Line 3028:
Line 3029: #End ExternalSource
Line 3030:
Line 3031: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3032: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control12
Line 3033:
Line 3034: #End ExternalSource
Line 3035: Return __ctrl
Line 3036: End Function
Line 3037:
Line 3038: Public Sub __DataBinding__control12(ByVal sender As Object, ByVal e As System.EventArgs)
Line 3039: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.HyperLink
Line 3040: Dim Container As System.Web.UI.WebControls.RepeaterItem
Line 3041:
Line 3042: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3043: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.HyperLink)
Line 3044:
Line 3045: #End ExternalSource
Line 3046:
Line 3047: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3048: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.RepeaterItem)
Line 3049:
Line 3050: #End ExternalSource
Line 3051:
Line 3052: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3053: dataBindingExpressionBuilderTarget.NavigateUrl = Global.System.Convert.ToString(Eval("lnkUrl"), Global.System.Globalization.CultureInfo.CurrentCulture)
Line 3054:
Line 3055: #End ExternalSource
Line 3056:
Line 3057: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3058: dataBindingExpressionBuilderTarget.Text = Global.System.Convert.ToString(Eval("lnkText"), Global.System.Globalization.CultureInfo.CurrentCulture)
Line 3059:
Line 3060: #End ExternalSource
Line 3061: End Sub
Line 3062:
Line 3063: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3064: Private Function __BuildControl__control11() As Global.System.Web.UI.HtmlControls.HtmlTableCell
Line 3065: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlTableCell
Line 3066:
Line 3067: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3068: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlTableCell("td")
Line 3069:
Line 3070: #End ExternalSource
Line 3071: __ctrl.TemplateControl = Me
Line 3072:
Line 3073: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3074: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "header")
Line 3075:
Line 3076: #End ExternalSource
Line 3077:
Line 3078: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3079: __ctrl.ID = "tdMid"
Line 3080:
Line 3081: #End ExternalSource
Line 3082: Dim __ctrl1 As Global.System.Web.UI.WebControls.HyperLink
Line 3083:
Line 3084: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3085: __ctrl1 = Me.__BuildControl__control12
Line 3086:
Line 3087: #End ExternalSource
Line 3088: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 3089:
Line 3090: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1526)
Line 3091: __parser.AddParsedSubObject(__ctrl1)
Line 3092:
Line 3093: #End ExternalSource
Line 3094: Return __ctrl
Line 3095: End Function
Line 3096:
Line 3097: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3098: Private Sub __BuildControl__control10(ByVal __ctrl As System.Web.UI.Control)
Line 3099: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 3100:
Line 3101: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3102: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 3103:
Line 3104: #End ExternalSource
Line 3105: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlTableCell
Line 3106:
Line 3107: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3108: __ctrl1 = Me.__BuildControl__control11
Line 3109:
Line 3110: #End ExternalSource
Line 3111:
Line 3112: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3113: __parser.AddParsedSubObject(__ctrl1)
Line 3114:
Line 3115: #End ExternalSource
Line 3116:
Line 3117: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3118: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 3119:
Line 3120: #End ExternalSource
Line 3121: End Sub
Line 3122:
Line 3123: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3124: Private Function __BuildControl__control14() As Global.System.Web.UI.WebControls.Image
Line 3125: Dim __ctrl As Global.System.Web.UI.WebControls.Image
Line 3126:
Line 3127: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1529)
Line 3128: __ctrl = New Global.System.Web.UI.WebControls.Image()
Line 3129:
Line 3130: #End ExternalSource
Line 3131: __ctrl.TemplateControl = Me
Line 3132: __ctrl.ApplyStyleSheetSkin(Me.Page)
Line 3133:
Line 3134: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1529)
Line 3135: __ctrl.ID = "imgFoot"
Line 3136:
Line 3137: #End ExternalSource
Line 3138: Return __ctrl
Line 3139: End Function
Line 3140:
Line 3141: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3142: Private Sub __BuildControl__control13(ByVal __ctrl As System.Web.UI.Control)
Line 3143: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 3144:
Line 3145: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3146: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td style=""padding:0px"">"))
Line 3147:
Line 3148: #End ExternalSource
Line 3149: Dim __ctrl1 As Global.System.Web.UI.WebControls.Image
Line 3150:
Line 3151: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3152: __ctrl1 = Me.__BuildControl__control14
Line 3153:
Line 3154: #End ExternalSource
Line 3155:
Line 3156: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3157: __parser.AddParsedSubObject(__ctrl1)
Line 3158:
Line 3159: #End ExternalSource
Line 3160:
Line 3161: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3162: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</td>"&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 3163:
Line 3164: #End ExternalSource
Line 3165: End Sub
Line 3166:
Line 3167: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3168: Private Function __BuildControlrptHeader() As Global.System.Web.UI.WebControls.Repeater
Line 3169: Dim __ctrl As Global.System.Web.UI.WebControls.Repeater
Line 3170:
Line 3171: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3172: __ctrl = New Global.System.Web.UI.WebControls.Repeater()
Line 3173:
Line 3174: #End ExternalSource
Line 3175: Me.rptHeader = __ctrl
Line 3176:
Line 3177: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3178: __ctrl.HeaderTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control8)
Line 3179:
Line 3180: #End ExternalSource
Line 3181:
Line 3182: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3183: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control10)
Line 3184:
Line 3185: #End ExternalSource
Line 3186:
Line 3187: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3188: __ctrl.FooterTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control13)
Line 3189:
Line 3190: #End ExternalSource
Line 3191:
Line 3192: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1521)
Line 3193: __ctrl.ID = "rptHeader"
Line 3194:
Line 3195: #End ExternalSource
Line 3196: Return __ctrl
Line 3197: End Function
Line 3198:
Line 3199: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3200: Private Sub __BuildControlTree(ByVal __ctrl As header)
Line 3201: Dim __ctrl1 As Global.ASP.dbconnect
Line 3202:
Line 3203: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3204: __ctrl1 = Me.__BuildControldb
Line 3205:
Line 3206: #End ExternalSource
Line 3207: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 3208:
Line 3209: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3210: __parser.AddParsedSubObject(__ctrl1)
Line 3211:
Line 3212: #End ExternalSource
Line 3213: Dim __ctrl2 As Global.ASP.files
Line 3214:
Line 3215: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3216: __ctrl2 = Me.__BuildControlfs
Line 3217:
Line 3218: #End ExternalSource
Line 3219:
Line 3220: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3221: __parser.AddParsedSubObject(__ctrl2)
Line 3222:
Line 3223: #End ExternalSource
Line 3224: Dim __ctrl3 As Global.ASP.lookup
Line 3225:
Line 3226: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3227: __ctrl3 = Me.__BuildControllu
Line 3228:
Line 3229: #End ExternalSource
Line 3230:
Line 3231: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3232: __parser.AddParsedSubObject(__ctrl3)
Line 3233:
Line 3234: #End ExternalSource
Line 3235: Dim __ctrl4 As Global.System.Web.UI.WebControls.HiddenField
Line 3236:
Line 3237: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3238: __ctrl4 = Me.__BuildControlhdnSubmit
Line 3239:
Line 3240: #End ExternalSource
Line 3241:
Line 3242: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3243: __parser.AddParsedSubObject(__ctrl4)
Line 3244:
Line 3245: #End ExternalSource
Line 3246: Dim __ctrl5 As Global.System.Web.UI.WebControls.HiddenField
Line 3247:
Line 3248: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3249: __ctrl5 = Me.__BuildControlhdnShort
Line 3250:
Line 3251: #End ExternalSource
Line 3252:
Line 3253: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3254: __parser.AddParsedSubObject(__ctrl5)
Line 3255:
Line 3256: #End ExternalSource
Line 3257: Dim __ctrl6 As Global.System.Web.UI.WebControls.HiddenField
Line 3258:
Line 3259: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3260: __ctrl6 = Me.__BuildControlhdn_pageType
Line 3261:
Line 3262: #End ExternalSource
Line 3263:
Line 3264: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3265: __parser.AddParsedSubObject(__ctrl6)
Line 3266:
Line 3267: #End ExternalSource
Line 3268: Dim __ctrl7 As Global.System.Web.UI.WebControls.HiddenField
Line 3269:
Line 3270: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3271: __ctrl7 = Me.__BuildControlhdn_pageSect
Line 3272:
Line 3273: #End ExternalSource
Line 3274:
Line 3275: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3276: __parser.AddParsedSubObject(__ctrl7)
Line 3277:
Line 3278: #End ExternalSource
Line 3279: Dim __ctrl8 As Global.System.Web.UI.WebControls.HiddenField
Line 3280:
Line 3281: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3282: __ctrl8 = Me.__BuildControlhdnWidth
Line 3283:
Line 3284: #End ExternalSource
Line 3285:
Line 3286: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3287: __parser.AddParsedSubObject(__ctrl8)
Line 3288:
Line 3289: #End ExternalSource
Line 3290: Dim __ctrl9 As Global.System.Web.UI.WebControls.HiddenField
Line 3291:
Line 3292: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3293: __ctrl9 = Me.__BuildControlhdnHeight
Line 3294:
Line 3295: #End ExternalSource
Line 3296:
Line 3297: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3298: __parser.AddParsedSubObject(__ctrl9)
Line 3299:
Line 3300: #End ExternalSource
Line 3301: Dim __ctrl10 As Global.System.Web.UI.WebControls.Image
Line 3302:
Line 3303: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3304: __ctrl10 = Me.__BuildControlimgChar
Line 3305:
Line 3306: #End ExternalSource
Line 3307:
Line 3308: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3309: __parser.AddParsedSubObject(__ctrl10)
Line 3310:
Line 3311: #End ExternalSource
Line 3312: Dim __ctrl11 As Global.System.Web.UI.WebControls.Image
Line 3313:
Line 3314: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3315: __ctrl11 = Me.__BuildControlimgSymbol
Line 3316:
Line 3317: #End ExternalSource
Line 3318:
Line 3319: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3320: __parser.AddParsedSubObject(__ctrl11)
Line 3321:
Line 3322: #End ExternalSource
Line 3323: Dim __ctrl12 As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 3324:
Line 3325: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3326: __ctrl12 = Me.__BuildControldivMaxi
Line 3327:
Line 3328: #End ExternalSource
Line 3329:
Line 3330: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3331: __parser.AddParsedSubObject(__ctrl12)
Line 3332:
Line 3333: #End ExternalSource
Line 3334: Dim __ctrl13 As Global.ASP.login
Line 3335:
Line 3336: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3337: __ctrl13 = Me.__BuildControlli
Line 3338:
Line 3339: #End ExternalSource
Line 3340:
Line 3341: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3342: __parser.AddParsedSubObject(__ctrl13)
Line 3343:
Line 3344: #End ExternalSource
Line 3345: Dim __ctrl14 As Global.ASP.theme_ascx
Line 3346:
Line 3347: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3348: __ctrl14 = Me.__BuildControlmasterTheme
Line 3349:
Line 3350: #End ExternalSource
Line 3351:
Line 3352: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3353: __parser.AddParsedSubObject(__ctrl14)
Line 3354:
Line 3355: #End ExternalSource
Line 3356: Dim __ctrl15 As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 3357:
Line 3358: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3359: __ctrl15 = Me.__BuildControldivSubs
Line 3360:
Line 3361: #End ExternalSource
Line 3362:
Line 3363: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3364: __parser.AddParsedSubObject(__ctrl15)
Line 3365:
Line 3366: #End ExternalSource
Line 3367: Dim __ctrl16 As Global.System.Web.UI.WebControls.TextBox
Line 3368:
Line 3369: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3370: __ctrl16 = Me.__BuildControltxtSearch
Line 3371:
Line 3372: #End ExternalSource
Line 3373:
Line 3374: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3375: __parser.AddParsedSubObject(__ctrl16)
Line 3376:
Line 3377: #End ExternalSource
Line 3378: Dim __ctrl17 As Global.System.Web.UI.WebControls.Button
Line 3379:
Line 3380: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3381: __ctrl17 = Me.__BuildControl__control7
Line 3382:
Line 3383: #End ExternalSource
Line 3384:
Line 3385: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3386: __parser.AddParsedSubObject(__ctrl17)
Line 3387:
Line 3388: #End ExternalSource
Line 3389: Dim __ctrl18 As Global.ASP.search
Line 3390:
Line 3391: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3392: __ctrl18 = Me.__BuildControlmasterSearch
Line 3393:
Line 3394: #End ExternalSource
Line 3395:
Line 3396: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3397: __parser.AddParsedSubObject(__ctrl18)
Line 3398:
Line 3399: #End ExternalSource
Line 3400: Dim __ctrl19 As Global.ASP.bonus
Line 3401:
Line 3402: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3403: __ctrl19 = Me.__BuildControlbonHead
Line 3404:
Line 3405: #End ExternalSource
Line 3406:
Line 3407: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3408: __parser.AddParsedSubObject(__ctrl19)
Line 3409:
Line 3410: #End ExternalSource
Line 3411: Dim __ctrl20 As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 3412:
Line 3413: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3414: __ctrl20 = Me.__BuildControlspnSeries
Line 3415:
Line 3416: #End ExternalSource
Line 3417:
Line 3418: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3419: __parser.AddParsedSubObject(__ctrl20)
Line 3420:
Line 3421: #End ExternalSource
Line 3422: Dim __ctrl21 As Global.System.Web.UI.WebControls.Label
Line 3423:
Line 3424: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3425: __ctrl21 = Me.__BuildControllblSub
Line 3426:
Line 3427: #End ExternalSource
Line 3428:
Line 3429: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3430: __parser.AddParsedSubObject(__ctrl21)
Line 3431:
Line 3432: #End ExternalSource
Line 3433: Dim __ctrl22 As Global.System.Web.UI.WebControls.HyperLink
Line 3434:
Line 3435: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3436: __ctrl22 = Me.__BuildControllnkBy
Line 3437:
Line 3438: #End ExternalSource
Line 3439:
Line 3440: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3441: __parser.AddParsedSubObject(__ctrl22)
Line 3442:
Line 3443: #End ExternalSource
Line 3444: Dim __ctrl23 As Global.System.Web.UI.HtmlControls.HtmlGenericControl
Line 3445:
Line 3446: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3447: __ctrl23 = Me.__BuildControlspnPub
Line 3448:
Line 3449: #End ExternalSource
Line 3450:
Line 3451: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3452: __parser.AddParsedSubObject(__ctrl23)
Line 3453:
Line 3454: #End ExternalSource
Line 3455: Dim __ctrl24 As Global.ASP.subform_ascx
Line 3456:
Line 3457: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3458: __ctrl24 = Me.__BuildControlheadSub
Line 3459:
Line 3460: #End ExternalSource
Line 3461:
Line 3462: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3463: __parser.AddParsedSubObject(__ctrl24)
Line 3464:
Line 3465: #End ExternalSource
Line 3466: Dim __ctrl25 As Global.System.Web.UI.WebControls.Repeater
Line 3467:
Line 3468: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3469: __ctrl25 = Me.__BuildControlrptHeader
Line 3470:
Line 3471: #End ExternalSource
Line 3472:
Line 3473: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1)
Line 3474: __parser.AddParsedSubObject(__ctrl25)
Line 3475:
Line 3476: #End ExternalSource
Line 3477: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 3478: End Sub
Line 3479:
Line 3480: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 3481: parameterContainer.Controls(0).RenderControl(__w)
Line 3482: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3483: parameterContainer.Controls(1).RenderControl(__w)
Line 3484: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3485: parameterContainer.Controls(2).RenderControl(__w)
Line 3486: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3487: parameterContainer.Controls(3).RenderControl(__w)
Line 3488: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3489: parameterContainer.Controls(4).RenderControl(__w)
Line 3490: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3491: parameterContainer.Controls(5).RenderControl(__w)
Line 3492: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3493: parameterContainer.Controls(6).RenderControl(__w)
Line 3494: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3495: parameterContainer.Controls(7).RenderControl(__w)
Line 3496: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3497: parameterContainer.Controls(8).RenderControl(__w)
Line 3498: __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)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table style=""width:100%""><tr style=""vertical-align:top"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 3499: " <td style=""width:1px;max-width:")
Line 3500:
Line 3501: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1453)
Line 3502: __w.Write(BOX_WIDTH)
Line 3503:
Line 3504:
Line 3505: #End ExternalSource
Line 3506: __w.Write("vw;""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3507: parameterContainer.Controls(9).RenderControl(__w)
Line 3508: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3509: parameterContainer.Controls(10).RenderControl(__w)
Line 3510: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td><td >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3511: parameterContainer.Controls(11).RenderControl(__w)
Line 3512: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td><td style=""position:relative"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""themeDiv"" style=""max-hei"& _
Line 3513: "ght:")
Line 3514:
Line 3515: #ExternalSource("D:\InetPub\vhosts\trufenix-1912.package\fightabase.com\wwwroot\header.ascx",1482)
Line 3516: __w.Write(BOX_HEIGHT)
Line 3517:
Line 3518:
Line 3519: #End ExternalSource
Line 3520: __w.Write("vh;position:absolute;right:0px"" >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table ><tr style=""vertical-align:top""><td"& _
Line 3521: ">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3522: parameterContainer.Controls(12).RenderControl(__w)
Line 3523: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3524: parameterContainer.Controls(13).RenderControl(__w)
Line 3525: __w.Write("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3526: parameterContainer.Controls(14).RenderControl(__w)
Line 3527: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3528: parameterContainer.Controls(15).RenderControl(__w)
Line 3529: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3530: parameterContainer.Controls(16).RenderControl(__w)
Line 3531: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3532: parameterContainer.Controls(17).RenderControl(__w)
Line 3533: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td></tr></table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3534: parameterContainer.Controls(18).RenderControl(__w)
Line 3535: __w.Write(""&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)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3536: parameterContainer.Controls(19).RenderControl(__w)
Line 3537: __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)&" ")
Line 3538: parameterContainer.Controls(20).RenderControl(__w)
Line 3539: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3540: parameterContainer.Controls(21).RenderControl(__w)
Line 3541: parameterContainer.Controls(22).RenderControl(__w)
Line 3542: __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)&" </td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 3543: parameterContainer.Controls(23).RenderControl(__w)
Line 3544: __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)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table style=""border-collapse:collapse;""><tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3545: parameterContainer.Controls(24).RenderControl(__w)
Line 3546: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr></table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 3547: End Sub
Line 3548:
Line 3549: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 3550: Protected Overrides Sub FrameworkInitialize()
Line 3551: MyBase.FrameworkInitialize
Line 3552: Me.__BuildControlTree(Me)
Line 3553: End Sub
Line 3554: End Class
Line 3555: End Namespace
Line 3556:
|