Forige/Næste side

Det du skal have fat i er paging.
Find noget om det her:
http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

Jeg er ikke helt sikker, men kan dette bruges?


http://www.solutions2all.dk/source_dl.asp?id=148

hvis du vil have at man kun ser 10 10 adgangen.

-DarkZone

her er min kode:

<!--#include file=\"setup.asp\"-->
<%
function smileys(smil)
smil = Replace(smil, \":)\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley-happy.gif\"\">\")
smil = Replace(smil, \";)\", \"<img width=15 height=15 border=0 src=\"\"smileys/wink.gif\"\">\")
smil = Replace(smil, \":(\", \"<img width=15 height=15 border=0 src=\"\"smileys/angry.gif\"\">\")
smil = Replace(smil, \":D\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin.gif\"\">\")
smil = Replace(smil, \":P\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin2.gif\"\">\")
smil = Replace(smil, \":}\", \"<img width=15 height=15 border=0 src=\"\"smileys/tongue.gif\"\">\")
smil = Replace(smil, \";o\", \"<img width=15 height=15 border=0 src=\"\"smileys/redface.gif\"\">\")
smil = Replace(smil, \";}\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley8.gif\"\">\")
smileys = smil
end function
%>
<html>
<head>
<title><% Response.Write title %></title>
</head>
<body>
<%
Response.Write \"<div align=center><a href=tag.asp>Nyt Tag</a>\" & \"&nbsp;&nbsp;<a href=admin/default.asp>Admin</a>\" & \"<br><br><br><br>\"
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"tagwall.mdb\") & \";UID=admin;PWD=;\"

Set myConn = Server.CreateObject(\"ADODB.Connection\")
Nyhed = \"SELECT top 10 * FROM tagwall ORDER BY ID DESC;\"
myConn.Open tempConn
Set rs = myConn.Execute(Nyhed)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF

Response.Write \"<table border=1 width=350 cellpadding=0 cellspacing=0 bordercolor=#000000>\" & \"<tr>\" & \"<td>\" & \"Navn:&nbsp;&nbsp;&nbsp;\"
Response.Write \"</td>\" & \"<td>&nbsp;\" & rs(\"navn\") & \"&nbsp;</td>\" & \"</tr>\"
Response.Write \"<tr><td>E-Mail:&nbsp;</td><td>&nbsp;<a href=mailto:\" & rs(\"email\") & \">\" & \"<img border=0 src=mail.gif alt=\" & \"Send&nbsp;en&nbsp;mail&nbsp;til&nbsp;\" & rs(\"navn\") & \">\" & \"</a>&nbsp;</td></tr>\"
Response.Write \"<tr><td>Hjemmeside:&nbsp;</td><td>&nbsp;<a href=\" & rs(\"hp\") & \">\" & \"<img border=0 src=hp.gif alt=\" & \"Gå&nbsp;til&nbsp;\" & rs(\"hp\") & \">\" & \"</a>&nbsp;</td></tr>\"
Response.Write \"<tr><td>\" & \"Tekst:&nbsp;&nbsp;&nbsp;\" & \"</td><td>&nbsp;\" & (smileys(rs(\"tag\")))
Response.Write \"</td></tr></table><br><br>\"

rs.MoveNext
Loop
Else
Response.Write \"<p>No Tags!!!!</p>\"
End If
Response.Write \"</div>\"
myConn.Close
Set myConn = Nothing
%>
</body>
</html>

er der en der gider at smide det ind på koden ??

der er vist ingen der svare så jeg lukker her med dette spm...