Line 1: #ExternalChecksum("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","2B66A7D0853316278F0FAF836D882E1595123EBF")
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 Microsoft.VisualBasic
Line 16: Imports Shop
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.SqlClient
Line 25: Imports System.Data.SqlTypes
Line 26: Imports System.Linq
Line 27: Imports System.Text
Line 28: Imports System.Text.RegularExpressions
Line 29: Imports System.Web
Line 30: Imports System.Web.Caching
Line 31: Imports System.Web.DynamicData
Line 32: Imports System.Web.Profile
Line 33: Imports System.Web.Security
Line 34: Imports System.Web.SessionState
Line 35: Imports System.Web.UI
Line 36: Imports System.Web.UI.HtmlControls
Line 37: Imports System.Web.UI.WebControls
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 news_rss_aspx
Line 45: Inherits Global.System.Web.UI.Page
Line 46: Implements System.Web.IHttpHandler
Line 47:
Line 48: Private Shared __PageInspector_BeginRenderTracingMethod As System.Reflection.MethodInfo = Global.ASP.news_rss_aspx.__PageInspector_LoadHelper("BeginRenderTracing")
Line 49:
Line 50: Private Shared __PageInspector_EndRenderTracingMethod As System.Reflection.MethodInfo = Global.ASP.news_rss_aspx.__PageInspector_LoadHelper("EndRenderTracing")
Line 51:
Line 52: Private Shared __initialized As Boolean
Line 53:
Line 54: Private Shared __stringResource As Object
Line 55:
Line 56: Private Shared __fileDependencies As Object
Line 57:
Line 58:
Line 59: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",7)
Line 60:
Line 61: Public Function GetNews() As DataTable
Line 62: Dim command As New SqlCommand()
Line 63: command.CommandType = CommandType.Text
Line 64: command.Connection = DB.GetConnection()
Line 65: command.CommandText = "SELECT * FROM News ORDER BY " & CX.Lang
Line 66: Dim adapter As New SqlDataAdapter(command)
Line 67: Dim dataTable As New DataTable()
Line 68: adapter.Fill(dataTable)
Line 69: Return dataTable
Line 70: End Function
Line 71:
Line 72: Public Function AppendSlash(path As String) As String
Line 73: Return CStr(IIf(path.EndsWith("/"), path, path & "/"))
Line 74: End Function
Line 75:
Line 76: #End ExternalSource
Line 77:
Line 78:
Line 79: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 80: Public Sub New()
Line 81: MyBase.New
Line 82: Dim dependencies() As String
Line 83: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/news_rss.aspx"
Line 84: If (Global.ASP.news_rss_aspx.__initialized = false) Then
Line 85: Global.ASP.news_rss_aspx.__stringResource = Me.ReadStringResource
Line 86: dependencies = New String(0) {}
Line 87: dependencies(0) = "~/news_rss.aspx"
Line 88: Global.ASP.news_rss_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 89: Global.ASP.news_rss_aspx.__initialized = true
Line 90: End If
Line 91: Me.Server.ScriptTimeout = 30000000
Line 92: End Sub
Line 93:
Line 94: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 95: Get
Line 96: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 97: End Get
Line 98: End Property
Line 99:
Line 100: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 101: Get
Line 102: Return false
Line 103: End Get
Line 104: End Property
Line 105:
Line 106: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 107: Get
Line 108: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 109: End Get
Line 110: End Property
Line 111:
Line 112: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 113: Private Sub __BuildControlTree(ByVal __ctrl As news_rss_aspx)
Line 114:
Line 115: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",1)
Line 116: __ctrl.ContentType = "text/xml"
Line 117:
Line 118: #End ExternalSource
Line 119:
Line 120: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",1)
Line 121: __ctrl.ResponseEncoding = "utf-8"
Line 122:
Line 123: #End ExternalSource
Line 124:
Line 125: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",1)
Line 126: __ctrl.Culture = "el-GR"
Line 127:
Line 128: #End ExternalSource
Line 129:
Line 130: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",1)
Line 131: Me.InitializeCulture
Line 132:
Line 133: #End ExternalSource
Line 134: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 135: End Sub
Line 136:
Line 137: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 138: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 920, 100, true})
Line 139: __w.Write("<?xml version=""1.0"" encoding=""UTF-8""?>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<rss version=""2.0"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <channel>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 140: " <title>RSS feed ")
Line 141: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 142: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1020, 66, false})
Line 143:
Line 144: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",25)
Line 145: __w.Write(AppendSlash(ConfigurationManager.AppSettings("COMPANY_NAME")))
Line 146:
Line 147:
Line 148: #End ExternalSource
Line 149: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 150: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1086, 41, true})
Line 151: __w.Write(" </title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <description>RSS feed ")
Line 152: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 153: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1127, 66, false})
Line 154:
Line 155: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",26)
Line 156: __w.Write(AppendSlash(ConfigurationManager.AppSettings("COMPANY_NAME")))
Line 157:
Line 158:
Line 159: #End ExternalSource
Line 160: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 161: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1193, 63, true})
Line 162: __w.Write("</description>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <language>EL</language>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <link>")
Line 163: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 164: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1256, 62, false})
Line 165:
Line 166: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",28)
Line 167: __w.Write(AppendSlash(ConfigurationManager.AppSettings("SITE_URL")))
Line 168:
Line 169:
Line 170: #End ExternalSource
Line 171: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 172: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1318, 27, true})
Line 173: __w.Write("news.aspx</link>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 174: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 175: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1345, 395, false})
Line 176:
Line 177: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",29)
Line 178:
Line 179: Dim newsTable = GetNews()
Line 180: For Each newsRow As DataRow In newsTable.Rows
Line 181: Dim newsId As Integer = CInt(newsRow("NewsId"))
Line 182: Dim header As String = CStr(newsRow("Header" & CX.Lang))
Line 183: Dim BodyFull As String = CStr(newsRow("BodyFull" & CX.Lang))
Line 184: Dim DateTime As String = CStr(newsRow("LastModified"))
Line 185:
Line 186:
Line 187: #End ExternalSource
Line 188: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 189: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1740, 42, true})
Line 190: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <item>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" <title>")
Line 191: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 192: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1782, 30, false})
Line 193:
Line 194: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",38)
Line 195: __w.Write(Server.HtmlEncode(header))
Line 196:
Line 197:
Line 198: #End ExternalSource
Line 199: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 200: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1812, 36, true})
Line 201: __w.Write("</title>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" <description>")
Line 202: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 203: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1848, 32, false})
Line 204:
Line 205: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",39)
Line 206: __w.Write(Server.HtmlEncode(BodyFull))
Line 207:
Line 208:
Line 209: #End ExternalSource
Line 210: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 211: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1880, 35, true})
Line 212: __w.Write("</description>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" <link>")
Line 213: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 214: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1915, 62, false})
Line 215:
Line 216: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",40)
Line 217: __w.Write(AppendSlash(ConfigurationManager.AppSettings("SITE_URL")))
Line 218:
Line 219:
Line 220: #End ExternalSource
Line 221: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 222: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1977, 12, true})
Line 223: __w.Write("new.aspx?id=")
Line 224: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 225: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 1989, 11, false})
Line 226:
Line 227: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",40)
Line 228: __w.Write(newsId)
Line 229:
Line 230:
Line 231: #End ExternalSource
Line 232: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 233: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 2000, 31, true})
Line 234: __w.Write("</link>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <date>")
Line 235: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 236: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 2031, 32, false})
Line 237:
Line 238: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",41)
Line 239: __w.Write(Server.HtmlEncode(DateTime))
Line 240:
Line 241:
Line 242: #End ExternalSource
Line 243: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 244: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 2063, 39, true})
Line 245: __w.Write("</date>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </item>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 246: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 247: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 2102, 30, false})
Line 248:
Line 249: #ExternalSource("C:\Inetpub\vhosts\ikteogiannitsa.gr\httpdocs\news_rss.aspx",43)
Line 250:
Line 251: Next
Line 252:
Line 253:
Line 254: #End ExternalSource
Line 255: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 256: Me.__PageInspector_BeginRenderTracing(New Object() {__w, "/news_rss.aspx", 2132, 24, true})
Line 257: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </channel>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</rss>")
Line 258: Me.__PageInspector_EndRenderTracing(New Object() {__w})
Line 259: End Sub
Line 260:
Line 261: Private Shared Function __PageInspector_LoadHelper(ByVal helperName As String) As System.Reflection.MethodInfo
Line 262: Dim helperClass As System.Type = System.Type.GetType("Microsoft.VisualStudio.Web.PageInspector.Runtime.WebForms.TraceHelpers, Microsoft"& _
Line 263: ".VisualStudio.Web.PageInspector.Tracing, Version=12.3.0.0, Culture=neutral, Publ"& _
Line 264: "icKeyToken=b03f5f7f11d50a3a", false, false)
Line 265: If (Not (helperClass) Is Nothing) Then
Line 266: Return helperClass.GetMethod(helperName)
Line 267: End If
Line 268: Return Nothing
Line 269: End Function
Line 270:
Line 271: Private Sub __PageInspector_BeginRenderTracing(ByVal parameters() As Object)
Line 272: If (Not (Global.ASP.news_rss_aspx.__PageInspector_BeginRenderTracingMethod) Is Nothing) Then
Line 273: Global.ASP.news_rss_aspx.__PageInspector_BeginRenderTracingMethod.Invoke(Nothing, parameters)
Line 274: End If
Line 275: End Sub
Line 276:
Line 277: Private Sub __PageInspector_EndRenderTracing(ByVal parameters() As Object)
Line 278: If (Not (Global.ASP.news_rss_aspx.__PageInspector_EndRenderTracingMethod) Is Nothing) Then
Line 279: Global.ASP.news_rss_aspx.__PageInspector_EndRenderTracingMethod.Invoke(Nothing, parameters)
Line 280: End If
Line 281: End Sub
Line 282:
Line 283: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 284: Protected Overrides Sub FrameworkInitialize()
Line 285: MyBase.FrameworkInitialize
Line 286: Me.SetStringResourcePointer(Global.ASP.news_rss_aspx.__stringResource, 0)
Line 287: Me.__BuildControlTree(Me)
Line 288: Me.AddWrappedFileDependencies(Global.ASP.news_rss_aspx.__fileDependencies)
Line 289: End Sub
Line 290:
Line 291: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 292: Public Overrides Function GetTypeHashCode() As Integer
Line 293: Return 1074487369
Line 294: End Function
Line 295:
Line 296: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 297: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 298: MyBase.ProcessRequest(context)
Line 299: End Sub
Line 300: End Class
Line 301: End Namespace
Line 302:
|