Line 1: #ExternalChecksum("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","4CA5A78FCBEA6B7D7D81F9A140CEB822E31039C8")
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 buscar_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\buscar.aspx",100)
Line 48: Protected WithEvents Label1 As Global.System.Web.UI.WebControls.Label
Line 49:
Line 50: #End ExternalSource
Line 51:
Line 52:
Line 53: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",100)
Line 54: Protected WithEvents txtBuscar 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\buscar.aspx",101)
Line 60: Protected WithEvents btnBuscar As Global.System.Web.UI.WebControls.Button
Line 61:
Line 62: #End ExternalSource
Line 63:
Line 64:
Line 65: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",102)
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\buscar.aspx",103)
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\buscar.aspx",139)
Line 78: Protected WithEvents labelContenido As Global.System.Web.UI.WebControls.Label
Line 79:
Line 80: #End ExternalSource
Line 81:
Line 82:
Line 83: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",162)
Line 84: Protected WithEvents labelVersion As Global.System.Web.UI.WebControls.Label
Line 85:
Line 86: #End ExternalSource
Line 87:
Line 88: Private Shared __initialized As Boolean
Line 89:
Line 90: Private Shared __stringResource As Object
Line 91:
Line 92: Private Shared __fileDependencies As Object
Line 93:
Line 94:
Line 95: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",3)
Line 96:
Line 97: Private Function Version() As String
Line 98: Return elGuilleBuscar.VersionDll
Line 99: End Function
Line 100:
Line 101: '-----------------------------------------------------------------------------
Line 102: ' Nota:
Line 103: ' Si AutoEventWireup="false" no se produce el evento Page_Load
Line 104: '-----------------------------------------------------------------------------
Line 105: Protected Sub Page_Load(sender As Object, e As EventArgs)
Line 106: ' Por si entra usando parámetros
Line 107: Dim sParam As String
Line 108:
Line 109: 'Response.Write("Me.Request.QueryString.Count = " & Me.Request.QueryString.Count.ToString)
Line 110: 'If Me.Request.QueryString.Count > 0 Then
Line 111: ' For Each s As String in Request.QueryString
Line 112: ' Response.Write(s & "<br/>")
Line 113: ' Next
Line 114: 'End If
Line 115:
Line 116: sParam = "" & Server.HTMLEncode(Request("B3"))
Line 117: If String.IsNullOrEmpty(sParam) = False AndAlso Len(sParam) > 0 Then
Line 118: Me.txtBuscar.Text = sParam
Line 119:
Line 120: Dim sb As New System.Text.StringBuilder
Line 121: Dim total As Integer = CInt("0" & Server.HTMLEncode(Request("Op")))
Line 122:
Line 123: sb.Append("<h4>Resultado de buscar: <span style='color:red'>")
Line 124: sb.Append("'" & sParam & "'</span> en la base de datos del sitio del Guille.</h4>")
Line 125: sb.Append(elGuilleBuscar.Buscar(sParam, total))
Line 126:
Line 127: ' Mostrar el resultado
Line 128: Me.labelContenido.Text = sb.tostring
Line 129:
Line 130: Me.Label1.Text = "Nueva búsqueda:"
Line 131: End If
Line 132: End Sub
Line 133:
Line 134: Private Sub btnBuscar_Click(ByVal sender As Object, ByVal e As EventArgs)
Line 135: Dim sb As New System.Text.StringBuilder
Line 136: Dim sParam As String = Me.txtBuscar.Text
Line 137: Dim total As Integer = 150
Line 138:
Line 139: If Me.opt300.Checked Then
Line 140: total = 300
Line 141: End If
Line 142:
Line 143: If sParam = "" Then
Line 144: sb.Append("<h4>Escribe lo que quieras buscar en la base de datos del sitio del Guille.</h4>")
Line 145: Me.Label1.Text = "Buscar:"
Line 146: Else
Line 147: sb.Append("<h4>Resultado de buscar: <span style='color:red'>")
Line 148: sb.Append("'" & sParam & "'</span> en la base de datos del sitio del Guille.</h4>")
Line 149: sb.Append(elGuilleBuscar.Buscar(sParam, total))
Line 150:
Line 151: Me.Label1.Text = "Nueva búsqueda:"
Line 152: End If
Line 153: ' Mostrar el resultado
Line 154: Me.labelContenido.Text = sb.tostring
Line 155: End Sub
Line 156:
Line 157:
Line 158: #End ExternalSource
Line 159:
Line 160:
Line 161: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 162: Public Sub New()
Line 163: MyBase.New
Line 164: Dim dependencies() As String
Line 165: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/buscar.aspx"
Line 166: If (Global.ASP.buscar_aspx.__initialized = false) Then
Line 167: Global.ASP.buscar_aspx.__stringResource = Me.ReadStringResource
Line 168: dependencies = New String(2) {}
Line 169: dependencies(0) = "~/buscar.aspx"
Line 170: dependencies(1) = "~/elGuille.master"
Line 171: dependencies(2) = "~/elGuilleMain.master"
Line 172: Global.ASP.buscar_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 173: Global.ASP.buscar_aspx.__initialized = true
Line 174: End If
Line 175: Me.Server.ScriptTimeout = 30000000
Line 176: End Sub
Line 177:
Line 178: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 179: Get
Line 180: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 181: End Get
Line 182: End Property
Line 183:
Line 184: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 185: Get
Line 186: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 187: End Get
Line 188: End Property
Line 189:
Line 190: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 191: Private Sub __BuildControlhead(ByVal __ctrl As System.Web.UI.Control)
Line 192: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 193:
Line 194: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",65)
Line 195: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(5408, 730, true))
Line 196:
Line 197: #End ExternalSource
Line 198: End Sub
Line 199:
Line 200: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 201: Private Function __BuildControlLabel1() As Global.System.Web.UI.WebControls.Label
Line 202: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 203:
Line 204: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",100)
Line 205: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 206:
Line 207: #End ExternalSource
Line 208: Me.Label1 = __ctrl
Line 209: __ctrl.TemplateControl = Me
Line 210: __ctrl.ApplyStyleSheetSkin(Me)
Line 211:
Line 212: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",100)
Line 213: __ctrl.Text = "Buscar:"
Line 214:
Line 215: #End ExternalSource
Line 216:
Line 217: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",100)
Line 218: __ctrl.ID = "Label1"
Line 219:
Line 220: #End ExternalSource
Line 221: Return __ctrl
Line 222: End Function
Line 223:
Line 224: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 225: Private Function __BuildControltxtBuscar() As Global.System.Web.UI.WebControls.TextBox
Line 226: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 227:
Line 228: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",100)
Line 229: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 230:
Line 231: #End ExternalSource
Line 232: Me.txtBuscar = __ctrl
Line 233: __ctrl.TemplateControl = Me
Line 234: __ctrl.ApplyStyleSheetSkin(Me)
Line 235:
Line 236: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",100)
Line 237: __ctrl.ID = "txtBuscar"
Line 238:
Line 239: #End ExternalSource
Line 240:
Line 241: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",100)
Line 242: __ctrl.Columns = 50
Line 243:
Line 244: #End ExternalSource
Line 245: Return __ctrl
Line 246: End Function
Line 247:
Line 248: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 249: Private Function __BuildControlbtnBuscar() As Global.System.Web.UI.WebControls.Button
Line 250: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 251:
Line 252: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",101)
Line 253: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 254:
Line 255: #End ExternalSource
Line 256: Me.btnBuscar = __ctrl
Line 257: __ctrl.TemplateControl = Me
Line 258: __ctrl.ApplyStyleSheetSkin(Me)
Line 259:
Line 260: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",101)
Line 261: __ctrl.ID = "btnBuscar"
Line 262:
Line 263: #End ExternalSource
Line 264:
Line 265: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",101)
Line 266: __ctrl.Enabled = false
Line 267:
Line 268: #End ExternalSource
Line 269:
Line 270: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",101)
Line 271: __ctrl.Text = "Buscar"
Line 272:
Line 273: #End ExternalSource
Line 274:
Line 275: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",101)
Line 276: AddHandler __ctrl.Click, AddressOf Me.btnBuscar_Click
Line 277:
Line 278: #End ExternalSource
Line 279: Return __ctrl
Line 280: End Function
Line 281:
Line 282: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 283: Private Function __BuildControlopt150() As Global.System.Web.UI.WebControls.RadioButton
Line 284: Dim __ctrl As Global.System.Web.UI.WebControls.RadioButton
Line 285:
Line 286: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",102)
Line 287: __ctrl = New Global.System.Web.UI.WebControls.RadioButton()
Line 288:
Line 289: #End ExternalSource
Line 290: Me.opt150 = __ctrl
Line 291: __ctrl.TemplateControl = Me
Line 292: __ctrl.ApplyStyleSheetSkin(Me)
Line 293:
Line 294: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",102)
Line 295: __ctrl.ID = "opt150"
Line 296:
Line 297: #End ExternalSource
Line 298:
Line 299: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",102)
Line 300: __ctrl.Enabled = false
Line 301:
Line 302: #End ExternalSource
Line 303:
Line 304: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",102)
Line 305: __ctrl.Text = "Mostrar 150 resultados como máximo"
Line 306:
Line 307: #End ExternalSource
Line 308:
Line 309: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",102)
Line 310: __ctrl.Checked = true
Line 311:
Line 312: #End ExternalSource
Line 313: Return __ctrl
Line 314: End Function
Line 315:
Line 316: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 317: Private Function __BuildControlopt300() As Global.System.Web.UI.WebControls.RadioButton
Line 318: Dim __ctrl As Global.System.Web.UI.WebControls.RadioButton
Line 319:
Line 320: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",103)
Line 321: __ctrl = New Global.System.Web.UI.WebControls.RadioButton()
Line 322:
Line 323: #End ExternalSource
Line 324: Me.opt300 = __ctrl
Line 325: __ctrl.TemplateControl = Me
Line 326: __ctrl.ApplyStyleSheetSkin(Me)
Line 327:
Line 328: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",103)
Line 329: __ctrl.ID = "opt300"
Line 330:
Line 331: #End ExternalSource
Line 332:
Line 333: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",103)
Line 334: __ctrl.Enabled = false
Line 335:
Line 336: #End ExternalSource
Line 337:
Line 338: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",103)
Line 339: __ctrl.Text = "Mostrar 300 resultados como máximo"
Line 340:
Line 341: #End ExternalSource
Line 342:
Line 343: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",103)
Line 344: __ctrl.Checked = false
Line 345:
Line 346: #End ExternalSource
Line 347: Return __ctrl
Line 348: End Function
Line 349:
Line 350: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 351: Private Sub __BuildControlContent1(ByVal __ctrl As System.Web.UI.Control)
Line 352: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 353:
Line 354: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 355: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(6138, 446, false))
Line 356:
Line 357: #End ExternalSource
Line 358: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 359:
Line 360: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 361: __ctrl1 = Me.__BuildControlLabel1
Line 362:
Line 363: #End ExternalSource
Line 364:
Line 365: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 366: __parser.AddParsedSubObject(__ctrl1)
Line 367:
Line 368: #End ExternalSource
Line 369:
Line 370: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 371: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "))
Line 372:
Line 373: #End ExternalSource
Line 374: Dim __ctrl2 As Global.System.Web.UI.WebControls.TextBox
Line 375:
Line 376: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 377: __ctrl2 = Me.__BuildControltxtBuscar
Line 378:
Line 379: #End ExternalSource
Line 380:
Line 381: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 382: __parser.AddParsedSubObject(__ctrl2)
Line 383:
Line 384: #End ExternalSource
Line 385:
Line 386: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 387: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 388:
Line 389: #End ExternalSource
Line 390: Dim __ctrl3 As Global.System.Web.UI.WebControls.Button
Line 391:
Line 392: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 393: __ctrl3 = Me.__BuildControlbtnBuscar
Line 394:
Line 395: #End ExternalSource
Line 396:
Line 397: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 398: __parser.AddParsedSubObject(__ctrl3)
Line 399:
Line 400: #End ExternalSource
Line 401:
Line 402: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 403: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br/><br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 404:
Line 405: #End ExternalSource
Line 406: Dim __ctrl4 As Global.System.Web.UI.WebControls.RadioButton
Line 407:
Line 408: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 409: __ctrl4 = Me.__BuildControlopt150
Line 410:
Line 411: #End ExternalSource
Line 412:
Line 413: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 414: __parser.AddParsedSubObject(__ctrl4)
Line 415:
Line 416: #End ExternalSource
Line 417:
Line 418: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 419: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 420:
Line 421: #End ExternalSource
Line 422: Dim __ctrl5 As Global.System.Web.UI.WebControls.RadioButton
Line 423:
Line 424: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 425: __ctrl5 = Me.__BuildControlopt300
Line 426:
Line 427: #End ExternalSource
Line 428:
Line 429: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 430: __parser.AddParsedSubObject(__ctrl5)
Line 431:
Line 432: #End ExternalSource
Line 433:
Line 434: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 435: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(6584, 483, false))
Line 436:
Line 437: #End ExternalSource
Line 438: End Sub
Line 439:
Line 440: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 441: Private Sub __BuildControlContent5(ByVal __ctrl As System.Web.UI.Control)
Line 442: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 443:
Line 444: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",114)
Line 445: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 446:
Line 447: #End ExternalSource
Line 448: End Sub
Line 449:
Line 450: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 451: Private Function __BuildControllabelContenido() As Global.System.Web.UI.WebControls.Label
Line 452: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 453:
Line 454: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",139)
Line 455: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 456:
Line 457: #End ExternalSource
Line 458: Me.labelContenido = __ctrl
Line 459: __ctrl.TemplateControl = Me
Line 460: __ctrl.ApplyStyleSheetSkin(Me)
Line 461:
Line 462: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",139)
Line 463: __ctrl.ID = "labelContenido"
Line 464:
Line 465: #End ExternalSource
Line 466: Return __ctrl
Line 467: End Function
Line 468:
Line 469: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 470: Private Sub __BuildControlContent2(ByVal __ctrl As System.Web.UI.Control)
Line 471: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 472:
Line 473: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",117)
Line 474: __ctrl1 = Me.__BuildControllabelContenido
Line 475:
Line 476: #End ExternalSource
Line 477: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 478:
Line 479: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",117)
Line 480: __parser.AddParsedSubObject(__ctrl1)
Line 481:
Line 482: #End ExternalSource
Line 483: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderContent2)
Line 484: End Sub
Line 485:
Line 486: Private Sub __RenderContent2(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 487: __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 488:
Line 489: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",119)
Line 490: If IsPostBack Then
Line 491:
Line 492: #End ExternalSource
Line 493: Me.WriteUTF8ResourceString(__w, 7067, 529, true)
Line 494:
Line 495: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",138)
Line 496: End If
Line 497:
Line 498: #End ExternalSource
Line 499: parameterContainer.Controls(0).RenderControl(__w)
Line 500: __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 501: "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 502: "h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 503: End Sub
Line 504:
Line 505: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 506: Private Function __BuildControllabelVersion() As Global.System.Web.UI.WebControls.Label
Line 507: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 508:
Line 509: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",162)
Line 510: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 511:
Line 512: #End ExternalSource
Line 513: Me.labelVersion = __ctrl
Line 514: __ctrl.TemplateControl = Me
Line 515: __ctrl.ApplyStyleSheetSkin(Me)
Line 516:
Line 517: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",162)
Line 518: __ctrl.ID = "labelVersion"
Line 519:
Line 520: #End ExternalSource
Line 521: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderlabelVersion)
Line 522: Return __ctrl
Line 523: End Function
Line 524:
Line 525: Private Sub __RenderlabelVersion(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 526:
Line 527: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",162)
Line 528: __w.Write(Version())
Line 529:
Line 530:
Line 531: #End ExternalSource
Line 532: End Sub
Line 533:
Line 534: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 535: Private Sub __BuildControlContent3(ByVal __ctrl As System.Web.UI.Control)
Line 536: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 537:
Line 538: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",145)
Line 539: __ctrl1 = Me.__BuildControllabelVersion
Line 540:
Line 541: #End ExternalSource
Line 542: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 543:
Line 544: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",145)
Line 545: __parser.AddParsedSubObject(__ctrl1)
Line 546:
Line 547: #End ExternalSource
Line 548: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderContent3)
Line 549: End Sub
Line 550:
Line 551: Private Sub __RenderContent3(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 552: Me.WriteUTF8ResourceString(__w, 7596, 767, false)
Line 553:
Line 554: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",160)
Line 555: __w.Write( DateTime.Now.Year )
Line 556:
Line 557:
Line 558: #End ExternalSource
Line 559: __w.Write(" Guillermo 'guille' Som."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />Revisado el: <!--webbot bot=""TimeSta"& _
Line 560: "mp"" s-format=""%d de %B de %Y"" s-type=""EDITED"" startspan -->02 de mayo de 2008<!-"& _
Line 561: "-webbot bot=""TimeStamp"" i-checksum=""36523"" endspan -->.<br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Versión de la libr"& _
Line 562: "ería: ")
Line 563: parameterContainer.Controls(0).RenderControl(__w)
Line 564: __w.Write("</h6>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 565: End Sub
Line 566:
Line 567: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 568: Private Sub __BuildControlTree(ByVal __ctrl As buscar_aspx)
Line 569:
Line 570: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",1)
Line 571: __ctrl.MasterPageFile = "~/elGuille.master"
Line 572:
Line 573: #End ExternalSource
Line 574:
Line 575: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",1)
Line 576: __ctrl.Title = "Buscar en la base de datos de el Guille.info"
Line 577:
Line 578: #End ExternalSource
Line 579:
Line 580: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",1)
Line 581: Me.InitializeCulture
Line 582:
Line 583: #End ExternalSource
Line 584:
Line 585: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",65)
Line 586: Me.AddContentTemplate("head", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlhead))
Line 587:
Line 588: #End ExternalSource
Line 589:
Line 590: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",92)
Line 591: Me.AddContentTemplate("cphTitulo", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent1))
Line 592:
Line 593: #End ExternalSource
Line 594:
Line 595: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",114)
Line 596: Me.AddContentTemplate("cphAnuncios", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent5))
Line 597:
Line 598: #End ExternalSource
Line 599:
Line 600: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",117)
Line 601: Me.AddContentTemplate("cphBody", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent2))
Line 602:
Line 603: #End ExternalSource
Line 604:
Line 605: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",145)
Line 606: Me.AddContentTemplate("cphZIP", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent3))
Line 607:
Line 608: #End ExternalSource
Line 609: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 610:
Line 611: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",1)
Line 612: __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 613:
Line 614: #End ExternalSource
Line 615:
Line 616: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",1)
Line 617: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 618:
Line 619: #End ExternalSource
Line 620:
Line 621: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",1)
Line 622: __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 623:
Line 624: #End ExternalSource
Line 625:
Line 626: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\buscar.aspx",1)
Line 627: __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 628:
Line 629: #End ExternalSource
Line 630: End Sub
Line 631:
Line 632: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 633: Protected Overrides Sub FrameworkInitialize()
Line 634: MyBase.FrameworkInitialize
Line 635: Me.SetStringResourcePointer(Global.ASP.buscar_aspx.__stringResource, 0)
Line 636: Me.__BuildControlTree(Me)
Line 637: Me.AddWrappedFileDependencies(Global.ASP.buscar_aspx.__fileDependencies)
Line 638: Me.Request.ValidateInput
Line 639: End Sub
Line 640:
Line 641: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 642: Public Overrides Function GetTypeHashCode() As Integer
Line 643: Return 1604713491
Line 644: End Function
Line 645:
Line 646: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 647: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 648: MyBase.ProcessRequest(context)
Line 649: End Sub
Line 650: End Class
Line 651: End Namespace
Line 652:
|