---
title: "Vide- Hjälp [paging]"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14302-vide-hjälp-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2002-02-06T20:46:00.000Z"
updated: "2002-02-08T23:34:00.000Z"
replies: 7
views: 274
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14302-vide-hjälp-paging"
---

# Vide- Hjälp [paging]

## #1 — voigtann1, 2002-02-06T20:46Z

Använder din kod exakt.. vill fråga om:
Skulle vilja ha att på den sidan man är på så ska det inte vara en länk utan ex:

1 2 3 4 5
och du är på sidan 1 så ska den vara ex tjock istället för en länk

Vill veta hur man gör.
tack!

Permalänk: https://www.webforum.nu/p/14302

## #2 — Skarre, 2002-02-06T21:23Z

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?

Permalänk: https://www.webforum.nu/p/309894

## #3 — voigtann1, 2002-02-06T21:24Z

```
<%
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 =)

Permalänk: https://www.webforum.nu/p/309895

## #4 — voigtann1, 2002-02-06T21:25Z

Fungera bra! tackar!

Permalänk: https://www.webforum.nu/p/309896

## #5 — Sico, 2002-02-06T21:43Z

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

Permalänk: https://www.webforum.nu/p/309897

## #6 — Sico, 2002-02-07T21:17Z

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

Permalänk: https://www.webforum.nu/p/309898

## #7 — voigtann1, 2002-02-08T14:02Z

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..

Permalänk: https://www.webforum.nu/p/309899

## #8 — voigtann1, 2002-02-08T23:34Z

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?

Permalänk: https://www.webforum.nu/p/309900

---

Tråden på webben: https://www.webforum.nu/amne/asp/14302-vide-hjälp-paging