% id_nota = Request.QueryString("i") If id_nota <> "" Then id_nota = id_nota Else id_nota = Request.QueryString("id") End If If id_nota <> "" Then id_nota = id_nota Else id_nota = Request.QueryString("id_nota") End If If (id_nota) <> "" Then If Not isNumeric(id_nota) Then Response.Redirect "http://www.analisislatino.com/" Response.End() End If '============================================= If len(id_nota) > 5 Then Response.Redirect "http://www.analisislatino.com/" Response.End() 'Response.Write "2" End If 'Response.Write "3" &id_nota 'Response.End() %> <% Else 'Response.Write "ttt" &id_nota 'Response.End() %> <% Set con = Server.CreateObject("ADODB.Connection") con.Open data_source autor_solo_id = Request.QueryString("aid") if autor_solo_id <> "" Then autor_solo_sql = " AND (tabla_autores.id_autor="&autor_solo_id&") " End If Function getFilePath() lsPath = Request.ServerVariables("SCRIPT_NAME") arPath = Split(lsPath, "/") arPath(UBound(arPath,1)) = "" GetFilePath = Join(arPath, "/") End Function Select case getFilePath() case "/opinion/": alCateMostrar = " AND (tabla_notas.id_categoria=1) AND (tabla_notas.alcat=0) " titulo_cate = " Opinión " case "/derechos-humanos/": alCateMostrar = " AND (tabla_notas.id_categoria=1) AND (tabla_notas.alcat=2) " titulo_cate = " Derechos Humanos " case "/DLC/": alCateMostrar = " AND (tabla_notas.id_categoria=90) " titulo_cate = " Diálogo Latino Cubano " case "/cultura/": alCateMostrar = " AND (tabla_notas.alcat=1) " titulo_cate = " Cultura " case "/rankings/": alCateMostrar = " AND (tabla_notas.id_categoria=117) " titulo_cate = " Rankings " case "/elecciones/": alCateMostrar = " AND (tabla_notas.id_categoria=1) AND (tabla_notas.alcat=3) " titulo_cate = " Elecciones " case "/libros/": alCateMostrar = " AND (tabla_notas.id_categoria=28) " titulo_cate = " Libros " case "/e-books/": alCateMostrar = " AND (tabla_notas.id_categoria=91) " titulo_cate = " Libros " case "/entrevistas/": alCateMostrar = " AND (tabla_notas.id_categoria=20) " titulo_cate = " Entrevistas " End Select %>