Udskriv struktur i recordset

skal udskrive til brugeren????+??

noget i denne stil!
SQL=\"Select* From Koder\"
set rs=conn.execute(SQL)
Response.Write \"<select name=Mandag size=1>\"
Response.Write \"<OPTION SELECTED VALUE=\'\'>Velg Fravær</option>\"     
Do While Not rs.EOF
  Response.Write \"<option value=\'\" & rs(\"id\") & \"\'>\" & rs(\"parent\") & \"</option>\"
  rs.MoveNext
Loop%>

<%
\'Global vars
Dim levelArr, subFolderCountArr, filesCountArr, fileCount
Dim dbConn, Conn

dbConn = \"SERVER=local; DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/menu.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open dbConn

levelArr = Array(\"0\")
subFolderCountArr = Array(0)
fileCount = 0
tmpCounter = 0
counter = -1

Call getSubFolders( \"0\" )

Sub getSubfolders( id )
  Set subRS = Conn.Execute(\"SELECT * FROM tabell WHERE Parent = \" & levelArr( UBOUND(levelArr) ) & \" ORDER BY ID ASC\")
    if not( subRS.EOF or subRS.BOF ) then
     
        while not subRS.EOF
          ReDim preserve levelArr( UBOUND(levelArr) + 1 )
            levelArr( UBOUND(levelArr) ) = subRS(\"ID\")
           
            Call countSubFolders()
           
            parentLevel  = tmpCounter - counter
            parentID    = subRS(\"Parent\")
            tmpID      = subRS(\"ID\")
            tmpFolderId = 0
            tmpFolders  = haveSubFolders( subRS(\"ID\") )
           
          folderLength = UBOUND( levelArr )
           
           
          for i = 0 to UBOUND( levelArr )
              response.write \"-\"
            next
            response.write tmpID & \"<br>\"
            if( tmpFolders ) then
              Call getSubFolders( tmpID )
            end if

            subRS.MoveNext
            counter = counter - 1
            ReDim preserve levelArr( UBOUND(levelArr) - 1 )
            ReDim preserve subfolderCountArr( UBOUND( subFolderCountArr ) - 1 )
        wend
    end if
end Sub
           
Sub countSubFolders()
    Set RSCount = Conn.Execute(\"SELECT COUNT(ID) AS count FROM tabell WHERE Parent = \" & levelArr( UBOUND( levelArr) ) )
    ReDim preserve subFolderCountArr( UBOUND( subFolderCountArr ) + 1 )
    subFolderCountArr( UBOUND( subFolderCountArr ) ) = RSCount(\"count\")
    if( counter = -1 ) then
      counter = subFolderCountArr( UBOUND( subFolderCountArr ) - 1 )
        tmpCounter = counter
    end if
end sub
           

function haveSubFolders( id )
  Set tmpRS = Conn.Execute(\"SELECT COUNT(ID) AS count FROM tabell WHERE Parent = \" & id )
    if( tmpRS(\"count\") > 0 ) then
      set tmpRS = nothing
      haveSubFolders = true
    else
      set tmpRS = nothing
      haveSubFolders = false
    end if
end function

\' Close connection
  Conn.Close
    set conn = nothing
%>
</body>
</html>

/nute

<%

Function ShowReplies(bID, Conn)
Dim RS
SQL = \"SELECT id, parent FROM tabel WHERE  ID = \" & bID & \" ORDER BY Dato\"
Set RS = Conn.Execute(SQL)
If NOT RS.EOF Then
  FoundSome = True
%><ul><%
End If
Do While Not RS.EOF
  %><li><% = bRS(\"id\") %> (niveau <%=bRS(\"parent\")%></li><%

  ShowReplies rs(\"BeskedID\"), Conn
  RS.MoveNext
Loop
If FoundSome Then

%></ul><%

End If

End Function

%>



Set bRS = Conn.Execute(\"SELECT id, parent FROM tabel parent = 0 ORDER BY id\")

Do While NOT bRS.EOF

  %><li><% = bRS(\"id\") %> (niveau <%=bRS(\"parent\")%></li><%

Call Showreplies(bRs(\"BeskedID\"), Conn)
bRS.MoveNext
Loop

Hej nute
Du havde vist lige den rette stump kode ved hånden, men det kan jo også altid bruges....
Pointene er velfortjente...

DS

takker :-)

/nute