<% '--------------------------------------------- '---levantar parámetros ---------------------- '--------------------------------------------- tipo = request.querystring("tipo") id = request.querystring("id") '--------------------------------------------- '--- Abrir las conexiones db------------------ '--------------------------------------------- %> <% set rs = server.createobject("adodb.recordset") '--------------------------------------------- '--- Levantar nota --------------------------- '--------------------------------------------- if (id > 0) then 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_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.ID = " & id rs.open sql, cn, 3 if not rs.eof then 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") bajada = rs("BAJADA") bajada = FN_Reemplazar_Caracteres(bajada, """, chr(34)) descripcion1 = rs("DESCRIPCION_1") descripcion1 = FN_Reemplazar_Caracteres(descripcion1, """, chr(34)) destacado1= rs("DESTACADO_1") destacado1 = FN_Reemplazar_Caracteres(destacado1, """, chr(34)) descripcion2 = rs("DESCRIPCION_2") descripcion2 = FN_Reemplazar_Caracteres(descripcion2, """, chr(34)) destacado2 = rs("DESTACADO_2") destacado2 = FN_Reemplazar_Caracteres(destacado2, """, chr(34)) descripcion3 = rs("DESCRIPCION_3") descripcion3 = FN_Reemplazar_Caracteres(descripcion3, """, chr(34)) autor = rs("COL_NOMBRE") extra = rs("COM_EXTRA") email = rs("EMAIL") numero = rs("NUMERO") imagen1 = rs("IMAGEN") alt1 = rs("ALT_1") alt1 = FN_Reemplazar_Caracteres(alt1, """, chr(34)) imagen2 = rs("IMAGEN_2") alt2 = rs("ALT_2") alt2 = FN_Reemplazar_Caracteres(alt2, """, chr(34)) imagen3 = rs("IMAGEN_3") alt3 = rs("ALT_3") alt3 = FN_Reemplazar_Caracteres(alt3, """, chr(34)) tipo = rs("TIP_NOMBRE") info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " info = info & "" info = info & "" if autor > "" then info = info & " " info = info & "" info = info & "" end if info = info & " " info = info & "" info = info & "" info = info & " " info = info & "" info = info & "" if (destacado1 > "") then info = info & " " info = info & "" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " info = info & "" info = info & "" end if if (descripcion2 > "") then info = info & " " info = info & "" info = info & "" end if if (destacado2 > "") then info = info & " " info = info & "" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " info = info & "" info = info & "" end if if (descripcion3 > "") then info = info & " " info = info & "" info = info & "" end if info = info & " " info = info & "" info = info & "" info = info & "

" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " & tipo & " " info = info & "

" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " & nombre & " " info = info & "

" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " & bajada & " " info = info & "

" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " por " info = info & "" & autor & " " & extra & " " info = info & "

" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " info = info & "" info = info & "" if (imagen1 > "") then info = info & "" end if info = info & descripcion1 info = info & " " info = info & "

" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " & destacado1 & " " info = info & "

" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " if (imagen2 > "") then info = info & "" end if info = info & descripcion2 info = info & " " info = info & "

" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " & destacado2 & " " info = info & "

" info = info & "" info = info & " " info = info & "" info = info & "" info = info & " " if (imagen3 > "") then info = info & "" end if info = info & descripcion3 info = info & " " info = info & "

" end if rs.close else if (tipo > 0) then 'seccion completa end if end if '--------------------------------------------- '--- Obtener la fecha de edicion ------------- '--------------------------------------------- if numero > 0 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 = dia(weekday(fecha)) & " " & day(fecha) & " de " & mes(month(fecha)) & " de " & year(fecha) m_fecha = mes(month(fecha)) & " de " & year(fecha) end if 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 %>

<%=m_fecha%> Año <%=anio%>, Número <%=numero%> <%=info%> < Inicio ^ Volver arriba