modsat rækkefølge
Hej. Jeg har nedenstående kode, som virker fint. Den udskriver en path, der viser brugeren af min hjemmeside hvor vedkommende er henne på siden. Problemet er at listen bliver udskrevet i omvendt rækkefølge! Jeg er på en stram deadline og har 1000 andre opgaver der venter, så hvis der er nogle der kan sortere listen omvendt med noget array-halløj eller lignende, giver jeg 150 points for det...!<%Sub Navigation()
'find det nuværende sidenavn & dets parent
SQLstmt = "SELECT pages.beskrivelse, pages.parent FROM pages WHERE ID=" & Request.Querystring("page_id")
Set rs = objConnection.Execute(SQLstmt)
beskrivelse = rs("beskrivelse")
parent = int(rs("parent"))
response.write beskrivelse & " "
RS.Close
x = 0
do while x < 8
x = x+1
SQLstmt = "SELECT pages.beskrivelse, pages.parent, pages.ID FROM pages WHERE content_id =" & parent
Set rs = objConnection.Execute(SQLstmt)
if not rs.EOF then
beskrivelse = rs("beskrivelse")
parent = int(rs("parent"))
ID = rs("ID")
if parent < 8 then
Response.Write "<a href=http://www.ryhojskole.dk/v2/default.asp?sektion=" & Request.querystring("sektion") & "&skabelon=1&content=" & Request.querystring("sektion") & "&sprog=" & Request.querystring("sprog") & "&parent=0><img src=sitepics/mediapic5.gif border=0>" & beskrivelse & "</a> "
elseif parent > 7 then
Response.write "<a href=http://www.ryhojskole.dk/v2/default.asp?sektion=" & Request.querystring("sektion") & "&skabelon=2&page_id=" & ID & "&sprog=" & Request.querystring("sprog") & "><img src=sitepics/mediapic5.gif border=0>" & beskrivelse & "</a> "
end if
end if
RS.Close
loop
End sub%>
