<%'# 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 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
%>
<%bg="#CCCCCC"%>
<%
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
%>
<% musicas.MoveNext
registros=registros + 1
contreg=contreg+1
if musicas.Eof or registros > maxregistros then
salir=1
exit do
end if %>
<%if bg="#CCCCCC" then
bg="#EEEEEE"
elseif bg="#EEEEEE" then
bg="#CCCCCC"
end if%>
<%loop%>
<%
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: 0,90 € + iva
<%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%>
