Hej
Jag försöker tillverka en sida som skall hämta info från en tabell (inte två).
Att länka databasen till aspsidan har jag lyckats med men vad jag vill är att skapa rubriker.
Det skall listas en rubrik för en klass samt sedan en underrubrik för gren. (Idrott)
Under respektive klass och gren skall sedan listas de namn och årsbästa som tillhör den klassen och grenen (utan att lista en rubrik för varje anmäld deltagare)

Ex.
F08
400m
deltagare1...
deltagare2.... osv

F08
60m
Deltagare 1....
Deltagare 2.... osv

Går detta att lösa med ett asp script?

ett förslag kan ses på
http://www.ifgota.se/se/arrange/gotagalan/start.html

mvh
elaur

Det är inte så svårt om du har grupp och text på varje post. Se först till att dom är sorterade per grupp. Sen skriver du nåt i stil med:

<code>
do while not rst.eof

if oldgroup = rst("group") then
response.write "Ny grupp: " & rst("group") & "<br>"
end if

response.write " " & rst("text") & "<br>"

oldgroup = rst("group")
rst.movenext
loop
</code>

Hej Pelle och tack för ditt svar.
Vet inte om jag förstod riktig men jag har en databas med poster klass,gren, namn, klubb, årsbästa.
Dom är sorterade i mdb.basen efter klass.

Jag prövade din lösning och den fungerade bra, men jag fortsätter med att få upp rubriken på varaje rad.

Ex.
F08
400 m Namn Klubb årsbästa
Namn klubb årsbästa

osv för samtliga klasser med dess underrubriker.

Hoppas du förstår vad jag menar.
Kika på http://www.hais.info/Tavlingar/Haisspelen/2005/Deltagare/pojkar.asp
så kanske du förstår hur jag menar.

Tack ändå
Ejnar

Om du skall ha flera underrubriker är det bar att skriv så här:

Dim rs
Dim con

Dim fldKlass
Dim fldUnderrubrik
Dim fldNamn
Dim fldKlubb
Dim fldÅrsbästa

Dim lastKlass
Dim lastUnderrubrik


    'Öppna anslutning 
    '...

    'Öppna recordset
    '...

    Set fldKlass = rs("Klass")
    Set fldUnderrubrik = rs("Underrubrik")
    Set fldNamn = rs("Namn")
    Set fldKlubb = rs("Klubb")
    Set fldÅrsbästa = rs("Årsbästa")

    Do until rst.eof
        If  lastKlass <> "" & fldKlass.Value Then
            response.write "Ny grupp: " & fldKlass.Value & "<br>"
            response.write "Ny underrubrik: " & fldUnderrubrik.Value & "<br>"
        Else If  lastUnderrubrik <> "" & fldUnderrubrik.Value Then
            response.write "Ny underrubrik: " & fldUnderrubrik.Value & "<br>"
        End if

        response.Write "       " & fldNamn & ", " & fldKlubb.Value & ", " & fldÅrsbästa.Value &  "<br>"
  
        rs.movenext
    Loop

Tack så hemskt mycket.
Ni är riktigt duktiga.

mvh
Ejnar