<%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") 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 %>

la lista de 40 los 40 - semanas anteriores novedades los40 de esta semana más categorías

los 40 - semanas anteriores Ref. 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: 0,90 € + iva

<%conexion.close%>