Has anybody else come across this client side
error "object doesn't sup****t this property or method:
Nodes" after installing sp2 on XP Pro
Any help would be much appreciated, i am thinking it may
have something to do with permissions
Code below:
<html>
<head>
<title>Tree Control Error</title>
<base target=_self>
<SCRIPT LANGUAGE=VBScript>
dim Selected
sub Window_Onload
Selected = False
with do***ent.frmSideLookUp.TreeView1
.Nodes.Clear
.LabelEdit = 1
.height = (window.screen.availHeight -
290)
.HideSelection = False
.LineStyle = 1
.Nodes.Add , , "Root", "Attractions"
.Nodes.Add "Root",
4, "A1", "EXHIBITIONS"
.Nodes.Add "Root", 4, "A2", "FITNESS"
nodeSelected = -1
for each node in .nodes
if node.text = "" or node.tag
= "" then
nodeSelected = node.index
exit for
end if
next
if nodeSelected <> -1 then
set .selecteditem = .nodes
(nodeSelected)
TreeView1_NodeClick(.nodes
(nodeSelected))
end if
end with
end sub
Sub hypNewAttractionBtn_onclick
dim strGroup
dim selNode
set selNode =
do***ent.frmSideLookUp.TreeView1.selectedItem
if selnode.key <> "Root" then
do while selNode.parent.key
<> "Root"
set selNode =
selNode.parent
loop
if selnode.parent.key = "Root"
then
strGroup = selnode.text
end if
end if
window.event.returnValue = null
Parent.LookUpMain.location.href="wcSystem.aspx?
WCI=FL_sys_MultiTblNewLookUp&Table=2" & "&GROUP=" &
strGroup
end sub
sub NewAttractionGroup_onclick
Parent.LookUpMain.location.href="wcSystem.aspx?
WCI=FL_sys_MultiTblGpNewLookUp&Table=2"
End Sub
Sub hypNewGroupBtn_onclick
window.event.returnValue = null
Parent.LookUpMain.location.href="wcSystem.aspx?
WCI=FL_sys_MultiTblGpNewLookUp&Table=2"
End Sub
Sub hypBackBtn_onclick
window.event.returnValue = null
Parent.Location.href="wcSystem.aspx?
WCI=FL_sys_Config"
End Sub
sub TreeView1_NodeClick(ByVal Node)
Selected = True
select case Node.key
case "A1"
Parent.location.href =
"wcSystem.aspx?
WCI=FL_sys_MultiTblMainLookUp&ATTRACTIONGROUP=EXHIBITIONS&
Table=2"
case "A2"
Parent.location.href =
"wcSystem.aspx?
WCI=FL_sys_MultiTblMainLookUp&ATTRACTIONGROUP=FITNESS&Tabl
e=2"
end select
end sub
Sub GetTreeViewHeight
do***ent.write (windows.screen.height -
290)
End Sub
</SCRIPT>
</head>
<body>
<form name=frmSideLookUp method=post>
<table border=0 cellpadding=0 cellspacing=0 width=100%
height=26 background=RLXImages/headbg.gif><tr><td><div
class=headerbar>Attractions Setup</div></td></tr></table>
<table border=0 cellpadding=2 cellspacing=1
class=Container>
<tr>
<td colspan=2>
<OBJECT CLASSID=clsid:5220cb21-c88d-11cf-b347-
00aa00a28331 width=14 height=14>
<PARAM NAME=LPKPath
VALUE=ActiveX/ComCtl32SP2.lpk>
</OBJECT>
<OBJECT classid=clsid:0713E8A2-850A-101B-AFC0-
4210102A8DA7 height=GetTreeViewHeight() id=TreeView1
width=230
codebase=ActiveX/Comctl32.cab#version=5,1,43,19
class=ActiveX VIEWASTEXT>
<PARAM NAME=_ExtentX VALUE=8070>
<PARAM NAME=_ExtentY VALUE=4815>
<PARAM NAME=_Version VALUE=327682>
<PARAM NAME=HideSelection VALUE=1>
<PARAM NAME=Indentation VALUE=1000>
<PARAM NAME=LabelEdit VALUE=0>
<PARAM NAME=LineStyle VALUE=0>
<PARAM NAME=PathSeparator VALUE=\>
<PARAM NAME=Sorted VALUE=0>
<PARAM NAME=Style VALUE=7>
<PARAM NAME=ImageList VALUE=>
<PARAM NAME=BorderStyle VALUE=0>
<PARAM NAME=Appearance VALUE=1>
<PARAM NAME=MousePointer VALUE=0>
<PARAM NAME=Enabled VALUE=1>
<PARAM NAME=OLEDragMode VALUE=0>
<PARAM NAME=OLEDropMode VALUE=0></OBJECT>
</td>
</tr>
</table>
</form>
</body>
</html>
|
