Line 1: #ExternalChecksum("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx","{406ea660-64cf-4c82-b6f0-42d48172a799}","E8ED8E656394E40763D85ACF4D2C0DD5")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:2.0.50727.9061
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports MySql.Data.MySqlClient
Line 17: Imports System
Line 18: Imports System.Collections
Line 19: Imports System.Collections.Specialized
Line 20: Imports System.ComponentModel
Line 21: Imports System.Configuration
Line 22: Imports System.Data
Line 23: Imports System.Data.SqlClient
Line 24: Imports System.Drawing
Line 25: Imports System.IO
Line 26: Imports System.Net.Mail
Line 27: Imports System.Text
Line 28: Imports System.Text.RegularExpressions
Line 29: Imports System.Web
Line 30: Imports System.Web.Caching
Line 31: Imports System.Web.Profile
Line 32: Imports System.Web.Security
Line 33: Imports System.Web.SessionState
Line 34: Imports System.Web.UI
Line 35: Imports System.Web.UI.HtmlControls
Line 36: Imports System.Web.UI.WebControls
Line 37: Imports System.Web.UI.WebControls.WebParts
Line 38:
Line 39: Namespace ASP
Line 40:
Line 41: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 42: Public Class contacto_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\gesfutur.com\httpdocs\contacto.aspx",360)
Line 48: Protected WithEvents txtNombre As Global.System.Web.UI.WebControls.TextBox
Line 49:
Line 50: #End ExternalSource
Line 51:
Line 52:
Line 53: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",361)
Line 54: Protected WithEvents cvNombre As Global.System.Web.UI.WebControls.CustomValidator
Line 55:
Line 56: #End ExternalSource
Line 57:
Line 58:
Line 59: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",370)
Line 60: Protected WithEvents txtEmail As Global.System.Web.UI.WebControls.TextBox
Line 61:
Line 62: #End ExternalSource
Line 63:
Line 64:
Line 65: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",371)
Line 66: Protected WithEvents cvEmail As Global.System.Web.UI.WebControls.CustomValidator
Line 67:
Line 68: #End ExternalSource
Line 69:
Line 70:
Line 71: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",379)
Line 72: Protected WithEvents txtConsulta As Global.System.Web.UI.WebControls.TextBox
Line 73:
Line 74: #End ExternalSource
Line 75:
Line 76:
Line 77: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",380)
Line 78: Protected WithEvents cvConsulta As Global.System.Web.UI.WebControls.CustomValidator
Line 79:
Line 80: #End ExternalSource
Line 81:
Line 82:
Line 83: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",384)
Line 84: Protected WithEvents btnGuardar As Global.System.Web.UI.HtmlControls.HtmlAnchor
Line 85:
Line 86: #End ExternalSource
Line 87:
Line 88:
Line 89: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 90: Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 91:
Line 92: #End ExternalSource
Line 93:
Line 94: Private Shared __initialized As Boolean
Line 95:
Line 96: Private Shared __stringResource As Object
Line 97:
Line 98: Private Shared __fileDependencies As Object
Line 99:
Line 100:
Line 101: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",21)
Line 102:
Line 103:
Line 104: Dim MYSQL_Server As String = ConfigurationManager.AppSettings("MYSQL_Server")
Line 105: Dim MYSQL_Port As String = ConfigurationManager.AppSettings("MYSQL_Port")
Line 106: Dim MYSQL_Username As String = ConfigurationManager.AppSettings("MYSQL_Username")
Line 107: Dim MYSQL_Password As String = ConfigurationManager.AppSettings("MYSQL_Password")
Line 108: Dim MYSQL_Database As String = ConfigurationManager.AppSettings("MYSQL_Database")
Line 109:
Line 110:
Line 111: Public ReadOnly Property CADENA_CONEXION_MYSQL() As String
Line 112: Get
Line 113: Dim cadena As String = ""
Line 114: cadena += "server=" & MYSQL_Server & ";"
Line 115: cadena += "user Id=" & MYSQL_Username & ";"
Line 116: cadena += "password=" & MYSQL_Password & ";"
Line 117: cadena += "Persist Security Info=True;"
Line 118: cadena += "database=" & MYSQL_Database & ";"
Line 119: Return cadena
Line 120: End Get
Line 121: End Property
Line 122:
Line 123: Public Sub Enviar_correo2()
Line 124:
Line 125: Dim MENSAJE As String = ""
Line 126: Dim sql As String = ""
Line 127:
Line 128: Try
Line 129:
Line 130:
Line 131: MENSAJE += " <table style='width: 100%;'>"
Line 132: MENSAJE += " <tr>"
Line 133: MENSAJE += " <td>"
Line 134: MENSAJE += " <img src='http://www.gesfutur.com/images/GESFUTUR_logo_peque.jpg' style='width: 150px;vertical-align: middle;margin-right: 10px;' /> "
Line 135: MENSAJE += " <br /><br /><span style='font-weight: bold;font-size: 16px;'> <b>Consulta desde la web</b> </span><br /><br />"
Line 136: MENSAJE += " Se ha enviado una consulta desde la web. <br />"
Line 137: MENSAJE += " </td>"
Line 138: MENSAJE += " </tr>"
Line 139:
Line 140: MENSAJE += " <tr>"
Line 141: MENSAJE += " <td valign='top'>"
Line 142: MENSAJE += " <div style='padding: 4px;margin-right: 2px;'>"
Line 143: MENSAJE += " <span style='font-weight: bold;font-size: 16px;'>Datos de la Consulta :</span>"
Line 144: MENSAJE += " <table style='font-size: 14px;'>"
Line 145: MENSAJE += " <tr><td><hr /></td></tr>"
Line 146: MENSAJE += " <tr><td width='100px'>Nombre:</td><td width='300px'>" & txtNombre.Text.Trim & "</td></tr>"
Line 147: MENSAJE += " <tr><td>Email:</td><td>" & txtEmail.Text.Trim & "</td></tr>"
Line 148: MENSAJE += " <tr><td>Consultar:</td><td>" & txtConsulta.Text.Trim & "</td></tr>"
Line 149: 'MENSAJE += " <tr><td>Area:</td><td>" & & "</td></tr>"
Line 150: MENSAJE += " "
Line 151: MENSAJE += " </table>"
Line 152: MENSAJE += " </div>"
Line 153: MENSAJE += " </td>"
Line 154: MENSAJE += " </tr>"
Line 155: MENSAJE += " </table>"
Line 156:
Line 157: 'Response.Write(MENSAJE)
Line 158:
Line 159: Catch ex As Exception
Line 160:
Line 161: End Try
Line 162:
Line 163:
Line 164: Dim msg = New MailMessage()
Line 165:
Line 166: msg.To.Add("clientemisterioso@gesfutur.com")
Line 167: msg.To.Add("info@gesfutur.com")
Line 168: msg.To.Add("sandra@gesfutur.com")
Line 169: 'msg.To.Add("jorge_carro@hotmail.com")
Line 170: msg.To.Add("magarcia@extremanet.com")
Line 171: msg.From = New MailAddress("correo@extremanet.com", "Contacto desde la web", System.Text.Encoding.UTF8)
Line 172: msg.Subject = "Contacto desde la Web "
Line 173: msg.IsBodyHtml = True
Line 174: 'msg.SubjectEncoding = System.Text.Encoding.UTF8
Line 175: msg.Body = MENSAJE
Line 176: 'msg.BodyEncoding = System.Text.Encoding.UTF8
Line 177:
Line 178:
Line 179: 'Aquí es donde se hace lo especial
Line 180: Dim client = New SmtpClient
Line 181:
Line 182: client.Credentials = New System.Net.NetworkCredential("correo@extremanet.com", "exDDFASDFASDFSD1")
Line 183: client.Port = 587
Line 184: client.Host = "smtp.gmail.com"
Line 185: client.EnableSsl = True 'Esto es para que vaya a través de SSL que es obligatorio con GMail
Line 186:
Line 187: Try
Line 188: ' client.Send(msg)
Line 189:
Line 190:
Line 191:
Line 192: Dim client2 As System.Net.Mail.SmtpClient
Line 193: client2 = New System.Net.Mail.SmtpClient("mail.soltec2000.es")
Line 194: client2.UseDefaultCredentials = False
Line 195: client2.Credentials = New System.Net.NetworkCredential("noresponder@soltec2000.es", "Soltec2013@@")
Line 196: client2.EnableSsl = False
Line 197: client2.Send(msg)
Line 198:
Line 199:
Line 200:
Line 201:
Line 202: 'client.Send(CORREO)
Line 203:
Line 204: Catch ex As Exception
Line 205: MostrarMensaje(ex.Message)
Line 206: End Try
Line 207: End Sub
Line 208:
Line 209: Protected Sub btnGuardar_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs)
Line 210: Enviar_correo2()
Line 211: txtEmail.Text = ""
Line 212: txtNombre.Text = ""
Line 213: txtConsulta.Text = ""
Line 214:
Line 215: end sub
Line 216:
Line 217:
Line 218:
Line 219: #End ExternalSource
Line 220:
Line 221:
Line 222: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 223: Public Sub New()
Line 224: MyBase.New
Line 225: Dim dependencies() As String
Line 226: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/contacto.aspx"
Line 227: If (Global.ASP.contacto_aspx.__initialized = false) Then
Line 228: Global.ASP.contacto_aspx.__stringResource = Me.ReadStringResource
Line 229: dependencies = New String(0) {}
Line 230: dependencies(0) = "~/contacto.aspx"
Line 231: Global.ASP.contacto_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 232: Global.ASP.contacto_aspx.__initialized = true
Line 233: End If
Line 234: Me.Server.ScriptTimeout = 30000000
Line 235: End Sub
Line 236:
Line 237: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 238: Get
Line 239: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 240: End Get
Line 241: End Property
Line 242:
Line 243: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 244: Get
Line 245: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 246: End Get
Line 247: End Property
Line 248:
Line 249: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 250: Private Function __BuildControltxtNombre() As Global.System.Web.UI.WebControls.TextBox
Line 251: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 252:
Line 253: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",360)
Line 254: __ctrl = New Global.System.Web.UI.WebControls.TextBox
Line 255:
Line 256: #End ExternalSource
Line 257: Me.txtNombre = __ctrl
Line 258: __ctrl.ApplyStyleSheetSkin(Me)
Line 259:
Line 260: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",360)
Line 261: __ctrl.ID = "txtNombre"
Line 262:
Line 263: #End ExternalSource
Line 264:
Line 265: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",360)
Line 266: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "form-control ")
Line 267:
Line 268: #End ExternalSource
Line 269:
Line 270: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",360)
Line 271: __ctrl.MaxLength = 150
Line 272:
Line 273: #End ExternalSource
Line 274:
Line 275: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",360)
Line 276: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "Nombre")
Line 277:
Line 278: #End ExternalSource
Line 279:
Line 280: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",360)
Line 281: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("style", "width:500px;")
Line 282:
Line 283: #End ExternalSource
Line 284: Return __ctrl
Line 285: End Function
Line 286:
Line 287: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 288: Private Function __BuildControlcvNombre() As Global.System.Web.UI.WebControls.CustomValidator
Line 289: Dim __ctrl As Global.System.Web.UI.WebControls.CustomValidator
Line 290:
Line 291: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",361)
Line 292: __ctrl = New Global.System.Web.UI.WebControls.CustomValidator
Line 293:
Line 294: #End ExternalSource
Line 295: Me.cvNombre = __ctrl
Line 296: __ctrl.ApplyStyleSheetSkin(Me)
Line 297:
Line 298: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",361)
Line 299: __ctrl.ID = "cvNombre"
Line 300:
Line 301: #End ExternalSource
Line 302:
Line 303: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",361)
Line 304: __ctrl.ErrorMessage = "El Nombre es un campo obligatorio"
Line 305:
Line 306: #End ExternalSource
Line 307:
Line 308: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",361)
Line 309: __ctrl.ClientValidationFunction = "Validate"
Line 310:
Line 311: #End ExternalSource
Line 312:
Line 313: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",361)
Line 314: __ctrl.ControlToValidate = "txtNombre"
Line 315:
Line 316: #End ExternalSource
Line 317:
Line 318: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",361)
Line 319: __ctrl.ValidateEmptyText = true
Line 320:
Line 321: #End ExternalSource
Line 322: Return __ctrl
Line 323: End Function
Line 324:
Line 325: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 326: Private Function __BuildControltxtEmail() As Global.System.Web.UI.WebControls.TextBox
Line 327: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 328:
Line 329: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",370)
Line 330: __ctrl = New Global.System.Web.UI.WebControls.TextBox
Line 331:
Line 332: #End ExternalSource
Line 333: Me.txtEmail = __ctrl
Line 334: __ctrl.ApplyStyleSheetSkin(Me)
Line 335:
Line 336: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",370)
Line 337: __ctrl.ID = "txtEmail"
Line 338:
Line 339: #End ExternalSource
Line 340:
Line 341: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",370)
Line 342: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "form-control ")
Line 343:
Line 344: #End ExternalSource
Line 345:
Line 346: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",370)
Line 347: __ctrl.MaxLength = 150
Line 348:
Line 349: #End ExternalSource
Line 350:
Line 351: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",370)
Line 352: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "Email")
Line 353:
Line 354: #End ExternalSource
Line 355:
Line 356: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",370)
Line 357: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("style", "width:500px;")
Line 358:
Line 359: #End ExternalSource
Line 360: Return __ctrl
Line 361: End Function
Line 362:
Line 363: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 364: Private Function __BuildControlcvEmail() As Global.System.Web.UI.WebControls.CustomValidator
Line 365: Dim __ctrl As Global.System.Web.UI.WebControls.CustomValidator
Line 366:
Line 367: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",371)
Line 368: __ctrl = New Global.System.Web.UI.WebControls.CustomValidator
Line 369:
Line 370: #End ExternalSource
Line 371: Me.cvEmail = __ctrl
Line 372: __ctrl.ApplyStyleSheetSkin(Me)
Line 373:
Line 374: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",371)
Line 375: __ctrl.ID = "cvEmail"
Line 376:
Line 377: #End ExternalSource
Line 378:
Line 379: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",371)
Line 380: __ctrl.ErrorMessage = "El Email es un campo obligatorio"
Line 381:
Line 382: #End ExternalSource
Line 383:
Line 384: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",371)
Line 385: __ctrl.ClientValidationFunction = "Validate"
Line 386:
Line 387: #End ExternalSource
Line 388:
Line 389: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",371)
Line 390: __ctrl.ControlToValidate = "txtEmail"
Line 391:
Line 392: #End ExternalSource
Line 393:
Line 394: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",371)
Line 395: __ctrl.ValidateEmptyText = true
Line 396:
Line 397: #End ExternalSource
Line 398: Return __ctrl
Line 399: End Function
Line 400:
Line 401: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 402: Private Function __BuildControltxtConsulta() As Global.System.Web.UI.WebControls.TextBox
Line 403: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 404:
Line 405: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",379)
Line 406: __ctrl = New Global.System.Web.UI.WebControls.TextBox
Line 407:
Line 408: #End ExternalSource
Line 409: Me.txtConsulta = __ctrl
Line 410: __ctrl.ApplyStyleSheetSkin(Me)
Line 411:
Line 412: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",379)
Line 413: __ctrl.ID = "txtConsulta"
Line 414:
Line 415: #End ExternalSource
Line 416:
Line 417: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",379)
Line 418: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "form-control ")
Line 419:
Line 420: #End ExternalSource
Line 421:
Line 422: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",379)
Line 423: __ctrl.TextMode = System.Web.UI.WebControls.TextBoxMode.MultiLine
Line 424:
Line 425: #End ExternalSource
Line 426:
Line 427: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",379)
Line 428: __ctrl.Rows = 10
Line 429:
Line 430: #End ExternalSource
Line 431:
Line 432: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",379)
Line 433: __ctrl.MaxLength = 500
Line 434:
Line 435: #End ExternalSource
Line 436:
Line 437: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",379)
Line 438: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("placeholder", "Consulta")
Line 439:
Line 440: #End ExternalSource
Line 441:
Line 442: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",379)
Line 443: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("style", "width:500px; Height:100px")
Line 444:
Line 445: #End ExternalSource
Line 446: Return __ctrl
Line 447: End Function
Line 448:
Line 449: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 450: Private Function __BuildControlcvConsulta() As Global.System.Web.UI.WebControls.CustomValidator
Line 451: Dim __ctrl As Global.System.Web.UI.WebControls.CustomValidator
Line 452:
Line 453: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",380)
Line 454: __ctrl = New Global.System.Web.UI.WebControls.CustomValidator
Line 455:
Line 456: #End ExternalSource
Line 457: Me.cvConsulta = __ctrl
Line 458: __ctrl.ApplyStyleSheetSkin(Me)
Line 459:
Line 460: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",380)
Line 461: __ctrl.ID = "cvConsulta"
Line 462:
Line 463: #End ExternalSource
Line 464:
Line 465: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",380)
Line 466: __ctrl.ErrorMessage = "La Consulta es un campo obligatorio"
Line 467:
Line 468: #End ExternalSource
Line 469:
Line 470: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",380)
Line 471: __ctrl.ClientValidationFunction = "Validate"
Line 472:
Line 473: #End ExternalSource
Line 474:
Line 475: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",380)
Line 476: __ctrl.ControlToValidate = "txtConsulta"
Line 477:
Line 478: #End ExternalSource
Line 479:
Line 480: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",380)
Line 481: __ctrl.ValidateEmptyText = true
Line 482:
Line 483: #End ExternalSource
Line 484: Return __ctrl
Line 485: End Function
Line 486:
Line 487: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 488: Private Function __BuildControlbtnGuardar() As Global.System.Web.UI.HtmlControls.HtmlAnchor
Line 489: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlAnchor
Line 490:
Line 491: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",384)
Line 492: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlAnchor
Line 493:
Line 494: #End ExternalSource
Line 495: Me.btnGuardar = __ctrl
Line 496:
Line 497: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",384)
Line 498: __ctrl.ID = "btnGuardar"
Line 499:
Line 500: #End ExternalSource
Line 501:
Line 502: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",384)
Line 503: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("class", "btn btn-primary btn-sm")
Line 504:
Line 505: #End ExternalSource
Line 506: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 507:
Line 508: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",384)
Line 509: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<i class=""fa fa-check""></i>Guardar"))
Line 510:
Line 511: #End ExternalSource
Line 512:
Line 513: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",384)
Line 514: AddHandler __ctrl.ServerClick, AddressOf Me.btnGuardar_ServerClick
Line 515:
Line 516: #End ExternalSource
Line 517: Return __ctrl
Line 518: End Function
Line 519:
Line 520: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 521: Private Function __BuildControlform1() As Global.System.Web.UI.HtmlControls.HtmlForm
Line 522: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Line 523:
Line 524: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 525: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm
Line 526:
Line 527: #End ExternalSource
Line 528: Me.form1 = __ctrl
Line 529:
Line 530: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 531: __ctrl.ID = "form1"
Line 532:
Line 533: #End ExternalSource
Line 534: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 535:
Line 536: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 537: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(0, 8805, true))
Line 538:
Line 539: #End ExternalSource
Line 540: Dim __ctrl1 As Global.System.Web.UI.WebControls.TextBox
Line 541:
Line 542: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 543: __ctrl1 = Me.__BuildControltxtNombre
Line 544:
Line 545: #End ExternalSource
Line 546:
Line 547: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 548: __parser.AddParsedSubObject(__ctrl1)
Line 549:
Line 550: #End ExternalSource
Line 551:
Line 552: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 553: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 554:
Line 555: #End ExternalSource
Line 556: Dim __ctrl2 As Global.System.Web.UI.WebControls.CustomValidator
Line 557:
Line 558: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 559: __ctrl2 = Me.__BuildControlcvNombre
Line 560:
Line 561: #End ExternalSource
Line 562:
Line 563: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 564: __parser.AddParsedSubObject(__ctrl2)
Line 565:
Line 566: #End ExternalSource
Line 567:
Line 568: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 569: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(8805, 385, true))
Line 570:
Line 571: #End ExternalSource
Line 572: Dim __ctrl3 As Global.System.Web.UI.WebControls.TextBox
Line 573:
Line 574: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 575: __ctrl3 = Me.__BuildControltxtEmail
Line 576:
Line 577: #End ExternalSource
Line 578:
Line 579: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 580: __parser.AddParsedSubObject(__ctrl3)
Line 581:
Line 582: #End ExternalSource
Line 583:
Line 584: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 585: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 586:
Line 587: #End ExternalSource
Line 588: Dim __ctrl4 As Global.System.Web.UI.WebControls.CustomValidator
Line 589:
Line 590: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 591: __ctrl4 = Me.__BuildControlcvEmail
Line 592:
Line 593: #End ExternalSource
Line 594:
Line 595: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 596: __parser.AddParsedSubObject(__ctrl4)
Line 597:
Line 598: #End ExternalSource
Line 599:
Line 600: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 601: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(9190, 390, true))
Line 602:
Line 603: #End ExternalSource
Line 604: Dim __ctrl5 As Global.System.Web.UI.WebControls.TextBox
Line 605:
Line 606: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 607: __ctrl5 = Me.__BuildControltxtConsulta
Line 608:
Line 609: #End ExternalSource
Line 610:
Line 611: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 612: __parser.AddParsedSubObject(__ctrl5)
Line 613:
Line 614: #End ExternalSource
Line 615:
Line 616: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
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: Dim __ctrl6 As Global.System.Web.UI.WebControls.CustomValidator
Line 621:
Line 622: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 623: __ctrl6 = Me.__BuildControlcvConsulta
Line 624:
Line 625: #End ExternalSource
Line 626:
Line 627: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 628: __parser.AddParsedSubObject(__ctrl6)
Line 629:
Line 630: #End ExternalSource
Line 631:
Line 632: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 633: __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 634: " <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 635:
Line 636: #End ExternalSource
Line 637: Dim __ctrl7 As Global.System.Web.UI.HtmlControls.HtmlAnchor
Line 638:
Line 639: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 640: __ctrl7 = Me.__BuildControlbtnGuardar
Line 641:
Line 642: #End ExternalSource
Line 643:
Line 644: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 645: __parser.AddParsedSubObject(__ctrl7)
Line 646:
Line 647: #End ExternalSource
Line 648:
Line 649: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",199)
Line 650: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(9580, 6516, false))
Line 651:
Line 652: #End ExternalSource
Line 653: Return __ctrl
Line 654: End Function
Line 655:
Line 656: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 657: Private Sub __BuildControlTree(ByVal __ctrl As contacto_aspx)
Line 658:
Line 659: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",1)
Line 660: __ctrl.EnableEventValidation = true
Line 661:
Line 662: #End ExternalSource
Line 663:
Line 664: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",1)
Line 665: __ctrl.EnableViewStateMac = false
Line 666:
Line 667: #End ExternalSource
Line 668:
Line 669: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",1)
Line 670: Me.InitializeCulture
Line 671:
Line 672: #End ExternalSource
Line 673: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 674:
Line 675: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",1)
Line 676: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(16096, 3785, false))
Line 677:
Line 678: #End ExternalSource
Line 679: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 680:
Line 681: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",1)
Line 682: __ctrl1 = Me.__BuildControlform1
Line 683:
Line 684: #End ExternalSource
Line 685:
Line 686: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",1)
Line 687: __parser.AddParsedSubObject(__ctrl1)
Line 688:
Line 689: #End ExternalSource
Line 690:
Line 691: #ExternalSource("C:\Inetpub\vhosts\gesfutur.com\httpdocs\contacto.aspx",1)
Line 692: __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)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"))
Line 693:
Line 694: #End ExternalSource
Line 695: End Sub
Line 696:
Line 697: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 698: Protected Overrides Sub FrameworkInitialize()
Line 699: MyBase.FrameworkInitialize
Line 700: Me.SetStringResourcePointer(Global.ASP.contacto_aspx.__stringResource, 0)
Line 701: Me.__BuildControlTree(Me)
Line 702: Me.AddWrappedFileDependencies(Global.ASP.contacto_aspx.__fileDependencies)
Line 703: End Sub
Line 704:
Line 705: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 706: Public Overrides Function GetTypeHashCode() As Integer
Line 707: Return 549121286
Line 708: End Function
Line 709:
Line 710: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 711: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 712: MyBase.ProcessRequest(context)
Line 713: End Sub
Line 714: End Class
Line 715: End Namespace
Line 716:
|