Line 1: '------------------------------------------------------------------------------
Line 2: ' <autogenerated>
Line 3: ' This code was generated by a tool.
Line 4: ' Runtime Version: 1.1.4322.2407
Line 5: '
Line 6: ' Changes to this file may cause incorrect behavior and will be lost if
Line 7: ' the code is regenerated.
Line 8: ' </autogenerated>
Line 9: '------------------------------------------------------------------------------
Line 10:
Line 11: Option Strict Off
Line 12: Option Explicit On
Line 13:
Line 14: Imports ASP
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Specialized
Line 19: Imports System.Configuration
Line 20: Imports System.Text
Line 21: Imports System.Text.RegularExpressions
Line 22: Imports System.Web
Line 23: Imports System.Web.Caching
Line 24: Imports System.Web.Security
Line 25: Imports System.Web.SessionState
Line 26: Imports System.Web.UI
Line 27: Imports System.Web.UI.HtmlControls
Line 28: Imports System.Web.UI.WebControls
Line 29:
Line 30: Namespace ASP
Line 31:
Line 32: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 33: Public Class SiteMap_aspx
Line 34: Inherits System.Web.UI.Page
Line 35: Implements System.Web.SessionState.IRequiresSessionState
Line 36:
Line 37:
Line 38: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",26)
Line 39: Protected HeadTags As ASP.HeadTags_ascx
Line 40:
Line 41: #End ExternalSource
Line 42:
Line 43:
Line 44: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",39)
Line 45: Protected Header As ASP.HeaderV2_ascx
Line 46:
Line 47: #End ExternalSource
Line 48:
Line 49:
Line 50: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",47)
Line 51: Protected Menu As ASP.Menu_ascx
Line 52:
Line 53: #End ExternalSource
Line 54:
Line 55:
Line 56: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",79)
Line 57: Protected Footer As ASP.Footer_ascx
Line 58:
Line 59: #End ExternalSource
Line 60:
Line 61: Private Shared __initialized As Boolean = false
Line 62:
Line 63: Private Shared __stringResource As Object
Line 64:
Line 65: Private Shared __fileDependencies As System.Collections.ArrayList
Line 66:
Line 67: Public Sub New()
Line 68: MyBase.New
Line 69: Dim dependencies As System.Collections.ArrayList
Line 70: If (ASP.SiteMap_aspx.__initialized = false) Then
Line 71: ASP.SiteMap_aspx.__stringResource = System.Web.UI.TemplateControl.ReadStringResource(GetType(ASP.SiteMap_aspx))
Line 72: dependencies = New System.Collections.ArrayList
Line 73: dependencies.Add("d:\hosting\iacworld\Shared\Controls\LocalText.ascx")
Line 74: dependencies.Add("d:\hosting\iacworld\Shared\Controls\Menu.ascx")
Line 75: dependencies.Add("d:\hosting\iacworld\Shared\Controls\Footer.ascx")
Line 76: dependencies.Add("d:\hosting\iacworld\Shared\Controls\HeadTags.ascx")
Line 77: dependencies.Add("d:\hosting\iacworld\Shared\Scripts\SiteMapBuilder.asp")
Line 78: dependencies.Add("d:\hosting\iacworld\bin\IAC.DLL")
Line 79: dependencies.Add("d:\hosting\iacworld\Shared\Controls\HeaderV2.ascx")
Line 80: dependencies.Add("d:\hosting\iacworld\English\SiteMap.aspx")
Line 81: ASP.SiteMap_aspx.__fileDependencies = dependencies
Line 82: ASP.SiteMap_aspx.__initialized = true
Line 83: End If
Line 84: Me.Server.ScriptTimeout = 30000000
Line 85: End Sub
Line 86:
Line 87: Protected Overrides ReadOnly Property SupportAutoEvents As Boolean
Line 88: Get
Line 89: Return false
Line 90: End Get
Line 91: End Property
Line 92:
Line 93: Protected ReadOnly Property ApplicationInstance As ASP.Global_asax
Line 94: Get
Line 95: Return CType(Me.Context.ApplicationInstance,ASP.Global_asax)
Line 96: End Get
Line 97: End Property
Line 98:
Line 99: Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line 100: Get
Line 101: Return "/English"
Line 102: End Get
Line 103: End Property
Line 104:
Line 105: Private Function __BuildControlHeadTags() As System.Web.UI.Control
Line 106: Dim __ctrl As ASP.HeadTags_ascx
Line 107:
Line 108: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",26)
Line 109: __ctrl = New ASP.HeadTags_ascx
Line 110:
Line 111: #End ExternalSource
Line 112: Me.HeadTags = __ctrl
Line 113:
Line 114: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",26)
Line 115: Me.HeadTags.InitializeAsUserControl(Me.Page)
Line 116:
Line 117: #End ExternalSource
Line 118:
Line 119: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",26)
Line 120: __ctrl.ID = "HeadTags"
Line 121:
Line 122: #End ExternalSource
Line 123: Return __ctrl
Line 124: End Function
Line 125:
Line 126: Private Function __BuildControlHeader() As System.Web.UI.Control
Line 127: Dim __ctrl As ASP.HeaderV2_ascx
Line 128:
Line 129: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",39)
Line 130: __ctrl = New ASP.HeaderV2_ascx
Line 131:
Line 132: #End ExternalSource
Line 133: Me.Header = __ctrl
Line 134:
Line 135: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",39)
Line 136: Me.Header.InitializeAsUserControl(Me.Page)
Line 137:
Line 138: #End ExternalSource
Line 139:
Line 140: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",39)
Line 141: __ctrl.ID = "Header"
Line 142:
Line 143: #End ExternalSource
Line 144: Return __ctrl
Line 145: End Function
Line 146:
Line 147: Private Function __BuildControlMenu() As System.Web.UI.Control
Line 148: Dim __ctrl As ASP.Menu_ascx
Line 149:
Line 150: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",47)
Line 151: __ctrl = New ASP.Menu_ascx
Line 152:
Line 153: #End ExternalSource
Line 154: Me.Menu = __ctrl
Line 155:
Line 156: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",47)
Line 157: Me.Menu.InitializeAsUserControl(Me.Page)
Line 158:
Line 159: #End ExternalSource
Line 160:
Line 161: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",47)
Line 162: __ctrl.ID = "Menu"
Line 163:
Line 164: #End ExternalSource
Line 165: Return __ctrl
Line 166: End Function
Line 167:
Line 168: Private Function __BuildControlFooter() As System.Web.UI.Control
Line 169: Dim __ctrl As ASP.Footer_ascx
Line 170:
Line 171: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",79)
Line 172: __ctrl = New ASP.Footer_ascx
Line 173:
Line 174: #End ExternalSource
Line 175: Me.Footer = __ctrl
Line 176:
Line 177: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",79)
Line 178: Me.Footer.InitializeAsUserControl(Me.Page)
Line 179:
Line 180: #End ExternalSource
Line 181:
Line 182: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",79)
Line 183: __ctrl.ID = "Footer"
Line 184:
Line 185: #End ExternalSource
Line 186: Return __ctrl
Line 187: End Function
Line 188:
Line 189: Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line 190:
Line 191: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",1)
Line 192: Me.__BuildControlHeadTags
Line 193:
Line 194: #End ExternalSource
Line 195: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 196:
Line 197: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",1)
Line 198: __parser.AddParsedSubObject(Me.HeadTags)
Line 199:
Line 200: #End ExternalSource
Line 201:
Line 202: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",1)
Line 203: Me.__BuildControlHeader
Line 204:
Line 205: #End ExternalSource
Line 206:
Line 207: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",1)
Line 208: __parser.AddParsedSubObject(Me.Header)
Line 209:
Line 210: #End ExternalSource
Line 211:
Line 212: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",1)
Line 213: Me.__BuildControlMenu
Line 214:
Line 215: #End ExternalSource
Line 216:
Line 217: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",1)
Line 218: __parser.AddParsedSubObject(Me.Menu)
Line 219:
Line 220: #End ExternalSource
Line 221:
Line 222: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",1)
Line 223: Me.__BuildControlFooter
Line 224:
Line 225: #End ExternalSource
Line 226:
Line 227: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",1)
Line 228: __parser.AddParsedSubObject(Me.Footer)
Line 229:
Line 230: #End ExternalSource
Line 231: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 232: End Sub
Line 233:
Line 234: Private Sub __Render__control1(ByVal __output As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 235: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<html><!-- InstanceBegin template=""/Templates/S1_Academy.dwt"" codeOutsideHTMLIs"& _
Line 236: "Locked=""false"" -->"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<!-- InstanceBeginEditable name=""PageCode"" -->"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"<lin"& _
Line 237: "k rel=""stylesheet"" href=""/Shared/StyleSheets/SiteMap.css"" type=""text/css"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9))
Line 238:
Line 239: #ExternalSource("d:\hosting\iacworld\Shared\Scripts\SiteMapBuilder.asp",1)
Line 240:
Line 241: ' ***************************************************************************************
Line 242: ' Sub that prints the menu in site map style
Line 243: ' Global Variables: ---------------------------------------------------------------------
Line 244: ' defined in \Shared\Scripts\GlobalVars.asp or within the page
Line 245: ' ADO Constants | Determine recordset behavior
Line 246: ' sNavDBFile | Path to the navigation Datamase
Line 247: ' sLang | Language setting, usually defined in the page
Line 248: ' sNavDBFil | Database file with navigation info
Line 249: ' sLeftMargin | Distance in pixels from left menu to start of sitemap table
Line 250: '
Line 251: ' Input parameters: ---------------------------------------------------------------------------------
Line 252: ' sMapRoot | Link Id of where you want the map to start. Prints LinkId LIKE 'sMapRoot*'
Line 253: ' sMapDepth |
Line 254: ' sMapWidth |
Line 255: ' sABaseClass | This CSS style will set the appearance of hyperlinked text
Line 256: ' | Subclasses such as link, hover, and visited are expected
Line 257: ' | The styles should have this name followed by the level number
Line 258:
Line 259: Sub PrintSiteMap (sMapRoot, iMapDepth, sMapWidth, sABaseClass, sTDBaseClass)
Line 260:
Line 261: Dim cNavigation
Line 262:
Line 263: sBorder = "0"
Line 264:
Line 265: If (sLang <> "English" AND sLang <> "Spanish") Then
Line 266: sLang = "English"
Line 267: End If
Line 268:
Line 269: ' The var sParentId is defined in the calling page
Line 270: If IsEmpty(sParentId) Then
Line 271: sParentId = 0
Line 272: End If
Line 273:
Line 274: ' Establish Data Connection
Line 275: Set cNavigation = Server.CreateObject("ADODB.Connection")
Line 276: cNavigation.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & sNavDBFile & ";UID=sa;PWD=;"
Line 277:
Line 278: ' --------------------------------------- OPEN RECORDSET ---------------------------------------
Line 279:
Line 280: If sMapRoot = "Root" Then
Line 281: ' Show all records for map starting on Root
Line 282: sQry = "SELECT LinkId, ParentId, Link, DispName" & Left(sLang, 3) & " AS DispName" & _
Line 283: " FROM tblNavigation" & _
Line 284: " WHERE Display" & Left(sLang, 3) & " = TRUE" & _
Line 285: " ORDER BY LinkId"
Line 286: Else
Line 287: ' Show records on and below the level selected
Line 288: sQry = "SELECT LinkId, ParentId, Link, DispName" & Left(sLang, 3) & " AS DispName" & _
Line 289: " FROM tblNavigation" & _
Line 290: " WHERE LinkId LIKE '" & sMapRoot & "*'" & _
Line 291: " AND Display" & Left(sLang, 3) & " = TRUE" & _
Line 292: " ORDER BY LinkId"
Line 293: End If
Line 294:
Line 295: Set rNav = Server.CreateObject("ADODB.Recordset")
Line 296:
Line 297: ' Open the cursor, with the new query
Line 298: rNav.Open sQry, cNavigation, adOpenDynamic, adLockReadOnly, adCmdText
Line 299:
Line 300: ' ------------------------------------ PRINT MENU ITEMS ---------------------------------------
Line 301:
Line 302: Response.Write VBCRLF & VBCRLF
Line 303: Response.Write "<!-- Begin Content Generated by Site Map Builder -->" & VBCRLF & VBCRLF
Line 304: Response.Write "<table width=""" & sMapWidth & """ align=""left"" border=""" & sBorder & """ bordercolor=""#999999"" cellspacing=""0"" cellpadding=""0"" > " & VBCRLF
Line 305:
Line 306: Do While Not rNav.EOF
Line 307:
Line 308: sLink = "/" & sLang & "/" & rNav("Link")
Line 309: If rNav("LinkId") = "Root" Then
Line 310: iDepth = 0
Line 311: Else
Line 312: iDepth = (Len(rNav("LinkId")) / 2) - 1
Line 313: End If
Line 314: ' sRowClass, sRowLinkClass, sRowContent, sRowLink, iDepth
Line 315: PrintSiteMapLine sTDBaseClass, sABaseClass, rNav("DispName"), sLink, iDepth
Line 316:
Line 317: rNav.MoveNext
Line 318:
Line 319: Loop
Line 320:
Line 321: ' Close site map table
Line 322: Response.Write "</table>" & VBCRLF & VBCRLF
Line 323:
Line 324: Response.Write "<!-- End Content Generated by Site Map Builder -->" & VBCRLF & VBCRLF
Line 325:
Line 326: rNav.Close
Line 327: cNavigation.Close
Line 328: Set rNav = Nothing
Line 329: Set cNavigation = Nothing
Line 330: End Sub
Line 331:
Line 332: '*************************************************************************************
Line 333: Sub PrintSiteMapLine(sRowClass, sRowLinkClass, sRowContent, sRowLink, iDepth)
Line 334: ' This one is for a hierarchical list
Line 335: ' If the sRowLink is a zero-length string, assumes that there's no link
Line 336: ' This is because VB Script does not accept optional arguments
Line 337: ' ***************************************************************************
Line 338: ' This value is hardcoded for now, but it could be a parameter
Line 339: iMaxDepth = 6
Line 340: ' In Pixels, horizontal indentation per level
Line 341: sLvlIndent = "10"
Line 342:
Line 343: ' ***************************************************************************
Line 344:
Line 345: ' Determines the number of empty columns preceeds the content
Line 346: If iDepth > iMaxDepth Then iDepth = iMaxDepth
Line 347: iColSpan = iMaxDepth - iDepth
Line 348: iCount = iDepth
Line 349:
Line 350: Response.Write " <tr>" & VBCRLF
Line 351:
Line 352: ' determine the margin, based on global variable
Line 353: Response.Write " <td width=""" & sLeftMargin & """ height =""" & sRowHeight & """> </td>" & VBCRLF
Line 354:
Line 355: Do While iCount > 0
Line 356: Response.Write " <td width=""" & sLvlIndent & """> </td>" & VBCRLF
Line 357: iCount = iCount - 1
Line 358: Loop
Line 359:
Line 360: ' The actual rowcontent
Line 361: Response.Write " <td class=""" & sRowClass & iDepth & """ colspan=""" & iColSpan & """>"
Line 362: If Not sRowLink = "" Then
Line 363: Response.Write "<a class=""" & sRowLinkClass & iDepth & """ href =""" & sRowLink & """>"
Line 364: End If
Line 365: Response.Write sRowContent
Line 366: If Not sRowLink = "" Then
Line 367: Response.Write "</a>"
Line 368: End If
Line 369: Response.Write "</td>"& VBCRLF
Line 370: Response.Write " </tr>" & VBCRLF
Line 371:
Line 372: End Sub
Line 373:
Line 374:
Line 375:
Line 376: #End ExternalSource
Line 377:
Line 378: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",13)
Line 379:
Line 380: ' Defines the menu used in this page
Line 381: sParentId = "99"
Line 382:
Line 383: ' SiteMap Variables
Line 384: iMapRoot = "Root"
Line 385: iMapDepth = 5
Line 386: sMapWidth = "500"
Line 387: sABaseClass = "Lv"
Line 388: sTDBaseClass = "Row"
Line 389:
Line 390:
Line 391: #End ExternalSource
Line 392: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<!-- InstanceEndEditable --> "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 393:
Line 394: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",26)
Line 395: parameterContainer.Controls(0).RenderControl(__output)
Line 396:
Line 397: #End ExternalSource
Line 398: Me.WriteUTF8ResourceString(__output, 0, 596, true)
Line 399:
Line 400: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",39)
Line 401: parameterContainer.Controls(1).RenderControl(__output)
Line 402:
Line 403: #End ExternalSource
Line 404: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" </td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" </tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" <tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"<td width=""100%"" height=""100%"" valign=""top"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&" <"& _
Line 405: "table width=""100%"" height=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)& _
Line 406: "<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&" <td width=""160"" valign=""top"" bgcolor=""#243B6F"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&" ")
Line 407:
Line 408: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",47)
Line 409: parameterContainer.Controls(2).RenderControl(__output)
Line 410:
Line 411: #End ExternalSource
Line 412: Me.WriteUTF8ResourceString(__output, 596, 303, true)
Line 413:
Line 414: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",60)
Line 415:
Line 416: PrintSiteMap iMapRoot, iMapDepth, sMapWidth, sABaseClass, sTDBaseClass
Line 417:
Line 418:
Line 419: #End ExternalSource
Line 420: Me.WriteUTF8ResourceString(__output, 899, 316, true)
Line 421:
Line 422: #ExternalSource("d:\hosting\iacworld\English\SiteMap.aspx",79)
Line 423: parameterContainer.Controls(3).RenderControl(__output)
Line 424:
Line 425: #End ExternalSource
Line 426: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" </tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</body>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<!-- InstanceEnd --></html>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 427: End Sub
Line 428:
Line 429: Protected Overrides Sub FrameworkInitialize()
Line 430: SetStringResourcePointer(ASP.SiteMap_aspx.__stringResource, 1215)
Line 431: Me.__BuildControlTree(Me)
Line 432: Me.FileDependencies = ASP.SiteMap_aspx.__fileDependencies
Line 433: Me.EnableViewStateMac = true
Line 434: Me.Request.ValidateInput
Line 435: End Sub
Line 436:
Line 437: Public Overrides Function GetTypeHashCode() As Integer
Line 438: Return 1100379176
Line 439: End Function
Line 440: End Class
Line 441: End Namespace
Line 442: |