---
title: "Plocka ut bara första posten ur ett recordset"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/76871-plocka-ut-bara-första-posten-ur-ett-recordset"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ENo"
published: "2003-05-14T07:42:39.000Z"
updated: "2003-05-14T11:35:51.000Z"
replies: 11
views: 386
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/76871-plocka-ut-bara-första-posten-ur-ett-recordset"
---

# Plocka ut bara första posten ur ett recordset

## #1 — ENo, 2003-05-14T07:42Z

Hej.

Detta är mitt första inlägg, dvs fråga....

Jag undrar om det finns nån som kan hjälpa mig med en liten sak.
Jag har ett recordset där jag läer upp rader med kategorier och nyheter under respektive kategori, det jag vill göra men inte får till är att för varje nyhet skriva ut kategorirubriken 1 gång endast... Så här ser det ut....:
\==================================
\<%

strSql = "SELECT kategori, id FROM kategorier" 
Set rsCat = Connect.Execute(strSql) 
%\>
\<table border="0" width="150" cellpadding="2" cellspacing="0"\>
\<%Do While Not rsCat.EOF %\>

\<tr\>\<td\>\<img src=../images/spacer.gif width=1 height=1 border=0 alt=\>\</td\>\</tr\>

\<%

		strSql = "SELECT id, rubrik, kategori, ingress FROM nyheter WHERE visa=1 and kategori_id = " & rsCat("id") 
		Set rsNews = Connect.Execute(strSql) 
		%\>
		
		\<%
        Do While Not rsNews.EOF 
		%\>
		
		\<% 
		
		
		If  (rsNews("id") \<\>  "") Then 
				'Response.write rsCat("Kategori")
		        Response.write"\<tr\>\<th\>" & rsCat("kategori") & "\</tr\>\</th\>"
				Response.Write "\<tr\>\<td class=statusLeftRight\>\<b\>" & rsNews("Rubrik") & "\</b\>"	& " \</td\>\</tr\>\<tr\>\<td class=statusBottomandright\>" & rsNews("ingress") & "\<br\>" &\_
				"\<a href=news/nyhet.asp?id=" & rsNews("id") & "&kategori=" & rsNews("kategori") & "\>" & "L&auml;s mer\</a\>\</td\>\</tr\>"
				'Response.write "\<tr\>\<td\>\<img src=../images/spacer.gif width=1 height=1 border=0 alt=\>\</td\>\</tr\>"
		End if%\>

	\<%
	
	rsNews.MoveNext 
        Loop %\>

\<%        rsNews.Close 
        Set rsNews = Nothing
		RsCat.MoveNext 
		
		Loop 

rsCat.Close 
Set rsCat = Nothing 

%\>

\</table\>
\=================================
Är det nån som kan hjälp till???

MVH Erik

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

## #2 — m_soderlund, 2003-05-14T08:02Z

**Välkommen till wF!!**

Oj, din kod verkar lite grötig och ineffektiv.. Ett tips så länge: använd kod-taggen här på wF, samt skippa alla dina \<% och %\>.

```
<% 

strSql = "SELECT kategori, id FROM kategorier" 
Set rsCat = Connect.Execute(strSql) 
%> 
<table border="0" width="150" cellpadding="2" cellspacing="0"> 
<%Do While Not rsCat.EOF %> 

<tr><td><img src=../images/spacer.gif width=1 height=1 border=0 alt=></td></tr> 

<% 

strSql = "SELECT id, rubrik, kategori, ingress FROM nyheter WHERE visa=1 and kategori_id = " & rsCat("id") 
Set rsNews = Connect.Execute(strSql) 

Do While Not rsNews.EOF 

If (rsNews("id") <> "") Then 
'Response.write rsCat("Kategori") 
Response.write"<tr><th>" & rsCat("kategori") & "</tr></th>" 
Response.Write "<tr><td class=statusLeftRight><b>" & rsNews("Rubrik") & "</b>" & " </td></tr><tr><td class=statusBottomandright>" & rsNews("ingress") & "<br>" &_ 
"<a href=news/nyhet.asp?id=" & rsNews("id") & "&kategori=" & rsNews("kategori") & ">" & "Läs mer</a></td></tr>" 
'Response.write "<tr><td><img src=../images/spacer.gif width=1 height=1 border=0 alt=></td></tr>" 
End if

rsNews.MoveNext 
Loop

rsNews.Close 
Set rsNews = Nothing 
RsCat.MoveNext 

Loop 

rsCat.Close 
Set rsCat = Nothing 

%> 

</table>
```

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

## #3 — m_soderlund, 2003-05-14T08:10Z

Kanske denna kod blir bättre:

