---
title: "if rs.EOFthen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14385-if-rs-eofthen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sven"
published: "2002-02-12T17:57:00.000Z"
updated: "2002-02-12T20:56:00.000Z"
replies: 16
views: 359
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/14385-if-rs-eofthen"
---

# if rs.EOFthen

## #1 — sven, 2002-02-12T17:57Z

Jag har denna koden för att läsa i min gästbok. Det funkar som det ska.

```
<%
	Set Rs = Server.Createobject("Adodb.Recordset")	
	SQL = "SELECT * FROM guestbook ORDER BY datum"
	intPageId = request.querystring( "pageid" )
		if intPageId = "" then intPageId = 1
	with Rs
	  .cursorlocation = 3
	  .open SQL, db
	  .pagesize = 5
	  .absolutepage = intPageId
	end with
intPages = cint( Rs.pagecount )
intCurrentPost = 0
		Function Radbryt(rfix)
			rfix = "<P>" & Replace(rfix, vbCrLf, "<br>") & "</P>"
			Radbryt = rfix
		End Function		
do while not Rs.eof and intCurrentPost < Rs.pagesize
strContents = strContents %><tr><td width="180" align="left"><b><a href="mailform.asp?do=<%=rs("epost")%>&name=<%=rs("fran")%>"><%=rs("fran")%></a></b></td>
<td width="120" align="right"><b><%=rs("datum")%></b></tr>
<tr><td width="400" colspan="2"><%=radbryt(rs("meddelande"))%></td></tr>
<tr><td with="400" colspan="2"></td></tr>
<%
intCurrentPost = intCurrentPost + 1
Rs.movenext
loop
for i = 1 to Rs.pagecount
strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next
response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td>" & strNavigation & "</td></tr></table>" 
%>
```

Men om databasen är tom så blir det fel. Jag måste altså någonstans peta in If rs.EOF then
Response.Write "Gästboken är tom"
else

Frågan är nu. Var gör jag det?

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

## #2 — Jesper T, 2002-02-12T18:08Z

Lättviktsmodellen kommer här:
Varför inte lägga in ett litet inlägg av dig själv, där du uppmanar andra till att skriva inlägg?
Annars är det väl:

```
If rs.EOF then
Response.Write "Keine inlägg here"
Else
do while not Rs.eof and intCurrentPost < Rs.pagesize
```

MVH Jesper T

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

## #3 — sven, 2002-02-12T18:12Z

Det är klart att man kan göra ett eget inlägg. Men jag vill helst få det att funka helt ut om du förstår.

Problemet är inte koden. Problemet är var den skall vara.

Eller jag vet inte... Plötslight blir allt bara svart.... :q

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

## #4 — Palleman, 2002-02-12T19:11Z

```
<%
Set Rs = Server.Createobject("Adodb.Recordset") 
SQL = "SELECT * FROM guestbook ORDER BY datum"
intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with Rs
.cursorlocation = 3
.open SQL, db
.pagesize = 5
.absolutepage = intPageId
end with

intPages = cint( Rs.pagecount )
intCurrentPost = 0
Function Radbryt(rfix)
rfix = "<P>" & Replace(rfix, vbCrLf, "<br>") & "</P>"
Radbryt = rfix
End Function 
  
[b]If Rs.EOF Then
Response.Write "Inga meddelande in gästboken ännu."
  
Else[/b]
  
do while not Rs.eof and intCurrentPost < Rs.pagesize
strContents = strContents %><tr><td width="180" align="left"><b><a href="mailform.asp?do=<%=rs("epost")%>&name=<%=rs("fran")%>"><%=rs("fran")%></a></b></td>
<td width="120" align="right"><b><%=rs("datum")%></b></tr>
<tr><td width="400" colspan="2"><%=radbryt(rs("meddelande"))%></td></tr>
<tr><td with="400" colspan="2"></td></tr>
<%
intCurrentPost = intCurrentPost + 1
Rs.movenext
loop

[b]End If[/b]

for i = 1 to Rs.pagecount
strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next
response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td>" & strNavigation & "</td></tr></table>" 
%>
```

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

## #5 — sven, 2002-02-12T19:17Z

Tyvärr... funkar inte...

Får fel på raden 

```
.absolutepage = intPageId
```

som inte gillar att databasen är tom

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

## #6 — Erik Juhlin, 2002-02-12T19:19Z

Du får köra iffen innan den raden. Får väl ta och skippa with prylen. :)

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

## #7 — sven, 2002-02-12T19:22Z

Man kan ju göra så... men det är inte rätt...

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

## #8 — Jesper T, 2002-02-12T19:24Z

> Man kan ju göra så... men det är inte rätt...

Spelar det någon roll om det fungerar? ;)

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

## #9 — sven, 2002-02-12T19:38Z

Det beror väl på i vilket syfte man gör olika saker och ting.
Om man tex försöker förstå sig på grejor så är det väl ganska viktig... eller?

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

## #10 — Erik Juhlin, 2002-02-12T20:19Z

Är inte rätt? Hur ska man annars göra? Det går inte att ange AbsolutePage på ett recordset som är EOF....

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

## #11 — sven, 2002-02-12T20:30Z

Så om jag nu förstår vad du säger är att det inte går att ha paging och en tom databas?

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

## #12 — Erik Juhlin, 2002-02-12T20:35Z

Självklart går det. Men du måste kolla om det är tomt innan du skriver Rs.AbsolutePage. Exempel:

```
If Not Rs.EOF Then Rs.absolutepage = intPageId
```

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

## #13 — jboy_87, 2002-02-12T20:35Z

lägg in on error resume next så ska det gå om ajg fattar rätt hehe

\[Redigerat av jboy_87 den 12 feb 2002\]

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

## #14 — sven, 2002-02-12T20:38Z

Lysande jboy_87 .... Tänk så enkelt det kan vara ändå...

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

## #15 — Erik Juhlin, 2002-02-12T20:41Z

Varför köra med något som On Error Resume Next istället för att lära sig koda korrekt kod?

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

## #16 — sven, 2002-02-12T20:46Z

Skall testa ditt förslag också....

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

## #17 — sven, 2002-02-12T20:56Z

Tack Erik... det funkar.....

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14385-if-rs-eofthen