los40.com - actualidad

<%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 Set busca=Server.CreateObject("ADODB.Recordset") cantidadregistros=1 if request.querystring("paginaactual")<>"" then mostrarpagina=request.querystring("paginaactual") else mostrarpagina=1 end if Set musicas=Server.CreateObject("ADODB.Recordset") Set tipo_musica=Server.CreateObject("ADODB.Recordset") Set clase_musica=Server.CreateObject("ADODB.Recordset") musicas.cachesize=60 vcod_tipo_musica = Request.QueryString("cod_tipo_musica") vcod_clase_musica = Request.QueryString("cod_clase_musica") musicas.Open "SELECT * FROM semanas_anteriores order by id_semana",conexion,1,1 registros=0 if not musicas.eof then musicas.pagesize=cantidadregistros maxpagina=cint(musicas.pagecount) maxregistros=cint(musicas.pagesize) musicas.absolutepage=mostrarpagina contreg=0 top1=musicas("top1") top2=musicas("top2") top3=musicas("top3") top4=musicas("top4") top5=musicas("top5") top6=musicas("top6") top7=musicas("top7") top8=musicas("top8") top9=musicas("top9") top10=musicas("top10") %> <% if int(mostrarpagina)<>int(maxpagina) then '-- Si no es la última página. hasta=mostrarpagina*5 desde=hasta-4 else hasta=musicas.recordcount desde=(maxpagina*5)-4 end if dim salir,registros salir=0 registros=0 do while not musicas.eof and contreg < maxregistros ''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 musicas.MoveNext registros=registros + 1 contreg=contreg+1 if musicas.Eof or registros > maxregistros then salir=1 exit do end if loop cero="0" nombrescript=request.servervariables("script_name") if int(mostrarpagina)<>1 then '--si no es la primer página mostrar botón atrás ref="[<< Ant.] " end if for contador=1 to maxpagina If contador>9 then cero="" end if ref=ref & " " & cero & contador & "
" else ref=ref & "'>" & cero & contador & "" end if else if right(contador,1)="0" then ref=ref & "'>" & cero & contador & "
" else ref=ref & "'>" & cero & contador & "" end if end if next if int(mostrarpagina)<>int(maxpagina) then '-- si no es la última página ' mostrar botón siguiente ref=ref & " [Sig. >>]" end if %> 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 40 - Semana: <%=request("paginaactual")%>

Precio del mensaje: 0,90 €
Impuestos NO incluidos

<% else response.redirect("http://www.los40.com") end if %>