<% Set con = Server.CreateObject("ADODB.Connection") con.Open data_source select_NotasHome = "SELECT tabla_autores.nombre_autor, tabla_autores.bio_corta, tabla_autores.foto, tabla_notas.titulo, tabla_notas.volanta, tabla_notas.copete, tabla_notas.contenido, tabla_notas.fecha, tabla_notas.imgRS, tabla_notas.id_categoria, tabla_notas.pdf_file, tabla_autores.id_autor, tabla_paises.pais, tabla_paises.id_pais, tabla_categorias.categoria, tabla_categorias.descripcion FROM (tabla_paises INNER JOIN (tabla_autores INNER JOIN tabla_notas ON tabla_autores.id_autor = tabla_notas.id_autor) ON tabla_paises.id_pais = tabla_notas.id_pais) INNER JOIN tabla_categorias ON tabla_notas.id_categoria = tabla_categorias.id_categoria WHERE ((tabla_notas.id_nota ="&id_nota&"))" Set rsNotasHome = Server.CreateObject("ADODB.Recordset") rsNotasHome.Open select_NotasHome, con,3,1 total_notas = rsNotasHome.RecordCount While not rsNotasHome.EOF If not rsNotasHOme.EOF Then titulo = rsNotasHome.fields("titulo") id_autor = rsNotasHome.fields("id_autor") nombre_autor = rsNotasHome.fields("nombre_autor") bio_corta = rsNotasHome.fields("bio_corta") por = " Por " volanta = rsNotasHome.fields("volanta") autor_pic = rsNotasHome.fields("foto") copete = rsNotasHome.fields("copete") fechita = rsNotasHome.fields("fecha") contenido = rsNotasHome.fields("contenido") categoria = rsNotasHome.fields("categoria") pdf_file = rsNotasHome.fields("pdf_file") id_categoria = rsNotasHome.fields("id_categoria") descripcion = rsNotasHome.fields("descripcion") imgRS = rsNotasHome.fields("imgRS") End If meta_url_imagen = "https://www.cadal.org/fbpics/"&imgRS dia = Day(fechita) mes = Month(fechita) anio = Year(fechita) Select case mes case 1: mes = "enero" case 2: mes = "febrero" case 3: mes = "marzo" case 4: mes = "abril" case 5: mes = "mayo" case 6: mes = "junio" case 7: mes = "julio" case 8: mes = "agosto" case 9: mes = "septiembre" case 10: mes = "octubre" case 11: mes = "noviembre" case 12: mes = "diciembre" End Select la_fecha = dia & " de " & mes & " de " & anio rsNotasHome.MoveNext Wend rsNotasHome.Close Set rsNotasHome = Nothing imgRS_header = "https://www.cadal.org/fbpics/"&imgRS %>
Agenda
<% Response.Write "
" Function getFilePath() lsPath = Request.ServerVariables("SCRIPT_NAME") arPath = Split(lsPath, "/") arPath(UBound(arPath,1)) = "" GetFilePath = Join(arPath, "/") End Function MiURL = "http://www.analisislatino.com/agenda/ver.asp?id="&id_nota Function GetTinyURL(url) 'set the url url= "http://tinyurl.com/api-create.php?url=" & MiURL Set GetConnection = CreateObject("Microsoft.XMLHTTP") GetConnection.Open "get", url, False GetConnection.Send ResponsePage = GetConnection.responseText Set GetConnection = Nothing GetTinyURL=ResponsePage End Function Response.Write "
"& titulo &"
" If copete <> "" Then Response.Write "
"& copete &"
" End If %> <% Response.Write "
"& contenido &"
" %>
 
<% Response.Write "
"'cierro ConteArtics Response.Write "
"'cierro ConteArtics %>