Hjææælp mig...
Jeg har et brugersystem.Jeg har sat den til at vise top 20 over de brugere som der har registreret sig, men den viser ALLE de brugere som der har oprettet sig?
Hvordan kan det være?
Her kommer koden på users.asp :
<html>
<head>
<title>Brugere</title>
<link rel=\"stylesheet\" href=\"style.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#0066CC\" vlink=\"#0066CC\" alink=\"#0066CC\">
<table border=\"0\" width=\"735\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\" height=\"178\" align=\"center\">
<tr>
<td width=\"100%\" bgcolor=\"#FFFFFF\" valign=\"top\">
<hr width=\"80%\" noshade style=\"color: #000000;\">
<div class=\"skrit\" align=\"center\"> <font face=\"Verdana\" size=\"1\"> [ <a href=\"dating.asp\">Forside</a> | <a href=\"adduser.asp\">Registrér
brugernavn</a> | <a href=\"users.asp\">Brugere</a> | <a href=\"search.asp\">Søg</a>
| Statistik | <a href=\"login.asp\">Log ind</a> ]</font></div>
<hr width=\"80%\" noshade style=\"color: #000000;\">
<table width=\"100%\" border=\"0\" cellspacing=\"2\" cellpadding=\"2\">
<tr>
<td width=\"75%\" valign=\"top\" align=\"left\" height=\"153\"><ol>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN
strSQL = \"Select * From bruger Order by Navn Desc\"
Set rs = Conn.Execute(strSQL)
Do
strNavn = rs(\"navn\")
strLink = \"<a href=\'showuser.asp?id=\" & rs(\"Id\") & \"\'>\" & strNavn & \"</a>\"
Response.Write \"<li>\" & strLink & \"</li>\"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</td>
<td width=\"25%\" valign=\"top\" align=\"left\" height=\"153\">
<table border=\"0\" width=\"100%\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\">
<tr>
<td width=\"100%\" bgcolor=\"#3366CC\" valign=\"top\">
<div align=\"center\"><span class=\"skrit\"><b><font color=\"#FFFFFF\" size=\"1\" face=\"Verdana\">Top
10 Brugere</font></b></span></div>
</td>
</tr>
<tr>
<td width=\"100%\" bgcolor=\"#FFFFFF\" valign=\"top\">
<table border=\'0\' cellspacing=\'1\' cellpadding=\'0\' width=\'100%\' height=\"8\">
<tr>
<td width=\'160\' valign=\'top\' height=\"14\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<ol>
<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN
strSQL = \"Select top 20 * From bruger Order by hits Desc\"
Set rs = Conn.Execute(strSQL)
Do
strNavn = rs(\"Navn\")
strLink = \"<a href=\'showuser.asp?id=\" & rs(\"Id\") & \"\'>\" & strNavn & \"</a>\"
Response.Write \"<li>\" & strLink & \"</li>\"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</ol>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
<table width=\"75%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
<tr>
<td><font face=\"Verdana\" size=\"1\"><img src=\"images/intet.gif\" width=\'120\' height=\'8\'></font></td>
</tr>
</table>
<table border=\"0\" width=\"100%\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\">
<tr>
<td width=\"100%\" bgcolor=\"#3366CC\" valign=\"top\">
<div align=\"center\"><span class=\"skrit\"><b><font color=\"#FFFFFF\" size=\"1\" face=\"Verdana\">Nyeste
12 Brugere</font></b></span></div>
</td>
</tr>
<tr>
<td width=\"100%\" bgcolor=\"#FFFFFF\" valign=\"top\">
<table border=\'0\' cellspacing=\'1\' cellpadding=\'0\' width=\'100%\' height=\"8\">
<tr>
<td width=\'160\' valign=\'top\'> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<ol>
<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN
strSQL = \"Select top 20 * From bruger Order by dato Desc\"
Set rs = Conn.Execute(strSQL)
Do
strNavn = rs(\"Navn\")
strLink = \"<a href=\'showuser.asp?id=\" & rs(\"Id\") & \"\'>\" & strNavn & \"</a>\"
Response.Write \"<li>\" & strLink & \"</li>\"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</ol>
</font> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width=\"75%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
<tr>
<td><font face=\"Verdana\" size=\"1\"><img src=\"images/intet.gif\" width=\'120\' height=\'8\'></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
