<%'# Codigo asp de Genexies.com%> <% Set busca=Server.CreateObject("ADODB.Recordset") cantidadregistros=10 if request.querystring("paginaactual")<>"" then mostrarpagina=request.querystring("paginaactual") else mostrarpagina=1 end if Set musicas=Server.CreateObject("ADODB.Recordset") Set tipo_musica=Server.CreateObject("ADODB.Recordset") Set clase_musica=Server.CreateObject("ADODB.Recordset") musicas.cachesize=60 conexion.Open vcod_tipo_musica = Request.QueryString("cod_tipo_musica") vcod_clase_musica = Request.QueryString("cod_clase_musica") musicas.Open "SELECT * FROM TITULOS_CANCIONES WHERE ver='s' and prisacom='S' and COD_TIPO_MUSICA=" & vcod_tipo_musica & " AND COD_CLASE_MUSICA=" & vcod_clase_musica,conexion,1,1 tipo_musica.Open "SELECT * FROM TIPO_MUSICA WHERE COD_TIPO_MUSICA=" & vcod_tipo_musica,conexion,adOpenStatic,adLockReadOnly,adCmdText if not tipo_musica.eof then desc_tipo=tipo_musica.Fields("DESCRIPCION_T_MUSICA") end if clase_musica.Open "SELECT * FROM CLASE_MUSICA WHERE COD_TIPO_MUSICA=" & vcod_tipo_musica & " AND COD_CLASE_MUSICA=" & vcod_clase_musica,conexion,adOpenStatic,adLockReadOnly,adCmdText if not clase_musica.eof then desc_clase=clase_musica.Fields("DESCRIPCION_C_MUSICA") end if titulo_pagina=desc_tipo & " " & desc_clase registros=0 if not musicas.eof then musicas.pagesize=cantidadregistros maxpagina=cint(musicas.pagecount) maxregistros=cint(musicas.pagesize) musicas.absolutepage=mostrarpagina contreg=0 'sqlx="select * from afiliacion where id_afil='"&afiliadox&"'" ' busca.open sqlx,conexion %> 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=musicas.recordcount desde=(maxpagina*5)-4 end if %> <%dim salir,registros salir=0 registros=0%> <%'Do%> <% do while not musicas.eof and contreg < maxregistros autor=musicas("autor") if musicas("verautor")="N" then autor="" end if %> <% musicas.MoveNext registros=registros + 1 contreg=contreg+1 if musicas.Eof or registros > maxregistros then salir=1 exit do end if loop %>
REF OIR ELIGE MARCA AUTOR / CANCIÓN
<%=musicas("cod_cancion")%> &autor=<%=musicas("AUTOR")%>&cancion=<%=musicas("FICHERO_MIDI")%>','modelos','scrollbars=no,width=400,height=200')"> &clase_musica=<%=musicas("cod_clase_musica")%>&cod_cancion=<%=musicas("cod_cancion")%>"> <%=autor%> /<%=musicas("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%>