<%'# 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") conexion.open sql="select * from semanas_anteriores where id_semana="&semana&"" rs.open sql,conexion if semana > 1 then semanamenos=semana-1 sqls="select * from semanas_anteriores where id_semana="&semanamenos&"" rss.open sqls,conexion end if semanamas=semana+1 sqlss="select * from semanas_anteriores where id_semana="&semanamas&"" rsss.open sqlss,conexion if rs.eof then response.redirect "anteriores.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
La lista de 40 - Semanas Anteriores

TOP OIR ELIGE MARCA AUTOR / CANCIÓN
<%=rs1("cod_cancion")%> &autor=<%=rs1("AUTOR")%>&cancion=<%=rs1("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs1("cod_clase_musica")%>&cod_cancion=<%=rs1("cod_cancion")%>"> <%=rs1("autor")%> /<%=rs1("titulo")%>
<%=rs2("cod_cancion")%> &autor=<%=rs2("AUTOR")%>&cancion=<%=rs2("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs2("cod_clase_musica")%>&cod_cancion=<%=rs2("cod_cancion")%>"> <%=rs2("autor")%>/<%=rs2("titulo")%>
<%=rs3("cod_cancion")%> &autor=<%=rs3("AUTOR")%>&cancion=<%=rs3("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs3("cod_clase_musica")%>&cod_cancion=<%=rs3("cod_cancion")%>"> <%=rs3("autor")%> /<%=rs3("titulo")%>
<%=rs4("cod_cancion")%> &autor=<%=rs4("AUTOR")%>&cancion=<%=rs4("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs4("cod_clase_musica")%>&cod_cancion=<%=rs4("cod_cancion")%>"> <%=rs4("autor")%> /<%=rs4("titulo")%>
<%=rs5("cod_cancion")%> &autor=<%=rs5("AUTOR")%>&cancion=<%=rs5("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs5("cod_clase_musica")%>&cod_cancion=<%=rs5("cod_cancion")%>"> <%=rs5("autor")%> /<%=rs5("titulo")%>
<%=rs6("cod_cancion")%> &autor=<%=rs6("AUTOR")%>&cancion=<%=rs6("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs6("cod_clase_musica")%>&cod_cancion=<%=rs6("cod_cancion")%>"> <%=rs6("autor")%> /<%=rs6("titulo")%>
<%=rs7("cod_cancion")%> &autor=<%=rs7("AUTOR")%>&cancion=<%=rs7("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs7("cod_clase_musica")%>&cod_cancion=<%=rs7("cod_cancion")%>"> <%=rs7("autor")%> /<%=rs7("titulo")%>
<%=rs8("cod_cancion")%> &autor=<%=rs8("AUTOR")%>&cancion=<%=rs8("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs8("cod_clase_musica")%>&cod_cancion=<%=rs8("cod_cancion")%>"> <%=rs8("autor")%> /<%=rs8("titulo")%>
<%=rs9("cod_cancion")%> &autor=<%=rs9("AUTOR")%>&cancion=<%=rs9("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs9("cod_clase_musica")%>&cod_cancion=<%=rs9("cod_cancion")%>"> <%=rs9("autor")%> /<%=rs9("titulo")%>
<%=rs10("cod_cancion")%> &autor=<%=rs10("AUTOR")%>&cancion=<%=rs10("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs10("cod_clase_musica")%>&cod_cancion=<%=rs10("cod_cancion")%>"> <%=rs10("autor")%> /<%=rs10("titulo")%>
<%if semana=1 then%> <%=rsss("semana")%> <%else%> <%=rss("semana")%> <%if not rsss.eof then%> <%=rsss("semana")%> <%end if%> <%end if%>

Precio del mensaje: 0,90 €
Impuestos NO incluidos