<% Response.Buffer = True %> <% ' Conectar a la BD Dim connTemp,crsNoticia call openBDNoticias() on error resume next If Len(Trim(Request("nro"))) <> 0 Then cnsNoticia = "SELECT * " &_ "FROM noticia " &_ "WHERE nroNoticia = " & Request("nro") Else cnsNoticia = "SELECT * " &_ "FROM noticia " &_ "ORDER BY nroNoticia DESC" End If Set crsNoticia = connTemp.execute(cnsNoticia) if Err.number <> 0 then response.redirect "consultas/mensaje.asp?mensaje="&Server.Urlencode("Error al procesar la página: "&Err.Description) end If %> TGU - Terminales Granaleras Uruguayas
Home
Quienes somosNoticiasInformación técnicaPreguntas FrecuentesConsultas OnlineGalería ded imágenesContáctenos
 
  <% while NOT crsNoticia.EOF nroNoticia= crsNoticia("nroNoticia") strTitulo = crsNoticia("titulo") strAvance = crsNoticia("avance") strNoticia= crsNoticia("noticia") strFoto = crsNoticia("foto") strURL = crsNoticia("link") If Len(Request("ampliar")) = 0 Then strAmpliar="

Ampliar" End If %>

<% crsNoticia.MoveNext() wend %>
<% If Len(Trim(strFoto)) <> 0 and Len(Request("ampliar")) <> 0 Then %> <% End If %> <%= strTitulo %>

<%= strAvance %><%= strAmpliar %>
<% If Len(Request("ampliar")) <> 0 Then %>
<%= strNoticia %>

<% If Len(Trim(strUrl)) <> 0 Then %> Sitio Relacionado

<% End If %> <% End If %>
Quienes somosNoticiasInformación técnicaPreguntas frecuentesConsultas OnlineGalería de imágenesContáctenos

C. Terminales Graneleras Uruguayas S.A. 2003
Todos los derechos reservados

Diseño: Factor Interactivo
www.factorinteractivo.com

 

<% '***************************************************** crsNoticia.close Set crsNoticia = Nothing call closeBD() '***************************************************** %>