<%@ LANGUAGE="VBScript" %>
<%
response.expires = -1
response.AddHeader "Pragma", "no-cache"
response.AddHeader "cache-control", "no-store"
%>
<%
On error resume next
id = Request("id")
if id = "" Then
id ="0"
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DBConn_Editorial
SQLStmt = "SELECT id,fuente FROM noticias WHERE id=" & id &";"
'Dim id,nota,sumario,fuente,titulo,autor,lugar,fecha, RS, noti_visible
Set RS = Conn.Execute(SQLStmt)
fuente = RS("fuente")
SQLStmt = "SELECT id,nota,sumario,fuente,titulo,autor,lugar,fecha FROM noticias WHERE id=" & id
Dim id,nota,sumario,fuente,titulo,autor,lugar,fecha, RS
Set RS = Conn.Execute(SQLStmt)
Nota = RS("Nota")
Nota = Nota & " "
Nota = Replace (Nota,vbCRLF," ")
Sumario = RS("Sumario")
Sumario = Sumario & " "
Sumario = Replace (Sumario,vbCRLF," ")
titulo = RS("titulo")
titulo = titulo & " "
titulo = Replace (titulo,vbCRLF," ")
'Fuente = RS ("fuente")
autor = RS ("autor")
lugar = RS ("lugar")
fecha = RS ("fecha")
Function FotoNoticia (NoticiaNumero)
mSql = "Select * from fotonoticiapie Where ((visible = 1) AND (idnoticia=" & NoticiaNumero & ")) Order by ID; "
Set RStmp = Conn.Execute(mSql)
if not RStmp.Bof Then
x = 0
Response.Write "
"
Do While not RStmp.eof
if x mod 5 = 0 Then
Response.Write "
"
End if
Response.Write "
"
Response.Write ""& RStmp("piefoto") & "
"
x = x + 1
if x mod 5 = 0 Then
Response.Write "
"
end if
RStmp.MoveNext
Loop
Response.Write "
"
End if
Set RStmp = Nothing
End Function
%>
Galería de Noticias en México
--------------------------------------------------------------------------
CEDULAS DE INSCRIPCION ETAPA NACIONAL
--------------------------------------------------------------------------
