<% seccion = Request.QueryString("seccion") pdf_file = Request.QueryString("pdf_file") la_ip = request.ServerVariables("REMOTE_ADDR") id_nota = Request.QueryString("id_nota") '================================================ If seccion = "" or pdf_file = "" Then Response.Redirect "http://www.cadal.org" End If '================================================ If seccion <> "documentos" and seccion <> "libros/pdf" and seccion <> "informes/pdf" and seccion <> "researchreports/pdf" and seccion <> "documents" and seccion <> "eventos/pdf" and seccion <> "reporte" and seccion <> "english/pdf" and seccion <> "DLC" and seccion <> "publicaciones/archivo" Then Response.Redirect "http://www.cadal.org" End If '================================================ 'Nuevo estadistitca PDF If id_nota <> "" Then '****************************** If Not isNumeric(id_nota) Then Response.Redirect "http://www.cadal.org?error=Verificar_Link" Response.End() End If '****************************** If len(id_nota) > 5 Then Response.Redirect "http://www.cadal.org?error=Verificar_Link" Response.End() End If '****************************** Set cn = Server.CreateObject("ADODB.Connection") cn.Open data_source sql_total_leidos = "INSERT INTO pdf_leidos (id_nota) VALUES ("& id_nota &")" cn.Execute sql_total_leidos cn.Close Set cn = Nothing End If 'CORRIJO EL PROBLEMA DE LAS SECCIONES If seccion = "libros" Then seccion = "libros/pdf" Elseif seccion = "LIBROS" Then seccion = "libros/pdf" Elseif seccion = "informes" Then seccion = "informes/pdf" Elseif seccion = "DLC" Then seccion = "DLC" Elseif seccion = "paper/pdf" Then Response.Redirect "http://www.cadal.org/articulos/default.asp" Elseif seccion = "paper" Then Response.Redirect "http://www.cadal.org/articulos/default.asp" End If 'CORRIJO EL PROBLEMA DE LOS NOMBRES DE ARCHIVO If pdf_file = "Mitos.pdf" Then pdf_file = "Mitos_del_Milenio.pdf" End If '------------------------------------------------ If pdf_file = "libro_Mauricio_Rojas.pdf" Then pdf_file = "Historia_de_la_Crisis_Argentina.pdf" End If '------------------------------------------------ If pdf_file = "Libro_Ruiz.pdf" Then pdf_file = "Otra_Grieta_en_la_Pared.pdf" End If '------------------------------------------------ If pdf_file = "LibroProyectoVarela.pdf" Then pdf_file = "Proyecto_Varela.pdf" End If '================================================ If seccion = "eventos/pdf" or seccion = "reporte" or seccion = "english/pdf" or seccion = "documents" or seccion = "researchreports" Then Set cn = Server.CreateObject("ADODB.Connection") cn.Open db_stats sql_insert = "INSERT INTO pdf_stats (seccion, pdf_file) VALUES ('"& seccion &"', '"& pdf_file &"')" 'cn.Execute sql_insert cn.Close Set cn = Nothing End If Response.Redirect "http://www.cadal.org/"& seccion &"/"& pdf_file Response.End() %>