Line 1: '------------------------------------------------------------------------------
Line 2: ' <autogenerated>
Line 3: ' This code was generated by a tool.
Line 4: ' Runtime Version: 1.1.4322.2407
Line 5: '
Line 6: ' Changes to this file may cause incorrect behavior and will be lost if
Line 7: ' the code is regenerated.
Line 8: ' </autogenerated>
Line 9: '------------------------------------------------------------------------------
Line 10:
Line 11: Option Strict Off
Line 12: Option Explicit On
Line 13:
Line 14: Imports ASP
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.Configuration
Line 21: Imports System.Data
Line 22: Imports System.Text
Line 23: Imports System.Text.RegularExpressions
Line 24: Imports System.Web
Line 25: Imports System.Web.Caching
Line 26: Imports System.Web.Security
Line 27: Imports System.Web.SessionState
Line 28: Imports System.Web.UI
Line 29: Imports System.Web.UI.HtmlControls
Line 30: Imports System.Web.UI.WebControls
Line 31:
Line 32: Namespace ASP
Line 33:
Line 34: Public Class NovedadesWeb_aspx
Line 35: Inherits System.Web.UI.Page
Line 36: Implements System.Web.SessionState.IRequiresSessionState
Line 37:
Line 38: Private Shared __autoHandlers As Integer
Line 39:
Line 40:
Line 41: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",148)
Line 42: Protected Defib As System.Web.UI.HtmlControls.HtmlGenericControl
Line 43:
Line 44: #End ExternalSource
Line 45:
Line 46: Private Shared __initialized As Boolean = false
Line 47:
Line 48: Private Shared __stringResource As Object
Line 49:
Line 50: Private Shared __fileDependencies As System.Collections.ArrayList
Line 51:
Line 52:
Line 53: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\varGlobal.aspx",1)
Line 54:
Line 55: dim rutaNav as string
Line 56: dim expand as boolean = true
Line 57:
Line 58: #End ExternalSource
Line 59:
Line 60:
Line 61: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",21)
Line 62:
Line 63: rutaNav ="<a href='/' class='linkSmall'>Home</a> > Novedades Web"
Line 64: dim prePath as string=""
Line 65: dim mostradas as integer=0
Line 66: expand=false
Line 67:
Line 68: #End ExternalSource
Line 69:
Line 70:
Line 71: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\dbconexion.aspx",4)
Line 72:
Line 73: dim Conn as new MySqlConnection("server=localhost;user id=mysticces001; password=stc1721; database=sticces001; pooling=false")
Line 74: dim sSQL as string
Line 75: dim cmGen as MySqlCommand
Line 76: dim drGen as MySqlDataReader
Line 77: dim drGen2 as MySqlDataReader
Line 78: dim KeyObjeto as string=""
Line 79:
Line 80: function filtra(cadena, maxLong) as string
Line 81: filtra=replace(left(trim(cadena),maxLong),"'","''")
Line 82: end function
Line 83:
Line 84: function recogeVar(cadena) as string
Line 85: recogeVar=request(cadena)
Line 86: if len(recogevar)>0 then
Line 87: recogeVar=replace(recogeVar,"'","''")
Line 88: else
Line 89: recogeVar=""
Line 90: end if
Line 91: end function
Line 92:
Line 93: function recogeNum(cadena) as string
Line 94: recogeNum=request(cadena)
Line 95: if len(recogeNum)>0 then
Line 96: if isnumeric(recogeNum) then
Line 97: recogeNum=replace(recogeNum,",",".")
Line 98: recogeNum=replace(recogeNum,"'","")
Line 99: recogeNum=replace(recogeNum,";","")
Line 100: recogeNum=replace(recogeNum,"%","")
Line 101: recogeNum=replace(recogeNum,"[","")
Line 102: recogeNum=replace(recogeNum,"_","")
Line 103: else
Line 104: recogeNum=""
Line 105: end if
Line 106: else
Line 107: recogeNum=""
Line 108: end if
Line 109: end function
Line 110:
Line 111: 'sub abreConn()
Line 112: 'Conn = Server.CreateObject("ADODB.Connection")
Line 113: 'Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\domains\sticc.net\data\Sticc.mdb;Mode=ReadWrite;Persist Security Info=False")
Line 114: 'end sub
Line 115:
Line 116: function nuevaConn() as MySqlConnection
Line 117: nuevaConn = new MySqlConnection("server=localhost;user id=mysticces001; password=stc1721; database=sticces001; pooling=false")
Line 118: end function
Line 119:
Line 120: function nuevoCommand(stringSQL, Connect) as MySqlCommand
Line 121: nuevoCommand = new MySqlCommand(stringSQL, Connect)
Line 122: end function
Line 123:
Line 124: sub cierraConn()
Line 125: drGen=nothing
Line 126: if not cmGen is nothing then cmGen.dispose()
Line 127: cmGen=nothing
Line 128: Conn.close
Line 129: Conn.dispose()
Line 130: Conn=nothing
Line 131: end sub
Line 132:
Line 133:
Line 134: #End ExternalSource
Line 135:
Line 136: Public Sub New()
Line 137: MyBase.New
Line 138: Dim dependencies As System.Collections.ArrayList
Line 139: If (ASP.NovedadesWeb_aspx.__initialized = false) Then
Line 140: ASP.NovedadesWeb_aspx.__stringResource = System.Web.UI.TemplateControl.ReadStringResource(GetType(ASP.NovedadesWeb_aspx))
Line 141: dependencies = New System.Collections.ArrayList
Line 142: dependencies.Add("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx")
Line 143: dependencies.Add("C:\var\contratos\f_1447848751\sticc.com\web\Includes\dbconexion.aspx")
Line 144: dependencies.Add("C:\var\contratos\f_1447848751\sticc.com\web\Includes\metatags1.htm")
Line 145: dependencies.Add("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx")
Line 146: dependencies.Add("C:\var\contratos\f_1447848751\sticc.com\web\Includes\varGlobal.aspx")
Line 147: dependencies.Add("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx")
Line 148: dependencies.Add("C:\var\contratos\f_1447848751\sticc.com\web\Includes\pie.htm")
Line 149: ASP.NovedadesWeb_aspx.__fileDependencies = dependencies
Line 150: ASP.NovedadesWeb_aspx.__initialized = true
Line 151: End If
Line 152: End Sub
Line 153:
Line 154: Protected Overrides Property AutoHandlers As Integer
Line 155: Get
Line 156: Return ASP.NovedadesWeb_aspx.__autoHandlers
Line 157: End Get
Line 158: Set
Line 159: ASP.NovedadesWeb_aspx.__autoHandlers = value
Line 160: End Set
Line 161: End Property
Line 162:
Line 163: Protected ReadOnly Property ApplicationInstance As ASP.global_asax
Line 164: Get
Line 165: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 166: End Get
Line 167: End Property
Line 168:
Line 169: Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line 170: Get
Line 171: Return "/"
Line 172: End Get
Line 173: End Property
Line 174:
Line 175: Private Function __BuildControlDefib() As System.Web.UI.Control
Line 176: Dim __ctrl As System.Web.UI.HtmlControls.HtmlGenericControl
Line 177:
Line 178: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",148)
Line 179: __ctrl = New System.Web.UI.HtmlControls.HtmlGenericControl("IFRAME")
Line 180:
Line 181: #End ExternalSource
Line 182: Me.Defib = __ctrl
Line 183:
Line 184: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",148)
Line 185: __ctrl.ID = "Defib"
Line 186:
Line 187: #End ExternalSource
Line 188:
Line 189: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",148)
Line 190: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("src", "/Defibrillator.aspx")
Line 191:
Line 192: #End ExternalSource
Line 193:
Line 194: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",148)
Line 195: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("frameBorder", "no")
Line 196:
Line 197: #End ExternalSource
Line 198:
Line 199: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",148)
Line 200: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("width", "0")
Line 201:
Line 202: #End ExternalSource
Line 203:
Line 204: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",148)
Line 205: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("height", "0")
Line 206:
Line 207: #End ExternalSource
Line 208: Return __ctrl
Line 209: End Function
Line 210:
Line 211: Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line 212:
Line 213: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",1)
Line 214: Me.__BuildControlDefib
Line 215:
Line 216: #End ExternalSource
Line 217: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 218:
Line 219: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",1)
Line 220: __parser.AddParsedSubObject(Me.Defib)
Line 221:
Line 222: #End ExternalSource
Line 223: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 224: End Sub
Line 225:
Line 226: Private Sub __Render__control1(ByVal __output As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 227: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<html>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<head>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<title>STICC - Soluciones en Informatica y Comunicaciones - Sis"& _
Line 228: "temas y Tecnologias de la Informacion</title>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 229: Me.WriteUTF8ResourceString(__output, 0, 1133, false)
Line 230: Me.WriteUTF8ResourceString(__output, 1133, 734, true)
Line 231: Me.WriteUTF8ResourceString(__output, 1867, 599, true)
Line 232:
Line 233: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx",22)
Line 234:
Line 235: if not expand then
Line 236:
Line 237:
Line 238: #End ExternalSource
Line 239: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""FondoBlan"& _
Line 240: "co"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<td> </td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<td width=""771px"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 241:
Line 242: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx",28)
Line 243:
Line 244: end if
Line 245:
Line 246:
Line 247: #End ExternalSource
Line 248: Me.WriteUTF8ResourceString(__output, 2466, 557, true)
Line 249:
Line 250: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx",37)
Line 251:
Line 252: if rutaNav="" then
Line 253: response.Write("<img src='/Imagenes/shim.gif' alt='' width='1' height='1'>")
Line 254: rutaNav="<a>Inicio</a> | <a href='/Registrados/' class='linkmenu' Title='Area de Usuarios Registrados'>Registrados</a> | <a href='/Clientes/' class='linkmenu' Title='Area de Clientes'>Clientes</a> |  <a href='/Colabora/' class='linkmenu' Title='Area Interna de Sticc'>Intranet</a>"
Line 255: elseif right(rutaNav,11)="Registrados" then
Line 256: response.Write(rutaNav)
Line 257: rutaNav="<a href='/' class='linkmenu'>Inicio</a> | <a Title='Area de Usuarios Registrados'>Registrados</a> | <a href='/Clientes/' class='linkmenu' Title='Area de Clientes'>Clientes</a> |  <a href='/Colabora/' class='linkmenu' Title='Area Interna de Sticc'>Intranet</a>"
Line 258: elseif right(rutaNav,8)="Clientes" then
Line 259: response.Write(rutaNav)
Line 260: rutaNav="<a href='/' class='linkmenu'>Inicio</a> | <a href='/Registrados/' class='linkmenu' Title='Area de Usuarios Registrados'>Registrados</a> | <a Title='Area de Clientes'>Clientes</a> |  <a href='/Colabora/' class='linkmenu' Title='Area Interna de Sticc'>Intranet</a>"
Line 261: elseif right(rutaNav,8)="Intranet" then
Line 262: response.Write(rutaNav)
Line 263: rutaNav="<a href='/' class='linkmenu'>Inicio</a> | <a href='/Registrados/' class='linkmenu' Title='Area de Usuarios Registrados'>Registrados</a> | <a href='/Clientes/' class='linkmenu' Title='Area de Clientes'>Clientes</a> |  <a Title='Area Interna de Sticc'>Intranet</a>"
Line 264: else
Line 265: response.Write(rutaNav)
Line 266: rutaNav="<a href='/' class='linkmenu'>Inicio</a> | <a href='/Registrados/' class='linkmenu' Title='Area de Usuarios Registrados'>Registrados</a> | <a href='/Clientes/' class='linkmenu' Title='Area de Clientes'>Clientes</a> |  <a href='/Colabora/' class='linkmenu' Title='Area Interna de Sticc'>Intranet</a>"
Line 267: end if
Line 268:
Line 269:
Line 270: #End ExternalSource
Line 271: Me.WriteUTF8ResourceString(__output, 3023, 293, true)
Line 272:
Line 273: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx",61)
Line 274:
Line 275: Dim listaMeses() as string = {"","Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto", "Septiembre","Octubre","Noviembre","Diciembre"}
Line 276: Dim cadena as string
Line 277: cadena= Day (Now) & " de " & listaMeses(Month(Now)) & " de " & Year(Now)
Line 278: if (session("NomUsuario") <> "") then
Line 279: cadena=cadena & " - " & Session("NomUsuario")
Line 280: end if
Line 281: Response.write(cadena)
Line 282:
Line 283:
Line 284: #End ExternalSource
Line 285: Me.WriteUTF8ResourceString(__output, 3316, 286, true)
Line 286:
Line 287: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx",75)
Line 288: __output.Write(rutaNav)
Line 289:
Line 290: #End ExternalSource
Line 291: __output.Write("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" <td width=""150"" class=""LetraPeque""><div align=""right"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" ")
Line 292:
Line 293: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx",77)
Line 294:
Line 295: response.Write("<a class='linkmenu' href='")
Line 296: if session("NomUsuario") = "" then
Line 297: response.Write("/login.aspx' > Iniciar Sesión")
Line 298: else
Line 299: response.Write("javascript:logout();' > Finalizar Sesión")
Line 300: end if
Line 301:
Line 302:
Line 303: #End ExternalSource
Line 304: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" </a> <font color=""#FFFFFF"">|</font> "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9))
Line 305:
Line 306: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx",86)
Line 307:
Line 308: response.Write("<a class='linkmenu' href='")
Line 309: if (session("NomUsuario") = "" ) then
Line 310: response.Write("/frmregistro.aspx' > Registrarse")
Line 311: else
Line 312: response.Write("/perfil.aspx' > Mi Perfil")
Line 313: end if
Line 314:
Line 315:
Line 316: #End ExternalSource
Line 317: Me.WriteUTF8ResourceString(__output, 3602, 719, true)
Line 318:
Line 319: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx",107)
Line 320:
Line 321: if not expand then
Line 322:
Line 323:
Line 324: #End ExternalSource
Line 325: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<td> </td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<table width=""100%"" border=""0"" cellpadding=""0"& _
Line 326: """ cellspacing=""0"" class=""FondoBlanco"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<td> </td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<td width=""771px"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 327:
Line 328: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\encabezado.aspx",116)
Line 329:
Line 330: end if
Line 331:
Line 332:
Line 333: #End ExternalSource
Line 334:
Line 335: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\dbconexion.aspx",66)
Line 336:
Line 337: 'call abreConn()
Line 338:
Line 339: Conn.Open
Line 340:
Line 341:
Line 342: #End ExternalSource
Line 343: Me.WriteUTF8ResourceString(__output, 4321, 267, true)
Line 344: __output.Write(" <link href=""/estilos.css"" rel=""stylesheet"" type=""text/css"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 345:
Line 346: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",2)
Line 347:
Line 348: dim tabulacion as string
Line 349: sSql = "SELECT Seccion, Orden, Titulo, URL, Activa FROM MenusDetalles INNER JOIN OpcionesMenus ON MenusDetalles.IdOpcion = OpcionesMenus.IdOpcion WHERE IdMenu = " + Session("Menu") + " AND NOT Oculta ORDER BY Seccion, Orden"
Line 350: dim cmOpciones as MySqlCommand = nuevoCommand(sSql, Conn)
Line 351: dim drOpciones as MySqlDataReader = cmOpciones.ExecuteReader()
Line 352: tabulacion=" "
Line 353:
Line 354:
Line 355: #End ExternalSource
Line 356: Me.WriteUTF8ResourceString(__output, 4588, 846, true)
Line 357:
Line 358: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",43)
Line 359:
Line 360: while drOpciones.read()
Line 361: if drOpciones.getbyte(1)=0 then 'Es el título de una nueva seccion'
Line 362: if drOpciones.getbyte(0)>0 then 'No es la primera seccion, hay que cerrar la anterior
Line 363:
Line 364:
Line 365: #End ExternalSource
Line 366: Me.WriteUTF8ResourceString(__output, 5434, 567, true)
Line 367:
Line 368: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",59)
Line 369:
Line 370: end if 'Lo que va a continuación vale para todos los títulos de sección, incluida la primera'
Line 371:
Line 372:
Line 373: #End ExternalSource
Line 374: Me.WriteUTF8ResourceString(__output, 6001, 271, true)
Line 375:
Line 376: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",65)
Line 377: __output.Write(cstr(tabulacion & drOpciones.item(2)))
Line 378:
Line 379: #End ExternalSource
Line 380: __output.Write("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" <td width=""6"" class=""FondoGris""><img src=""/Imagenes/esqsupder_bg.gif"" "& _
Line 381: "width=""6"" height=""19"" alt=""""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" </tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<table width=""100%"" borde"& _
Line 382: "r=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#FFFFFF"" >"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 383:
Line 384: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",70)
Line 385:
Line 386: else 'No es un título de sección, sino opciones'
Line 387: if drOpciones.getboolean(4) then ' La opción está activa (es vigente)'
Line 388:
Line 389:
Line 390: #End ExternalSource
Line 391: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" <tr style=""cursor:pointer;"" onMouseDown=""pulsaMenu(event,'")
Line 392:
Line 393: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",74)
Line 394: __output.Write(drOpciones.item(3))
Line 395:
Line 396: #End ExternalSource
Line 397: __output.Write("');"" onmouseover=""entrar(this,'ff3131','ffffff');"" onMouseOut=""salir(this,'ffffff"& _
Line 398: "','313131');""> "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" <td style=""cursor:pointer;"" width=""100%"" nowrap class=""Letr"& _
Line 399: "aPeque""> ")
Line 400:
Line 401: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",75)
Line 402: __output.Write(cstr(tabulacion & drOpciones.item(2)))
Line 403:
Line 404: #End ExternalSource
Line 405: __output.Write(" </td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" </tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 406:
Line 407: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",77)
Line 408:
Line 409: else ' La opción está desactivada'
Line 410:
Line 411:
Line 412: #End ExternalSource
Line 413: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" <tr style=""cursor:default;""> "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" <td style=""color:#CCCCD3;cursor:default;"" "& _
Line 414: "width=""100%"" nowrap class=""LetraPeque"">")
Line 415:
Line 416: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",81)
Line 417: __output.Write(cstr(tabulacion & drOpciones.item(2)))
Line 418:
Line 419: #End ExternalSource
Line 420: __output.Write("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" </tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 421:
Line 422: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",83)
Line 423:
Line 424: end if
Line 425: end if
Line 426: end while
Line 427: drOpciones.Close
Line 428: drOpciones=nothing
Line 429: cmOpciones.dispose()
Line 430: cmOpciones=nothing
Line 431:
Line 432:
Line 433: #End ExternalSource
Line 434: Me.WriteUTF8ResourceString(__output, 6272, 4282, false)
Line 435:
Line 436: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\menu.aspx",148)
Line 437: parameterContainer.Controls(0).RenderControl(__output)
Line 438:
Line 439: #End ExternalSource
Line 440: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 441: Me.WriteUTF8ResourceString(__output, 10554, 688, true)
Line 442:
Line 443: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",49)
Line 444:
Line 445: sSQL="SELECT IdNovedad, Titulo, Fecha, Descripcion FROM NovedadesWeb ORDER BY Fecha DESC"
Line 446: cmGen=nuevoCommand(sSql, Conn)
Line 447: drGen=cmGen.ExecuteReader()
Line 448: while drGen.Read()
Line 449:
Line 450:
Line 451: #End ExternalSource
Line 452:
Line 453: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",55)
Line 454: if mostradas>0 then
Line 455:
Line 456: #End ExternalSource
Line 457: Me.WriteUTF8ResourceString(__output, 11242, 572, true)
Line 458:
Line 459: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",63)
Line 460: end if
Line 461:
Line 462: #End ExternalSource
Line 463: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr><a name=""id")
Line 464:
Line 465: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",64)
Line 466: __output.Write(drGen(0))
Line 467:
Line 468: #End ExternalSource
Line 469: __output.Write("""></a>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td width=""5px"" rowspan=""2""><img src=""/Imagenes/shim.gif"" alt="""" wid"& _
Line 470: "th=""1"" height=""1""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td width=""20px""><img src=""/Imagenes/newHover.gif"""& _
Line 471: " alt="""" width=""15"" height=""15"" border=""0"" align=""absmiddle""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td widt"& _
Line 472: "h=""70px""><b>")
Line 473:
Line 474: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",67)
Line 475: __output.Write(formatdatetime(drGen(2),2))
Line 476:
Line 477: #End ExternalSource
Line 478: __output.Write("</b></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td align=""left""><b>")
Line 479:
Line 480: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",68)
Line 481: __output.Write(drGen(1))
Line 482:
Line 483: #End ExternalSource
Line 484: __output.Write("</b></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td width=""5px"" rowspan=""2""><img src=""/Imagenes/shim.gif"" alt="""" "& _
Line 485: "width=""1"" height=""1""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td width=""20px""><img src="& _
Line 486: """/Imagenes/shim.gif"" alt="""" width=""1"" height=""1""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td"& _
Line 487: ">")
Line 488:
Line 489: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",74)
Line 490: __output.Write(drGen(3))
Line 491:
Line 492: #End ExternalSource
Line 493: __output.Write("</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9))
Line 494:
Line 495: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\novedadesWeb.aspx",76)
Line 496:
Line 497: mostradas+=1
Line 498: end while
Line 499: drGen.close
Line 500: call cierraConn()
Line 501:
Line 502:
Line 503: #End ExternalSource
Line 504: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" <td width=""6""><img src=""/Imagenes/shim.gif"" alt="""" widt"& _
Line 505: "h=""1"" height=""1""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" <td width=""4"" class=""FondoBlanco"" ><img src="& _
Line 506: """/Imagenes/shim.gif"" alt="""" width=""1"" height=""1""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" </tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 507:
Line 508: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\pie.htm",1)
Line 509:
Line 510: if not expand then
Line 511:
Line 512:
Line 513: #End ExternalSource
Line 514: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<td> </td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<table width=""100%"" border=""0"" cellpadding=""0"& _
Line 515: """ cellspacing=""0"" class=""FondoBlanco"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<td> </td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<td width=""771px"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 516:
Line 517: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\pie.htm",10)
Line 518:
Line 519: end if
Line 520:
Line 521:
Line 522: #End ExternalSource
Line 523: Me.WriteUTF8ResourceString(__output, 11814, 1261, false)
Line 524:
Line 525: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\pie.htm",34)
Line 526:
Line 527: if not expand then
Line 528:
Line 529:
Line 530: #End ExternalSource
Line 531: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<td> </td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 532:
Line 533: #ExternalSource("C:\var\contratos\f_1447848751\sticc.com\web\Includes\pie.htm",40)
Line 534:
Line 535: end if
Line 536:
Line 537:
Line 538: #End ExternalSource
Line 539: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<script src=""http://www.google-analytics.com/urchin.js"" type=""text/javascript"">"& _
Line 540: ""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</script>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<script type=""text/javascript"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"_uacct = ""UA-3180383-1"";"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"urchinTr"& _
Line 541: "acker();"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</script>")
Line 542: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</body>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</html>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 543: End Sub
Line 544:
Line 545: Protected Overrides Sub FrameworkInitialize()
Line 546: SetStringResourcePointer(ASP.NovedadesWeb_aspx.__stringResource, 13075)
Line 547: Me.__BuildControlTree(Me)
Line 548: Me.FileDependencies = ASP.NovedadesWeb_aspx.__fileDependencies
Line 549: Me.ContentType = "text/html"
Line 550: Me.EnableViewStateMac = true
Line 551: Me.Request.ValidateInput
Line 552: End Sub
Line 553:
Line 554: Public Overrides Function GetTypeHashCode() As Integer
Line 555: Return 326503581
Line 556: End Function
Line 557: End Class
Line 558: End Namespace
Line 559:
|