Line 1: #ExternalChecksum("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","5790787F4449F366FF518CB83354C3A9274FE432")
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.Linq
Line 24: Imports System.Text
Line 25: Imports System.Text.RegularExpressions
Line 26: Imports System.Web
Line 27: Imports System.Web.Caching
Line 28: Imports System.Web.DynamicData
Line 29: Imports System.Web.Profile
Line 30: Imports System.Web.Security
Line 31: Imports System.Web.SessionState
Line 32: Imports System.Web.UI
Line 33: Imports System.Web.UI.HtmlControls
Line 34: Imports System.Web.UI.WebControls
Line 35: Imports System.Web.UI.WebControls.Expressions
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 buscarav_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\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",119)
Line 48: Protected WithEvents txtTit As Global.System.Web.UI.WebControls.TextBox
Line 49:
Line 50: #End ExternalSource
Line 51:
Line 52:
Line 53: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",120)
Line 54: Protected WithEvents txtDes As Global.System.Web.UI.WebControls.TextBox
Line 55:
Line 56: #End ExternalSource
Line 57:
Line 58:
Line 59: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",121)
Line 60: Protected WithEvents txtCon As Global.System.Web.UI.WebControls.TextBox
Line 61:
Line 62: #End ExternalSource
Line 63:
Line 64:
Line 65: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",124)
Line 66: Protected WithEvents opt150 As Global.System.Web.UI.WebControls.RadioButton
Line 67:
Line 68: #End ExternalSource
Line 69:
Line 70:
Line 71: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",125)
Line 72: Protected WithEvents opt300 As Global.System.Web.UI.WebControls.RadioButton
Line 73:
Line 74: #End ExternalSource
Line 75:
Line 76:
Line 77: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",127)
Line 78: Protected WithEvents chkAnd As Global.System.Web.UI.WebControls.CheckBox
Line 79:
Line 80: #End ExternalSource
Line 81:
Line 82:
Line 83: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",135)
Line 84: Protected WithEvents btnBuscarAvanzada As Global.System.Web.UI.WebControls.Button
Line 85:
Line 86: #End ExternalSource
Line 87:
Line 88:
Line 89: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",142)
Line 90: Protected WithEvents Label1 As Global.System.Web.UI.WebControls.Label
Line 91:
Line 92: #End ExternalSource
Line 93:
Line 94:
Line 95: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",142)
Line 96: Protected WithEvents txtBuscar As Global.System.Web.UI.WebControls.TextBox
Line 97:
Line 98: #End ExternalSource
Line 99:
Line 100:
Line 101: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",144)
Line 102: Protected WithEvents btnBuscar As Global.System.Web.UI.WebControls.Button
Line 103:
Line 104: #End ExternalSource
Line 105:
Line 106:
Line 107: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",145)
Line 108: Protected WithEvents opt150simple As Global.System.Web.UI.WebControls.RadioButton
Line 109:
Line 110: #End ExternalSource
Line 111:
Line 112:
Line 113: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",146)
Line 114: Protected WithEvents opt300simple As Global.System.Web.UI.WebControls.RadioButton
Line 115:
Line 116: #End ExternalSource
Line 117:
Line 118:
Line 119: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",188)
Line 120: Protected WithEvents labelContenido As Global.System.Web.UI.WebControls.Label
Line 121:
Line 122: #End ExternalSource
Line 123:
Line 124:
Line 125: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",215)
Line 126: Protected WithEvents labelVersion As Global.System.Web.UI.WebControls.Label
Line 127:
Line 128: #End ExternalSource
Line 129:
Line 130: Private Shared __initialized As Boolean
Line 131:
Line 132: Private Shared __stringResource As Object
Line 133:
Line 134: Private Shared __fileDependencies As Object
Line 135:
Line 136:
Line 137: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",2)
Line 138:
Line 139: '-----------------------------------------------------------------------------
Line 140: ' Nota:
Line 141: ' Si AutoEventWireup="false" no se produce el evento Page_Load
Line 142: '-----------------------------------------------------------------------------
Line 143:
Line 144: Private Function Version() As String
Line 145: Return elGuilleBuscar.VersionDll
Line 146: End Function
Line 147:
Line 148: Private Sub btnBuscar_Click(ByVal sender As Object, ByVal e As EventArgs)
Line 149: 'Dim egb As New elGuilleBuscar
Line 150: Dim sb as new system.text.stringbuilder
Line 151: Dim sParam As String = Me.txtBuscar.Text
Line 152: Dim total As Integer = 150
Line 153:
Line 154: If Me.opt300simple.Checked Then
Line 155: total = 300
Line 156: End If
Line 157:
Line 158: If sParam = "" Then
Line 159: sb.Append("<h4>Escribe lo que quieras buscar en la base de datos del sitio del Guille.</h4>")
Line 160: Me.Label1.Text = "Buscar:"
Line 161: Else
Line 162: sb.Append("<h4>Resultado de buscar: <span style='color:red'>")
Line 163: sb.Append("'" & sParam & "'</span> en la base de datos del sitio del Guille.</h4>")
Line 164: sb.Append(elGuilleBuscar.Buscar(sParam, total))
Line 165:
Line 166: Me.Label1.Text = "Nueva búsqueda:"
Line 167: End If
Line 168: ' Mostrar el resultado
Line 169: Me.labelContenido.Text = sb.tostring
Line 170: End Sub
Line 171:
Line 172: Protected Sub btnBuscarAvanzada_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Line 173: 'Dim egb As New elGuilleBuscar
Line 174: Dim sb As New System.Text.StringBuilder
Line 175:
Line 176: Dim sTitulo As String = Me.txtTit.Text
Line 177: Dim sDescripcion As String = Me.txtDes.Text
Line 178: Dim sContenido As String = Me.txtCon.Text
Line 179: Dim usarAnd As String = ""
Line 180: Dim total As Integer = 150
Line 181:
Line 182: ' Para saber si se está buscando algo
Line 183: sb.Append(sTitulo)
Line 184: sb.Append(sDescripcion)
Line 185: sb.Append(sContenido)
Line 186: Dim seBusca As Integer = sb.Length
Line 187:
Line 188: sb = New System.Text.StringBuilder
Line 189:
Line 190: If Me.opt300.Checked Then
Line 191: total = 300
Line 192: End If
Line 193:
Line 194: If seBusca = 0 Then
Line 195: sb.Append("<h4>Escribe lo que quieras buscar en la base de datos del sitio del Guille.</h4>")
Line 196: Me.Label1.Text = "Buscar:"
Line 197: Else
Line 198: ' Formar la cadena de búsqueda
Line 199: If Me.chkAnd.Checked Then
Line 200: usarAnd = " AND "
Line 201: Else
Line 202: usarAnd = " OR "
Line 203: End If
Line 204:
Line 205: sb.Append(elGuilleBuscar.BuscarAv(sTitulo, sDescripcion, sContenido, usarAnd, total))
Line 206:
Line 207: End If
Line 208: ' Mostrar el resultado
Line 209: Me.labelContenido.Text = sb.ToString
Line 210:
Line 211: End Sub
Line 212:
Line 213: #End ExternalSource
Line 214:
Line 215:
Line 216: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 217: Public Sub New()
Line 218: MyBase.New
Line 219: Dim dependencies() As String
Line 220: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/buscarAv.aspx"
Line 221: If (Global.ASP.buscarav_aspx.__initialized = false) Then
Line 222: Global.ASP.buscarav_aspx.__stringResource = Me.ReadStringResource
Line 223: dependencies = New String(2) {}
Line 224: dependencies(0) = "~/buscarAv.aspx"
Line 225: dependencies(1) = "~/elGuille.master"
Line 226: dependencies(2) = "~/elGuilleMain.master"
Line 227: Global.ASP.buscarav_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 228: Global.ASP.buscarav_aspx.__initialized = true
Line 229: End If
Line 230: Me.Server.ScriptTimeout = 30000000
Line 231: End Sub
Line 232:
Line 233: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 234: Get
Line 235: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 236: End Get
Line 237: End Property
Line 238:
Line 239: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 240: Get
Line 241: Return false
Line 242: End Get
Line 243: End Property
Line 244:
Line 245: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 246: Get
Line 247: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 248: End Get
Line 249: End Property
Line 250:
Line 251: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 252: Private Sub __BuildControlhead(ByVal __ctrl As System.Web.UI.Control)
Line 253: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 254:
Line 255: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",78)
Line 256: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(4515, 732, false))
Line 257:
Line 258: #End ExternalSource
Line 259: End Sub
Line 260:
Line 261: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 262: Private Function __BuildControltxtTit() As Global.System.Web.UI.WebControls.TextBox
Line 263: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 264:
Line 265: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",119)
Line 266: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 267:
Line 268: #End ExternalSource
Line 269: Me.txtTit = __ctrl
Line 270: __ctrl.TemplateControl = Me
Line 271: __ctrl.ApplyStyleSheetSkin(Me)
Line 272:
Line 273: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",119)
Line 274: __ctrl.ID = "txtTit"
Line 275:
Line 276: #End ExternalSource
Line 277:
Line 278: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",119)
Line 279: __ctrl.Columns = 70
Line 280:
Line 281: #End ExternalSource
Line 282: Return __ctrl
Line 283: End Function
Line 284:
Line 285: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 286: Private Function __BuildControltxtDes() As Global.System.Web.UI.WebControls.TextBox
Line 287: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 288:
Line 289: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",120)
Line 290: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 291:
Line 292: #End ExternalSource
Line 293: Me.txtDes = __ctrl
Line 294: __ctrl.TemplateControl = Me
Line 295: __ctrl.ApplyStyleSheetSkin(Me)
Line 296:
Line 297: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",120)
Line 298: __ctrl.ID = "txtDes"
Line 299:
Line 300: #End ExternalSource
Line 301:
Line 302: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",120)
Line 303: __ctrl.Columns = 70
Line 304:
Line 305: #End ExternalSource
Line 306: Return __ctrl
Line 307: End Function
Line 308:
Line 309: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 310: Private Function __BuildControltxtCon() As Global.System.Web.UI.WebControls.TextBox
Line 311: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 312:
Line 313: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",121)
Line 314: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 315:
Line 316: #End ExternalSource
Line 317: Me.txtCon = __ctrl
Line 318: __ctrl.TemplateControl = Me
Line 319: __ctrl.ApplyStyleSheetSkin(Me)
Line 320:
Line 321: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",121)
Line 322: __ctrl.ID = "txtCon"
Line 323:
Line 324: #End ExternalSource
Line 325:
Line 326: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",121)
Line 327: __ctrl.Columns = 55
Line 328:
Line 329: #End ExternalSource
Line 330:
Line 331: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",121)
Line 332: __ctrl.Rows = 5
Line 333:
Line 334: #End ExternalSource
Line 335:
Line 336: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",121)
Line 337: __ctrl.TextMode = Global.System.Web.UI.WebControls.TextBoxMode.MultiLine
Line 338:
Line 339: #End ExternalSource
Line 340: Return __ctrl
Line 341: End Function
Line 342:
Line 343: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 344: Private Function __BuildControlopt150() As Global.System.Web.UI.WebControls.RadioButton
Line 345: Dim __ctrl As Global.System.Web.UI.WebControls.RadioButton
Line 346:
Line 347: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",124)
Line 348: __ctrl = New Global.System.Web.UI.WebControls.RadioButton()
Line 349:
Line 350: #End ExternalSource
Line 351: Me.opt150 = __ctrl
Line 352: __ctrl.TemplateControl = Me
Line 353: __ctrl.ApplyStyleSheetSkin(Me)
Line 354:
Line 355: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",124)
Line 356: __ctrl.ID = "opt150"
Line 357:
Line 358: #End ExternalSource
Line 359:
Line 360: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",124)
Line 361: __ctrl.Checked = true
Line 362:
Line 363: #End ExternalSource
Line 364:
Line 365: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",124)
Line 366: __ctrl.Text = "Mostrar 150 resultados como máximo"
Line 367:
Line 368: #End ExternalSource
Line 369: Return __ctrl
Line 370: End Function
Line 371:
Line 372: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 373: Private Function __BuildControlopt300() As Global.System.Web.UI.WebControls.RadioButton
Line 374: Dim __ctrl As Global.System.Web.UI.WebControls.RadioButton
Line 375:
Line 376: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",125)
Line 377: __ctrl = New Global.System.Web.UI.WebControls.RadioButton()
Line 378:
Line 379: #End ExternalSource
Line 380: Me.opt300 = __ctrl
Line 381: __ctrl.TemplateControl = Me
Line 382: __ctrl.ApplyStyleSheetSkin(Me)
Line 383:
Line 384: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",125)
Line 385: __ctrl.ID = "opt300"
Line 386:
Line 387: #End ExternalSource
Line 388:
Line 389: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",125)
Line 390: __ctrl.Text = "Mostrar 300 resultados como máximo"
Line 391:
Line 392: #End ExternalSource
Line 393: Return __ctrl
Line 394: End Function
Line 395:
Line 396: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 397: Private Function __BuildControlchkAnd() As Global.System.Web.UI.WebControls.CheckBox
Line 398: Dim __ctrl As Global.System.Web.UI.WebControls.CheckBox
Line 399:
Line 400: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",127)
Line 401: __ctrl = New Global.System.Web.UI.WebControls.CheckBox()
Line 402:
Line 403: #End ExternalSource
Line 404: Me.chkAnd = __ctrl
Line 405: __ctrl.TemplateControl = Me
Line 406: __ctrl.ApplyStyleSheetSkin(Me)
Line 407:
Line 408: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",127)
Line 409: __ctrl.ID = "chkAnd"
Line 410:
Line 411: #End ExternalSource
Line 412:
Line 413: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",127)
Line 414: __ctrl.Text = "Hacer una comparación AND (Y) (incluir todos los campos con texto)"
Line 415:
Line 416: #End ExternalSource
Line 417: Return __ctrl
Line 418: End Function
Line 419:
Line 420: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 421: Private Function __BuildControlbtnBuscarAvanzada() As Global.System.Web.UI.WebControls.Button
Line 422: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 423:
Line 424: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",135)
Line 425: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 426:
Line 427: #End ExternalSource
Line 428: Me.btnBuscarAvanzada = __ctrl
Line 429: __ctrl.TemplateControl = Me
Line 430: __ctrl.ApplyStyleSheetSkin(Me)
Line 431:
Line 432: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",135)
Line 433: __ctrl.ID = "btnBuscarAvanzada"
Line 434:
Line 435: #End ExternalSource
Line 436:
Line 437: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",135)
Line 438: __ctrl.Enabled = false
Line 439:
Line 440: #End ExternalSource
Line 441:
Line 442: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",135)
Line 443: __ctrl.Text = "Buscar (avanzada)"
Line 444:
Line 445: #End ExternalSource
Line 446:
Line 447: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",135)
Line 448: __ctrl.ToolTip = "Buscar con los datos indicados"
Line 449:
Line 450: #End ExternalSource
Line 451:
Line 452: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",135)
Line 453: AddHandler __ctrl.Click, AddressOf Me.btnBuscarAvanzada_Click
Line 454:
Line 455: #End ExternalSource
Line 456: Return __ctrl
Line 457: End Function
Line 458:
Line 459: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 460: Private Function __BuildControlLabel1() As Global.System.Web.UI.WebControls.Label
Line 461: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 462:
Line 463: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",142)
Line 464: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 465:
Line 466: #End ExternalSource
Line 467: Me.Label1 = __ctrl
Line 468: __ctrl.TemplateControl = Me
Line 469: __ctrl.ApplyStyleSheetSkin(Me)
Line 470:
Line 471: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",142)
Line 472: __ctrl.Text = "Buscar:"
Line 473:
Line 474: #End ExternalSource
Line 475:
Line 476: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",142)
Line 477: __ctrl.ID = "Label1"
Line 478:
Line 479: #End ExternalSource
Line 480: Return __ctrl
Line 481: End Function
Line 482:
Line 483: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 484: Private Function __BuildControltxtBuscar() As Global.System.Web.UI.WebControls.TextBox
Line 485: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 486:
Line 487: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",142)
Line 488: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 489:
Line 490: #End ExternalSource
Line 491: Me.txtBuscar = __ctrl
Line 492: __ctrl.TemplateControl = Me
Line 493: __ctrl.ApplyStyleSheetSkin(Me)
Line 494:
Line 495: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",142)
Line 496: __ctrl.ID = "txtBuscar"
Line 497:
Line 498: #End ExternalSource
Line 499:
Line 500: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",142)
Line 501: __ctrl.Columns = 50
Line 502:
Line 503: #End ExternalSource
Line 504: Return __ctrl
Line 505: End Function
Line 506:
Line 507: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 508: Private Function __BuildControlbtnBuscar() As Global.System.Web.UI.WebControls.Button
Line 509: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 510:
Line 511: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",144)
Line 512: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 513:
Line 514: #End ExternalSource
Line 515: Me.btnBuscar = __ctrl
Line 516: __ctrl.TemplateControl = Me
Line 517: __ctrl.ApplyStyleSheetSkin(Me)
Line 518:
Line 519: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",144)
Line 520: __ctrl.ID = "btnBuscar"
Line 521:
Line 522: #End ExternalSource
Line 523:
Line 524: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",144)
Line 525: __ctrl.Enabled = false
Line 526:
Line 527: #End ExternalSource
Line 528:
Line 529: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",144)
Line 530: __ctrl.Text = "Buscar (simple)"
Line 531:
Line 532: #End ExternalSource
Line 533:
Line 534: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",144)
Line 535: AddHandler __ctrl.Click, AddressOf Me.btnBuscar_Click
Line 536:
Line 537: #End ExternalSource
Line 538: Return __ctrl
Line 539: End Function
Line 540:
Line 541: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 542: Private Function __BuildControlopt150simple() As Global.System.Web.UI.WebControls.RadioButton
Line 543: Dim __ctrl As Global.System.Web.UI.WebControls.RadioButton
Line 544:
Line 545: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",145)
Line 546: __ctrl = New Global.System.Web.UI.WebControls.RadioButton()
Line 547:
Line 548: #End ExternalSource
Line 549: Me.opt150simple = __ctrl
Line 550: __ctrl.TemplateControl = Me
Line 551: __ctrl.ApplyStyleSheetSkin(Me)
Line 552:
Line 553: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",145)
Line 554: __ctrl.ID = "opt150simple"
Line 555:
Line 556: #End ExternalSource
Line 557:
Line 558: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",145)
Line 559: __ctrl.Text = "Mostrar 150 resultados como máximo"
Line 560:
Line 561: #End ExternalSource
Line 562:
Line 563: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",145)
Line 564: __ctrl.Checked = true
Line 565:
Line 566: #End ExternalSource
Line 567: Return __ctrl
Line 568: End Function
Line 569:
Line 570: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 571: Private Function __BuildControlopt300simple() As Global.System.Web.UI.WebControls.RadioButton
Line 572: Dim __ctrl As Global.System.Web.UI.WebControls.RadioButton
Line 573:
Line 574: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",146)
Line 575: __ctrl = New Global.System.Web.UI.WebControls.RadioButton()
Line 576:
Line 577: #End ExternalSource
Line 578: Me.opt300simple = __ctrl
Line 579: __ctrl.TemplateControl = Me
Line 580: __ctrl.ApplyStyleSheetSkin(Me)
Line 581:
Line 582: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",146)
Line 583: __ctrl.ID = "opt300simple"
Line 584:
Line 585: #End ExternalSource
Line 586:
Line 587: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",146)
Line 588: __ctrl.Text = "Mostrar 300 resultados como máximo"
Line 589:
Line 590: #End ExternalSource
Line 591:
Line 592: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",146)
Line 593: __ctrl.Checked = false
Line 594:
Line 595: #End ExternalSource
Line 596: Return __ctrl
Line 597: End Function
Line 598:
Line 599: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 600: Private Sub __BuildControlContent1(ByVal __ctrl As System.Web.UI.Control)
Line 601: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 602:
Line 603: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 604: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(5247, 761, false))
Line 605:
Line 606: #End ExternalSource
Line 607: Dim __ctrl1 As Global.System.Web.UI.WebControls.TextBox
Line 608:
Line 609: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 610: __ctrl1 = Me.__BuildControltxtTit
Line 611:
Line 612: #End ExternalSource
Line 613:
Line 614: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 615: __parser.AddParsedSubObject(__ctrl1)
Line 616:
Line 617: #End ExternalSource
Line 618:
Line 619: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 620: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br /><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Descripción: "))
Line 621:
Line 622: #End ExternalSource
Line 623: Dim __ctrl2 As Global.System.Web.UI.WebControls.TextBox
Line 624:
Line 625: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 626: __ctrl2 = Me.__BuildControltxtDes
Line 627:
Line 628: #End ExternalSource
Line 629:
Line 630: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 631: __parser.AddParsedSubObject(__ctrl2)
Line 632:
Line 633: #End ExternalSource
Line 634:
Line 635: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 636: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br /><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Contenido: "))
Line 637:
Line 638: #End ExternalSource
Line 639: Dim __ctrl3 As Global.System.Web.UI.WebControls.TextBox
Line 640:
Line 641: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 642: __ctrl3 = Me.__BuildControltxtCon
Line 643:
Line 644: #End ExternalSource
Line 645:
Line 646: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 647: __parser.AddParsedSubObject(__ctrl3)
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 652: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 653:
Line 654: #End ExternalSource
Line 655: Dim __ctrl4 As Global.System.Web.UI.WebControls.RadioButton
Line 656:
Line 657: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 658: __ctrl4 = Me.__BuildControlopt150
Line 659:
Line 660: #End ExternalSource
Line 661:
Line 662: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 663: __parser.AddParsedSubObject(__ctrl4)
Line 664:
Line 665: #End ExternalSource
Line 666:
Line 667: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 668: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 669:
Line 670: #End ExternalSource
Line 671: Dim __ctrl5 As Global.System.Web.UI.WebControls.RadioButton
Line 672:
Line 673: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 674: __ctrl5 = Me.__BuildControlopt300
Line 675:
Line 676: #End ExternalSource
Line 677:
Line 678: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 679: __parser.AddParsedSubObject(__ctrl5)
Line 680:
Line 681: #End ExternalSource
Line 682:
Line 683: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 684: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 685:
Line 686: #End ExternalSource
Line 687: Dim __ctrl6 As Global.System.Web.UI.WebControls.CheckBox
Line 688:
Line 689: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 690: __ctrl6 = Me.__BuildControlchkAnd
Line 691:
Line 692: #End ExternalSource
Line 693:
Line 694: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 695: __parser.AddParsedSubObject(__ctrl6)
Line 696:
Line 697: #End ExternalSource
Line 698:
Line 699: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 700: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(6008, 330, false))
Line 701:
Line 702: #End ExternalSource
Line 703: Dim __ctrl7 As Global.System.Web.UI.WebControls.Button
Line 704:
Line 705: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 706: __ctrl7 = Me.__BuildControlbtnBuscarAvanzada
Line 707:
Line 708: #End ExternalSource
Line 709:
Line 710: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 711: __parser.AddParsedSubObject(__ctrl7)
Line 712:
Line 713: #End ExternalSource
Line 714:
Line 715: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 716: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</center> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br/> <br/> <br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""border:"& _
Line 717: "1px gray solid; background-color:#fffff0; padding:1.0em"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <h4 style=""margin"& _
Line 718: ":0px; padding:0px"">Si quieres hacer una búsqueda simple:</h4><br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 719:
Line 720: #End ExternalSource
Line 721: Dim __ctrl8 As Global.System.Web.UI.WebControls.Label
Line 722:
Line 723: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 724: __ctrl8 = Me.__BuildControlLabel1
Line 725:
Line 726: #End ExternalSource
Line 727:
Line 728: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 729: __parser.AddParsedSubObject(__ctrl8)
Line 730:
Line 731: #End ExternalSource
Line 732:
Line 733: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 734: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "))
Line 735:
Line 736: #End ExternalSource
Line 737: Dim __ctrl9 As Global.System.Web.UI.WebControls.TextBox
Line 738:
Line 739: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 740: __ctrl9 = Me.__BuildControltxtBuscar
Line 741:
Line 742: #End ExternalSource
Line 743:
Line 744: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 745: __parser.AddParsedSubObject(__ctrl9)
Line 746:
Line 747: #End ExternalSource
Line 748:
Line 749: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 750: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 751:
Line 752: #End ExternalSource
Line 753: Dim __ctrl10 As Global.System.Web.UI.WebControls.Button
Line 754:
Line 755: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 756: __ctrl10 = Me.__BuildControlbtnBuscar
Line 757:
Line 758: #End ExternalSource
Line 759:
Line 760: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 761: __parser.AddParsedSubObject(__ctrl10)
Line 762:
Line 763: #End ExternalSource
Line 764:
Line 765: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 766: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br/><br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 767:
Line 768: #End ExternalSource
Line 769: Dim __ctrl11 As Global.System.Web.UI.WebControls.RadioButton
Line 770:
Line 771: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 772: __ctrl11 = Me.__BuildControlopt150simple
Line 773:
Line 774: #End ExternalSource
Line 775:
Line 776: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 777: __parser.AddParsedSubObject(__ctrl11)
Line 778:
Line 779: #End ExternalSource
Line 780:
Line 781: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 782: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 783:
Line 784: #End ExternalSource
Line 785: Dim __ctrl12 As Global.System.Web.UI.WebControls.RadioButton
Line 786:
Line 787: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 788: __ctrl12 = Me.__BuildControlopt300simple
Line 789:
Line 790: #End ExternalSource
Line 791:
Line 792: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 793: __parser.AddParsedSubObject(__ctrl12)
Line 794:
Line 795: #End ExternalSource
Line 796:
Line 797: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 798: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(6338, 577, false))
Line 799:
Line 800: #End ExternalSource
Line 801: End Sub
Line 802:
Line 803: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 804: Private Sub __BuildControlContent5(ByVal __ctrl As System.Web.UI.Control)
Line 805: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 806:
Line 807: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",163)
Line 808: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 809:
Line 810: #End ExternalSource
Line 811: End Sub
Line 812:
Line 813: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 814: Private Function __BuildControllabelContenido() As Global.System.Web.UI.WebControls.Label
Line 815: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 816:
Line 817: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",188)
Line 818: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 819:
Line 820: #End ExternalSource
Line 821: Me.labelContenido = __ctrl
Line 822: __ctrl.TemplateControl = Me
Line 823: __ctrl.ApplyStyleSheetSkin(Me)
Line 824:
Line 825: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",188)
Line 826: __ctrl.ID = "labelContenido"
Line 827:
Line 828: #End ExternalSource
Line 829: Return __ctrl
Line 830: End Function
Line 831:
Line 832: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 833: Private Sub __BuildControlContent2(ByVal __ctrl As System.Web.UI.Control)
Line 834: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 835:
Line 836: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",166)
Line 837: __ctrl1 = Me.__BuildControllabelContenido
Line 838:
Line 839: #End ExternalSource
Line 840: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 841:
Line 842: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",166)
Line 843: __parser.AddParsedSubObject(__ctrl1)
Line 844:
Line 845: #End ExternalSource
Line 846: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderContent2)
Line 847: End Sub
Line 848:
Line 849: Private Sub __RenderContent2(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 850: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""contenidoDiv"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 851:
Line 852: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",168)
Line 853: If IsPostBack Then
Line 854:
Line 855: #End ExternalSource
Line 856: Me.WriteUTF8ResourceString(__w, 6915, 529, true)
Line 857:
Line 858: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",187)
Line 859: End If
Line 860:
Line 861: #End ExternalSource
Line 862: parameterContainer.Controls(0).RenderControl(__w)
Line 863: __w.Write("</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<h3 style=""text-align:center""><a target=""_blank"" href=""http://foro"& _
Line 864: "s.elguille.info/"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Si no encuentras lo que buscas, inténtalo en mis foros</a></"& _
Line 865: "h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 866: End Sub
Line 867:
Line 868: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 869: Private Function __BuildControllabelVersion() As Global.System.Web.UI.WebControls.Label
Line 870: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 871:
Line 872: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",215)
Line 873: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 874:
Line 875: #End ExternalSource
Line 876: Me.labelVersion = __ctrl
Line 877: __ctrl.TemplateControl = Me
Line 878: __ctrl.ApplyStyleSheetSkin(Me)
Line 879:
Line 880: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",215)
Line 881: __ctrl.ID = "labelVersion"
Line 882:
Line 883: #End ExternalSource
Line 884: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderlabelVersion)
Line 885: Return __ctrl
Line 886: End Function
Line 887:
Line 888: Private Sub __RenderlabelVersion(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 889:
Line 890: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",215)
Line 891: __w.Write(Version())
Line 892:
Line 893:
Line 894: #End ExternalSource
Line 895: End Sub
Line 896:
Line 897: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 898: Private Sub __BuildControlContent3(ByVal __ctrl As System.Web.UI.Control)
Line 899: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 900:
Line 901: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",194)
Line 902: __ctrl1 = Me.__BuildControllabelVersion
Line 903:
Line 904: #End ExternalSource
Line 905: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 906:
Line 907: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",194)
Line 908: __parser.AddParsedSubObject(__ctrl1)
Line 909:
Line 910: #End ExternalSource
Line 911: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderContent3)
Line 912: End Sub
Line 913:
Line 914: Private Sub __RenderContent3(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 915: Me.WriteUTF8ResourceString(__w, 7444, 919, false)
Line 916:
Line 917: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",213)
Line 918: __w.Write( DateTime.Now.Year )
Line 919:
Line 920:
Line 921: #End ExternalSource
Line 922: __w.Write(" Guillermo 'guille' Som."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />Revisado el: <!--webbot bot=""TimeSta"& _
Line 923: "mp"" s-format=""%d de %B de %Y"" s-type=""EDITED"" -->.<br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Versión de la librería:"& _
Line 924: " ")
Line 925: parameterContainer.Controls(0).RenderControl(__w)
Line 926: __w.Write("</h6>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 927: End Sub
Line 928:
Line 929: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 930: Private Sub __BuildControlTree(ByVal __ctrl As buscarav_aspx)
Line 931:
Line 932: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",1)
Line 933: __ctrl.MasterPageFile = "~/elGuille.master"
Line 934:
Line 935: #End ExternalSource
Line 936:
Line 937: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",1)
Line 938: __ctrl.Title = "Búsqueda avanzada en la base de datos de el Guille.info"
Line 939:
Line 940: #End ExternalSource
Line 941:
Line 942: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",1)
Line 943: Me.InitializeCulture
Line 944:
Line 945: #End ExternalSource
Line 946:
Line 947: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",78)
Line 948: Me.AddContentTemplate("head", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlhead))
Line 949:
Line 950: #End ExternalSource
Line 951:
Line 952: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",105)
Line 953: Me.AddContentTemplate("cphTitulo", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent1))
Line 954:
Line 955: #End ExternalSource
Line 956:
Line 957: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",163)
Line 958: Me.AddContentTemplate("cphAnuncios", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent5))
Line 959:
Line 960: #End ExternalSource
Line 961:
Line 962: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",166)
Line 963: Me.AddContentTemplate("cphBody", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent2))
Line 964:
Line 965: #End ExternalSource
Line 966:
Line 967: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",194)
Line 968: Me.AddContentTemplate("cphZIP", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent3))
Line 969:
Line 970: #End ExternalSource
Line 971: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 972:
Line 973: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",1)
Line 974: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 975:
Line 976: #End ExternalSource
Line 977:
Line 978: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",1)
Line 979: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 980:
Line 981: #End ExternalSource
Line 982:
Line 983: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",1)
Line 984: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 985:
Line 986: #End ExternalSource
Line 987:
Line 988: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",1)
Line 989: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 990:
Line 991: #End ExternalSource
Line 992:
Line 993: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscarAv.aspx",1)
Line 994: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 995:
Line 996: #End ExternalSource
Line 997: End Sub
Line 998:
Line 999: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1000: Protected Overrides Sub FrameworkInitialize()
Line 1001: MyBase.FrameworkInitialize
Line 1002: Me.SetStringResourcePointer(Global.ASP.buscarav_aspx.__stringResource, 0)
Line 1003: Me.__BuildControlTree(Me)
Line 1004: Me.AddWrappedFileDependencies(Global.ASP.buscarav_aspx.__fileDependencies)
Line 1005: Me.Request.ValidateInput
Line 1006: End Sub
Line 1007:
Line 1008: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1009: Public Overrides Function GetTypeHashCode() As Integer
Line 1010: Return 1443228167
Line 1011: End Function
Line 1012:
Line 1013: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1014: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 1015: MyBase.ProcessRequest(context)
Line 1016: End Sub
Line 1017: End Class
Line 1018: End Namespace
Line 1019:
|