---
title: "EOF och sortering?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92795-eof-och-sortering"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "medialabs"
published: "2003-12-16T15:22:56.000Z"
updated: "2003-12-17T09:01:39.000Z"
replies: 6
views: 266
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/92795-eof-och-sortering"
---

# EOF och sortering?

## #1 — medialabs, 2003-12-16T15:22Z

Tjenare, 

har lyckats få ihop en fungerande kod för att presentera lite information till användaren. Nu till mitt problem, skulle vilja skriva ut ett meddelande till användaren om det inte finns något inlagg i databasen. 

och även sortera de olika "memo:rna" efter datum om det går. har. :)

```
<%
Set ConnectMEMO = Server.CreateObject("ADODB.Connection")
ConnectMEMO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:\home\medialabs.se\plus.mdb"

SQL = "SELECT * From tblmemo WHERE struser = '" & session("id") &"'"
Set RecSetMEMO = ConnectMEMO.Execute(SQL)
	
%>

<%Do until RecSetMEMO.EOF%>

	<b>Datum:</b> <%=RecSetMEMO("strtid")%><br>
	<b>Memo:</b> <%=RecSetMEMO("strmemo")%><br>
	<br><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td height="1" bgcolor="#EBF0F5"></td>
                          </tr>
                        </table><br>
	<%RecSetMEMO.MoveNext%>

	<%Loop%>

<%
RecSetMEMO.Close
Set RecSetMEMO = nothing
ConnectMEMO.Close
Set ConnectMEMO = nothing
%>
```

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

## #2 — @nders, 2003-12-16T15:25Z

```
<%
Set ConnectMEMO = Server.CreateObject("ADODB.Connection")
ConnectMEMO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:\home\medialabs.se\plus.mdb"

SQL = "SELECT * From tblmemo WHERE struser = '" & session("id") &"' [b]ORDER BY dittdatumfält[/b]"
Set RecSetMEMO = ConnectMEMO.Execute(SQL)
	
[b]If RecSetMEMO.EOF then
     Response.write "Finns ju inget! :("
End if[/b]

Do until RecSetMEMO.EOF%>

	<b>Datum:</b> <%=RecSetMEMO("strtid")%><br>
	<b>Memo:</b> <%=RecSetMEMO("strmemo")%><br>
	<br><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td height="1" bgcolor="#EBF0F5"></td>
                          </tr>
                        </table><br>
	<%RecSetMEMO.MoveNext%>

	<%Loop%>

<%
RecSetMEMO.Close
Set RecSetMEMO = nothing
ConnectMEMO.Close
Set ConnectMEMO = nothing
%>
```

Mvh

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

## #3 — medialabs, 2003-12-16T15:30Z

@nders!

helt underbart!

tackar igen  :)

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

## #4 — @nders, 2003-12-16T18:20Z

Varsågod. :)

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

## #5 — OveRRidE, 2003-12-17T08:30Z

Jag skulle vilja fråga @nders varför han har valt att inte lägga loopen inuti if-satsen som kontrollerar recordset:et. Om det nu är tomt på riktigt och det där skrivs ut, kan det fortfarande dyka upp ett felmeddelande på raden under när loopen drar igång.

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

## #6 — @nders, 2003-12-17T08:41Z

Nja, loopen drar aldrig igång, så det behövs egentligen inte. Men visst, av tydlighetsskäl skulle jag väl kunna tänkas lägga in loopen i en else-del av if-satsen.

Mvh

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

## #7 — OveRRidE, 2003-12-17T09:01Z

Jag har dock bestämt för mig att loopar kan generera fel om recordset:et är EOF. Det jag tvekar på är ifall det gäller Do Until-loopar eller om det kanske bara gäller While... 

Hur som helst, jag har fått felmeddelandet själv några gånger, så av säkerhetsskäl kan det ju vara bra att ta som för vana att göra så. :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/92795-eof-och-sortering