---
title: "Massa RecSet till 1?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/96219-massa-recset-till-1"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "Bosse168"
published: "2004-01-31T15:56:56.000Z"
updated: "2004-02-01T19:18:21.000Z"
replies: 8
views: 301
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/databaser-sql/96219-massa-recset-till-1"
---

# Massa RecSet till 1?

## #1 — Bosse168, 2004-01-31T15:56Z

Någon som vet hur man får ihop alla dessa recset till 1? tror det skulle göra min databas glad :)
Jag blir helt förvirrad själv.

```
Set rs = Connect.Execute("SELECT Count(username) From members")

Set rs2 = Connect.Execute("SELECT Count(username) From members Where status = 'online'")

Response.Write("<b>"& rs2.Fields(0) &"</b> av <b>"& RS.Fields(0) &"</b><br>")

rs.Close : Set rs = Nothing
rs2.Close : Set rs2 = Nothing

Set rs = Connect.Execute("Select id From gb Order BY id Desc LIMIT 1")

Response.Write("<b>"& rs("id") &"</b><br>")

rs.Close : Set rs = Nothing

Set rs = Connect.Execute("Select messageid From mailin Order BY messageid Desc LIMIT 1")

Response.Write("<b>"& rs("messageid") &"</b><br>")

rs.Close : Set rs = Nothing

 
Set rsForum = Connect.Execute("SELECT Count(postid) From forumpost")
Response.Write("<b>"& rsForum.Fields(0) &"</b><br>")
```

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

## #2 — LarsG, 2004-01-31T18:52Z

```
SELECT 'Count',Count(username) , 
  sum(case when status = 'online' then 1 else 0 end)
From members
union all
select 'gb' , max(id), 0  from gb
union all
select 'mailin', max(messageid),0 from mailin
```

Vilka index du har är mer betydelsefullt för prestanda än att du har ett anrop istället för fyra.

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

## #3 — Bosse168, 2004-02-01T17:52Z

Missade att få med:
Set rsForum = Connect.Execute("SELECT Count(postid) From forumpost")

Och hur gör jag för att sedan skriva ut resultaten av räkningarna?

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

## #4 — LarsG, 2004-02-01T18:34Z

```
sql = "SELECT 'Count',Count(username) , 
  sum(case when status = 'online' then 1 else 0 end)
From members
union all
select 'gb' , max(id), 0  from gb
union all
select 'mailin', max(messageid),0 from mailin
union all
SELECT 'posts',Count(postid) , 0 From forumpost"
set rs = connect.execute(sql)
while not rs.eof
  if rs(0) = "Count" then
     response.write rs(1),rs(2)
  else
  ..
   end if
   rs.movenext
wend
```

I princip. Med lite embellering kan det nog bli ganska vackert.

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

## #5 — Bosse168, 2004-02-01T18:54Z

får det här fel messet nu:

Microsoft VBScript runtime error '800a01c2' 

Wrong number of arguments or invalid property assignment: 'Response.write' 

/start.asp, line 22

Och håller med om att det blir vackert. :)

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

## #6 — @nders, 2004-02-01T18:57Z

```
  if rs(0) = "Count" then
     response.write rs(1)  & " - " & rs(2)
  else
```

Eller hur du nu vill presentera det.

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

## #7 — Bosse168, 2004-02-01T19:05Z

Funkar klocka men det skriver bara ut antalet medlemar och hur många som är online.

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

## #8 — @nders, 2004-02-01T19:09Z

I else-blocket lägger du koden för att skriva ut resten. Så: vad har du lagt i else-blocket?

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

## #9 — Bosse168, 2004-02-01T19:18Z

ohh vad dum jag är skyller på bakfyllan. ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/96219-massa-recset-till-1