<%
'---------------------------------------------
'---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")
fecha = rs("FECHA")
anio = rs("ANIO")
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 = dia(weekday(fecha)) & " " & day(fecha) & " de " & mes(month(fecha)) & " de " & year(fecha)
m_fecha = mes(month(fecha)) & " de " & year(fecha)
end if
rs.close
'---------------------------------------------
'--- Levantar shows --------------------------
'---------------------------------------------
sql = "select ID_TIPO, TH_COMENTARIOS.NOMBRE as COM_NOMBRE, ARTISTA, 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_COMENTARIOS.EXTRA as COM_EXTRA, TH_TIPOCOMENTARIOS.NOMBRE as TIP_NOMBRE,TH_COLABORADORES.NOMBRE as COL_NOMBRE, 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 '%Shows%' 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))
artista = rs("ARTISTA")
artista = FN_Reemplazar_Caracteres(artista, """, chr(34))
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")
info = info & ""
info = info & " "
info = info & " "
info = info & " "
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 & " ![" & alt & "](" & imagen & ") "
end if
info = info & descripcion
info = info & " | "
info = info & " "
info = info & " "
info = info & " | "
info = info & "
"
info = info & ""
info = info & " "
info = info & " "
info = info & " "
info = info & " | " & autor & " " & extra & " | "
info = info & " "
info = info & " "
info = info & " | "
info = info & "
"
info = info & ""
info = info & "  | "
info = info & "
"
info = info & ""
info = info & " "
info = info & " "
info = info & " "
info = info & " | < Inicio | "
info = info & " ^ Volver arriba | "
info = info & " "
info = info & " "
info = info & " | "
info = info & "
"
info = info & ""
info = info & " | "
info = info & "
"
adelanto = adelanto & "
"
adelanto = adelanto & "" & artista & "
"
nro = nro + 1
rs.movenext
wend
rs.close
'---------------------------------------------
'--- Cerrar las conexiones a db --------------
'---------------------------------------------
set rs = nothing
cn.close
set cn = nothing
'---------------------------------------------
'--- Funciones auxiliares --------------------
'---------------------------------------------
function FN_Reemplazar_Caracteres(cadena, OldStr, NewStr)
dim Pos1
dim Pos2
Pos1 = InStr(1, cadena, OldStr, 0)
Pos2 = Pos1 + len(OldStr)
do until Pos1 = 0
cadena = Left(cadena, Pos1 - 1) & NewStr & Mid(cadena, Pos2)
Pos1 = InStr(1, cadena, OldStr, Busqueda)
Pos2 = Pos1 + len(OldStr)
loop
FN_Reemplazar_Caracteres = cadena
end function
%>
The Howl
| <%=m_fecha%> |
Año <%=anio%>, Número <%=numero%> |
|
| |
|
| |
|
<%=info%>
|
|
|
|
|
|
|
|
|
| |