Line 1: #ExternalChecksum("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","021C460EA0FEB93696337C333495247683021BDC")
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 LibraryDM
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.Security
Line 31: Imports System.Web.SessionState
Line 32: Imports System.Web.UI
Line 33: Imports System.Web.UI.HtmlControls
Line 34: Imports System.Web.UI.WebControls
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 local_ucontent_ascx
Line 42: Inherits Global.System.Web.UI.UserControl
Line 43:
Line 44:
Line 45: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 46: Protected WithEvents listContents As Global.LibraryDM.List
Line 47:
Line 48: #End ExternalSource
Line 49:
Line 50: Private Shared __initialized As Boolean
Line 51:
Line 52:
Line 53: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",2)
Line 54:
Line 55: Public PageID As Integer
Line 56: Dim curContent As Integer = 1
Line 57:
Line 58: Sub Page_Load()
Line 59: listContents.Source ="SELECT ID, Content, Width, PictureWidth, PictureHeight, Align, Rank FROM Content WHERE PageID=" & PageID & " ORDER BY Rank"
Line 60: End Sub
Line 61:
Line 62:
Line 63: Sub ListContent (row As System.Data.DataRow, sort As String, ByVal output As String)
Line 64: Dm.Write("<td class='padBigLeft'>")
Line 65:
Line 66: If Request.IsAuthenticated Then
Line 67: Dm.Write("<a class='bold underlineNever addNew' href=""javascript:ChildWindow('cContent.aspx?ID=" & row("ID") & "', 720, 480);""><img src='LibraryDM/icon_edit.gif' align='absmiddle' width=16 height=14> <u>Edit</u></a> ")
Line 68: Dm.Write("<a class='addNew bold underlineNever' href='cContent.aspx?ID=" & row("ID") & "&delete=1' onclick=""return confirm('Are you sure?');""><img src='LibraryDM/icon_edit.gif' align='absmiddle' width=16 height=14> <u>Delete</u></a><br>")
Line 69: End If
Line 70:
Line 71: If Picture.Exists("Content", CInt("0" & row("ID"))) Then
Line 72: Dim align = "" & row("Align")
Line 73: If align = "Bottom" Then
Line 74: Dm.Write( row("Content") & "<br><img class='border marginTop' src='Local/Pictures/Content_" & row("ID") & ".jpg'>")
Line 75: Else
Line 76: If align = "Top" Then
Line 77: Dm.Write("<img class='marginTop' src='img.aspx?path=Local/Pictures/Content_" & row("ID") & ".jpg&width="& row("PictureWidth") &"&height="&row("PictureHeight")&"'><br>" & row("Content"))
Line 78: ElseIf align = "Center" Then
Line 79: Dm.Write("<center><img class='marginTop marginBig" & row("Align") & "' src='Local/Pictures/Content_" & row("ID") & ".jpg' align='" & row("Align") & "'></center><br>" & row("Content"))
Line 80: Else
Line 81: Dm.Write("<img class='marginTop marginBottom marginBigRight padBigRight" & row("Align") & "' src='Local/Pictures/Content_" & row("ID") & ".jpg' align='" & row("Align") & "' width='"& row("PictureWidth") &"' height='"&row("PictureHeight")&"'>" & row("Content"))
Line 82: End If
Line 83: End If
Line 84: Else
Line 85: Dm.Write("" & row("Content"))
Line 86: End If
Line 87:
Line 88: Dm.Write("</div></td>")
Line 89: curContent += 1
Line 90: End Sub
Line 91:
Line 92:
Line 93: #End ExternalSource
Line 94:
Line 95:
Line 96: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 97: Public Sub New()
Line 98: MyBase.New
Line 99: CType(Me,Global.System.Web.UI.UserControl).AppRelativeVirtualPath = "~/Local/uContent.ascx"
Line 100: If (Global.ASP.local_ucontent_ascx.__initialized = false) Then
Line 101: Global.ASP.local_ucontent_ascx.__initialized = true
Line 102: End If
Line 103: End Sub
Line 104:
Line 105: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 106: Get
Line 107: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 108: End Get
Line 109: End Property
Line 110:
Line 111: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 112: Get
Line 113: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 114: End Get
Line 115: End Property
Line 116:
Line 117: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 118: Private Function __BuildControllistContents() As Global.LibraryDM.List
Line 119: Dim __ctrl As Global.LibraryDM.List
Line 120:
Line 121: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 122: __ctrl = New Global.LibraryDM.List()
Line 123:
Line 124: #End ExternalSource
Line 125: Me.listContents = __ctrl
Line 126:
Line 127: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 128: __ctrl.ID = "listContents"
Line 129:
Line 130: #End ExternalSource
Line 131:
Line 132: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 133: __ctrl.Headers = "81"
Line 134:
Line 135: #End ExternalSource
Line 136:
Line 137: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 138: __ctrl.Widths = "100%"
Line 139:
Line 140: #End ExternalSource
Line 141:
Line 142: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 143: __ctrl.Columns = 1
Line 144:
Line 145: #End ExternalSource
Line 146:
Line 147: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 148: __ctrl.Rows = -1
Line 149:
Line 150: #End ExternalSource
Line 151:
Line 152: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 153: __ctrl.ShowHeader = false
Line 154:
Line 155: #End ExternalSource
Line 156:
Line 157: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 158: __ctrl.ShowLabel = false
Line 159:
Line 160: #End ExternalSource
Line 161:
Line 162: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 163: __ctrl.Width = "100%"
Line 164:
Line 165: #End ExternalSource
Line 166:
Line 167: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 168: __ctrl.Label = ""
Line 169:
Line 170: #End ExternalSource
Line 171:
Line 172: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 173: __ctrl.ShowLinkBack = false
Line 174:
Line 175: #End ExternalSource
Line 176:
Line 177: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",46)
Line 178: AddHandler __ctrl.EachRecord, AddressOf Me.ListContent
Line 179:
Line 180: #End ExternalSource
Line 181: Return __ctrl
Line 182: End Function
Line 183:
Line 184: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 185: Private Sub __BuildControlTree(ByVal __ctrl As local_ucontent_ascx)
Line 186: Dim __ctrl1 As Global.LibraryDM.List
Line 187:
Line 188: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",1)
Line 189: __ctrl1 = Me.__BuildControllistContents
Line 190:
Line 191: #End ExternalSource
Line 192: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 193:
Line 194: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",1)
Line 195: __parser.AddParsedSubObject(__ctrl1)
Line 196:
Line 197: #End ExternalSource
Line 198: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 199: End Sub
Line 200:
Line 201: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 202:
Line 203: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",41)
Line 204: If Request.IsAuthenticated Then
Line 205:
Line 206: #End ExternalSource
Line 207: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p class='topSpace right'>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a class='bold underlineNever addNew' href=""jav"& _
Line 208: "ascript:ChildWindow('cContent.aspx?pageID=")
Line 209:
Line 210: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",43)
Line 211: __w.Write(PageID)
Line 212:
Line 213:
Line 214: #End ExternalSource
Line 215: __w.Write("', 720, 480);""><img src='LibraryDM/icon_edit.gif' align='absmiddle' width=16 heig"& _
Line 216: "ht=14> <u>Add a new Section to this Page</u></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 217:
Line 218: #ExternalSource("D:\WebSites\Live Websites\Websites\mirasolsoapstone.com\wwwroot\Local\uContent.ascx",45)
Line 219: End If
Line 220:
Line 221: #End ExternalSource
Line 222: parameterContainer.Controls(0).RenderControl(__w)
Line 223: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 224: End Sub
Line 225:
Line 226: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 227: Protected Overrides Sub FrameworkInitialize()
Line 228: MyBase.FrameworkInitialize
Line 229: Me.__BuildControlTree(Me)
Line 230: End Sub
Line 231: End Class
Line 232: End Namespace
Line 233:
|