---

Jeg er i gang med at lave et messageboard, hvor man kan skrive nye indlæg og
svare på dem og andre svar. Man kan også saktens skrive og svare også på
andre svar, men jeg ved ikke helt hvordan jeg skal få den til at vise de
svar der er lavet på svar.

I min (mdb) database har jeg en kolonne der hedder BeskedNr (som for et
fortløbende nummer) og en der hedder SvarTil (hvis det ikke er svar på en
besked, så får den værdien 0 (nul) eller for den det nummer som der er
svaret på).

Jeg vil gerne have den til at indrykke svar, det havde jeg forestillet mig
kunne gøres vha. <ul>.

Er der nogen som har gode forslag til hvordan jeg kan få vist beskederne på
ovennevnte måde eller har du en side, der kan lave noget tilsvarende, så vil
jeg være meget taknemlig.

Jeg har her prøvet at lave en skitse over hvordan det kunne laves:

|---------------------------------------------
| vis første besked hvor svartil = 0
| |-------------------------------------------
| | Hvis der er svar til denne besked, så vis
| | den (indrykket <ul>). Hvis der er svar på den så gentag
| |-------------------------------------------
| | Hvis der ikke er svar på den så vis
| | (gå til) svar på forige - gentag
| |-------------------------------------------
| hvis der er flere svar til besked med
| svartil = 0, så gentag
|
| ellers vis næste besked med svartil = 0
| gentag
|---------------------------------------------


Mvh. Christoffer

---

Hej

Du kunne f.eks. lave en funktion i retning af nedenstående der vha rekursion
kan udskrive til vilkårligt niveau. Jeg har ikke tjekket det så der er
utvivlsomt fejl, men ideen skulle være klar nok

Sub Udskriv(Nummer, Niveau)
Dim Resultat
SQL = "SELECT titel, BeskedNr FROM beskedtabel WHERE SvarTil = " &
Nummer
Set Resultat = Conn.Execute(SQL)
For I = 0 To Niveau
Response.Write(" ")
Next
Response.Write(Resultat.Fields("titel") & "<br>")
SQL = "SELECT BeskedNr FROM beskedtabel WHERE SvarTil = " &
Resultat.Fields("BeskedNr")
Set Resultat = Conn.Execute(SQL)
While (NOT Resultat.EOF)
Udskriv(Resultat.Fields("BeskedNr", Niveau+1)
Resultat.MoveNext
Wend
End Sub

-------------------------------------------------------------------------

SQL = "SELECT BeskedNr FROM beskedtabel WHERE SvarTil=0"
Set Resultat = Conn.Execute(SQL)
While (NOT Resultat.EOF)
Udskriv(Resultat.Fields("BeskedNr"), 0)
Resultat.MoveNext
Wend

MvH
Andreas