Paging...
Hey ... Jeg har min side her .. Hvordan laver jeg paging på den ? Der skal kun vises 10 af gangen .. håber nogen kan hjælpe.<html>
<head>
<!--#include file=\"conn.asp\"-->
<META NAME=\"Title\" CONTENT=\"MsJubii.dk - M/S Jubii Chat Fansiden.\">
<META NAME=\"Description\" CONTENT=\"MsJubii.dk - Danmarks største fanside til M/S Jubii CHat\">
<META NAME=\"Keywords\" CONTENT=\"chat, Chat, jubiichat, jubii chat, dansk chat, chat på dansk, danmarks bedste chat, chat fester, største chat, romantik, dating, sex, blind date, scor, fanside, msjubii, ms jubii chat fanside, styrmand, botter, chat information\">
<META NAME=\"Author\" CONTENT=\"Kevin Lund - (BULLER) \">
<META NAME=\"Copyright\" CONTENT=\"Kevin Lund\">
<META HTTP-EQUIV=\"Reply-to\" CONTENT=\"kontakt@msjubii.dk\">
<META HTTP-EQUIV=\"Content-language\" CONTENT=\"dan\">
<META HTTP-EQUIV=expires CONTENT=\"Mon, 01 Okt 2001 22:00:00 GMT\">
<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">
<TITLE>ProfilMusik - MsJubii.dk - M/S Jubii Chat Fansiden.</TITLE>
<LINK REL=\"stylesheet\" HREF=\"/style/style.css\" TYPE=\"text/css\">
</head>
<body>
<p align=\"center\">
<!--#include file=\"../include/banner.asp\"-->
<div align=\"center\">
<center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"700\" bgcolor=\"#000000\">
<tr>
<td width=\"100%\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"1\" width=\"100%\">
<tr>
<td width=\"100%\" colspan=\"2\" bgcolor=\"#B7C6D6\" valign=\"bottom\">
<p align=\"center\"><!--#include file=\"top.asp\"-->
</td>
</tr>
<tr>
<td width=\"140\" valign=\"top\" bgcolor=\"#B7C6D6\"><!--#include file=\"menu.asp\"--></td>
<td width=\"558\" valign=\"top\" bgcolor=\"#FFFFFF\">
<table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"100%\">
<tr>
<td width=\"100%\" valign=\"top\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td width=\"100%\">
<%
set undermenu = Conn.execute(\"SELECT * FROM menu WHERE id=\" & request(\"kat\"))
if not cstr(undermenu(\"artikel\")) = \"0\" then
Response.Redirect(\"artikel.asp?id=\" & undermenu(\"artikel\"))
end if
if request(\"fra\") = \"under\" then
set hovedmenu = Conn.execute(\"SELECT * FROM menu WHERE id=\" & undermenu(\"under\"))
%>
<font size=\"1\" face=\"Verdana\"><b>Her er du: </b><a href=\"#\" onclick=rullemenu(rul<%=hovedmenu(\"id\")%>);><%=hovedmenu(\"navn\")%></a> - <b><a href=\"undermenu.asp?kat=<%=undermenu(\"id\")%>&fra=under\"><%=undermenu(\"navn\")%></a></b> </font>
<%
hovedmenu.close
set hovedmenu = nothing
elseif request(\"fra\") = \"hoved\" then
%>
<font size=\"2\" face=\"Verdana\"><a href=\"undermenu.asp?kat=<%=undermenu(\"id\")%>&fra=hoved\"><%=undermenu(\"navn\")%></a> </font>
<%
end if
undermenu.close
set undermenu = nothing
%>
</td>
</tr>
<tr>
<td width=\"100%\" background=\"/Gfx/design/prik.gif\"><img border=\"0\" src=\"/Gfx/design/blank.gif\" width=\"1\" height=\"1\"></td>
</tr>
<tr>
<td width=\"100%\" height=\"8\"></td>
</tr>
<tr>
<td width=\"100%\">
</center>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td width=\"100%\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td><%
set artikel = Conn.execute(\"SELECT * FROM Artikler WHERE under=\'\" & request(\"kat\") & \"\' ORDER BY overskrift\")
if artikel.eof then
%>
<p align=\"left\"><font size=\"2\" face=\"Verdana\">Der er ikke tilføjet
nogen musikfiler endnu<br>
</font>
<%
else
if request(\"fra\") = \"under\" then
set undermenu = Conn.execute(\"SELECT * FROM menu WHERE id=\" & request(\"kat\"))
set hovedmenu = Conn.execute(\"SELECT * FROM menu WHERE id=\" & undermenu(\"under\"))
%>
<p align=\"left\"><font size=\"2\" face=\"Verdana\"><b><%=undermenu(\"navn\")%>:</b> <br>
</font>
<%
undermenu.close
set undermenu = nothing
hovedmenu.close
set hovedmenu = nothing
elseif request(\"fra\") = \"hoved\" then
set undermenu = Conn.execute(\"SELECT * FROM menu WHERE id=\" & request(\"kat\"))
%>
<p align=\"left\"><font size=\"2\" face=\"Verdana\"><b><%=undermenu(\"navn\")%>:</b> <br>
</font>
<%
undermenu.close
set undermenu = nothing
end if
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width=\"100%\">
<%
do until artikel.eof
%>
<table border=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td width=\"100%\" bgcolor=\"#000000\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\" bgcolor=\"#B7C6D6\">
<tr>
<td width=\"100%\"><font face=\"Verdana\" size=\"2\"><a title=\"Klik her for at høre <%=artikel(\"overskrift\")%>\" class=undermenu href=\"<%=artikel(\"programnavn1\")%>\" target=\"_blank\"> <img src=\"/gfx/iconer/lyd.gif\" border=0> <b><%=artikel(\"overskrift\")%></b></a></font></td>
</tr>
<tr>
<td width=\"100%\" bgcolor=\"#000000\"><img src=\"/gfx/design/blank.gif\"></td>
</tr>
<tr>
<td width=\"100%\"><font face=\"Verdana\" size=\"1\">Adresse: <%=artikel(\"programnavn1\")%></font></td>
</tr>
<tr>
<td width=\"100%\"><font face=\"Verdana\" size=\"1\">Størrelse: <%=artikel(\"programlink1\")%> kb.</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width=\"100%\"><img src=\"/gfx/design/blank.gif\" width=\"1\" height=\"4\"></td>
</tr>
</table>
<%
artikel.movenext
loop
end if
artikel.close
set artikel = nothing
%>
</td>
</tr>
<center>
<center>
<tr>
<td width=\"100%\"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<p align=\"center\"><!--#include file=\"../include/bund.asp\"--></p>
</body>
</html>
<%
Conn.close
set Conn = nothing
%>
