---
title: "mellanrum mellan grupper"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11917-mellanrum-mellan-grupper"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "evesve"
published: "2001-10-02T17:59:00.000Z"
updated: "2001-10-02T20:05:00.000Z"
replies: 2
views: 140
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/11917-mellanrum-mellan-grupper"
---

# mellanrum mellan grupper

## #1 — evesve, 2001-10-02T17:59Z

Hej!
Jag har hittat den här koden någonstans som nästan fungerar:

```

<%	If Request.QueryString("alt") = "viewusers" Then %>

	<font size="1" face="verdana, arial">

	<b>Listar användare!</b><p>

<% Visa = "SELECT * FROM users order by access"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

	<table border="0" cellpadding="0" cellspacing="0">

	<tr>
	<td width="100" class=bg4><font size="1" face="verdana, arial"><b>Användare</b></font></td>
	<td width="100" class=bg4><font size="1" face="verdana, arial"><b>Lösenord</b></font></td>
	<td width="150" class=bg4><font size="1" face="verdana, arial"><b>E-post</b></font></td>
	<td width="100" class=bg4><font size="1" face="verdana, arial"><b>Behörighet</b></font></td>
	</tr>

<%	Do While Not RecSet.EOF %>

	<tr>
	<td class=bg4><font size="1" face="verdana, arial"><% =RecSet("Username") %></font></td>
	<td class=bg4><font size="1" face="verdana, arial"><% =RecSet("Password") %></font></td>
	<td class=bg4><font size="1" face="verdana, arial"><a href="mailto:<% =RecSet("E-post") %>"><% =RecSet("E-post") %></a></font></td>
	<td class=bg4><font size="1" face="verdana, arial"><% =RecSet("Access") %></font></td>
	</tr>

<!--MELLANRUM MELLAN GRUPPERNA-->
<%If Grupp <> RecSet("Access")  then Response.write "<TR><TD colspan=4 HEIGHT=4 bgcolor=white></td></TR>" %>
<%Grupp = RecSet("Access") %>
<%'If RecSet("Access") <> RecSet("Access") then Response.write "<TR><TD colspan=4 HEIGHT=4 bgcolor=white></td></TR>" 
%>
<%'Grupp = RecSet("Access") %>
<!-- SLUT====MELLANRUM MELLAN GRUPPERNA====SLUT-->

<%	RecSet.MoveNext%>

<%Loop %>
<%	RecSet.Close
	End If %>
```

Meningen är att det ska bli:

A
A
A
A

B
B
B  ...osv
I Stället blir det:

A

A
A
A
B

B
B ...osv
Nån klok människa?

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

## #2 — LarsG, 2001-10-02T18:08Z

```
<% If Request.QueryString("alt") = "viewusers" Then %>

<font size="1" face="verdana, arial">

<b>Listar användare!</b><p>

<% Visa = "SELECT * FROM users order by access"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

<table border="0" cellpadding="0" cellspacing="0">

<tr>
<td width="100" class=bg4><font size="1" face="verdana, arial"><b>Användare</b></font></td>
<td width="100" class=bg4><font size="1" face="verdana, arial"><b>Lösenord</b></font></td>
<td width="150" class=bg4><font size="1" face="verdana, arial"><b>E-post</b></font></td>
<td width="100" class=bg4><font size="1" face="verdana, arial"><b>Behörighet</b></font></td>
</tr>
<% Grupp = "" %>
<% Do While Not RecSet.EOF %>

<!--MELLANRUM MELLAN GRUPPERNA-->
<%If Grupp <> RecSet("Access") then
if Grupp <> "" then Response.write "<TR><TD colspan=4 HEIGHT=4 bgcolor=white></td></TR>" 
Grupp = RecSet("Access")
end if %>
<!-- SLUT====MELLANRUM MELLAN GRUPPERNA====SLUT-->

<tr>
<td class=bg4><font size="1" face="verdana, arial"><% =RecSet("Username") %></font></td>
<td class=bg4><font size="1" face="verdana, arial"><% =RecSet("Password") %></font></td>
<td class=bg4><font size="1" face="verdana, arial"><a href="mailto:<% =RecSet("E-post") %>"><% =RecSet("E-post") %></a></font></td>
<td class=bg4><font size="1" face="verdana, arial"><% =RecSet("Access") %></font></td>
</tr>

<% RecSet.MoveNext%>

<%Loop %>
<% RecSet.Close
End If %>
```

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

## #3 — evesve, 2001-10-02T20:05Z

Tackar!
Funkar med den här lilla ändringen

```
<% Grupp = ""
 Do While Not RecSet.EOF %> 
<!--MELLANRUM MELLAN GRUPPERNA-->
<%If Grupp <> RecSet("Access") then
if Grupp <> "" then Response.write "<TR><TD colspan=4 HEIGHT=4 bgcolor=white></td></TR>" 
Grupp = RecSet("Access")
end if %>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11917-mellanrum-mellan-grupper