Line 1: #ExternalChecksum("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","04D41CE349389CAD3553690276AE06BBFBBF64DE")
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 elladagiortigefseis.appfunctions
Line 17: Imports Microsoft.VisualBasic
Line 18: Imports System
Line 19: Imports System.Collections
Line 20: Imports System.Collections.Generic
Line 21: Imports System.Collections.Specialized
Line 22: Imports System.ComponentModel.DataAnnotations
Line 23: Imports System.Configuration
Line 24: Imports System.Linq
Line 25: Imports System.Text
Line 26: Imports System.Text.RegularExpressions
Line 27: Imports System.Web
Line 28: Imports System.Web.Caching
Line 29: Imports System.Web.DynamicData
Line 30: Imports System.Web.Profile
Line 31: Imports System.Web.Security
Line 32: Imports System.Web.SessionState
Line 33: Imports System.Web.UI
Line 34: Imports System.Web.UI.HtmlControls
Line 35: Imports System.Web.UI.WebControls
Line 36: Imports System.Web.UI.WebControls.WebParts
Line 37: Imports System.Xml.Linq
Line 38:
Line 39: Namespace ASP
Line 40:
Line 41: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 42: Public Class festival1_ekthetis_aspx
Line 43: Inherits Global.System.Web.UI.Page
Line 44: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 45:
Line 46:
Line 47: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",111)
Line 48: Protected WithEvents uc_ekthetes As Global.ASP.uc_ekthetes
Line 49:
Line 50: #End ExternalSource
Line 51:
Line 52:
Line 53: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",137)
Line 54: Protected WithEvents uc_eventtabs As Global.ASP.uc_eventtabs
Line 55:
Line 56: #End ExternalSource
Line 57:
Line 58: Private Shared __initialized As Boolean
Line 59:
Line 60: Private Shared __stringResource As Object
Line 61:
Line 62: Private Shared __fileDependencies As Object
Line 63:
Line 64: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 65: Public Sub New()
Line 66: MyBase.New
Line 67: Dim dependencies() As String
Line 68: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/festival1/ekthetis.aspx"
Line 69: If (Global.ASP.festival1_ekthetis_aspx.__initialized = false) Then
Line 70: Global.ASP.festival1_ekthetis_aspx.__stringResource = Me.ReadStringResource
Line 71: dependencies = New String(4) {}
Line 72: dependencies(0) = "~/festival1/ekthetis.aspx"
Line 73: dependencies(1) = "~/festival1/usercontrols/uc_ekthetes.ascx"
Line 74: dependencies(2) = "~/festival1/usercontrols/uc_eventtabs.ascx"
Line 75: dependencies(3) = "~/promos/promo-xmas2014.inc"
Line 76: dependencies(4) = "~/google_code/egg_googlecode.inc"
Line 77: Global.ASP.festival1_ekthetis_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 78: Global.ASP.festival1_ekthetis_aspx.__initialized = true
Line 79: End If
Line 80: Me.Server.ScriptTimeout = 30000000
Line 81: End Sub
Line 82:
Line 83: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 84: Get
Line 85: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 86: End Get
Line 87: End Property
Line 88:
Line 89: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 90: Get
Line 91: Return false
Line 92: End Get
Line 93: End Property
Line 94:
Line 95: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 96: Get
Line 97: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 98: End Get
Line 99: End Property
Line 100:
Line 101: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 102: Private Function __BuildControluc_ekthetes() As Global.ASP.uc_ekthetes
Line 103: Dim __ctrl As Global.ASP.uc_ekthetes
Line 104:
Line 105: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",111)
Line 106: __ctrl = New Global.ASP.uc_ekthetes()
Line 107:
Line 108: #End ExternalSource
Line 109: Me.uc_ekthetes = __ctrl
Line 110:
Line 111: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",111)
Line 112: __ctrl.InitializeAsUserControl(Me.Page)
Line 113:
Line 114: #End ExternalSource
Line 115:
Line 116: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",111)
Line 117: __ctrl.ID = "uc_ekthetes"
Line 118:
Line 119: #End ExternalSource
Line 120: Return __ctrl
Line 121: End Function
Line 122:
Line 123: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 124: Private Function __BuildControluc_eventtabs() As Global.ASP.uc_eventtabs
Line 125: Dim __ctrl As Global.ASP.uc_eventtabs
Line 126:
Line 127: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",137)
Line 128: __ctrl = New Global.ASP.uc_eventtabs()
Line 129:
Line 130: #End ExternalSource
Line 131: Me.uc_eventtabs = __ctrl
Line 132:
Line 133: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",137)
Line 134: __ctrl.InitializeAsUserControl(Me.Page)
Line 135:
Line 136: #End ExternalSource
Line 137:
Line 138: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",137)
Line 139: __ctrl.ID = "uc_eventtabs"
Line 140:
Line 141: #End ExternalSource
Line 142: Return __ctrl
Line 143: End Function
Line 144:
Line 145: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 146: Private Sub __BuildControlTree(ByVal __ctrl As festival1_ekthetis_aspx)
Line 147:
Line 148: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",1)
Line 149: Me.InitializeCulture
Line 150:
Line 151: #End ExternalSource
Line 152: Dim __ctrl1 As Global.ASP.uc_ekthetes
Line 153:
Line 154: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",1)
Line 155: __ctrl1 = Me.__BuildControluc_ekthetes
Line 156:
Line 157: #End ExternalSource
Line 158: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 159:
Line 160: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",1)
Line 161: __parser.AddParsedSubObject(__ctrl1)
Line 162:
Line 163: #End ExternalSource
Line 164: Dim __ctrl2 As Global.ASP.uc_eventtabs
Line 165:
Line 166: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",1)
Line 167: __ctrl2 = Me.__BuildControluc_eventtabs
Line 168:
Line 169: #End ExternalSource
Line 170:
Line 171: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",1)
Line 172: __parser.AddParsedSubObject(__ctrl2)
Line 173:
Line 174: #End ExternalSource
Line 175: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 176: End Sub
Line 177:
Line 178: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 179: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!DOCTYPE html >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 180:
Line 181: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",5)
Line 182: Dim odata As New grfunctions.Class1
Line 183:
Line 184: Dim dt As System.Data.DataTable
Line 185: Dim prdid As Integer = Request.QueryString("id")
Line 186: dt = selectviewtodatatable("athinorama", "*", "[_v8_GrGiortiGeuseis_paragogoi]", "place_id=" & prdid)
Line 187: Dim i As Integer
Line 188:
Line 189:
Line 190: #End ExternalSource
Line 191: Me.WriteUTF8ResourceString(__w, 49763, 438, true)
Line 192:
Line 193: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",19)
Line 194: __w.Write(dt.Rows(0)("place_name") )
Line 195:
Line 196:
Line 197: #End ExternalSource
Line 198: __w.Write(" - Εκθέτης - Ελλάδα Γιορτή Γεύσεις, Αθηνόραμα"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta name=""description"" conte"& _
Line 199: "nt=""")
Line 200:
Line 201: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",20)
Line 202: __w.Write(odata.ReplaceLinks(dt.Rows(0)("festscript")))
Line 203:
Line 204:
Line 205: #End ExternalSource
Line 206: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<title>")
Line 207:
Line 208: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",22)
Line 209: __w.Write(dt.Rows(0)("place_name") )
Line 210:
Line 211:
Line 212: #End ExternalSource
Line 213: Me.WriteUTF8ResourceString(__w, 50201, 727, false)
Line 214: Me.WriteUTF8ResourceString(__w, 50928, 453, false)
Line 215: Me.WriteUTF8ResourceString(__w, 51381, 2513, false)
Line 216:
Line 217: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",79)
Line 218: __w.Write(dt.Rows(0)("place_name") )
Line 219:
Line 220:
Line 221: #End ExternalSource
Line 222: __w.Write("</h2>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!--<span class=""greyinfo"">ΔΙΑΝΟΜΗ ΠΑΡΑΔΟΣΙΑΚΩΝ ΠΡΟΙΟΝΤΩΝ</span>-->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<p>")
Line 223:
Line 224: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",81)
Line 225: __w.Write(odata.ReplaceLinks(dt.Rows(0)("festscript")) )
Line 226:
Line 227:
Line 228: #End ExternalSource
Line 229: __w.Write("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 230:
Line 231: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",83)
Line 232:
Line 233: Dim products As String = ""
Line 234: Dim shown As String = ""
Line 235: For i = 0 To dt.Rows.Count - 1
Line 236: If Not shown.Contains(dt.Rows(i)("tg_description").ToString()) Then
Line 237: shown &= dt.Rows(i)("tg_description") &" "
Line 238: products &= " " & dt.Rows(i)("tg_description").ToString.Replace(".", "") & ","
Line 239: End If
Line 240:
Line 241: Next
Line 242: products = Trim(Left(products,Len(products)-1))
Line 243:
Line 244:
Line 245: #End ExternalSource
Line 246: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<p><strong>Προιόντα:</strong> ")
Line 247:
Line 248: #ExternalSource("C:\inetpub\wwwroot\elladagiortigefseis.gr\festival1\ekthetis.aspx",95)
Line 249: __w.Write(products )
Line 250:
Line 251:
Line 252: #End ExternalSource
Line 253: Me.WriteUTF8ResourceString(__w, 53894, 802, false)
Line 254: parameterContainer.Controls(0).RenderControl(__w)
Line 255: Me.WriteUTF8ResourceString(__w, 54696, 3075, false)
Line 256: parameterContainer.Controls(1).RenderControl(__w)
Line 257: Me.WriteUTF8ResourceString(__w, 57771, 581, false)
Line 258: Me.WriteUTF8ResourceString(__w, 58352, 415, true)
Line 259: Me.WriteUTF8ResourceString(__w, 58767, 1783, true)
Line 260: End Sub
Line 261:
Line 262: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 263: Protected Overrides Sub FrameworkInitialize()
Line 264: MyBase.FrameworkInitialize
Line 265: Me.SetStringResourcePointer(Global.ASP.festival1_ekthetis_aspx.__stringResource, 0)
Line 266: Me.__BuildControlTree(Me)
Line 267: Me.AddWrappedFileDependencies(Global.ASP.festival1_ekthetis_aspx.__fileDependencies)
Line 268: Me.Request.ValidateInput
Line 269: End Sub
Line 270:
Line 271: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 272: Public Overrides Function GetTypeHashCode() As Integer
Line 273: Return -679798707
Line 274: End Function
Line 275:
Line 276: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 277: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 278: MyBase.ProcessRequest(context)
Line 279: End Sub
Line 280: End Class
Line 281: End Namespace
Line 282:
|