<%
'---------------------------------------------
'---levantar parámetros ----------------------
'---------------------------------------------
numero = request.querystring("numero")
'---------------------------------------------
'--- Abrir las conexiones db------------------
'---------------------------------------------
%>
<%
set rs = server.createobject("adodb.recordset")
nro = 0
'---------------------------------------------
'--- Obtener la fecha de edicion -------------
'---------------------------------------------
if numero > "" then
condicion = " WHERE NUMERO = " & numero
else
condicion = " WHERE FECHA <= NOW() "
end if
sql = "SELECT * FROM TH_EDICIONES " & condicion
rs.open sql, cn, 3
if not rs.eof then
numero = rs("NUMERO")
anio = rs("ANIO")
fecha = rs("FECHA")
end if
dim dia(7)
dia(1) = "Domingo"
dia(2) = "Lunes"
dia(3) = "Martes"
dia(4) = "Miércoles"
dia(5) = "Jueves"
dia(6) = "Viernes"
dia(7) = "Sábado"
dim mes(12)
mes(1) = "Enero"
mes(2) = "Febrero"
mes(3) = "Marzo"
mes(4) = "Abril"
mes(5) = "Mayo"
mes(6) = "Junio"
mes(7) = "Julio"
mes(8) = "Agosto"
mes(9) = "Setpiembre"
mes(10) = "Octubre"
mes(11) = "Noviembre"
mes(12) = "Diciembre"
if fecha > "" then
m_fecha = mes(month(fecha)) & " de " & year(fecha)
end if
rs.close
'---------------------------------------------
'--- Levantar discos -------------------------
'---------------------------------------------
sql = "SELECT ID_TIPO, TH_COMENTARIOS.NOMBRE AS COM_NOMBRE, ARTISTA, TITULO, SELLO, BAJADA, DESCRIPCION_1, DESTACADO_1, DESCRIPCION_2, DESTACADO_2, DESCRIPCION_3, AUTOR, NUMERO, IMAGEN, ALT_1, IMAGEN_2, ALT_2, IMAGEN_3, ALT_3, TH_TIPOCOMENTARIOS.NOMBRE AS TIP_NOMBRE, TH_COLABORADORES.NOMBRE AS COL_NOMBRE, TH_COMENTARIOS.EXTRA AS COM_EXTRA, TH_COLABORADORES.EMAIL FROM TH_COMENTARIOS INNER JOIN TH_TIPOCOMENTARIOS ON TH_COMENTARIOS.ID_TIPO = TH_TIPOCOMENTARIOS.ID LEFT JOIN TH_COLABORADORES ON TH_COMENTARIOS.AUTOR = TH_COLABORADORES.ID WHERE TH_COMENTARIOS.NUMERO = " & numero & " AND TH_TIPOCOMENTARIOS.NOMBRE LIKE '%Discos%' ORDER BY PRIORIDAD"
rs.open sql, cn, 3
while not rs.eof
idtipo = clng(rs("ID_TIPO"))
nombre = rs("COM_NOMBRE")
nombre = FN_Reemplazar_Caracteres(nombre, """, chr(34))
nombreseccion = rs("TITULO")
artista = rs("ARTISTA")
sello = rs("SELLO")
descripcion = rs("DESCRIPCION_1")
descripcion = FN_Reemplazar_Caracteres(descripcion, """, chr(34))
autor = rs("COL_NOMBRE")
extra = rs("COM_EXTRA")
email = rs("EMAIL")
numero = rs("NUMERO")
imagen = rs("IMAGEN")
alt = rs("ALT_1")
tipo = rs("TIP_NOMBRE")
if info = "" then
info = info & "
"
info = info & "
"
info = info & "
"
info = info & "
" & nombreseccion & "
"
info = info & "
"
info = info & "
"
info = info & "
"
end if
info = info & "
"
info = info & "
"
info = info & "
"
info = info & "
"
if nro > 0 then
info = info & " "
end if
info = info & "
"
info = info & "
"
info = info & "
" & artista & "
"
info = info & "
"
info = info & "
"
info = info & "
" & nombre & "
"
info = info & "
"
info = info & "
"
info = info & "
(" & sello & ")
"
info = info & "
"
info = info & "
"
info = info & "
"
info = info & "
"
info = info & "
"
info = info & "
"
info = info & "
"
info = info & "
"
info = info & "
"
info = info & "
"
if imagen > "" then
info = info & " "
end if
info = info & descripcion
info = info & "
"
adelanto = adelanto & "" & artista & "