<%@ Language=VBScript %> <%Response.Buffer = True%> <% Response.Expires=0 %> <%'# Codigo asp de Genexies.com%> <% cantidadregistros=10 if request.querystring("paginaactual")<>"" then mostrarpagina=request.querystring("paginaactual") else mostrarpagina=1 end if Set buscador=Server.CreateObject("ADODB.Recordset") buscador.cachesize=60 conexion.Open vtexto_busca = Request.QueryString("stexto") if vtexto_busca="" then vtexto_busca="op" end if vopcion_busca = ucase(Request.QueryString("sopcion")) textb="%"&vtexto_busca&"%" buscador.Open "SELECT * FROM TITULOS_CANCIONES WHERE "& vopcion_busca &" like '"&textb&"' and ver='s'" ,conexion,adOpenStatic,adLockReadOnly,adCmdText registros=0 if not buscador.eof then buscador.pagesize=cantidadregistros maxpagina=cint(buscador.pagecount) maxregistros=cint(buscador.pagesize) buscador.absolutepage=mostrarpagina contreg=0 %> los40.com - actualidad - Listas
La lista de 40

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


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