<% '# 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 canciones10" 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
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=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 %>
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

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