Paging
her er min kode er der en der gider at smække noget paging på såden kun viser 10 poster adgangen på hver side ??her er min kode:
<!--#include file=\"setup.asp\"-->
<!--#include file=\"function.asp\"-->
<html>
<head>
<title><% Response.Write title %></title>
</head>
<body>
<%
Response.Write \"<div align=center><a href=tag.asp>Nyt Tag</a>\" & \" <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: \"
Response.Write \"</td>\" & \"<td> \" & rs(\"navn\") & \" </td>\" & \"</tr>\"
Response.Write \"<tr><td>E-Mail: </td><td> \"
if rs(\"email\") = \"@\" or rs(\"email\") = \"\" then
Response.Write \"<b>N/A</b>\"
Else
Response.Write \"<a href=mailto:\" & rs(\"email\") & \">\" & \"<img border=0 src=mail.gif alt=\" & \"Send en mail til \" & rs(\"navn\") & \">\" & \"</a> </td></tr>\"
End If
Response.Write \"<tr><td>Hjemmeside: </td><td> \"
if rs(\"hp\") = \"http://\" or rs(\"hp\") = \"\" then
Response.Write \"<b>N/A</b>\"
Else
Response.Write \"<a href=\" & rs(\"hp\") & \">\" & \"<img border=0 src=hp.gif alt=\" & \"Gå til \" & rs(\"hp\") & \">\" & \"</a> </td></tr>\"
end if
Response.Write \"<tr><td>\" & \"Tekst: \" & \"</td><td> \" & (LinkTekst(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>
jeg vil ikke have links som:
http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp
og
http://www.netcoders.dk/articles.asp?mode=show_article&article_id=50&tech_id=1
