<% '# Codigo asp de Genexies.com Set rs=Server.CreateObject("ADODB.Recordset") cantidadregistros=10 if request.querystring("paginaactual")<>"" then mostrarpagina=request.querystring("paginaactual") else mostrarpagina=1 end if rs.cachesize=60 conexion.open sql="select top 10 * from titulos_canciones where dj<>0 order by dj" rs.open sql,conexion,1,1 registros=0 rs.pagesize=cantidadregistros maxpagina=cint(rs.pagecount) maxregistros=cint(rs.pagesize) rs.absolutepage=mostrarpagina contreg=0 %> los40.com - actualidad - Listas
Favoritas

<% if int(mostrarpagina)<>int(maxpagina) then '-- Si no es la última página. hasta=mostrarpagina*5 desde=hasta-4 else hasta=rs.recordcount desde=(maxpagina*5)-4 end if %> <%dim salir,registros salir=0 registros=0%> <%'Do%> <% do while not rs.eof and contreg < maxregistros %> <% rs.MoveNext registros=registros + 1 contreg=contreg+1 if rs.Eof or registros > maxregistros then salir=1 exit do end if loop %>
REF OIR ELIGE MARCA AUTOR / CANCIÓN
<%=rs("cod_cancion")%> &autor=<%=rs("AUTOR")%>&cancion=<%=rs("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=rs("cod_clase_musica")%>&cod_cancion=<%=rs("cod_cancion")%>"> <%=rs("autor")%> /<%=rs("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 del mensaje: 0,90 €
Impuestos NO incluidos

INSTRUCCIONES DE USO

1. Elige la marca de tu móvil Si tienes un Nokia, ve directamente al 2.
2. Envía un SMS con la melodía elegida. p.ej. si quieres recibir el Top 1 de 40, envia:

4 0  1

3. Al número:

5 4 1 0

4. Si tienes un Nokia, la recibirás en tu móvil. Si no, sigue las instrucciones que te aparecerán al elegir la marca.


<%musicas.Close set musicas=Nothing tipo_musica.Close clase_musica.Close Set tipo_musica=Nothing Set clase_musica=Nothing %>