Line 1: #ExternalChecksum("D:\hyperview\websites\adlib\ema\document.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","1031D662B7D33D379FEF67CA06701104B23CD2BB")
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 EBlock
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.Linq
Line 24: Imports System.Text
Line 25: Imports System.Text.RegularExpressions
Line 26: Imports System.Web
Line 27: Imports System.Web.Caching
Line 28: Imports System.Web.DynamicData
Line 29: Imports System.Web.Profile
Line 30: Imports System.Web.SessionState
Line 31: Imports System.Web.UI
Line 32: Imports System.Web.UI.HtmlControls
Line 33: Imports System.Web.UI.WebControls
Line 34: Imports System.Web.UI.WebControls.Expressions
Line 35: Imports System.Web.UI.WebControls.WebParts
Line 36: Imports System.Xml.Linq
Line 37:
Line 38: Namespace ASP
Line 39:
Line 40: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 41: Public Class ema_document_aspx
Line 42: Inherits Global.EBlock.Page
Line 43: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 44:
Line 45:
Line 46: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",177)
Line 47: Protected WithEvents logoutLink As Global.System.Web.UI.WebControls.Literal
Line 48:
Line 49: #End ExternalSource
Line 50:
Line 51:
Line 52: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",197)
Line 53: Protected WithEvents SectionTitle As Global.System.Web.UI.WebControls.Literal
Line 54:
Line 55: #End ExternalSource
Line 56:
Line 57:
Line 58: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",201)
Line 59: Protected WithEvents DateInfo As Global.System.Web.UI.WebControls.Literal
Line 60:
Line 61: #End ExternalSource
Line 62:
Line 63:
Line 64: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",202)
Line 65: Protected WithEvents btnLibrary As Global.System.Web.UI.WebControls.HyperLink
Line 66:
Line 67: #End ExternalSource
Line 68:
Line 69:
Line 70: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",203)
Line 71: Protected WithEvents btnSection As Global.System.Web.UI.WebControls.HyperLink
Line 72:
Line 73: #End ExternalSource
Line 74:
Line 75:
Line 76: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",204)
Line 77: Protected WithEvents LocInfo As Global.System.Web.UI.WebControls.Literal
Line 78:
Line 79: #End ExternalSource
Line 80:
Line 81:
Line 82: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",215)
Line 83: Protected WithEvents DocumentContents As Global.System.Web.UI.WebControls.Repeater
Line 84:
Line 85: #End ExternalSource
Line 86:
Line 87:
Line 88: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",259)
Line 89: Protected WithEvents UpInfo As Global.System.Web.UI.WebControls.Literal
Line 90:
Line 91: #End ExternalSource
Line 92:
Line 93: Private Shared __initialized As Boolean
Line 94:
Line 95: Private Shared __stringResource As Object
Line 96:
Line 97: Private Shared __fileDependencies As Object
Line 98:
Line 99:
Line 100: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",4)
Line 101:
Line 102:
Line 103: Dim documentAsset As Asset
Line 104: Dim documentAssetID As Integer
Line 105: Dim UserName As String, Password As String, IsPublicUser As Boolean, groupId As Integer = 106
Line 106:
Line 107: Sub Page_Load(sender As Object, e As EventArgs)
Line 108:
Line 109: if Request.Querystring("user") <> "" then _
Line 110: Session("I_UserID") = CInt(Request.Querystring("user"))
Line 111:
Line 112: if Cint(Session("I_UserID")) = 0 then IsPublicUser = True _
Line 113: else IsPublicUser = False
Line 114:
Line 115: 'AND Make sure the member is in the correct group and log in if using a public proxy....
Line 116: Try
Line 117: If Session("I_UserID") > 0 AND NOT Credentials.CheckRightsForEntity(14403, RightType.Belong) then
Line 118: Credentials = New Eblock.Compatibility.Credentials
Line 119: DirectCast(Credentials, EBlock.Compatibility.Credentials).ForeignAccountSource = "main"
Line 120: DirectCast(Credentials, EBlock.Compatibility.Credentials).Authenticate("main", Session("I_UserID"), True)
Line 121: End if
Line 122: if NOT hyperview.IsMember(DirectCast(Credentials, EBlock.Compatibility.Credentials).ForeignAccountID, groupId) then _
Line 123: IsPublicUser = True
Line 124: Catch eX As Exception:
Line 125: 'Response.write(eX)
Line 126: IsPublicUser = True
Line 127: End Try
Line 128:
Line 129:
Line 130: '*********************************************
Line 131: 'Get Correct Library Credentials from groupId (106)
Line 132: '*********************************************
Line 133: Dim lb As AssetListBuilder = Core.NewAssetListBuilder, _
Line 134: l As AssetList, detailsAsset As Asset
Line 135: lb.PermissionMask.GrantRole(RoleType.Read)
Line 136: lb.ContainerId = 17
Line 137: lb.PrototypeId = 19497
Line 138: lb.SearchField = AssetSearchField.Free1
Line 139: lb.ListType = 1 'Enumaration for DeepSearch
Line 140: lb.SearchTerm = groupId
Line 141:
Line 142: If lb.Fill(l) > 0 Then
Line 143: detailsAsset = New Asset(l.Item(0), Credentials) 'user details are now public read
Line 144:
Line 145: 'Authenticate credentials with session information
Line 146: if IsPublicUser then
Line 147: 'Credentials = New Credentials
Line 148: 'UserName = detailsAsset.Fields("publicusername").Value
Line 149: 'Password = detailsAsset.Fields("publicpassword").Value
Line 150: 'Credentials.Authenticate(UserName, Password)
Line 151: end if
Line 152:
Line 153: End If
Line 154:
Line 155: If Credentials.IsAuthenticated Then logoutLink.Text = "<a href=""logout.aspx"">Log Out</a>,"
Line 156:
Line 157:
Line 158: documentAssetID = Request.QueryString("doc")
Line 159:
Line 160: 'Kick people without permissions out of content
Line 161: '***************************************************************
Line 162: if NOT Credentials.CheckPermissionsForAsset(documentAssetID,RoleType.Read) then
Line 163: Response.Write (Credentials.Name & ", " & Credentials.EntityID & " denied access to " & documentAssetID)
Line 164: 'Response.Redirect("library.asp")
Line 165: Response.End
Line 166: End If
Line 167: Dim pb As AssetListBuilder = New AssetListBuilder(Credentials)
Line 168: pb.PermissionMask.GrantRole(RoleType.Read)
Line 169: pb.ListType = AssetListType.AssetAliases
Line 170: pb.AssetID = documentAssetID
Line 171:
Line 172: Dim aliasList As AssetList, hasAlias As Boolean
Line 173: hasAlias = (pb.Fill(aliasList) > 0)
Line 174:
Line 175: if NOT hasAlias then
Line 176: Response.Redirect("library.asp")
Line 177: Response.End
Line 178: end if
Line 179: '***************************************************************
Line 180:
Line 181:
Line 182: if Request.QueryString("id") <> "" Then
Line 183: Response.Redirect("content.aspx?doc=" & documentAssetID & "&id=" & Request.QueryString("id"))
Line 184: Response.End
Line 185: End If
Line 186:
Line 187:
Line 188: documentAsset = Core.GetAsset(documentAssetID)
Line 189: SectionTitle.Text = documentAsset.Name
Line 190: DateInfo.Text = "Last Updated: " & _
Line 191: FormatDateTime(documentAsset.ModifiedDate, vbShortDate)
Line 192:
Line 193: Dim deliveryList As AssetList, deliveryBuilder As AssetListBuilder = Core.NewAssetListBuilder
Line 194: deliveryBuilder.ContainerID = documentAssetID
Line 195: deliveryBuilder.PrototypeGUID = "000IL3890W.16NTBVOB6TY08"
Line 196: deliveryBuilder.PermissionMask.GrantRole(RoleType.Read)
Line 197: deliveryBuilder.Status = AssetStatusMask.Active
Line 198: deliveryBuilder.Fill(deliveryList)
Line 199:
Line 200: DocumentContents.DataSource = deliveryList
Line 201: DocumentContents.DataBind
Line 202:
Line 203: ' Generate library link
Line 204: btnLibrary.NavigateURL = "library.aspx?group=106"
Line 205: btnLibrary.Visible = True
Line 206: if Session("sectionId") <> "" then
Line 207: btnSection.NavigateURL = "library.aspx?id=" & Session("sectionId")
Line 208: btnSection.Visible = True
Line 209: else
Line 210: btnSection.NavigateURL = "library.aspx?id=0"
Line 211: btnSection.Visible = False
Line 212: end if
Line 213:
Line 214: End Sub
Line 215:
Line 216:
Line 217: #End ExternalSource
Line 218:
Line 219:
Line 220: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 221: Public Sub New()
Line 222: MyBase.New
Line 223: Dim dependencies() As String
Line 224: CType(Me,Global.EBlock.Page).AppRelativeVirtualPath = "~/ema/document.aspx"
Line 225: If (Global.ASP.ema_document_aspx.__initialized = false) Then
Line 226: Global.ASP.ema_document_aspx.__stringResource = Me.ReadStringResource
Line 227: dependencies = New String(0) {}
Line 228: dependencies(0) = "~/ema/document.aspx"
Line 229: Global.ASP.ema_document_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 230: Global.ASP.ema_document_aspx.__initialized = true
Line 231: End If
Line 232: Me.Server.ScriptTimeout = 30000000
Line 233: End Sub
Line 234:
Line 235: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 236: Get
Line 237: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 238: End Get
Line 239: End Property
Line 240:
Line 241: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 242: Get
Line 243: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 244: End Get
Line 245: End Property
Line 246:
Line 247: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 248: Private Function __BuildControllogoutLink() As Global.System.Web.UI.WebControls.Literal
Line 249: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 250:
Line 251: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",177)
Line 252: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 253:
Line 254: #End ExternalSource
Line 255: Me.logoutLink = __ctrl
Line 256:
Line 257: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",177)
Line 258: __ctrl.ID = "logoutLink"
Line 259:
Line 260: #End ExternalSource
Line 261: Return __ctrl
Line 262: End Function
Line 263:
Line 264: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 265: Private Function __BuildControlSectionTitle() As Global.System.Web.UI.WebControls.Literal
Line 266: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 267:
Line 268: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",197)
Line 269: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 270:
Line 271: #End ExternalSource
Line 272: Me.SectionTitle = __ctrl
Line 273:
Line 274: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",197)
Line 275: __ctrl.ID = "SectionTitle"
Line 276:
Line 277: #End ExternalSource
Line 278: Return __ctrl
Line 279: End Function
Line 280:
Line 281: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 282: Private Function __BuildControlDateInfo() As Global.System.Web.UI.WebControls.Literal
Line 283: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 284:
Line 285: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",201)
Line 286: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 287:
Line 288: #End ExternalSource
Line 289: Me.DateInfo = __ctrl
Line 290:
Line 291: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",201)
Line 292: __ctrl.ID = "DateInfo"
Line 293:
Line 294: #End ExternalSource
Line 295: Return __ctrl
Line 296: End Function
Line 297:
Line 298: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 299: Private Function __BuildControlbtnLibrary() As Global.System.Web.UI.WebControls.HyperLink
Line 300: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 301:
Line 302: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",202)
Line 303: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 304:
Line 305: #End ExternalSource
Line 306: Me.btnLibrary = __ctrl
Line 307: __ctrl.ApplyStyleSheetSkin(Me)
Line 308:
Line 309: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",202)
Line 310: __ctrl.ID = "btnLibrary"
Line 311:
Line 312: #End ExternalSource
Line 313:
Line 314: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",202)
Line 315: __ctrl.Text = "Back to Library Contents"
Line 316:
Line 317: #End ExternalSource
Line 318:
Line 319: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",202)
Line 320: __ctrl.Visible = false
Line 321:
Line 322: #End ExternalSource
Line 323: Return __ctrl
Line 324: End Function
Line 325:
Line 326: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 327: Private Function __BuildControlbtnSection() As Global.System.Web.UI.WebControls.HyperLink
Line 328: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 329:
Line 330: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",203)
Line 331: __ctrl = New Global.System.Web.UI.WebControls.HyperLink()
Line 332:
Line 333: #End ExternalSource
Line 334: Me.btnSection = __ctrl
Line 335: __ctrl.ApplyStyleSheetSkin(Me)
Line 336:
Line 337: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",203)
Line 338: __ctrl.ID = "btnSection"
Line 339:
Line 340: #End ExternalSource
Line 341:
Line 342: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",203)
Line 343: __ctrl.Text = "Back to Library Section"
Line 344:
Line 345: #End ExternalSource
Line 346:
Line 347: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",203)
Line 348: __ctrl.Visible = false
Line 349:
Line 350: #End ExternalSource
Line 351: Return __ctrl
Line 352: End Function
Line 353:
Line 354: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 355: Private Function __BuildControlLocInfo() As Global.System.Web.UI.WebControls.Literal
Line 356: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 357:
Line 358: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",204)
Line 359: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 360:
Line 361: #End ExternalSource
Line 362: Me.LocInfo = __ctrl
Line 363:
Line 364: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",204)
Line 365: __ctrl.ID = "LocInfo"
Line 366:
Line 367: #End ExternalSource
Line 368: Return __ctrl
Line 369: End Function
Line 370:
Line 371: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 372: Private Function __BuildControl__control3() As Global.System.Web.UI.DataBoundLiteralControl
Line 373: Dim __ctrl As Global.System.Web.UI.DataBoundLiteralControl
Line 374:
Line 375: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",218)
Line 376: __ctrl = New Global.System.Web.UI.DataBoundLiteralControl(5, 4)
Line 377:
Line 378: #End ExternalSource
Line 379: __ctrl.TemplateControl = Me
Line 380: __ctrl.SetStaticString(0, "&id=")
Line 381: __ctrl.SetStaticString(1, """>")
Line 382: __ctrl.SetStaticString(2, "</a></b><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 383: __ctrl.SetStaticString(3, "<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Last updated: ")
Line 384: __ctrl.SetStaticString(4, ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 385:
Line 386: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",218)
Line 387: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBind__control3
Line 388:
Line 389: #End ExternalSource
Line 390: Return __ctrl
Line 391: End Function
Line 392:
Line 393: Public Sub __DataBind__control3(ByVal sender As Object, ByVal e As System.EventArgs)
Line 394: Dim Container As System.Web.UI.WebControls.RepeaterItem
Line 395: Dim target As System.Web.UI.DataBoundLiteralControl
Line 396:
Line 397: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",218)
Line 398: target = CType(sender,System.Web.UI.DataBoundLiteralControl)
Line 399:
Line 400: #End ExternalSource
Line 401:
Line 402: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",218)
Line 403: Container = CType(target.BindingContainer,System.Web.UI.WebControls.RepeaterItem)
Line 404:
Line 405: #End ExternalSource
Line 406:
Line 407: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",218)
Line 408: target.SetDataBoundString(0, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).AssetID, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 409:
Line 410: #End ExternalSource
Line 411:
Line 412: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",218)
Line 413: target.SetDataBoundString(1, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).Name, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 414:
Line 415: #End ExternalSource
Line 416:
Line 417: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",219)
Line 418: target.SetDataBoundString(2, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).Description, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 419:
Line 420: #End ExternalSource
Line 421:
Line 422: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",220)
Line 423: target.SetDataBoundString(3, Global.System.Convert.ToString(DirectCast(Container.DataItem, AssetListItem).ModifiedDate, Global.System.Globalization.CultureInfo.CurrentCulture))
Line 424:
Line 425: #End ExternalSource
Line 426: End Sub
Line 427:
Line 428: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 429: Private Sub __BuildControl__control2(ByVal __ctrl As System.Web.UI.Control)
Line 430: Dim __ctrl1 As Global.System.Web.UI.DataBoundLiteralControl
Line 431:
Line 432: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",215)
Line 433: __ctrl1 = Me.__BuildControl__control3
Line 434:
Line 435: #End ExternalSource
Line 436: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 437:
Line 438: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",215)
Line 439: __parser.AddParsedSubObject(__ctrl1)
Line 440:
Line 441: #End ExternalSource
Line 442: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control2)
Line 443: End Sub
Line 444:
Line 445: Private Sub __Render__control2(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 446: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""deliveryinfo"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <b><a href=""content.aspx?doc=")
Line 447:
Line 448: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",218)
Line 449: __w.Write(documentAssetID )
Line 450:
Line 451:
Line 452: #End ExternalSource
Line 453: parameterContainer.Controls(0).RenderControl(__w)
Line 454: End Sub
Line 455:
Line 456: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 457: Private Function __BuildControlDocumentContents() As Global.System.Web.UI.WebControls.Repeater
Line 458: Dim __ctrl As Global.System.Web.UI.WebControls.Repeater
Line 459:
Line 460: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",215)
Line 461: __ctrl = New Global.System.Web.UI.WebControls.Repeater()
Line 462:
Line 463: #End ExternalSource
Line 464: Me.DocumentContents = __ctrl
Line 465:
Line 466: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",215)
Line 467: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control2)
Line 468:
Line 469: #End ExternalSource
Line 470:
Line 471: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",215)
Line 472: __ctrl.ID = "DocumentContents"
Line 473:
Line 474: #End ExternalSource
Line 475: Return __ctrl
Line 476: End Function
Line 477:
Line 478: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 479: Private Function __BuildControlUpInfo() As Global.System.Web.UI.WebControls.Literal
Line 480: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 481:
Line 482: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",259)
Line 483: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 484:
Line 485: #End ExternalSource
Line 486: Me.UpInfo = __ctrl
Line 487:
Line 488: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",259)
Line 489: __ctrl.ID = "UpInfo"
Line 490:
Line 491: #End ExternalSource
Line 492: Return __ctrl
Line 493: End Function
Line 494:
Line 495: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 496: Private Sub __BuildControlTree(ByVal __ctrl As ema_document_aspx)
Line 497:
Line 498: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 499: __ctrl.ContentType = "text/html"
Line 500:
Line 501: #End ExternalSource
Line 502:
Line 503: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 504: __ctrl.ResponseEncoding = "iso-8859-1"
Line 505:
Line 506: #End ExternalSource
Line 507:
Line 508: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 509: __ctrl.EnableEventValidation = false
Line 510:
Line 511: #End ExternalSource
Line 512:
Line 513: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 514: Me.InitializeCulture
Line 515:
Line 516: #End ExternalSource
Line 517: Dim __ctrl1 As Global.System.Web.UI.WebControls.Literal
Line 518:
Line 519: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 520: __ctrl1 = Me.__BuildControllogoutLink
Line 521:
Line 522: #End ExternalSource
Line 523: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 524:
Line 525: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 526: __parser.AddParsedSubObject(__ctrl1)
Line 527:
Line 528: #End ExternalSource
Line 529: Dim __ctrl2 As Global.System.Web.UI.WebControls.Literal
Line 530:
Line 531: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 532: __ctrl2 = Me.__BuildControlSectionTitle
Line 533:
Line 534: #End ExternalSource
Line 535:
Line 536: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 537: __parser.AddParsedSubObject(__ctrl2)
Line 538:
Line 539: #End ExternalSource
Line 540: Dim __ctrl3 As Global.System.Web.UI.WebControls.Literal
Line 541:
Line 542: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 543: __ctrl3 = Me.__BuildControlDateInfo
Line 544:
Line 545: #End ExternalSource
Line 546:
Line 547: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 548: __parser.AddParsedSubObject(__ctrl3)
Line 549:
Line 550: #End ExternalSource
Line 551: Dim __ctrl4 As Global.System.Web.UI.WebControls.HyperLink
Line 552:
Line 553: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 554: __ctrl4 = Me.__BuildControlbtnLibrary
Line 555:
Line 556: #End ExternalSource
Line 557:
Line 558: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 559: __parser.AddParsedSubObject(__ctrl4)
Line 560:
Line 561: #End ExternalSource
Line 562: Dim __ctrl5 As Global.System.Web.UI.WebControls.HyperLink
Line 563:
Line 564: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 565: __ctrl5 = Me.__BuildControlbtnSection
Line 566:
Line 567: #End ExternalSource
Line 568:
Line 569: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 570: __parser.AddParsedSubObject(__ctrl5)
Line 571:
Line 572: #End ExternalSource
Line 573: Dim __ctrl6 As Global.System.Web.UI.WebControls.Literal
Line 574:
Line 575: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 576: __ctrl6 = Me.__BuildControlLocInfo
Line 577:
Line 578: #End ExternalSource
Line 579:
Line 580: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 581: __parser.AddParsedSubObject(__ctrl6)
Line 582:
Line 583: #End ExternalSource
Line 584: Dim __ctrl7 As Global.System.Web.UI.WebControls.Repeater
Line 585:
Line 586: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 587: __ctrl7 = Me.__BuildControlDocumentContents
Line 588:
Line 589: #End ExternalSource
Line 590:
Line 591: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 592: __parser.AddParsedSubObject(__ctrl7)
Line 593:
Line 594: #End ExternalSource
Line 595: Dim __ctrl8 As Global.System.Web.UI.WebControls.Literal
Line 596:
Line 597: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 598: __ctrl8 = Me.__BuildControlUpInfo
Line 599:
Line 600: #End ExternalSource
Line 601:
Line 602: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",1)
Line 603: __parser.AddParsedSubObject(__ctrl8)
Line 604:
Line 605: #End ExternalSource
Line 606: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 607: End Sub
Line 608:
Line 609: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 610: Me.WriteUTF8ResourceString(__w, 19661, 1469, true)
Line 611: parameterContainer.Controls(0).RenderControl(__w)
Line 612: Me.WriteUTF8ResourceString(__w, 21130, 1270, true)
Line 613: parameterContainer.Controls(1).RenderControl(__w)
Line 614: __w.Write("</h4>"&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)&"<div id=""docheader"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""typeinfo"">")
Line 615: parameterContainer.Controls(2).RenderControl(__w)
Line 616: __w.Write("<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 617: parameterContainer.Controls(3).RenderControl(__w)
Line 618: __w.Write("<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 619: parameterContainer.Controls(4).RenderControl(__w)
Line 620: __w.Write("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""locinfo"">")
Line 621: parameterContainer.Controls(5).RenderControl(__w)
Line 622: __w.Write("</div>"&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)&"<div id=""holder"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""document"" class=""content"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 623: " <h1>")
Line 624:
Line 625: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",210)
Line 626: __w.Write(documentAsset.Name )
Line 627:
Line 628:
Line 629: #End ExternalSource
Line 630: __w.Write("</h1>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p>")
Line 631:
Line 632: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",211)
Line 633: __w.Write(documentAsset.Description )
Line 634:
Line 635:
Line 636: #End ExternalSource
Line 637: __w.Write("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <b>The following versions of this document are available:</b>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 638: "")
Line 639: parameterContainer.Controls(6).RenderControl(__w)
Line 640: Me.WriteUTF8ResourceString(__w, 22400, 913, true)
Line 641:
Line 642: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",243)
Line 643: if Session("I_UserID") > 0 then
Line 644:
Line 645: #End ExternalSource
Line 646: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div class=""panel"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" <p><strong>Your bookmarks:</strong><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a hr"& _
Line 647: "ef=""/adlib/cuttings.asp?title=")
Line 648:
Line 649: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",247)
Line 650: __w.Write(Server.URLEncode(documentAsset.Name) )
Line 651:
Line 652:
Line 653: #End ExternalSource
Line 654: __w.Write("&action=add&url=")
Line 655:
Line 656: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",247)
Line 657: __w.Write(Server.URLEncode(Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING")) )
Line 658:
Line 659:
Line 660: #End ExternalSource
Line 661: __w.Write("&user=")
Line 662:
Line 663: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",247)
Line 664: __w.Write(Session("I_UserID") )
Line 665:
Line 666:
Line 667: #End ExternalSource
Line 668: Me.WriteUTF8ResourceString(__w, 23313, 287, true)
Line 669:
Line 670: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",251)
Line 671: __w.Write(Session("I_UserID") )
Line 672:
Line 673:
Line 674: #End ExternalSource
Line 675: __w.Write(""" scrolling=""Auto"" width=""180"" height=""110"" name=""cuttings""></iframe>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <"& _
Line 676: "/div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9))
Line 677:
Line 678: #ExternalSource("D:\hyperview\websites\adlib\ema\document.aspx",254)
Line 679: end if
Line 680:
Line 681: #End ExternalSource
Line 682: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""docfooter"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""upinfo"">")
Line 683: parameterContainer.Controls(7).RenderControl(__w)
Line 684: __w.Write(" </div>"&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)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""copy"">© University of Hertfo"& _
Line 685: "rdshire, 2004."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""disclaimer.asp"">Disclaimer</a>.</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</h"& _
Line 686: "tml>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 687: End Sub
Line 688:
Line 689: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 690: Protected Overrides Sub FrameworkInitialize()
Line 691: MyBase.FrameworkInitialize
Line 692: Me.SetStringResourcePointer(Global.ASP.ema_document_aspx.__stringResource, 0)
Line 693: Me.__BuildControlTree(Me)
Line 694: Me.AddWrappedFileDependencies(Global.ASP.ema_document_aspx.__fileDependencies)
Line 695: End Sub
Line 696:
Line 697: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 698: Public Overrides Function GetTypeHashCode() As Integer
Line 699: Return 569605776
Line 700: End Function
Line 701:
Line 702: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 703: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 704: MyBase.ProcessRequest(context)
Line 705: End Sub
Line 706: End Class
Line 707: End Namespace
Line 708:
|