<code>Paging navigation
<%
Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from news Order by id desc"
strConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("db/sheep.mdb") & ""
intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1
with objRs
.cursorlocation = 3
.open strSQL, strConString
.pagesize = 10
.absolutepage = intPageId
end with
intPages = cint( objRs.pagecount )
intCurrentPost = 0
do while not objRs.eof and intCurrentPost < objRs.pagesize
strContents = strContents &_
"<table width='50%' border='0' cellspacing='1' cellpadding='1'>" &_
"<tr>" &_
"<td bgcolor='2a343e' height='15'><font face='Verdana' size='1' color='#FFFFFF'>" & objrs("topic") &"</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td bgcolor='314352' height='30' valign='top'><font face='Verdana' size='1' color='#FFFFFF'>" & objrs("new") &"</font><br>" &_
"</td>" &_
"</tr>" &_
"<tr>" &_
"<td bgcolor='2a343e' height='15'>" &_
"<div align='right'><font face='Verdana' size='1' color='#FFFFFF'>Posted by " & objrs("member") &"</font><font face='Verdana' size='1' color='#000000'> - </font><font face='Verdana' size='1' color='#FFFFFF'>" & objrs("datum") &"</font></div>" &_
"</td>" &_
"</tr>" &_
"</table><br>"'"
intCurrentPost = intCurrentPost + 1
objRs.movenext
loop
for i = 1 to objRs.pagecount
strNavigation = strNavigation & " " & i & ""
next
response.write "" & strContents & ""
response.write "<table><tr><td>" & strNavigation & "</td></tr></table><p>"
%>
</code>
navigation koden
--------------------------------------------------------
for i = 1 to objRs.pagecount
strNavigation = strNavigation & " " & i & ""
next
--------------------------------------------------------
den koden använder jag nu
den visar bara: 1 2 3
men jag vill att den sida som visas just då ska vara markerad , tex: 1 [2] 3 (sida 2 visas) plus att bara 1 och 3 blir länkar