Det jag vill är att posterna i F_TitleofForum ska loopas igenom och att de ska ordnas efter sin prioritetssiffra. Detta har jag lyckats med men sedan kommer problemen.
Jag vill att man under varje post i F_TitleofForum ska loopa ut de tillhörande kategorierna. Det vill säga så här (prototyp):
F_TitleofForum (1 i prioritet, första posten)
C_TitleofCategory (1 i prioritet, första posten som har C_ForumID som är lika med F_ForumID)
C_TitleofCategory (2 i prioritet, andra posten som har.....)
F_TitleofForum (2 i prioritet, andra posten)
osv.... om ni inte förstår så fråga! Min nuvarande kod, som jag inte riktigt själv klarar av att modda ser ut så här:
<!-- #include virtual="../inc/adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\db2002.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
ShowForums = "SELECT * FROM Forums ORDER BY F_Priority"
RecSet.Open ShowForums, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF %>
<%=RecSet("F_TitleofForum")%> <br>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
Nä, jag vill inte att ni ska göra forumet åt mig, då kan jag ju lika gärna ladda ner ett färdigt! Men är det någon som vet var jag kan kolla eller vad jag måste lära mig för att klara av problemet?
Detta är helt otestat. Jag tog mig friheten att ändra öppningen av databasen och modifiera din kod en aning. Byt ut allt som du skrev ovan mot detta. Denna metod förutsätter att F_ForumID har datatypen "tal" i databasen.
<%
'öppna databasen mot forumen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\db2002.mdb"
SQLforum = "SELECT * FROM Forums ORDER BY F_Priority"
set recset = connect.execute(SQLforum)
Do Until recset.EOF
'skriv ut forumets namn
response.write " + " & recset("F_TitleofForum") & "<br>"
'öppna kategorier under forumet
SQLforumSub = "SELECT * FROM Categories WHERE C_ForumID = " & recset("F_ForumID") & " ORDER BY C_Priority"
set subRecset = connect.execute(SQLforumSub)
'finns det underkategorier överhuvudtaget?
if not subRecSet.eof then
'isåfall, loopa ut dem och response.write på varje
do until subRecSet.eof
response.write " -> " & subRecset("C_TitleofCategory") & "<br>"
subRecset.movenext
loop
end if
'stäng
subRecset.close
set subRecset = nothing
RecSet.MoveNext
Loop
'stäng
RecSet.Close
Connect.Close
%>
<!-- #include virtual="../inc/adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\db2002.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
ShowForums = "SELECT * FROM Forums ORDER BY F_Priority"
RecSet.Open ShowForums, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
%>
<%=RecSet("F_TitleofForum")%> <br>
<%
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
ShowCategories = "SELECT * FROM Categories WHERE C_ForumID = " & <%=RecSet(F_ForumID)%> & " ORDER BY C_Priority DESC"
If Not RecSet2.EOF Then
do until RecSet2.EOF
response.write " -> " & RecSet2("C_TitleofCategory") & "<br>"
RecSet2.MoveNext
Loop
End if
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
Ok, tackar, tackar. Jo, jag vet. Joins hade kanske varit bättre men sedan så funderade jag, övervägde och beslutade mig för att det är över min förmåga! :)
