Siden skal vise et træ med oplysninger om brugerens rettigheder. Koden virker som sagt fin med absolut sti, men alle forsøg på en relativ sti giver fejlen Stien blev ikke fundet: 'LoadPicture'
Her er koden:
<head>
<LINK rel="stylesheet" type="text/css" href="Styles.css">
</head>
<form name=frmTree>
<%
Response.Expires = 0
'Assigned Roles
set User = server.CreateObject("Util.User")
User.UserID = session("UserToEdit")
username = user.FullName
imgstop = server.MapPath ("/ASP Files/images/stop.ico")
%>
<input type = hidden name=sites>
<!-- ImageList til TreeView -->
<OBJECT id=ImageList1 style="LEFT: 0px; TOP: 0px"
classid="clsid:2C247F23-8591-11D1-B16A-00C0F0283628"
VIEWASTEXT codebase=ComCtl/mscomctl.ocx#version=6,0,84,98>
<PARAM NAME="_ExtentX" VALUE="1005">
<PARAM NAME="_ExtentY" VALUE="1005">
<PARAM NAME="BackColor" VALUE="-2147483643">
<PARAM NAME="ImageWidth" VALUE="16">
<PARAM NAME="ImageHeight" VALUE="16">
<PARAM NAME="MaskColor" VALUE="12632256">
<PARAM NAME="UseMaskColor" VALUE="-1">
<PARAM NAME="_Version" VALUE="393216"></OBJECT>
<!-- TreeView objekt -->
<OBJECT id=objTree style="LEFT: 0px; WIDTH: 250px; TOP: 0px; HEIGHT: 400px"
classid=clsid:C74190B6-8589-11D1-B16A-00C0F0283628
VIEWASTEXT codebase="ComCtl/mscomctl.ocx#version=6,0,84,98">
<PARAM NAME="_ExtentX" VALUE="7011">
<PARAM NAME="_ExtentY" VALUE="13229">
<PARAM NAME="_Version" VALUE="393217">
<PARAM NAME="HideSelection" VALUE="0">
<PARAM NAME="Indentation" VALUE="265">
<PARAM NAME="LabelEdit" VALUE="1">
<PARAM NAME="LineStyle" VALUE="0">
<PARAM NAME="PathSeparator" VALUE="\">
<PARAM NAME="Sorted" VALUE="0">
<PARAM NAME="Style" VALUE="7">
<PARAM NAME="Checkboxes" VALUE="0">
<PARAM NAME="FullRowSelect" VALUE="0">
<PARAM NAME="HotTracking" VALUE="1">
<PARAM NAME="Scroll" VALUE="1">
<PARAM NAME="SingleSel" VALUE="0">
<PARAM NAME="ImageList" VALUE="ImageList1">
<PARAM NAME="BorderStyle" VALUE="0">
<PARAM NAME="Appearance" VALUE="0">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDragMode" VALUE="0">
<PARAM NAME="OLEDropMode" VALUE="0"></OBJECT>
<!-- Init ImageList -->
<script language=vbscript>
set list = frmTree.ImageList1.ListImages
list.Add ,"Block",LoadPicture("<%=imgstop%>")
'list.Add ,"Block",LoadPicture("C:\Entact\Workflow\ASP Files\images\stop.ico")
list.Add ,"Role",LoadPicture("C:\Entact\Workflow\ASP Files\images\role.ico")
list.Add ,"Site",LoadPicture("C:\Entact\Workflow\ASP Files\images\site.ico")
list.Add ,"BlockSite", frmTree.ImageList1.Overlay("Site", "Block")
list.Add ,"BlockRole", frmTree.ImageList1.Overlay("Role", "Block")
</script>
<!-- Resten er klassificeret eller hvad det nu hedder
-->