Problem with viewing OBJECT ID="Button1"

[Roloman]

Hi there to everyone,

Iam working on a helpdesksystem for my company to kep track of complaints. As a navigation bar I use VBscript to create this. Everything works fine on the pc NT 4.0 with SP6 and IE6.0, and another pc with also NT 4.0 and SP6, but with IE 5.0 everything also works fine, after he downloads the Webnavigator ActiveX control. At last I tried it on another pc also with NT 4.0 SP6 and IE5, there he also downloads the controlset, but here it doesn't work. I do see the knobs of the navigation menu, but the text that should appear on it isn't there, and also when I click on the buttons there appears no sidebar. Does anyone know what I could do to fix this problem?

I will include the sourcecode here, if you guys can help me out, and need more information or more of the source just let me know at pceend@wanadoo.nl.

Sincereley,

Ronald Roeleveld

Here is the source:

<OBJECT ID=&quot;Menu1&quot; WIDTH=0 HEIGHT=0 CLASSID=&quot;CLSID:F5131C24-E56D-11CF-B78A-444553540000&quot;></OBJECT>
<TABLE CELLPADDING=0 CELLSPACING=0 VALIGN=MIDDLE ALIGN=CENTER rules=&quot;none&quot; bgcolor=&quot;#C0C0C0&quot;>
<TR><TD><OBJECT ID=&quot;Button1&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot; CODEBASE=&quot;

http://www.microsoft.com/windows/common/ikcntrls.cab#version=1,0,0,5&quot;></OBJECT></TD></TR>

<TR><TD><OBJECT ID=&quot;Button2&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button3&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button4&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button5&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button6&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button7&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button8&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button9&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button10&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button11&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button12&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button13&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button14&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button15&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
<TR><TD><OBJECT ID=&quot;Button16&quot; WIDTH=130 HEIGHT=18 CLASSID=&quot;CLSID:B10CBD8D-F9B6-11CF-9B38-0080AD11B667&quot;></OBJECT></TD></TR>
</TABLE>

<tr><td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button1.Caption=&quot;New Customer&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button1_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;NewCustomer.asp&quot;, &quot;New Customer&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button1.Left + Button1.Width, Button1.Top)


End Sub
// -->
</SCRIPT>
</td>
</tr>

<tr><td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button2.Caption=&quot;Get Customer&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button2_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;GetCustomer.asp&quot;, &quot;Get Customer&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button2.Left + Button2.Width, Button2.Top)
End Sub
// -->
</SCRIPT>
</td>
</tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button3.Caption=&quot;New Case&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button3_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;NewCase.asp&quot;, &quot;New Case&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button3.Left + Button3.Width, Button3.Top)
End Sub
// -->
</SCRIPT>
</td>
</tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button4.Caption=&quot;Get Case&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button4_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;GetCase.asp&quot;, &quot;Get Case&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button4.Left + Button4.Width, Button4.Top)
End Sub
// -->
</SCRIPT>
</td>
</tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button5.Caption=&quot;Assets&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button5_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;assets.asp&quot;, &quot;Assets&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button5.Left + Button5.Width, Button5.Top)
End Sub
// -->
</SCRIPT>
</td>
</tr>


<tr><td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button6.Caption=&quot;My Cases&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button6_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;myCases.asp&quot;, &quot;My Cases&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button6.Left + Button6.Width, Button6.Top)
End Sub
// -->
</SCRIPT>
</td>
</tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button7.Caption=&quot;Other Cases&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button7_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;OtherCases.asp&quot;, &quot;Other Cases&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button7.Left + Button7.Width, Button7.Top)
End Sub
// -->
</SCRIPT>
</td>
</tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button8.Caption=&quot;Tech Report&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button8_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;TechReport.asp&quot;, &quot;Tech Report&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button8.Left + Button8.Width, Button8.Top)
End Sub
// -->
</SCRIPT>
</td>
</tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button9.Caption=&quot;Search Engine&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button9_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;search.asp&quot;, &quot;Search Database&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button9.Left + Button9.Width, Button9.Top)
End Sub
// -->
</SCRIPT>
</td>
</tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button10.Caption=&quot;Administration&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button10_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;TechSupp.dll?SysAdminMenu&quot;, &quot;System Administration&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button10.Left + Button10.Width, Button10.Top)
End Sub
// -->
</SCRIPT>
</TD>
</tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button11.Caption=&quot;Business+Center&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button11_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;Businesscenter.asp&quot;, &quot;Log into Business Center&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button11.Left + Button11.Width, Button11.Top)
End Sub
// -->
</SCRIPT>
</TD>
</tr>

<tr><td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button12.Caption=&quot;Dispatcher&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button12_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;Dispatcher.asp&quot;, &quot;Dispatcher&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button12.Left + Button12.Width, Button12.Top)
End Sub
// -->
</SCRIPT>
</td>
</tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button13.Caption=&quot;Reports&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button13_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;reports.asp&quot;, &quot;Reports&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button13.Left + Button13.Width, Button13.Top)
End Sub
// -->
</SCRIPT>
</td></tr>

<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button14.Caption=&quot;Email Case&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button14_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;TechSupp.dll?EmailCase&quot;, &quot;Email Case&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button14.Left + Button14.Width, Button14.Top)
End Sub
// -->
</SCRIPT>
</TD>
</tr>

<TR>


<TD ALIGN=CENTER><A HREF=&quot;DoTAvailability.asp&quot;><IMG SRC=&quot;ts_busy21x120.gif&quot; BORDER=0 ></A></TD>


</TR>

<TR>
<tr>
<td align=center>
<SCRIPT Language=&quot;VBScript&quot;>
<!--
Button16.Caption=&quot;Logout&quot;

Sub Menu1_OnClick(id)
On Error Resume Next
top.frames(&quot;user_screen&quot.Location.Href = id
end sub

Sub Button16_MouseDown(Button, Shift, X, Y)
call Menu1.RemoveAllItems()
call Menu1.AddItem(&quot;TLogout.asp&quot;, &quot;Logout&quot;,&quot;&quot;,&quot;&quot
call Menu1.Popup(Button16.Left + Button16.Width, Button16.Top)
End Sub
// -->
</SCRIPT>