<%response.buffer=true%>
Los40 en tu móvil
<%
afiliadox=Request.QueryString("idafiliado")
if afiliadox="" then
afiliadox=200
end if%>
<%
Set busca=Server.CreateObject("ADODB.Recordset")
Set musicas=Server.CreateObject("ADODB.Recordset")
cantidadregistros=10
if request.querystring("paginaactual")<>"" then
mostrarpagina=request.querystring("paginaactual")
else
mostrarpagina=1
end if
conexion.Open
sqlx="select * from afiliacion where id_afil='"&afiliadox&"'"
busca.open sqlx,conexion
error=0
desc_error=""
ac=Request.QueryString("tac")
vtexto_busca = server.urlencode(Request.QueryString("stexto"))
vtexto_buscax = server.urlencode(Request.QueryString("stexto"))
vtexto_busca="%"&vtexto_busca&"%"
'response.write vtexto_busca
'response.end
vopcion_busca = Request.QueryString("sopcion")
if ( vopcion_busca="autor") then
musicas.Open "SELECT * FROM TITULOS_CANCIONES WHERE AUTOR like '"&vtexto_busca&"' and ver='s'" ,conexion,1,1
else
if ( vopcion_busca="titulo") then
musicas.Open "SELECT * FROM TITULOS_CANCIONES WHERE TITULO like '" & vtexto_busca & "' and ver='s'" ,conexion,1,1
end if
end if
if not musicas.eof then
musicas.cachesize=60
musicas.pagesize=cantidadregistros
maxpagina=cint(musicas.pagecount)
maxregistros=cint(musicas.pagesize)
musicas.absolutepage=mostrarpagina
contreg=0
else
response.redirect "melodia8.asp?idafiliado="&afiliadox&""
end if
%>
<%
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 %>
<%
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="[<< Anterior] "
end if
for contador=1 to maxpagina
If contador>9 then
cero=""
end if
ref=ref & " " & cero & contador & ""
else
if right(contador,1)="0" then
ref=ref & "'>" & cero & contador & " "
else
ref=ref & "'>" & cero & contador & ""
end if
end if
next
if int(mostrarpagina)<>int(maxpagina) then '-- si no es la última página
' mostrar botón siguiente
ref=ref & " [Siguiente >>]"
end if
response.write ref
%>
