---
title: "Hallo.!!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7003-hallo"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "cgi"
published: "2000-10-31T19:32:00.000Z"
updated: "2000-11-01T17:13:00.000Z"
replies: 3
views: 160
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/7003-hallo"
---

# Hallo.!!!

## #1 — cgi, 2000-10-31T19:32Z

Någon som kan se något fel i denna kod:

```
<%
intPage = Request("sida")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * from Db order by nr desc"
strDSN = "DSN=xxx-db;Password=xxx"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write "<p><b>Visar sida " & intPage & " av " & intPageCount & "</b></p>"
  Do While Not rs.EOF And intRecCount > 0
a=a+1
If a mod 2 = 0 then
	bg=("#EFEFEF")
Else
	bg=("#COCOCO")
End If
%>
<%
intRecCount = intRecCount - 1
   rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<tr><td>"
For intNum = 1 To intPageCount
  Response.Write "<a href=test.asp?sida=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=test.asp?sida=" & intPage - 1 & ">Föregående</a>&nbsp;"
Else
  Response.Write "Föregående&nbsp;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=test.asp?sida=" & intPage + 1 & ">Nästa</a> "
Else
  Response.Write "Nästa"
End If
%>
```

jag får inte upp något felmeddelande utan sidorna vill bara inte delas upp.
Vad kan jag glömt, eller rättare sagt vad kan vara fel.?

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

## #2 — Vide, 2000-10-31T20:19Z

Det är nog din loop som spökar... testa detta:

Do While Not RStemp.EOF AND intRecCount \< rs.PageSize

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

## #3 — cgi, 2000-11-01T08:06Z

Nope, funkar inte det heller. :l

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

## #4 — cgi, 2000-11-01T17:13Z

Ingen som kan se var felet ligger.?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7003-hallo