Compilation Error


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> &gt; 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>&nbsp;</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> &nbsp;|&nbsp; <a href='/Registrados/' class='linkmenu' Title='Area de Usuarios Registrados'>Registrados</a> &nbsp;|&nbsp; <a href='/Clientes/' class='linkmenu' Title='Area de Clientes'>Clientes</a> &nbsp;|&nbsp <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> &nbsp;|&nbsp; <a Title='Area de Usuarios Registrados'>Registrados</a> &nbsp;|&nbsp; <a href='/Clientes/' class='linkmenu' Title='Area de Clientes'>Clientes</a> &nbsp;|&nbsp <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> &nbsp;|&nbsp; <a href='/Registrados/' class='linkmenu' Title='Area de Usuarios Registrados'>Registrados</a> &nbsp;|&nbsp; <a Title='Area de Clientes'>Clientes</a> &nbsp;|&nbsp <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> &nbsp;|&nbsp; <a href='/Registrados/' class='linkmenu' Title='Area de Usuarios Registrados'>Registrados</a> &nbsp;|&nbsp; <a href='/Clientes/' class='linkmenu' Title='Area de Clientes'>Clientes</a> &nbsp;|&nbsp <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> &nbsp;|&nbsp; <a href='/Registrados/' class='linkmenu' Title='Area de Usuarios Registrados'>Registrados</a> &nbsp;|&nbsp; <a href='/Clientes/' class='linkmenu' Title='Area de Clientes'>Clientes</a> &nbsp;|&nbsp <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>&nbsp;<font color=""#FFFFFF"">|</font>&nbsp;"&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>&nbsp;</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>&nbsp;</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="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
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>&nbsp;</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>&nbsp;</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>&nbsp;</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:
Server Error in '/' Application.

Compilation Error
