mellanrum mellan grupper

<% 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 %>

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 02 okt 2001]

[Redigerat av LarsG den 02 okt 2001]

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 %>