<% 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;") 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 rval = vbcrlf & tablevel & "" & vbcrlf tablevel = "" for i = 2 to level tablevel = tablevel & " " next rval = rval & tablevel if r < 1 then rval = "" getallchildren = rval end function response.ContentType = "text/html; charset=iso-8859-1" %> hekse-kedlen
<%if request.servervariables("REMOTE_HOST") <> "90.184.113.138" then response.write "

denne side er under opbygning



server.oe-web.dk for mere information

"%><%if request.querystring("id") <> "" then : dbasers.open "select data from pages where id=" & request.querystring("id"), dbaseconn : response.write dbasers("data") : dbasers.close%>