<%response.buffer=true%> <%'# Codigo asp de Genexies.com%> <% cantidadregistros=10 if request.querystring("paginaactual")<>"" then mostrarpagina=request.querystring("paginaactual") else mostrarpagina=1 end if Set rs=Server.CreateObject("ADODB.Recordset") Set rs1=Server.CreateObject("ADODB.Recordset") Set rs2=Server.CreateObject("ADODB.Recordset") rs1.cachesize=60 conexion.open if request.querystring("c")="1" or request.querystring("c")=1 then sqlp="SELECT * from titulos_polifonicas where ver='s' and top10<>0 order by top10" elseif request.querystring("c")="2" or request.querystring("c")=2 then sqlp="SELECT * from titulos_polifonicas where ver='s' and novedad='s' order by cod_cancion desc" else sqlp="SELECT * from titulos_polifonicas where ver='s' and categoria=" &request.querystring("c")& " order by cod_cancion desc" end if sqlpo=sqlp 'sqlpo="SELECT * from titulos_polifonicas where ver='s' and categoria="&request.querystring("c")&" order by cod_cancion desc" rs1.open sqlpo,conexion,1,1 registros=0 if not rs1.eof then rs1.pagesize=cantidadregistros maxpagina=cint(rs1.pagecount) maxregistros=cint(rs1.pagesize) rs1.absolutepage=mostrarpagina contreg=0 %> los40.com - actualidad - Listas
Melodias polifonicas

<% if int(mostrarpagina)<>int(maxpagina) then '-- Si no es la última página. hasta=mostrarpagina*5 desde=hasta-4 else hasta=rs1.recordcount desde=(maxpagina*5)-4 end if %> <%dim salir,registros salir=0 registros=0%> <%'Do%> <% do while not rs1.eof and contreg < maxregistros %> <% rs1.MoveNext registros=registros + 1 contreg=contreg+1 if rs1.Eof or registros > maxregistros then salir=1 exit do end if loop %>
REF OIR AUTOR / CANCIÓN
<%=rs1("cod_cancion")%> &autor=<%=rs1("autor")%>&cancion=<%=rs1("cod_cancion")%>x.mp3','modelos','scrollbars=no,width=400,height=200')"> <%=rs1("autor")%> /<%=rs1("titulo")%>
<% 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 next if int(mostrarpagina)<>int(maxpagina) then '-- si no es la última página ' mostrar botón siguiente ref=ref & " [Sig. >>]" end if response.write ref %>

Precio 0,90 €/sms IVA incluido
Son necesarios 2 mensajes info@genexies.com

<% else Response.Redirect "melodia8.asp?idafiliado='"&afiliadox&"'" end if%> <%conexion.close%>