skriv kun hver kategori een gang

select distinct

prøvet med

<% do while not rs.EOF %>

<a target="external" onclick="window.open('', 'external', 'width=600,height=600')" href="klip/se.asp?bruger=<%response.write rs("kategori")%>&navn=<%response.write rs("navn")%>"></font><p><%response.write rs("kategori")%></a>

<%  rs.movenext %>
<% loop %>

nej distinct virker ikke
og no doubt, det virker heller ikke (loop uden do)

Kan du ikke bruge distinct da udskriften skal se således ud:

Kategori 1 Navn 1
          Navn 2
          Navn 3
Kategori 2 Navn 2
          Navn 7
osv ...

Eller hva ?

den skal bare skrive
test1
test2
test3


og ikke
test1
test2
test2
test2
test3

Hvorfor kan du så ikke bruge en distinct. ?

eller denne:

strSQL = "Select kategori,navn from klip group by kategori,navn"

nej det jeg har brug for er noget alla :
<%
DO WHILE KATEGORI IS NOT DONE BEFORE
%>
<a href="klip/se.asp"<p><%response.write rs("kategori")%></a>
<%  rs.MoveNext %>

vartemp = "|"

while not rs.EOF

If instr(vartemp, "|" & rs("kategori") & "|") = 0 Then %>
  <a target="external" onclick="window.open    ('', 'external', 'width=600,height=600')" href="klip/se.asp?bruger=<% response.write rs("kategori")%>&navn=<%response.write rs("navn")%>"></font><p><%response.write rs("kategori")%></a>
<% End If
  vartemp = vartemp & rs("kategori") & "|"   
     
  ' Gå til næste Record i rs
  rs.MoveNext

wend


... var en mulighed.

Eller hvis dit recordset er sorteret efter kategori, kan du bruge:
  <%    ' SQL forespørgsel
strSQL = "Select * from klip order by kategori"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>

                  <%
' Gennemløb Recordset (rs) med en løkke
SidsteKat=""
Do
  if rs("kategori").Value<>SidsteKat Then
%>
<a target="external" onclick="window.open('', 'external', 'width=600,height=600')" href="klip/se.asp?bruger=<%response.write rs("kategori")%>&navn=<%response.write rs("navn")%>"></font><p><%response.write rs("kategori")%></a>
       
        <%
  SidsteKat=rs("kategori").Value
  End if
' Gå til næste Record i rs
  rs.MoveNext
%>

->oasen
jeg må indrømme at jeg lige skal bruge lidt tid på at forstå hvorfor det virker, men det gør det altså.
så pointene er dine
tak for hjælpen

Der opbygges såmænd bare en streng, hvor hvert kategori-navn er adskilt med en "|".
Hernæst udskrives den nye kategori kun, hvis den ikke findes i strengen.