<% '# 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 * from titulos_polifonicas where topten<>0 order by topten" 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 Polifonicas

<% 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 autor=rs("autor") if rs("verautor")="N" then autor="" end if %> <% rs.MoveNext registros=registros + 1 contreg=contreg+1 if rs.Eof or registros > maxregistros then salir=1 exit do end if loop %>
TOP OIR AUTOR / CANCIÓN
<%=rs("topten")%> &autor=<%=autor%>&cancion=<%=rs("cod_cancion")%>x','modelos','scrollbars=no,width=400,height=200')"> <%=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