Den nemmeste løsning på problemet, må være at hente alle rækkerne sorteret efter Rkfoelge, da alle niveauerne så vil ligge rigtigt under hianden. Det eneste der så skal gøres, er at rykke teksten ind. Hvor langt det skal rykkes ind, kan vi gøre ved at lave helttals division med først 10, og hvis der er nogen rest (resten ved helttals divison findes vha. "mod") må tallet ende på [1..9], hvorfor det skal rykkes helt ind ("...."). Ligeledes laves der helttals division med 100. Et ikke testet kode foreslag (feltet Rkfoelge skal i databasen være af typen integer):
'Opret forbindelse til databasen...
'---
SQL = "SELECT * FROM tabel ORDER BY Rkfoelge"
Set rs = Conn.Execute(SQL)
'Vi løber rækkerne igennem
While NOT (rs.BOF OR rs.EOF)
'Vi finder ud af hvor langt der skal rykkes ind
leftSpaces = ""
if rs("Rkfoelge") mod 10 > 0 then
leftSpaces = "...."
else if rs("Rkfoelge") mod 100 > 0 then
leftSpaces = ".."
end if
'Vi udskriver
Response.Write leftSpaces & rs("Navn")
rs.MoveNext
Wend
Set rs = Nothing
'---
'Luk forbindelsenHåber du kan bruge det
Indlæg senest redigeret d. 12.03.2006 11:56 af Bruger #2416