Rekursiv funktion til at finde level

tror umiddelbart selv jeg har løst det:

function getLevel(pageId)

    call openLocalDB(conn, "mainDatabase.mdb")
    strSQL = "SELECT title, refPage, id from siteSystem where id=" & pageId
    set rs = conn.execute(strSQL)
   
    response.Write(rs("title"))
   
    if rs("refPage") = 0 then
        ' nothing
    else
        call getLevel(rs("refPage"))
    end if
   
end function

Men hvordan kan jeg returnere det som en værdi i stedet for at skrive det ud?

variabel...

Lige dén der behøver ikke være rekursiv. Bare loop indtil refID er 0...

og fordi jeg er doven :-) 200 point, hvis du smider mig et eksmpel.. :=)

Helt utestet - Mit VB er rustent ;)

function getLevel(pageId)
    call openLocalDB(conn, "mainDatabase.mdb")
    strSQL = "SELECT title, refPage, id from siteSystem where id=" & pageId
    set rs = conn.execute(strSQL)
    s = ""
    while rs("refPage") <> 0
      response.Write(rs("title"))
      if s <> "" then
        s = s + "&gt;"
      end if
      s = rs("title")
      strSQL = "SELECT title, refPage, id from siteSystem where id=" & rs("refPage")
      set rs = conn.execute(strSQL)
    wend
    getLevel = s
end function

Tjaa det virker jo perfekt.

har lige modificeret det en smule..

function getLevel(pageId)
    call openLocalDB(conn, "mainDatabase.mdb")
    strSQL = "SELECT title, refPage, id from siteSystem where id=" & pageId
    set rs = conn.execute(strSQL)
    s = ""
    while rs("refPage") <> 0
    s = rs("title")
     
      strSQL = "SELECT title, refPage, id from siteSystem where id=" & rs("refPage")
      set rs = conn.execute(strSQL)
      s = rs("title") & "\" & s
    wend
    getLevel = s
end function


smid svar for point

Ok :)

Jaaah inden vi kommer for godt igang :) det virker ikke ud i 3. niveau... kun i niveau 1 og 2 ....

function getLevel(pageId)
    call openLocalDB(conn, "mainDatabase.mdb")
    getLevelSQL = "SELECT title, refPage, id from siteSystem where id=" & pageId
    set getLevelRS = conn.execute(getLevelSQL)
   
    if getLevelRs.eof or GetLevelRs.bof then
        ' nothing....
    else
        s = ""
        while getLevelRS("refPage") <> 0
        s = getLevelRS("title")
         
          getLevelRS = "SELECT title, refPage, id from siteSystem where id=" & getLevelRS("refPage")
          set getLevelRS = conn.execute(getLevelRS)
          s = getLevelRS("title") & "/" & s
        wend
        getLevel = s
    end if
end function

Det er ikke helt korrekt, den tager bare ikke level 0 med.


function getLevel(pageId)
    call openLocalDB(conn, "mainDatabase.mdb")
    getLevelSQL = "SELECT title, refPage, id from siteSystem where id=" & pageId
    set getLevelRS = conn.execute(getLevelSQL)
        s = ""
        while getLevelRS("refPage") <> 0

        s = getLevelRS("title") & "/" & s
         
          getLevelRS = "SELECT title, refPage, id from siteSystem where id=" & getLevelRS("refPage")
          set getLevelRS = conn.execute(getLevelRS)

       
        wend
        getLevel = s

end function

Prøv

function getLevel(pageId)
    call openLocalDB(conn, "mainDatabase.mdb")
        s = ""
        hopUd = 0
        while hopUd = 0
          getLevelSQL = "SELECT title, refPage, id from siteSystem where id=" & pageId
          set getLevelRS = conn.execute(getLevelSQL)
          s = getLevelRS("title") & "/" & s
          if pageId = 0 then
              hopUd = 1
          end if
          pageId = rs("refPage")
        wend
        getLevel = s
end function

Den melder bare en error error '80020009'

Prøv

function getLevel(pageId)
        call openLocalDB(conn, "mainDatabase.mdb")
        s = ""
        hopUd = 0
        while hopUd = 0
          getLevelSQL = "SELECT title, refPage, id from siteSystem where id=" & pageId
          set rs = conn.execute(getLevelSQL)
          s = rs("title") & "/" & s
          if pageId = 0 then
              hopUd = 1
          end if
          pageId = rs("refPage")
        wend
        getLevel = s
end function

Nææ... error '80020009'

Hmm, prøv

function getLevel(pageId)
        call openLocalDB(conn, "mainDatabase.mdb")
        s = ""
        hopUd = 0
        while hopUd = 0
          getLevelSQL = "SELECT title, refPage, id from siteSystem where id=" & pageId
          set rs = conn.execute(getLevelSQL)
          if not rs.eof then
              s = rs("title") & "/" & s
              if pageId = 0 then
                  hopUd = 1
              end if
              pageId = rs("refPage")
          else
              hopUd = 1
          end if
        wend
        getLevel = s
end function

Det virkede? :)

nemlig ;-)