Rekursive funktion i ASP
hvordan laver jeg en Rekursive funktion så jeg kan have kategorier med uendelige underkategorier i ?Jeg lavede dette script men det kan kun klarer en under kategori.
<%
response.buffer = true
set connect = server.createobject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("links.mdb")
Set rs = Connect.Execute("SELECT * FROM kategorier where parent =0")
if not rs.EOF then
do until rs.EOF
response.write "<a href='produkter.asp?linkid=" & rs("id") & "'>" & "Dir - " & rs("kategori") & "</a> - <a href=produkter.asp?mode=nyundermappe&katid=" & rs("id") & ">Ny undermappe</a><br>"
if Cint(Request.QueryString("linkid")) = rs("id") then
Set rs2 = Connect.Execute("SELECT * FROM kategorier WHERE parent = " & request("linkid") & "")
if not rs2.EOF then
do until rs2.EOF
response.write "<a href='produkter.asp?linkid=" & rs2("id") & "'>" & "Dir - " & rs2("kategori") & "</a> - <a href=produkter.asp?mode=nyundermappe&katid=" & rs2("id") & ">Ny undermappe</a><br>"
rs2.MoveNext
Loop
end if
Set rs3 = Connect.Execute("SELECT * FROM links WHERE kategori = '" & request("linkid") & "'")
if not rs3.EOF then
do until rs3.EOF
Response.Write " - <a href=""" & rs3("url") & """>" & rs3("navn") & "</a><br>"
rs3.MoveNext
Loop
else
Response.Write "Ingen Links i denne kategori!"
end if
end if
rs.movenext
Loop
else
response.write "Ingen felter"
en
