Det kunne være jeg skulle arbejde lidt videre med det selv og så spørge jer til råds omkring det problem jeg stødte ind i:
Jeg havde lavet en database der ser sådan ud:
www.melanders.dk/database.bmpDen skulle fungere på den måde at udskrev menuen:
Profil
Produkter
+VM3100
---Screenshoots
+VM3000
Support
+Kontakt
Jeg fik bikset følgende kode sammen:
<%
strExpand = CInt(Request.QueryString(\"expand\"))
if strExpand = \"\" or not IsNumeric(strExpand) then
strExpand = -1
end if
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; SERVER=localhost; DBQ=\" & Server.MapPath (\"/cgi-bin/database.mdb\")
Conn.Open DSN
strSQL = \"Select * From tblContent Where parent=0;\"
Set rs = Conn.Execute(strSQL)
Do
Response.Write \"<A HREF=\"\"default.asp?expand=\" & rs(\"ID\") & \"\"\">\" & rs(\"Menutext\") & \"</A><BR>\"
If rs(\"ID\") = strExpand Then
strSQL2 = \"Select * From tblContent Where parent =\" & strExpand & \";\"
Set Temprs = Conn.Execute(strSQL2)
Do
Response.Write Temprs(\"Menutext\") & \"<BR>\"
temprs.movenext
Loop While Not temprs.EOF
Temprs.Close
Set Temprs = Nothing
Response.Write \"Denne her er åben!<BR>\"
End If
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
som er et kæmpe rod... problem opstår der hvor jeg skal til at åbne menuerne, det går fint nok med første led ... men jeg vil gerne have at jeg ikke skal skrive kode for alle ledene, men at man looper skidtet på en eller anden måde.
Kan I følge mig?