Line 1: #ExternalChecksum("W:\webs\rmelectronics.es\Noticies.aspx","{8829d00f-11b8-4213-878b-770e8597ac16}","6E8C704B80A12128F9C8F36189454366A02DFB99820C91951E380BB2B8D3F53D")
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 On
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.Specialized
Line 20: Imports System.Configuration
Line 21: Imports System.Text
Line 22: Imports System.Text.RegularExpressions
Line 23: Imports System.Web
Line 24: Imports System.Web.Caching
Line 25: Imports System.Web.DynamicData
Line 26: Imports System.Web.Profile
Line 27: Imports System.Web.Security
Line 28: Imports System.Web.SessionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.HtmlControls
Line 31: Imports System.Web.UI.WebControls
Line 32: Imports System.Web.UI.WebControls.Expressions
Line 33: Imports System.Web.UI.WebControls.WebParts
Line 34:
Line 35:
Line 36: Partial Public Class Noticies
Line 37: Implements System.Web.SessionState.IRequiresSessionState
Line 38:
Line 39:
Line 40: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",9)
Line 41: Protected Shadows WithEvents Title As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 42:
Line 43: #End ExternalSource
Line 44:
Line 45:
Line 46: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",10)
Line 47: Protected WithEvents Keywords As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 48:
Line 49: #End ExternalSource
Line 50:
Line 51:
Line 52: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",11)
Line 53: Protected WithEvents Description As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 54:
Line 55: #End ExternalSource
Line 56:
Line 57:
Line 58: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",12)
Line 59: Protected WithEvents Language As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 60:
Line 61: #End ExternalSource
Line 62:
Line 63:
Line 64: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",30)
Line 65: Protected WithEvents Index As Global.ASP.index_ascx
Line 66:
Line 67: #End ExternalSource
Line 68:
Line 69:
Line 70: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",36)
Line 71: Protected WithEvents Superior As Global.ASP.superior_ascx
Line 72:
Line 73: #End ExternalSource
Line 74:
Line 75:
Line 76: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",43)
Line 77: Protected WithEvents Titular As Global.System.Web.UI.WebControls.Literal
Line 78:
Line 79: #End ExternalSource
Line 80:
Line 81:
Line 82: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",48)
Line 83: Protected WithEvents Noticies As Global.System.Web.UI.WebControls.Repeater
Line 84:
Line 85: #End ExternalSource
Line 86:
Line 87:
Line 88: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",145)
Line 89: Protected WithEvents Inferior As Global.ASP.inferior_ascx
Line 90:
Line 91: #End ExternalSource
Line 92:
Line 93:
Line 94: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 95: Protected WithEvents FormASP As Global.System.Web.UI.HtmlControls.HtmlForm
Line 96:
Line 97: #End ExternalSource
Line 98:
Line 99: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 100: Get
Line 101: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 102: End Get
Line 103: End Property
Line 104:
Line 105: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 106: Get
Line 107: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 108: End Get
Line 109: End Property
Line 110: End Class
Line 111:
Line 112: Namespace ASP
Line 113:
Line 114: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 115: Public Class noticies_aspx
Line 116: Inherits Global.Noticies
Line 117: Implements System.Web.IHttpHandler
Line 118:
Line 119: Private Shared __initialized As Boolean
Line 120:
Line 121: Private Shared __stringResource As Object
Line 122:
Line 123: Private Shared __fileDependencies As Object
Line 124:
Line 125: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 126: Public Sub New()
Line 127: MyBase.New
Line 128: Dim dependencies() As String
Line 129:
Line 130: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx.vb",912304)
Line 131: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/Noticies.aspx"
Line 132:
Line 133: #End ExternalSource
Line 134: If (Global.ASP.noticies_aspx.__initialized = false) Then
Line 135: Global.ASP.noticies_aspx.__stringResource = Me.ReadStringResource
Line 136: dependencies = New String(7) {}
Line 137: dependencies(0) = "~/Noticies.aspx"
Line 138: dependencies(1) = "~/Noticies.aspx.vb"
Line 139: dependencies(2) = "~/Superior.ascx"
Line 140: dependencies(3) = "~/Superior.ascx.vb"
Line 141: dependencies(4) = "~/Inferior.ascx"
Line 142: dependencies(5) = "~/Inferior.ascx.vb"
Line 143: dependencies(6) = "~/Index.ascx"
Line 144: dependencies(7) = "~/Index.ascx.vb"
Line 145: Global.ASP.noticies_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 146: Global.ASP.noticies_aspx.__initialized = true
Line 147: End If
Line 148: Me.Server.ScriptTimeout = 30000000
Line 149: End Sub
Line 150:
Line 151: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 152: Get
Line 153: Return false
Line 154: End Get
Line 155: End Property
Line 156:
Line 157: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 158: Private Function __BuildControlTitle() As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 159: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 160: Dim __activator As System.IServiceProvider
Line 161: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 162: If (Not (__activator) Is Nothing) Then
Line 163: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlTitle)),System.Web.UI.HtmlControls.HtmlTitle)
Line 164: Else
Line 165:
Line 166: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",9)
Line 167: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlTitle()
Line 168:
Line 169: #End ExternalSource
Line 170: End If
Line 171: Me.Title = __ctrl
Line 172:
Line 173: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",9)
Line 174: __ctrl.ID = "Title"
Line 175:
Line 176: #End ExternalSource
Line 177: Return __ctrl
Line 178: End Function
Line 179:
Line 180: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 181: Private Function __BuildControlKeywords() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 182: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 183: Dim __activator As System.IServiceProvider
Line 184: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 185: If (Not (__activator) Is Nothing) Then
Line 186: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlMeta)),System.Web.UI.HtmlControls.HtmlMeta)
Line 187: Else
Line 188:
Line 189: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",10)
Line 190: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Line 191:
Line 192: #End ExternalSource
Line 193: End If
Line 194: Me.Keywords = __ctrl
Line 195:
Line 196: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",10)
Line 197: __ctrl.Name = "Keywords"
Line 198:
Line 199: #End ExternalSource
Line 200:
Line 201: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",10)
Line 202: __ctrl.ID = "Keywords"
Line 203:
Line 204: #End ExternalSource
Line 205:
Line 206: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",10)
Line 207: __ctrl.Content = ""
Line 208:
Line 209: #End ExternalSource
Line 210: Return __ctrl
Line 211: End Function
Line 212:
Line 213: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 214: Private Function __BuildControlDescription() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 215: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 216: Dim __activator As System.IServiceProvider
Line 217: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 218: If (Not (__activator) Is Nothing) Then
Line 219: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlMeta)),System.Web.UI.HtmlControls.HtmlMeta)
Line 220: Else
Line 221:
Line 222: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",11)
Line 223: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Line 224:
Line 225: #End ExternalSource
Line 226: End If
Line 227: Me.Description = __ctrl
Line 228:
Line 229: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",11)
Line 230: __ctrl.Name = "Description"
Line 231:
Line 232: #End ExternalSource
Line 233:
Line 234: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",11)
Line 235: __ctrl.ID = "Description"
Line 236:
Line 237: #End ExternalSource
Line 238:
Line 239: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",11)
Line 240: __ctrl.Content = ""
Line 241:
Line 242: #End ExternalSource
Line 243: Return __ctrl
Line 244: End Function
Line 245:
Line 246: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 247: Private Function __BuildControlLanguage() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 248: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 249: Dim __activator As System.IServiceProvider
Line 250: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 251: If (Not (__activator) Is Nothing) Then
Line 252: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlMeta)),System.Web.UI.HtmlControls.HtmlMeta)
Line 253: Else
Line 254:
Line 255: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",12)
Line 256: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Line 257:
Line 258: #End ExternalSource
Line 259: End If
Line 260: Me.Language = __ctrl
Line 261:
Line 262: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",12)
Line 263: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("http-equiv", "Language")
Line 264:
Line 265: #End ExternalSource
Line 266:
Line 267: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",12)
Line 268: __ctrl.ID = "Language"
Line 269:
Line 270: #End ExternalSource
Line 271:
Line 272: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",12)
Line 273: __ctrl.Content = ""
Line 274:
Line 275: #End ExternalSource
Line 276: Return __ctrl
Line 277: End Function
Line 278:
Line 279: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 280: Private Function __BuildControl__control3() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 281: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 282: Dim __activator As System.IServiceProvider
Line 283: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 284: If (Not (__activator) Is Nothing) Then
Line 285: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlMeta)),System.Web.UI.HtmlControls.HtmlMeta)
Line 286: Else
Line 287:
Line 288: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",13)
Line 289: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Line 290:
Line 291: #End ExternalSource
Line 292: End If
Line 293:
Line 294: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",13)
Line 295: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("http-equiv", "Content-Type")
Line 296:
Line 297: #End ExternalSource
Line 298:
Line 299: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",13)
Line 300: __ctrl.Content = "text/html; charset=utf-8"
Line 301:
Line 302: #End ExternalSource
Line 303: Return __ctrl
Line 304: End Function
Line 305:
Line 306: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 307: Private Function __BuildControl__control4() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 308: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 309: Dim __activator As System.IServiceProvider
Line 310: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 311: If (Not (__activator) Is Nothing) Then
Line 312: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlMeta)),System.Web.UI.HtmlControls.HtmlMeta)
Line 313: Else
Line 314:
Line 315: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",14)
Line 316: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Line 317:
Line 318: #End ExternalSource
Line 319: End If
Line 320:
Line 321: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",14)
Line 322: __ctrl.Name = "Author"
Line 323:
Line 324: #End ExternalSource
Line 325:
Line 326: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",14)
Line 327: __ctrl.Content = "Icnea"
Line 328:
Line 329: #End ExternalSource
Line 330: Return __ctrl
Line 331: End Function
Line 332:
Line 333: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 334: Private Function __BuildControl__control5() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 335: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 336: Dim __activator As System.IServiceProvider
Line 337: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 338: If (Not (__activator) Is Nothing) Then
Line 339: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlMeta)),System.Web.UI.HtmlControls.HtmlMeta)
Line 340: Else
Line 341:
Line 342: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",15)
Line 343: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Line 344:
Line 345: #End ExternalSource
Line 346: End If
Line 347:
Line 348: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",15)
Line 349: __ctrl.Name = "ROBOTS"
Line 350:
Line 351: #End ExternalSource
Line 352:
Line 353: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",15)
Line 354: __ctrl.Content = "INDEX, FOLLOW"
Line 355:
Line 356: #End ExternalSource
Line 357: Return __ctrl
Line 358: End Function
Line 359:
Line 360: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 361: Private Function __BuildControl__control6() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 362: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 363: Dim __activator As System.IServiceProvider
Line 364: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 365: If (Not (__activator) Is Nothing) Then
Line 366: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlMeta)),System.Web.UI.HtmlControls.HtmlMeta)
Line 367: Else
Line 368:
Line 369: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",16)
Line 370: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Line 371:
Line 372: #End ExternalSource
Line 373: End If
Line 374:
Line 375: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",16)
Line 376: __ctrl.Name = "revisit-after"
Line 377:
Line 378: #End ExternalSource
Line 379:
Line 380: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",16)
Line 381: __ctrl.Content = "15 days"
Line 382:
Line 383: #End ExternalSource
Line 384: Return __ctrl
Line 385: End Function
Line 386:
Line 387: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 388: Private Function __BuildControl__control7() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 389: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 390: Dim __activator As System.IServiceProvider
Line 391: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 392: If (Not (__activator) Is Nothing) Then
Line 393: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlMeta)),System.Web.UI.HtmlControls.HtmlMeta)
Line 394: Else
Line 395:
Line 396: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",17)
Line 397: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Line 398:
Line 399: #End ExternalSource
Line 400: End If
Line 401:
Line 402: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",17)
Line 403: __ctrl.Name = "classification"
Line 404:
Line 405: #End ExternalSource
Line 406:
Line 407: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",17)
Line 408: __ctrl.Content = "Wine"
Line 409:
Line 410: #End ExternalSource
Line 411: Return __ctrl
Line 412: End Function
Line 413:
Line 414: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 415: Private Function __BuildControl__control8() As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 416: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 417: Dim __activator As System.IServiceProvider
Line 418: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 419: If (Not (__activator) Is Nothing) Then
Line 420: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlMeta)),System.Web.UI.HtmlControls.HtmlMeta)
Line 421: Else
Line 422:
Line 423: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",18)
Line 424: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Line 425:
Line 426: #End ExternalSource
Line 427: End If
Line 428:
Line 429: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",18)
Line 430: __ctrl.Name = "distribution"
Line 431:
Line 432: #End ExternalSource
Line 433:
Line 434: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",18)
Line 435: __ctrl.Content = "global"
Line 436:
Line 437: #End ExternalSource
Line 438: Return __ctrl
Line 439: End Function
Line 440:
Line 441: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 442: Private Function __BuildControl__control9() As Global.System.Web.UI.HtmlControls.HtmlLink
Line 443: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlLink
Line 444: Dim __activator As System.IServiceProvider
Line 445: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 446: If (Not (__activator) Is Nothing) Then
Line 447: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlLink)),System.Web.UI.HtmlControls.HtmlLink)
Line 448: Else
Line 449:
Line 450: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",19)
Line 451: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlLink()
Line 452:
Line 453: #End ExternalSource
Line 454: End If
Line 455:
Line 456: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",19)
Line 457: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("rel", "stylesheet")
Line 458:
Line 459: #End ExternalSource
Line 460:
Line 461: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",19)
Line 462: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("type", "text/css")
Line 463:
Line 464: #End ExternalSource
Line 465:
Line 466: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",19)
Line 467: __ctrl.Href = "/Styles.css"
Line 468:
Line 469: #End ExternalSource
Line 470: Return __ctrl
Line 471: End Function
Line 472:
Line 473: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 474: Private Function __BuildControl__control2() As Global.System.Web.UI.HtmlControls.HtmlHead
Line 475: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlHead
Line 476:
Line 477: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 478: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlHead("head")
Line 479:
Line 480: #End ExternalSource
Line 481: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 482:
Line 483: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 484: __ctrl1 = Me.__BuildControlTitle
Line 485:
Line 486: #End ExternalSource
Line 487: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 488:
Line 489: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 490: __parser.AddParsedSubObject(__ctrl1)
Line 491:
Line 492: #End ExternalSource
Line 493: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 494:
Line 495: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 496: __ctrl2 = Me.__BuildControlKeywords
Line 497:
Line 498: #End ExternalSource
Line 499:
Line 500: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 501: __parser.AddParsedSubObject(__ctrl2)
Line 502:
Line 503: #End ExternalSource
Line 504: Dim __ctrl3 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 505:
Line 506: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 507: __ctrl3 = Me.__BuildControlDescription
Line 508:
Line 509: #End ExternalSource
Line 510:
Line 511: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 512: __parser.AddParsedSubObject(__ctrl3)
Line 513:
Line 514: #End ExternalSource
Line 515: Dim __ctrl4 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 516:
Line 517: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 518: __ctrl4 = Me.__BuildControlLanguage
Line 519:
Line 520: #End ExternalSource
Line 521:
Line 522: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 523: __parser.AddParsedSubObject(__ctrl4)
Line 524:
Line 525: #End ExternalSource
Line 526: Dim __ctrl5 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 527:
Line 528: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 529: __ctrl5 = Me.__BuildControl__control3
Line 530:
Line 531: #End ExternalSource
Line 532:
Line 533: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 534: __parser.AddParsedSubObject(__ctrl5)
Line 535:
Line 536: #End ExternalSource
Line 537: Dim __ctrl6 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 538:
Line 539: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 540: __ctrl6 = Me.__BuildControl__control4
Line 541:
Line 542: #End ExternalSource
Line 543:
Line 544: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 545: __parser.AddParsedSubObject(__ctrl6)
Line 546:
Line 547: #End ExternalSource
Line 548: Dim __ctrl7 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 549:
Line 550: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 551: __ctrl7 = Me.__BuildControl__control5
Line 552:
Line 553: #End ExternalSource
Line 554:
Line 555: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 556: __parser.AddParsedSubObject(__ctrl7)
Line 557:
Line 558: #End ExternalSource
Line 559: Dim __ctrl8 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 560:
Line 561: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 562: __ctrl8 = Me.__BuildControl__control6
Line 563:
Line 564: #End ExternalSource
Line 565:
Line 566: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 567: __parser.AddParsedSubObject(__ctrl8)
Line 568:
Line 569: #End ExternalSource
Line 570: Dim __ctrl9 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 571:
Line 572: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 573: __ctrl9 = Me.__BuildControl__control7
Line 574:
Line 575: #End ExternalSource
Line 576:
Line 577: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 578: __parser.AddParsedSubObject(__ctrl9)
Line 579:
Line 580: #End ExternalSource
Line 581: Dim __ctrl10 As Global.System.Web.UI.HtmlControls.HtmlMeta
Line 582:
Line 583: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 584: __ctrl10 = Me.__BuildControl__control8
Line 585:
Line 586: #End ExternalSource
Line 587:
Line 588: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 589: __parser.AddParsedSubObject(__ctrl10)
Line 590:
Line 591: #End ExternalSource
Line 592: Dim __ctrl11 As Global.System.Web.UI.HtmlControls.HtmlLink
Line 593:
Line 594: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 595: __ctrl11 = Me.__BuildControl__control9
Line 596:
Line 597: #End ExternalSource
Line 598:
Line 599: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",8)
Line 600: __parser.AddParsedSubObject(__ctrl11)
Line 601:
Line 602: #End ExternalSource
Line 603: Return __ctrl
Line 604: End Function
Line 605:
Line 606: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 607: Private Function __BuildControlIndex() As Global.ASP.index_ascx
Line 608: Dim __ctrl As Global.ASP.index_ascx
Line 609: Dim __activator As System.IServiceProvider
Line 610: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 611: If (Not (__activator) Is Nothing) Then
Line 612: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(ASP.index_ascx)),ASP.index_ascx)
Line 613: Else
Line 614:
Line 615: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",30)
Line 616: __ctrl = New Global.ASP.index_ascx()
Line 617:
Line 618: #End ExternalSource
Line 619: End If
Line 620: Me.Index = __ctrl
Line 621:
Line 622: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",30)
Line 623: __ctrl.InitializeAsUserControl(Me.Page)
Line 624:
Line 625: #End ExternalSource
Line 626:
Line 627: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",30)
Line 628: __ctrl.ID = "Index"
Line 629:
Line 630: #End ExternalSource
Line 631: Return __ctrl
Line 632: End Function
Line 633:
Line 634: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 635: Private Function __BuildControlSuperior() As Global.ASP.superior_ascx
Line 636: Dim __ctrl As Global.ASP.superior_ascx
Line 637: Dim __activator As System.IServiceProvider
Line 638: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 639: If (Not (__activator) Is Nothing) Then
Line 640: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(ASP.superior_ascx)),ASP.superior_ascx)
Line 641: Else
Line 642:
Line 643: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",36)
Line 644: __ctrl = New Global.ASP.superior_ascx()
Line 645:
Line 646: #End ExternalSource
Line 647: End If
Line 648: Me.Superior = __ctrl
Line 649:
Line 650: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",36)
Line 651: __ctrl.InitializeAsUserControl(Me.Page)
Line 652:
Line 653: #End ExternalSource
Line 654:
Line 655: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",36)
Line 656: __ctrl.ID = "Superior"
Line 657:
Line 658: #End ExternalSource
Line 659: Return __ctrl
Line 660: End Function
Line 661:
Line 662: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 663: Private Function __BuildControlTitular() As Global.System.Web.UI.WebControls.Literal
Line 664: Dim __ctrl As Global.System.Web.UI.WebControls.Literal
Line 665: Dim __activator As System.IServiceProvider
Line 666: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 667: If (Not (__activator) Is Nothing) Then
Line 668: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.WebControls.Literal)),System.Web.UI.WebControls.Literal)
Line 669: Else
Line 670:
Line 671: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",43)
Line 672: __ctrl = New Global.System.Web.UI.WebControls.Literal()
Line 673:
Line 674: #End ExternalSource
Line 675: End If
Line 676: Me.Titular = __ctrl
Line 677:
Line 678: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",43)
Line 679: __ctrl.ID = "Titular"
Line 680:
Line 681: #End ExternalSource
Line 682: Return __ctrl
Line 683: End Function
Line 684:
Line 685: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 686: Private Function __BuildControl__control11() As Global.System.Web.UI.DataBoundLiteralControl
Line 687: Dim __ctrl As Global.System.Web.UI.DataBoundLiteralControl
Line 688:
Line 689: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",52)
Line 690: __ctrl = New Global.System.Web.UI.DataBoundLiteralControl(9, 8)
Line 691:
Line 692: #End ExternalSource
Line 693: __ctrl.TemplateControl = Me
Line 694: __ctrl.SetStaticString(0, ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 695: " <td width=""36"" valign=""top"" style=""padding-right: 15px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 696: " <a href='")
Line 697: __ctrl.SetStaticString(1, "' title='")
Line 698: __ctrl.SetStaticString(2, "'>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src='")
Line 699: __ctrl.SetStaticString(3, "' alt='")
Line 700: __ctrl.SetStaticString(4, "'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" border=""0"" width="""& _
Line 701: "175"" height=""131"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 702: " </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 703: " <td width=""714"" valign=""top"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 704: " <table width=""500"" border=""0"" cellpadding=""0"" cellspacin"& _
Line 705: "g=""0"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 706: " <td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 707: " <h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 708: " <a class=""titular"" href='")
Line 709: __ctrl.SetStaticString(5, "' title='")
Line 710: __ctrl.SetStaticString(6, "'>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 711: __ctrl.SetStaticString(7, ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 712: " </h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 713: " </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 714: " </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 715: " <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <t"& _
Line 716: "d class=""cosTXT"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 717: " ")
Line 718: __ctrl.SetStaticString(8, ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 719: " </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 720: " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 721: " <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td heigh"& _
Line 722: "t=""15px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"  "& _
Line 723: ";</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 724: " </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 725: " </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 726: " <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 727: " <td height=""25px"" colspan=""3"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 728: " <hr size=""1"" noshade />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 729: " </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 730: " ")
Line 731:
Line 732: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",52)
Line 733: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBind__control11
Line 734:
Line 735: #End ExternalSource
Line 736: Return __ctrl
Line 737: End Function
Line 738:
Line 739: Public Sub __DataBind__control11(ByVal sender As Object, ByVal e As System.EventArgs)
Line 740: Dim Container As System.Web.UI.WebControls.RepeaterItem
Line 741: Dim target As System.Web.UI.DataBoundLiteralControl
Line 742:
Line 743: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",52)
Line 744: target = CType(sender,System.Web.UI.DataBoundLiteralControl)
Line 745:
Line 746: #End ExternalSource
Line 747:
Line 748: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",52)
Line 749: Container = CType(target.BindingContainer,System.Web.UI.WebControls.RepeaterItem)
Line 750:
Line 751: #End ExternalSource
Line 752:
Line 753: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",52)
Line 754: target.SetDataBoundString(0, Global.System.Convert.ToString(DataBinder.Eval(Container.DataItem,"link"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 755:
Line 756: #End ExternalSource
Line 757:
Line 758: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",52)
Line 759: target.SetDataBoundString(1, Global.System.Convert.ToString(DataBinder.Eval(Container.DataItem,"titular"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 760:
Line 761: #End ExternalSource
Line 762:
Line 763: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",53)
Line 764: target.SetDataBoundString(2, Global.System.Convert.ToString(DataBinder.Eval(Container.DataItem,"foto"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 765:
Line 766: #End ExternalSource
Line 767:
Line 768: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",53)
Line 769: target.SetDataBoundString(3, Global.System.Convert.ToString(DataBinder.Eval(Container.DataItem,"alt"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 770:
Line 771: #End ExternalSource
Line 772:
Line 773: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",62)
Line 774: target.SetDataBoundString(4, Global.System.Convert.ToString(DataBinder.Eval(Container.DataItem,"link"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 775:
Line 776: #End ExternalSource
Line 777:
Line 778: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",62)
Line 779: target.SetDataBoundString(5, Global.System.Convert.ToString(DataBinder.Eval(Container.DataItem,"titular"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 780:
Line 781: #End ExternalSource
Line 782:
Line 783: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",63)
Line 784: target.SetDataBoundString(6, Global.System.Convert.ToString(DataBinder.Eval(Container.DataItem,"titular"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 785:
Line 786: #End ExternalSource
Line 787:
Line 788: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",70)
Line 789: target.SetDataBoundString(7, Global.System.Convert.ToString(DataBinder.Eval(Container.DataItem,"resum"), Global.System.Globalization.CultureInfo.CurrentCulture))
Line 790:
Line 791: #End ExternalSource
Line 792: End Sub
Line 793:
Line 794: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 795: Private Sub __BuildControl__control10(ByVal __ctrl As System.Web.UI.Control)
Line 796: Dim __ctrl1 As Global.System.Web.UI.DataBoundLiteralControl
Line 797:
Line 798: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",48)
Line 799: __ctrl1 = Me.__BuildControl__control11
Line 800:
Line 801: #End ExternalSource
Line 802: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 803:
Line 804: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",48)
Line 805: __parser.AddParsedSubObject(__ctrl1)
Line 806:
Line 807: #End ExternalSource
Line 808: End Sub
Line 809:
Line 810: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 811: Private Function __BuildControlNoticies() As Global.System.Web.UI.WebControls.Repeater
Line 812: Dim __ctrl As Global.System.Web.UI.WebControls.Repeater
Line 813: Dim __activator As System.IServiceProvider
Line 814: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 815: If (Not (__activator) Is Nothing) Then
Line 816: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.WebControls.Repeater)),System.Web.UI.WebControls.Repeater)
Line 817: Else
Line 818:
Line 819: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",48)
Line 820: __ctrl = New Global.System.Web.UI.WebControls.Repeater()
Line 821:
Line 822: #End ExternalSource
Line 823: End If
Line 824: Me.Noticies = __ctrl
Line 825:
Line 826: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",48)
Line 827: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control10)
Line 828:
Line 829: #End ExternalSource
Line 830:
Line 831: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",48)
Line 832: __ctrl.ID = "Noticies"
Line 833:
Line 834: #End ExternalSource
Line 835: Return __ctrl
Line 836: End Function
Line 837:
Line 838: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 839: Private Function __BuildControlInferior() As Global.ASP.inferior_ascx
Line 840: Dim __ctrl As Global.ASP.inferior_ascx
Line 841: Dim __activator As System.IServiceProvider
Line 842: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 843: If (Not (__activator) Is Nothing) Then
Line 844: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(ASP.inferior_ascx)),ASP.inferior_ascx)
Line 845: Else
Line 846:
Line 847: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",145)
Line 848: __ctrl = New Global.ASP.inferior_ascx()
Line 849:
Line 850: #End ExternalSource
Line 851: End If
Line 852: Me.Inferior = __ctrl
Line 853:
Line 854: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",145)
Line 855: __ctrl.InitializeAsUserControl(Me.Page)
Line 856:
Line 857: #End ExternalSource
Line 858:
Line 859: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",145)
Line 860: __ctrl.ID = "Inferior"
Line 861:
Line 862: #End ExternalSource
Line 863: Return __ctrl
Line 864: End Function
Line 865:
Line 866: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 867: Private Function __BuildControlFormASP() As Global.System.Web.UI.HtmlControls.HtmlForm
Line 868: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Line 869: Dim __activator As System.IServiceProvider
Line 870: __activator = System.Web.HttpRuntime.WebObjectActivator
Line 871: If (Not (__activator) Is Nothing) Then
Line 872: __ctrl = CType(System.Web.HttpRuntime.WebObjectActivator.GetService(GetType(System.Web.UI.HtmlControls.HtmlForm)),System.Web.UI.HtmlControls.HtmlForm)
Line 873: Else
Line 874:
Line 875: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 876: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm()
Line 877:
Line 878: #End ExternalSource
Line 879: End If
Line 880: Me.FormASP = __ctrl
Line 881:
Line 882: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 883: __ctrl.ID = "FormASP"
Line 884:
Line 885: #End ExternalSource
Line 886: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 887:
Line 888: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 889: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(0, 389, true))
Line 890:
Line 891: #End ExternalSource
Line 892: Dim __ctrl1 As Global.ASP.index_ascx
Line 893:
Line 894: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 895: __ctrl1 = Me.__BuildControlIndex
Line 896:
Line 897: #End ExternalSource
Line 898:
Line 899: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 900: __parser.AddParsedSubObject(__ctrl1)
Line 901:
Line 902: #End ExternalSource
Line 903:
Line 904: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 905: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(389, 373, true))
Line 906:
Line 907: #End ExternalSource
Line 908: Dim __ctrl2 As Global.ASP.superior_ascx
Line 909:
Line 910: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 911: __ctrl2 = Me.__BuildControlSuperior
Line 912:
Line 913: #End ExternalSource
Line 914:
Line 915: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 916: __parser.AddParsedSubObject(__ctrl2)
Line 917:
Line 918: #End ExternalSource
Line 919:
Line 920: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 921: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(762, 342, true))
Line 922:
Line 923: #End ExternalSource
Line 924: Dim __ctrl3 As Global.System.Web.UI.WebControls.Literal
Line 925:
Line 926: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 927: __ctrl3 = Me.__BuildControlTitular
Line 928:
Line 929: #End ExternalSource
Line 930:
Line 931: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 932: __parser.AddParsedSubObject(__ctrl3)
Line 933:
Line 934: #End ExternalSource
Line 935:
Line 936: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 937: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </h1>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 938: " <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 939: " </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 940:
Line 941: #End ExternalSource
Line 942: Dim __ctrl4 As Global.System.Web.UI.WebControls.Repeater
Line 943:
Line 944: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 945: __ctrl4 = Me.__BuildControlNoticies
Line 946:
Line 947: #End ExternalSource
Line 948:
Line 949: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 950: __parser.AddParsedSubObject(__ctrl4)
Line 951:
Line 952: #End ExternalSource
Line 953:
Line 954: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 955: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(1104, 296, true))
Line 956:
Line 957: #End ExternalSource
Line 958: Dim __ctrl5 As Global.ASP.inferior_ascx
Line 959:
Line 960: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 961: __ctrl5 = Me.__BuildControlInferior
Line 962:
Line 963: #End ExternalSource
Line 964:
Line 965: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 966: __parser.AddParsedSubObject(__ctrl5)
Line 967:
Line 968: #End ExternalSource
Line 969:
Line 970: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",22)
Line 971: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 972: " </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 973: " "))
Line 974:
Line 975: #End ExternalSource
Line 976: Return __ctrl
Line 977: End Function
Line 978:
Line 979: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 980: Private Sub __BuildControlTree(ByVal __ctrl As noticies_aspx)
Line 981:
Line 982: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",1)
Line 983: Me.InitializeCulture
Line 984:
Line 985: #End ExternalSource
Line 986: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 987:
Line 988: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",1)
Line 989: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.o"& _
Line 990: "rg/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html xmlns=""http://www.w3.org/1999/"& _
Line 991: "xhtml"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 992:
Line 993: #End ExternalSource
Line 994: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlHead
Line 995:
Line 996: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",1)
Line 997: __ctrl1 = Me.__BuildControl__control2
Line 998:
Line 999: #End ExternalSource
Line 1000:
Line 1001: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",1)
Line 1002: __parser.AddParsedSubObject(__ctrl1)
Line 1003:
Line 1004: #End ExternalSource
Line 1005:
Line 1006: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",1)
Line 1007: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 1008:
Line 1009: #End ExternalSource
Line 1010: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 1011:
Line 1012: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",1)
Line 1013: __ctrl2 = Me.__BuildControlFormASP
Line 1014:
Line 1015: #End ExternalSource
Line 1016:
Line 1017: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",1)
Line 1018: __parser.AddParsedSubObject(__ctrl2)
Line 1019:
Line 1020: #End ExternalSource
Line 1021:
Line 1022: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx",1)
Line 1023: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 1024:
Line 1025: #End ExternalSource
Line 1026: End Sub
Line 1027:
Line 1028:
Line 1029: #ExternalSource("W:\webs\rmelectronics.es\Noticies.aspx.vb",912304)
Line 1030: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1031: Protected Overrides Sub FrameworkInitialize()
Line 1032: MyBase.FrameworkInitialize
Line 1033: Me.SetStringResourcePointer(Global.ASP.noticies_aspx.__stringResource, 0)
Line 1034: Me.__BuildControlTree(Me)
Line 1035: Me.AddWrappedFileDependencies(Global.ASP.noticies_aspx.__fileDependencies)
Line 1036: Me.Request.ValidateInput
Line 1037: End Sub
Line 1038:
Line 1039: #End ExternalSource
Line 1040:
Line 1041: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1042: Public Overrides Function GetTypeHashCode() As Integer
Line 1043: Return -1514248617
Line 1044: End Function
Line 1045:
Line 1046: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1047: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 1048: MyBase.ProcessRequest(context)
Line 1049: End Sub
Line 1050: End Class
Line 1051: End Namespace
Line 1052:
|