<%response.buffer=true%> <%'# Codigo asp de Genexies.com%> <%semana=request.querystring("s") if semana="" then semana=1 end if%> <% Set rs=Server.CreateObject("ADODB.Recordset") Set rss=Server.CreateObject("ADODB.Recordset") Set rsss=Server.CreateObject("ADODB.Recordset") Set rs1=Server.CreateObject("ADODB.Recordset") Set rs2=Server.CreateObject("ADODB.Recordset") Set rs3=Server.CreateObject("ADODB.Recordset") Set rs4=Server.CreateObject("ADODB.Recordset") Set rs5=Server.CreateObject("ADODB.Recordset") Set rs6=Server.CreateObject("ADODB.Recordset") Set rs7=Server.CreateObject("ADODB.Recordset") Set rs8=Server.CreateObject("ADODB.Recordset") Set rs9=Server.CreateObject("ADODB.Recordset") Set rs10=Server.CreateObject("ADODB.Recordset") Set rsv=Server.CreateObject("ADODB.Recordset") conexion.open sqlv="select * from semanas_anteriores" rsv.open sqlv,conexion sql="select * from semanas_anteriores_dial where id_semana="&semana&" order by id_semana" rs.open sql,conexion if semana > 1 then semanamenos=semana-1 sqls="select * from semanas_anteriores_dial where id_semana="&semanamenos&" order by id_semana" rss.open sqls,conexion end if semanamas=semana+1 sqlss="select * from semanas_anteriores_dial where id_semana="&semanamas&" order by id_semana" rsss.open sqlss,conexion if rs.eof then response.redirect "dialanteriores.asp?s=1" end if top1=rs("top1") top2=rs("top2") top3=rs("top3") top4=rs("top4") top5=rs("top5") top6=rs("top6") top7=rs("top7") top8=rs("top8") top9=rs("top9") top10=rs("top10") ''1 sql1="select * from titulos_canciones where cod_cancion="&top1&"" rs1.open sql1,conexion ''2 sql2="select * from titulos_canciones where cod_cancion="&top2&"" rs2.open sql2,conexion ''3 sql3="select * from titulos_canciones where cod_cancion="&top3&"" rs3.open sql3,conexion ''4 sql4="select * from titulos_canciones where cod_cancion="&top4&"" rs4.open sql4,conexion ''5 sql5="select * from titulos_canciones where cod_cancion="&top5&"" rs5.open sql5,conexion ''6 sql6="select * from titulos_canciones where cod_cancion="&top6&"" rs6.open sql6,conexion ''7 sql7="select * from titulos_canciones where cod_cancion="&top7&"" rs7.open sql7,conexion ''8 sql8="select * from titulos_canciones where cod_cancion="&top8&"" rs8.open sql8,conexion ''9 sql9="select * from titulos_canciones where cod_cancion="&top9&"" rs9.open sql9,conexion ''10 sql10="select * from titulos_canciones where cod_cancion="&top10&"" rs10.open sql10,conexion %> los40.com - actualidad - Listas
<% autor1=rs1("autor") if rs1("verautor")="N" then autor1="" end if autor2=rs2("autor") if rs2("verautor")="N" then autor2="" end if autor3=rs3("autor") if rs3("verautor")="N" then autor3="" end if autor4=rs4("autor") if rs4("verautor")="N" then autor4="" end if autor5=rs5("autor") if rs5("verautor")="N" then autor5="" end if autor6=rs6("autor") if rs6("verautor")="N" then autor6="" end if autor7=rs7("autor") if rs7("verautor")="N" then autor7="" end if autor8=rs8("autor") if rs8("verautor")="N" then autor8="" end if autor9=rs9("autor") if rs9("verautor")="N" then autor9="" end if autor10=rs10("autor") if rs10("verautor")="N" then autor10="" end if %>
La lista de Cadena Dial - Semana: <%=rs("semana")%>

REF OIR ELIGE MARCA AUTOR / CANCIÓN
<%=rs1("cod_cancion")%> &autor=<%=autor1%>&cancion=<%=rs1("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs1("cod_clase_musica")%>&cod_cancion=<%=rs1("cod_cancion")%>"> <%=autor1%> /<%=rs1("titulo")%>
<%=rs2("cod_cancion")%> &autor=<%=autor2%>&cancion=<%=rs2("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs2("cod_clase_musica")%>&cod_cancion=<%=rs2("cod_cancion")%>"> <%=autor2%>/<%=rs2("titulo")%>
<%=rs3("cod_cancion")%> &autor=<%=autor3%>&cancion=<%=rs3("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs3("cod_clase_musica")%>&cod_cancion=<%=rs3("cod_cancion")%>"> <%=autor3%> /<%=rs3("titulo")%>
<%=rs4("cod_cancion")%> &autor=<%=autor4%>&cancion=<%=rs4("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs4("cod_clase_musica")%>&cod_cancion=<%=rs4("cod_cancion")%>"> <%=autor4%> /<%=rs4("titulo")%>
<%=rs5("cod_cancion")%> &autor=<%=autor5%>&cancion=<%=rs5("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs5("cod_clase_musica")%>&cod_cancion=<%=rs5("cod_cancion")%>"> <%=autor5%> /<%=rs5("titulo")%>
<%=rs6("cod_cancion")%> &autor=<%=autor6%>&cancion=<%=rs6("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs6("cod_clase_musica")%>&cod_cancion=<%=rs6("cod_cancion")%>"> <%=autor6%> /<%=rs6("titulo")%>
<%=rs7("cod_cancion")%> &autor=<%=autor7%>&cancion=<%=rs7("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs7("cod_clase_musica")%>&cod_cancion=<%=rs7("cod_cancion")%>"> <%=autor7%> /<%=rs7("titulo")%>
<%=rs8("cod_cancion")%> &autor=<%=autor8%>&cancion=<%=rs8("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs8("cod_clase_musica")%>&cod_cancion=<%=rs8("cod_cancion")%>"> <%=autor8%> /<%=rs8("titulo")%>
<%=rs9("cod_cancion")%> &autor=<%=autor9%>&cancion=<%=rs9("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs9("cod_clase_musica")%>&cod_cancion=<%=rs9("cod_cancion")%>"> <%=autor9%> /<%=rs9("titulo")%>
<%=rs10("cod_cancion")%> &autor=<%=autor10%>&cancion=<%=rs10("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs10("cod_clase_musica")%>&cod_cancion=<%=rs10("cod_cancion")%>"> <%=autor10%> /<%=rs10("titulo")%>
<%do while not rsv.eof%> " class="negro"><%=rsv("id_semana")%> <% rsv.movenext loop %>

Precio del mensaje: 0,90 €
Impuestos NO incluidos