```
<%
Dim Recs, i, head
[red]Recs = RsNews.Recordcount[/red]
For i = 1 To Recs

If (rsNews("id") <> "") Then 
'Response.write rsCat("Kategori") 
Response.write"<tr><th>" & rsCat("kategori") & "</tr></th>" 

If i = 1 Then
Head = RsNews("Rubrik")
Else Head = ""
End If

Response.Write "<tr><td class=statusLeftRight><b>" & Head & "</b>" & " </td></tr><tr><td class=statusBottomandright>" & rsNews("ingress") & "<br>" &_ 
"<a href=news/nyhet.asp?id=" & rsNews("id") & "&kategori=" & rsNews("kategori") & ">" & "Läs mer</a></td></tr>" 
'Response.write "<tr><td><img src=../images/spacer.gif width=1 height=1 border=0 alt=></td></tr>" 
End if

Next
%>
```

Den ska in mellan *Set rsNews = Connect.Execute(strSql)* och *RsNews.Close*. Hoppas att det fungerar..

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

## #4 — ENo, 2003-05-14T08:49Z

För det första, tack för tipsen...;-)
Jag är som sagt ny så det tar lite tid innan man kört in sig på alla finesser...

Nja jag får lite fel: Object required: ''

På raden: Recs = Rs.Recordcount

Vad saknas...?

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

## #5 — Nickemannen, 2003-05-14T09:19Z

Set Rs = Server.CreateObject("ADODB.Recordset") 
Innan sql satsen tror jag

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

## #6 — ENo, 2003-05-14T09:41Z

Det stämmer nog men nu får jag: Åtgärden är inte tillåten när objektet är stängt. På raden:

```
Recs = Rs.Recordcount
```

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

## #7 — MickeA.com, 2003-05-14T10:01Z

Men har du inte stängt ditt RS innan då?

Kolla så du inte har ngra:

```
rs = NOTHING
rs = ""
```

Eller liknande innan...

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

## #8 — ENo, 2003-05-14T10:19Z

Nope inget sånt... Jag skickar koden igen så får vi se om du hittar nåt....

```
<%
strSql = "SELECT kategori, id FROM kategorier" 
Set rsCat = Connect.Execute(strSql) 
	%>
<table border="0" width="150" cellpadding="2" cellspacing="0">

		<%
Do While Not rsCat.EOF 
'Response.write rsCat("kategori")
		%>
<tr><td><img src=../images/spacer.gif width=1 height=1 border=0 alt=></td></tr>
       <%
Set Rs = Server.CreateObject("ADODB.Recordset") 
strSql = "SELECT id, rubrik, kategori, ingress FROM nyheter WHERE visa=1 and kategori_id = " & rsCat("id") 
Set rsNews = Connect.Execute(strSql) 
		%>
		<%
Dim Recs, i, head
Recs = Rs.Recordcount
For i = 1 To Recs

If (rsNews("id") <> "") Then 
'Response.write rsCat("Kategori") 
Response.write"<tr><th>" & rsCat("kategori") & "</tr></th>" 

If i = 1 Then
Head = RsNews("Rubrik")
Else Head = "Inget"
End If

Response.Write "<tr><td class=statusLeftRight><b>" & Head & "</b>" & " </td></tr><tr><td class=statusBottomandright>" & rsNews("ingress") & "<br>" &_ 
"<a href=news/nyhet.asp?id=" & rsNews("id") & "&kategori=" & rsNews("kategori") & ">" & "Läs mer</a></td></tr>" 

End if

Next
	%>
		
	<%      
rsNews.Close 
Set rsNews = Nothing

RsCat.MoveNext 
Loop 

rsCat.Close 
Set rsCat = Nothing 
	%>

</table>
```

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

## #9 — m_soderlund, 2003-05-14T10:36Z

Ooops, det ska vara:

```
RsNews.Recordcount
```

Du har ju inte nån variabel som heter Rs.. :D

[Klick](http://www.webforum.nu/showthread.php?s=&postid=631845#post631845). Den röda koden.. :)

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

## #10 — ENo, 2003-05-14T10:44Z

Ja visst, naturligtvis... ;-)

Men då får jag en tom sida.....

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

## #11 — m_soderlund, 2003-05-14T10:46Z

Så här kanske:

```
<%
Dim Recs, i, head
Recs = RsNews.Recordcount

Do While Not rsNews.EOF 
For i = 1 To Recs

If (rsNews("id") <> "") Then 
'Response.write rsCat("Kategori") 
Response.write"<tr><th>" & rsCat("kategori") & "</tr></th>" 

If i = 1 Then
Head = RsNews("Rubrik")
Else Head = ""
End If

Response.Write "<tr><td class=statusLeftRight><b>" & Head & "</b>" & " </td></tr><tr><td class=statusBottomandright>" & rsNews("ingress") & "<br>" &_ 
"<a href=news/nyhet.asp?id=" & rsNews("id") & "&kategori=" & rsNews("kategori") & ">" & "Läs mer</a></td></tr>" 
'Response.write "<tr><td><img src=../images/spacer.gif width=1 height=1 border=0 alt=></td></tr>" 
End if

Next

RsNews.Movenext
Loop
%>
```

Med reservation för att koden är ganska slarvig ändå..

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

## #12 — ENo, 2003-05-14T11:35Z

Nope samma resultat. Tom sida...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/76871-plocka-ut-bara-första-posten-ur-ett-recordset