Line 1: #ExternalChecksum("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","912A94C2A43D86996D87F7327F771451ECA9CF5E")
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.Data.OleDb
Line 25: Imports System.Linq
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:
Line 42: Partial Public Class cmgevnts
Line 43: Implements System.Web.SessionState.IRequiresSessionState
Line 44:
Line 45: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 46: Get
Line 47: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 48: End Get
Line 49: End Property
Line 50:
Line 51: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 52: Get
Line 53: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 54: End Get
Line 55: End Property
Line 56: End Class
Line 57:
Line 58: Namespace ASP
Line 59:
Line 60: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 61: Public Class klughtheatre_cmgevnts_aspx
Line 62: Inherits Global.cmgevnts
Line 63: Implements System.Web.IHttpAsyncHandler, System.Web.IHttpHandler
Line 64:
Line 65: Private Shared __initialized As Boolean
Line 66:
Line 67: Private Shared __stringResource As Object
Line 68:
Line 69: Private Shared __fileDependencies As Object
Line 70:
Line 71: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 72: Public Sub New()
Line 73: MyBase.New
Line 74: Dim dependencies() As String
Line 75:
Line 76: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx.vb",912304)
Line 77: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/klughtheatre/cmgevnts.aspx"
Line 78:
Line 79: #End ExternalSource
Line 80: If (Global.ASP.klughtheatre_cmgevnts_aspx.__initialized = false) Then
Line 81: Global.ASP.klughtheatre_cmgevnts_aspx.__stringResource = Me.ReadStringResource
Line 82: dependencies = New String(3) {}
Line 83: dependencies(0) = "~/klughtheatre/cmgevnts.aspx"
Line 84: dependencies(1) = "~/klughtheatre/Site.master"
Line 85: dependencies(2) = "~/klughtheatre/Site.master.vb"
Line 86: dependencies(3) = "~/klughtheatre/cmgevnts.aspx.vb"
Line 87: Global.ASP.klughtheatre_cmgevnts_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 88: Global.ASP.klughtheatre_cmgevnts_aspx.__initialized = true
Line 89: End If
Line 90: Me.Server.ScriptTimeout = 30000000
Line 91: Me.AspCompatMode = true
Line 92: End Sub
Line 93:
Line 94: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 95: Get
Line 96: Return false
Line 97: End Get
Line 98: End Property
Line 99:
Line 100: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 101: Private Sub __BuildControlHeaderContent(ByVal __ctrl As System.Web.UI.Control)
Line 102: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 103:
Line 104: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",7)
Line 105: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 106:
Line 107: #End ExternalSource
Line 108: End Sub
Line 109:
Line 110: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 111: Private Sub __BuildControlBodyContent(ByVal __ctrl As System.Web.UI.Control)
Line 112: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderBodyContent)
Line 113: End Sub
Line 114:
Line 115: Private Sub __RenderBodyContent(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 116: __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 117:
Line 118: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",12)
Line 119:
Line 120:
Line 121: ' **********************************************
Line 122: ' *** ***
Line 123: ' *** KLUGH THEATRE WEBSITE ***
Line 124: ' *** COMING EVENTS WEB PAGE ***
Line 125: ' *** ---------------------------------- ***
Line 126: ' *** Web Page Last Updated: 07/29/2021 ***
Line 127: ' *** ***
Line 128: ' **********************************************
Line 129:
Line 130:
Line 131:
Line 132: #End ExternalSource
Line 133:
Line 134: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",25)
Line 135: Dim strSectionName As String
Line 136:
Line 137: #End ExternalSource
Line 138:
Line 139: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",26)
Line 140: strSectionName = "COMING EVENTS"
Line 141:
Line 142: #End ExternalSource
Line 143: Me.WriteUTF8ResourceString(__w, 84509, 511, true)
Line 144:
Line 145: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",42)
Line 146:
Line 147: Dim Header_Class As header
Line 148: Header_Class = New header
Line 149: Response.Write(Header_Class.DisplayKlughTheatreHeader())
Line 150:
Line 151:
Line 152: #End ExternalSource
Line 153: Me.WriteUTF8ResourceString(__w, 85020, 609, true)
Line 154:
Line 155: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",64)
Line 156:
Line 157: Dim adoComingEventsConnection As OleDbConnection
Line 158: Dim strDatabaseConnectionString As String
Line 159: ' Dim adoConnection As OleDbConnection
Line 160: Dim strSQL As String
Line 161: Dim cmdDeleteOldComingEventsData As OleDbCommand
Line 162: Dim rsComingEventsData As OleDbDataAdapter
Line 163: Dim dsComingEventsData As DataSet
Line 164: Dim strFormattedMonth As String
Line 165: Dim strFormattedDay As String
Line 166: Dim strFormattedYear As String
Line 167: Dim strFormattedHour As String
Line 168: Dim strFormattedMinute As String
Line 169: Dim strFormattedAMPM As String
Line 170: Dim strFormattedDate As String
Line 171: Dim strDetailLineBackgroundColor As String
Line 172: Dim intLoop As Integer
Line 173:
Line 174: adoComingEventsConnection = New OleDbConnection
Line 175: 'rsComingEventsData = Server.CreateObject("ADODB.RecordSet")
Line 176: strDatabaseConnectionString = "Server=10.197.230.15;Database=timothysklugh;User Id=timothysklugh;password=v88c#48a6;Provider=sqloledb;"
Line 177: adoComingEventsConnection.ConnectionString = Trim(strDatabaseConnectionString)
Line 178: ' adoComingEventsConnection.ConnectionString = _
Line 179: ' "Provider=Microsoft.Jet.OLEDB.4.0;" & _
Line 180: ' "Data Source=" & _
Line 181: ' Request.ServerVariables("APPL_PHYSICAL_PATH") & _
Line 182: ' "/klughtheatre/database/comingeventsdb.mdb;User Id=admin;Password=;"
Line 183:
Line 184: adoComingEventsConnection.Open()
Line 185: cmdDeleteOldComingEventsData = New OleDbCommand("DELETE FROM KT_COMING_EVENTS WHERE DATE_OF_EVENT < GETDATE() ", adoComingEventsConnection)
Line 186: cmdDeleteOldComingEventsData.ExecuteNonQuery()
Line 187: strSQL = _
Line 188: "SELECT DATE_OF_EVENT, PRIVATE, EVENT_TITLE " & _
Line 189: "FROM KT_COMING_EVENTS " & _
Line 190: "ORDER BY DATE_OF_EVENT, EVENT_TITLE"
Line 191: ' rsComingEventsData.cursortype = adOpenDynamic
Line 192: ' rsComingEventsData.cursorlocation = adUseClient
Line 193: ' rsComingEventsData.locktype = adLockPessimistic
Line 194: rsComingEventsData = New OleDbDataAdapter(strSQL, adoComingEventsConnection)
Line 195: dsComingEventsData = New DataSet
Line 196: rsComingEventsData.Fill(dsComingEventsData, "DataResults")
Line 197: strDetailLineBackgroundColor = ""
Line 198: If dsComingEventsData.Tables(0).Rows.Count > 0 Then
Line 199: For intLoop = 0 To (dsComingEventsData.Tables(0).Rows.Count - 1)
Line 200: If Trim(strDetailLineBackgroundColor) = "#FFFFCC" Then
Line 201: strDetailLineBackgroundColor = "#FFCCCC"
Line 202: Else
Line 203: strDetailLineBackgroundColor = "#FFFFCC"
Line 204: End If
Line 205: 'If DateDiff("d", CDate(Now()), CDate(rsComingEventsData("DATE_OF_EVENT"))) < 0 Then
Line 206: 'rsComingEventsData.delete()
Line 207: 'Else
Line 208: strFormattedMonth = _
Line 209: Trim(CStr(Month(dsComingEventsData.Tables(0).Rows(intLoop)("DATE_OF_EVENT"))))
Line 210: If Len(strFormattedMonth) < 2 Then
Line 211: strFormattedMonth = "0" & strFormattedMonth
Line 212: End If
Line 213: strFormattedDay = _
Line 214: Trim(CStr(Day(dsComingEventsData.Tables(0).Rows(intLoop)("DATE_OF_EVENT"))))
Line 215: If Len(strFormattedDay) < 2 Then
Line 216: strFormattedDay = "0" & strFormattedDay
Line 217: End If
Line 218: strFormattedYear = _
Line 219: Trim(CStr(Year(dsComingEventsData.Tables(0).Rows(intLoop)("DATE_OF_EVENT"))))
Line 220: If Len(strFormattedYear) < 4 Then
Line 221: strFormattedYear = "00" & strFormattedYear
Line 222: End If
Line 223: strFormattedHour = _
Line 224: Trim(CStr(Hour(dsComingEventsData.Tables(0).Rows(intLoop)("DATE_OF_EVENT"))))
Line 225: If CInt(strFormattedHour) > 12 Then
Line 226: strFormattedHour = Trim(CStr(CInt(strFormattedHour) - 12))
Line 227: strFormattedAMPM = "PM"
Line 228: Else
Line 229: strFormattedAMPM = "AM"
Line 230: End If
Line 231: If Len(strFormattedHour) < 2 Then
Line 232: strFormattedHour = "0" & strFormattedHour
Line 233: End If
Line 234: strFormattedMinute = _
Line 235: Trim(CStr(Minute(dsComingEventsData.Tables(0).Rows(intLoop)("DATE_OF_EVENT"))))
Line 236: If Len(strFormattedMinute) < 2 Then
Line 237: strFormattedMinute = "0" & strFormattedMinute
Line 238: End If
Line 239: strFormattedDate = _
Line 240: strFormattedMonth & "/" & _
Line 241: strFormattedDay & "/" & _
Line 242: strFormattedYear & " " & _
Line 243: strFormattedHour & ":" & _
Line 244: strFormattedMinute & " " & _
Line 245: strFormattedAMPM
Line 246: Response.Write _
Line 247: ("<tr>" & _
Line 248: "<td width=""25%"" bgcolor=""" & strDetailLineBackgroundColor & """>" & _
Line 249: "<nobr>" & _
Line 250: "<font face=""Arial"" color=""#000000"">" & _
Line 251: "<b>" & _
Line 252: strFormattedDate & _
Line 253: "</b>" & _
Line 254: "</font>" & _
Line 255: "</nobr>" & _
Line 256: "</td>")
Line 257: If UCase(Trim(dsComingEventsData.Tables(0).Rows(intLoop)("PRIVATE"))) = "YES" Then
Line 258: Response.Write _
Line 259: ("<td width=""20%"" bgcolor=""" & strDetailLineBackgroundColor & """>" & _
Line 260: "<nobr>" & _
Line 261: "<font face=""Arial"" color=""#FF0000"">" & _
Line 262: "<b>" & _
Line 263: "By Invitation Only" & _
Line 264: "</b>" & _
Line 265: "</font>" & _
Line 266: "</nobr>" & _
Line 267: "</td>")
Line 268: Else
Line 269: Response.Write _
Line 270: ("<td width=""15%"" bgcolor=""" & strDetailLineBackgroundColor & """>" & _
Line 271: "<nobr>" & _
Line 272: "<font face=""Arial"" color=""#000000"">" & _
Line 273: "<b>" & _
Line 274: "All Welcome" & _
Line 275: "</b>" & _
Line 276: "</font>" & _
Line 277: "</nobr>" & _
Line 278: "</td>")
Line 279: End If
Line 280: Response.Write _
Line 281: ("<td width=""65%"" bgcolor=""" & strDetailLineBackgroundColor & """>" & _
Line 282: "<nobr>" & _
Line 283: "<font face=""Arial"" color=""#000000"">" & _
Line 284: "<b>" & _
Line 285: Trim(dsComingEventsData.Tables(0).Rows(intLoop)("EVENT_TITLE")) & _
Line 286: "</b>" & _
Line 287: "</font>" & _
Line 288: "</nobr>" & _
Line 289: "</td>" & _
Line 290: "</tr>")
Line 291: ' End If
Line 292: Next
Line 293: Else
Line 294: Response.Write _
Line 295: ("<tr>" & _
Line 296: "<td colspan=""2"" width=""100%"" bgcolor=""#0000FF"">" & _
Line 297: "<nobr>" & _
Line 298: "<font face=""Arial"" color=""#FFFFFF"">" & _
Line 299: "<b>" & _
Line 300: "No Events Scheduled" & _
Line 301: "</b>" & _
Line 302: "</font>" & _
Line 303: "</nobr>" & _
Line 304: "</td>" & _
Line 305: "</tr>")
Line 306: End If
Line 307: rsComingEventsData.Dispose()
Line 308: adoComingEventsConnection.Close()
Line 309: ' adoConnection.Close()
Line 310: rsComingEventsData = Nothing
Line 311: adoComingEventsConnection = Nothing
Line 312: ' adoConnection = Nothing
Line 313:
Line 314:
Line 315: #End ExternalSource
Line 316: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</center>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 317:
Line 318: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",227)
Line 319:
Line 320: Dim LegalText_Class As legltxt
Line 321: LegalText_Class = New legltxt
Line 322: Response.Write(LegalText_Class.DisplayLegal)
Line 323:
Line 324:
Line 325: #End ExternalSource
Line 326: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<font color=""#808080"" face=""Arial"" style=""font-size: 6pt"">#21029270</font>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 327: End Sub
Line 328:
Line 329: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 330: Private Sub __BuildControlTree(ByVal __ctrl As klughtheatre_cmgevnts_aspx)
Line 331:
Line 332: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",1)
Line 333: __ctrl.Title = "Timothy S. Klugh"
Line 334:
Line 335: #End ExternalSource
Line 336:
Line 337: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",1)
Line 338: __ctrl.MasterPageFile = "Site.Master"
Line 339:
Line 340: #End ExternalSource
Line 341:
Line 342: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",1)
Line 343: Me.InitializeCulture
Line 344:
Line 345: #End ExternalSource
Line 346:
Line 347: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",7)
Line 348: Me.AddContentTemplate("HeadContent", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlHeaderContent))
Line 349:
Line 350: #End ExternalSource
Line 351:
Line 352: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",9)
Line 353: Me.AddContentTemplate("MainContent", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlBodyContent))
Line 354:
Line 355: #End ExternalSource
Line 356: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 357:
Line 358: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx",1)
Line 359: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 360:
Line 361: #End ExternalSource
Line 362: End Sub
Line 363:
Line 364:
Line 365: #ExternalSource("C:\inetpub\wwwroot\timothysklugh\klughtheatre\cmgevnts.aspx.vb",912304)
Line 366: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 367: Protected Overrides Sub FrameworkInitialize()
Line 368: MyBase.FrameworkInitialize
Line 369: Me.SetStringResourcePointer(Global.ASP.klughtheatre_cmgevnts_aspx.__stringResource, 0)
Line 370: Me.__BuildControlTree(Me)
Line 371: Me.AddWrappedFileDependencies(Global.ASP.klughtheatre_cmgevnts_aspx.__fileDependencies)
Line 372: Me.Request.ValidateInput
Line 373: End Sub
Line 374:
Line 375: #End ExternalSource
Line 376:
Line 377: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 378: Public Overrides Function GetTypeHashCode() As Integer
Line 379: Return 693870670
Line 380: End Function
Line 381:
Line 382: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 383: Public Overridable Function BeginProcessRequest(ByVal context As System.Web.HttpContext, ByVal cb As System.AsyncCallback, ByVal data As Object) As System.IAsyncResult Implements System.Web.IHttpAsyncHandler.BeginProcessRequest
Line 384: Return Me.AspCompatBeginProcessRequest(context, cb, data)
Line 385: End Function
Line 386:
Line 387: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 388: Public Overridable Sub EndProcessRequest(ByVal ar As System.IAsyncResult) Implements System.Web.IHttpAsyncHandler.EndProcessRequest
Line 389: Me.AspCompatEndProcessRequest(ar)
Line 390: End Sub
Line 391:
Line 392: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 393: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 394: MyBase.ProcessRequest(context)
Line 395: End Sub
Line 396: End Class
Line 397: End Namespace
Line 398:
|