% 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
<% 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="