Vide- Hjälp [paging]

Jag brukar skriva följande i loopen:

If i = CInt(intCurPage) Then
Olänkad siffra
Else
Länkad siffra 
End If

Hur ser din loop ut?

------------------
// Skarre

<%
Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from guestbook Order by id"
strConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &_
Server.MapPath("db/databas.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

'NEW
function getPreviousLink( intPageId )
  if intPageId > 1 then
    getPreviousLink = " <a href='?pageid=" & intPageId - 1 & "'><< Föregående</a> "
  end if
end function

function getNextLink( intPageId, intPages )
  if cint( intPageId ) < cint( intPages ) then
    getNextLink = " <a href='?pageid=" & intPageId + 1 & "'>Nästa >></a> "
  end if
end function

'OLD

do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td>" & objRs( "BG" ) & "</td>" &_
    "<td>" & objRs( "namn" ) & "</td></tr>"
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next

response.write "<table><tr><td>"& getPreviousLink( intPageId ) &" "& strNavigation & " " & getNextLink( intPageId, intPages ) & "</td></tr></table>" 
response.write "<table>"& strContents & "</table>"
response.write "<table><tr><td>"& getPreviousLink( intPageId ) &" "& strNavigation & " " & getNextLink( intPageId, intPages ) & "</td></tr></table>" 
%>

tagit det jag vill ha på vides grymma kod fattas bara det här jag vill ha =)

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

Fungera bra! tackar!

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

hur? jag har fått hjärnsläpp... jag tänker numera binärt så jag fattar ingenting :)

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

ey du, hur skrev du koden... jag går i villovägar...

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't

for i = 1 to objRs.pagecount
If i = CInt(intPageId) Then
strNavigation = strNavigation & " <B class=""gbactive"">" & i & "</B>"
Else
strNavigation = strNavigation & " <a href=""?pageid=" & i & """ class=""meny"">" & i & "</a>"
End If

du ser vad den ska in.. den börja med samma som den andra..

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

Problem igen.. med i vides kod så vill jag ha om e-mail och hemsida är tom så ska den skriva "ingen hemsida" resp "ingen mail"

hur gör man det med vides kod?

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck