Paginação
O link do site é http://members.xoom.virgilio.it/midiaplayer/index.asp
Entre e click no link MP3 depois em NACIONAIS
O codigo é o seguinte
<%
abc = request.querystring("abc")
categoria = request.querystring("categoria")
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("http://members.xoom.virgilio.it/midiaplayer/bancodedados/dados.mdb")
Conn.open
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 25
sql = "Select * from mp3 order by cantor where categoria= "& categoria &" , abc="& abc &""
RS.Open SQL,Conn,3,3
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
RS.AbsolutePage=intpagina
intrec=0
While intrec < RS.PageSize and not RS.EOF
response.write RS("cantor") & " - " & RS("música") & " - " & RS("link") & "<BR>"
RS.MoveNext
intrec=intrec+1
IF RS.EOF then
response.write " "
END IF
Wend
%>
<html>
<head>
<title>Mídia Player - MP3, Jogos, Filmes, Clipes e muito mais.</title>
<style type="text/css"><!--
td{font-size:11px; font-family:verdana}
a {COLOR: #000000; FONT-FAMILY: verdana; TEXT-DECORATION: none}
a:active {COLOR: #000000}
a:hover {COLOR: #800000}
a.direitans:hover {COLOR: #000000}
-->
</style>
</head>
<body topmargin="0" leftmargin="0">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><font face="Verdana" size="1"></font>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="43">
<tr>
<td width="100%" colspan="4" height="4" bgcolor="#FFFFFF"><b>MP3 - Nacional
<font face="Arial"> >>></font></b></td>
</tr>
<tr>
<td width="100%" colspan="4" height="4" bgcolor="#FFFFFF">
<p align="center" style="margin-top: 3; margin-bottom: 3"><b>
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=a&categoria=">A-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=a&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=b&categoria=">B-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=b&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=c&categoria=">C-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=c&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=d&categoria=">D-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=d&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=e&categoria=">E-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=e&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=f&categoria=">F-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=f&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=g&categoria=">G-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=g&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=h&categoria=">H-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=h&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=i&categoria=">I-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=i&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=j&categoria=">J-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=j&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=k&categoria=">K-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=k&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=l&categoria=">L-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=l&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=m&categoria=">M-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=m&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=n&categoria=">N-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=n&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=o&categoria=">O-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=o&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=p&categoria=">P-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=p&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=q&categoria=">Q-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=q&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=r&categoria=">R-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=r&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=s&categoria=">S-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=s&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=t&categoria=">T-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=t&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=u&categoria=">U-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=u&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=v&categoria=">V-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=v&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=w&categoria=">W-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=w&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=x&categoria=">X-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=x&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=y&categoria=">Y-](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=y&categoria=)
<a href="[http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=z&categoria=">Z](http://members.xoom.virgilio.it/midiaplayer/mp3/principal.asp?abc=z&categoria=)
</b></td>
</tr>
<tr>
<td width="100%" colspan="4" height="7" bgcolor="#FFFFFF">
<p align="center" style="margin-top: 5; margin-bottom: 5"><b><font color="#800000">Clique
na música para fazer o DOWNLOAD</font></b></td>
</tr>
<tr>
<td width="100%" height="4" colspan="4" bgcolor="#FFFFFF">
<hr size="1" color="#000080" width="70%">
</td>
</tr>
<tr>
<td width="48%" height="3" >
<p align="right"><b>
Cantor</b></p>
</td>
<td width="2%" height="3" colspan="2" >
<p align="center"><b>-</b></p>
</td>
<td width="48%" height="3">
<b>Música</b>
</td>
</tr>
<tr>
<td width="100%" height="7" valign="top" bgcolor="#FFFFFF" colspan="4">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="49%" align="right"><p style="margin-top: 0; margin-bottom: 0"><%=cantor%></p></td>
<td width="2%"> </td>
<td width="49%" align="left"><p style="margin-top: 0; margin-bottom: 0"><a href="<%=link%>"><%=musica%></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="50%" height="6" valign="top" bgcolor="#FFFFFF" colspan="2">
<p align="center">
<%
IF intpagina > 1 then
%>
<b>
<a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior
<%
END IF
%>
</a>
</b>
</td>
<td width="50%" height="6" valign="top" bgcolor="#FFFFFF" colspan="2">
<p align="center">
<%
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<b>
<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a>
<%
END IF
%>
</b>
</p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>O que está errado no codigo?
Preciso de uma separação em ordem alfabetica e entre nacionais e internacionais.
Discussão (3)
Carregando comentários...