<% set dbaseconn = server.createobject("ADODB.Connection") set dbasers = server.createobject("ADODB.Recordset") dbaseconn.open("Driver={SQL Server};Server=oe-server;Database=hekse-kedlen;Uid=hekse-kedlen;Pwd=IloveM1a;") if request.querystring("id") then thispageid = request.querystring("id") else thispageid = 116 end if function getallchildren(menuid, level) set dbrs = server.createobject("ADODB.Recordset") dbrs.open "select id, name from pages where deleted=0 and menuhead=" & menuid & " order by orderid", dbaseconn r = 0 tablevel = "" for i = 1 to level tablevel = tablevel & " " next if hasparent(thispageid, menuid) then rval = vbcrlf & tablevel & "