<%@ 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' and prisacom='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 autor=buscador("autor") if buscador("verautor")="N" then autor="" end if %> <% 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=<%=autor%>&cancion=<%=buscador("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=buscador("cod_clase_musica")%>&cod_cancion=<%=buscador("cod_cancion")%>"> <%=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

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