Börja med att loopa igenom alla kategorier, och för varje kategori plockar du ut alla knutna forum, Forum.CatID = Category.CatID. Sen, för varje forum, plockar du ut alla forum där ForumParentID = ForumID.
Men jag förstår inte riktigt hur det ska gå till... har du nåt exempel?
Resultatet ska exempelvis bli:
Categori 1
-Forum1
-Sub Forum
-Sub sub forum
-Sub sub forum
-Sub sub sub forum
-Forum2
-Sub Forum
-Sub sub forum
-Sub sub forum
-Sub sub sub forum
Categori 2
-Forum3
-Sub Forum
-Sub sub forum
-Sub sub forum
-Sub sub sub forum
-Forum4
-Sub Forum
-Sub sub forum
-Sub sub forum
-Sub sub sub forum
Börja med att loopa igenom alla kategorier, och för varje kategori plockar du ut alla knutna forum, Forum.CatID = Category.CatID. Sen, för varje forum, plockar du ut alla forum där ForumParentID = ForumID.
Men, går det att göra i en och samma SQL-fråga? Om man måste köra en fråga per förgrening kan det ju bli ganska slött i längden.
Jag utgick från den koden o ändra lite. Jag har fått det att funka ganska bra Dock ett problem! Jag får inte indragen att stämma riktigt.
Någon som har en idé om hur man kan få till det?
Utskriften blir så här:
Category 1
Main Forum 1 (Category 1)
Sub Forum 1 (Main Forum 1)
Sub Sub Forum 1 (Sub Forum 1)
Sub Sub Sub Forum 1 (Sub Sub Forum 1)
Sub Sub Forum 2 (Sub Forum 1)
Category 2
Main Forum 2 (Category 2)
Sub Forum 2(Main Forum 2)
Jag vill ha det så här:
Category 1
Main Forum 1 (Category 1)
Sub Forum 1 (Main Forum 1)
Sub Sub Forum 1 (Sub Forum 1)
Sub Sub Sub Forum 1 (Sub Sub Forum 1)
Sub Sub Forum 2 (Sub Forum 1) <--------------------
Category 2
Main Forum 2 (Category 2)
Sub Forum 2(Main Forum 2)
sub check(parentID,indrag)
set rs1 = Conn.execute("SELECT ForumID, fName FROM tblForums WHERE fParentID = " & parentID & " ORDER BY fOrder ASC")
do until rs1.eof
indrag = indrag + 1
str = string(indrag, " ")
str = replace(str, " ", " ")
response.write str
response.write "" & rs1("fName") & "</a><br>"
check rs1("ForumID"), indrag
rs1.movenext
loop
end sub
set rs2 = Conn.execute("SELECT CategoryID, CatTitle FROM tblCategories ORDER BY CatOrder ASC")
arrRS = rs2.GetRows()
For i = 0 To Ubound(arrRS, 2)
Response.write "<b>" & arrRS(1,i) & "</b><br>"
set rs = Conn.execute("SELECT ForumID, fName FROM tblForums WHERE fParentID = 0 AND fCategoryID = " & arrRS(0,i) & " ORDER BY fOrder ASC")
do until rs.eof
response.write rs("fName") & "</a><br>"
check rs("ForumID"),0
rs.movenext
loop
Next
Tycker det är vettigare att använda nästlade listor istället.
sub check(parentID)
set rs1 = Conn.execute("SELECT ForumID, fName FROM tblForums WHERE fParentID = " & parentID & " ORDER BY fOrder ASC")
if rs1.RecordCount <> 0 then:
response.write "<ul>"
do until rs1.eof
response.write "<li><a href=""..."">" & Server.HTMLEncode(rs1("fName")) & "</a>"
check rs1("ForumID")
response.write "</li>"
rs1.movenext
loop
response.write "</ul>"
endif
end sub
<select> och <ul> är som du själv skriver helt skilda ting. Du får använda koden du skrev ovan för en select + lite mer kod... ska se om man kan hitta en en lösning...
sub check2(parentID)
set rs1 = Conn.execute("SELECT ForumID, fName FROM tblForums WHERE fParentID = " & parentID & " ORDER BY fOrder ASC")
If Not rs.EOF Then
Do Until rs1.EOF
If parentId > 0 Then
Execute("indrag" & rs1("ForumID") & " = 1 + indrag" & parentId)
End If
str = string(eval("indrag" & parentId), " ")
str = replace(str, " ", "-")
Response.Write "<option value=""" & rs1("ForumID") & """>" & str & " " & Server.HTMLEncode(rs1("fName")) & "</option>"
check2(rs1("ForumID"))
rs1.MoveNext
Loop
End If
End Sub
(heter dock check2 så du kan behålla check-sub funktionen).
set rs2 = Conn.execute("SELECT CategoryID, CatTitle FROM tblCategories ORDER BY CatOrder ASC")
arrRS = rs2.GetRows()
Response.Write "<select name=""forum"">"
For i = 0 To Ubound(arrRS, 2)
set rs = Conn.execute("SELECT ForumID, fName FROM tblForums WHERE fParentID = 0 AND fCategoryID = " & arrRS(0,i) & " ORDER BY fOrder ASC")
do until rs.eof
check2 rs("ForumID")
rs.movenext
loop
Next
Response.Write "</select>"
Det är ju inte så svårt att läsa av koderna från samtliga som har postat i denna tråd att snickra ihop det själv dock
Dock så vet jag inte riktigt hur du har tänkt att lösa det i ett längre flöde när du ska spara data. då "huvud-topic" IDt kan vara samma id som en av dina forum.
Dock så vet jag inte riktigt hur du har tänkt att lösa det i ett längre flöde när du ska spara data. då "huvud-topic" IDt kan vara samma id som en av dina forum.
tblCategorys har 3 poster med ID:
1, 2 och 3
och tblForums har 11 poster med IDn:
1, 2, 3, 4, 5, 6, 7, 8, 9, 10 och 11.
DVS det kommer att bli en liten konflikt med tanke av 3x2 av dina totala poster av 11+3 = 14 st som har samma "value" i sin option. Du får komma på en lösning som behandla tblCategorys och tblForums vval.
Ett förslag är kanske ha för tblCategorys idn: value="cat_<nummer från tblCategory>"...
För tillfället kommer jag inte få något problem med det då kategorierna bara står som en <optgroup>
Bara forumen kommer att kunna bli valda och dom har ju unika idn!
Dock ett problem! Jag får inte indragen att stämma riktigt.
Du får använda koden du skrev ovan för en select + lite mer kod... ska se om man kan hitta en en lösning...
