Skal splitte en løkke op..eller noget

Så kan du gemme den "kat" du er kommet til så de to første linjer:

      Do until RecSet.EOF
      Response.write RecSet("kat")

Bliver til dette:

      Do until RecSet.EOF
      tmpKat = RecSet("kat")
      Response.write RecSet("kat")


og så udskrive <br> efter movenext hvis det er en ny kategori, så disse to:

      RecSet.MoveNext
      Loop

Bliver til:

      RecSet.MoveNext
      if not RecSet.EOF then
        if tmpKat <> RecSet("kat") then Response.Write "<br>"
      end if
      Loop

Kanon...taak.
Jeg har lige et tillægsspørgsmål...
Jeg ville jo allerhelst have kategorinavnet som overskrift istedet for et <br>, men navnet ligger i en anden tabel.
Jeg har:
Tabel1
Kategorier
id - navn

Tabel2
Produkter
id - navn - artnr - beskrivelse osv...

Hvordan laver jeg sql'en om så jeg kan hente navnet også ?

Du kan gøre det sådan her, hvis kat i produkter er en tal kolonne. :

SQL = "SELECT produkter.*, Kategorier.navn as katnavn FROM produkter INNER JOIN Kategorier ON  Produkter.kat = Kategorier.id ORDER By kat,rknr"

Så kan du prøve at rette koden til dette så er kategorinanvet en overskrift og linkne kommer uder:


          <%
      SQL = "SELECT produkter.*, Kategorier.navn as katnavn FROM produkter INNER JOIN Kategorier ON  Produkter.kat = Kategorier.id ORDER By kat,rknr"
      Set RecSet = Connect.Execute(SQL)
      IF RecSet.EOF then
      Response.Write "ingen produkter"
      ELSE
      tmpKat=""
      Do until RecSet.EOF
      if tmpKat <> RecSet("kat") then
        Response.write "<h2>" & RecSet("katnavn") & "<h2><br>"
        tmpKat = RecSet("kat")
      end if
      Response.write " - "
      Response.write RecSet("rknr")
      Response.write " "
      Response.Write "<b>" & RecSet("namn") & "</b> | <a href='admin.asp?object=product&do=delete&id=" & RecSet("id") & "'>Slet</a> / "
      Response.Write "<a href='admin.asp?page=products&more=update&id=" & RecSet("id") & "'>Ret</a>"
      Response.Write " "& kollabild(RecSet("id"))&"<br>"
      RecSet.MoveNext
      if not RecSet.EOF then
        if tmpKat <> RecSet("kat") then Response.Write "<br>"
      end if
      Loop
      END IF
      RecSet.Close
      Set RecSet = nothing
      %>

Kanon.....det var en stor hjælp...takker mange gange