Call to VBScript fails

TheMSsForum.com: The Microsoft Software Forum

Working in an HTA; how can the following code line:

<SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>

in the code below, be made to call a VBScript sub rather than display a
message box? I have already tried many combinations including the obvious:

<SPAN onclick="Test" language=vbscript>Menu Item One</SPAN>

The full code is below:

<HTML>
<HEAD>
<TITLE>Popup Custom Navigation Menu Sample</TITLE>

<SCRIPT LANGUAGE="vbscript">
Set oPopup = window.createPopup
Function contextMenu

lefter = window.event.offsetX+10
topper = window.event.offsetY+10
oPopup.document.body.innerHTML = oContextHTML.innerHTML
oPopup.show lefter, topper, 200, 65, window.document.body
window.event.returnValue=false
End Function

Sub ItemOne

</SCRIPT>

</HEAD>
<BODY oncontextmenu="contextMenu">
<h1>Creating Custom Context Menus with the Popup Object</h1>
Right-click anywhere on the document to see a customized popup navigation
menu.

<DIV ID="oContextHTML" STYLE="display:none;">
<DIV onmouseover=this.style.background="gold"
onmouseout=this.style.background="#e4e4e4">
<SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>
</DIV>
<DIV onmouseover=this.style.background="gold"
onmouseout=this.style.background="#e4e4e4">
<SPAN onclick=msgbox("yyy") language="vbscript">Menu Item Two</SPAN>
</DIV>
</DIV>

</BODY>
</HTML>

Thanks much for your assistance.
Top

Re: Call to VBScript fails by mayayana

mayayana
Thu May 10 23:29:12 CDT 2007

I hope you have a local copy of MSDN. :)
The IE DOM is so extensive it's very hard to work
with if you can't look things up.

The syntax for calling a sub is kind of odd. It takes
the brackets:

-----------------------------------
<SCRIPT LANGUAGE="VBScript">
Sub Test()
Msgbox "Test was called."
End Sub
</SCRIPT>

<SPAN onclick="Test()">Menu Item One</SPAN>

------------------------------------

You might find it useful to collect some sample code.
One sample:

http://www.jsware.net/jsware/scripts.php3#domed

It's a WYSIWYG HTML editor built entirely with VBS
in webpages. It's not a very good editor, actually. Rather, it
was designed specifically to just provide a large selection
of sample DOM code. (It was also designed to work
in IE 5.00, so it doesn't have some of the newer functions
like createPopup.)


> Working in an HTA; how can the following code line:
>
> <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>
>
> in the code below, be made to call a VBScript sub rather than display a
> message box? I have already tried many combinations including the obvious:
>
> <SPAN onclick="Test" language=vbscript>Menu Item One</SPAN>
>
> The full code is below:
>
> <HTML>
> <HEAD>
> <TITLE>Popup Custom Navigation Menu Sample</TITLE>
>
> <SCRIPT LANGUAGE="vbscript">
> Set oPopup = window.createPopup
> Function contextMenu
>
> lefter = window.event.offsetX+10
> topper = window.event.offsetY+10
> oPopup.document.body.innerHTML = oContextHTML.innerHTML
> oPopup.show lefter, topper, 200, 65, window.document.body
> window.event.returnValue=false
> End Function
>
> Sub ItemOne
>
> </SCRIPT>
>
> </HEAD>
> <BODY oncontextmenu="contextMenu">
> <h1>Creating Custom Context Menus with the Popup Object</h1>
> Right-click anywhere on the document to see a customized popup navigation
> menu.
>
> <DIV ID="oContextHTML" STYLE="display:none;">
> <DIV onmouseover=this.style.background="gold"
> onmouseout=this.style.background="#e4e4e4">
> <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>
> </DIV>
> <DIV onmouseover=this.style.background="gold"
> onmouseout=this.style.background="#e4e4e4">
> <SPAN onclick=msgbox("yyy") language="vbscript">Menu Item Two</SPAN>
> </DIV>
> </DIV>
>
> </BODY>
> </HTML>
>
> Thanks much for your assistance.


Top

Re: Call to VBScript fails by XP

XP
Fri May 11 08:23:01 CDT 2007

Hi again Mayayana,

Does the code I posted run on your machine? I'm wondering if it's a version
or build issue...?

I tried the fix you suggested and it still doesn't do anything when I click
the buttons...just in case I'll paste my exact code:

<HTML>
<HEAD>
<Title>Right Click Popup Menu</title>
<HTA:Application
ID="TestApp"
singleinstance="YES"
caption="yes"
scroll="no"
border="thin"
borderstyle="sunken"
innerborder="no"
contextmenu="no"
minimizebutton="no"
maximizebutton="no"/>
</head>

<script language="VBScript">

Sub MenuItem1()
Msgbox "Menu Item One"
End Sub

Sub MenuItem2()
Msgbox "Menu Item Two"
End Sub

set oPopup = window.createpopup
Function ContextMenu
lefter=window.event.offsetX+10
topper=window.event.offsetY+10
oPopup.document.body.innerHTML=oContextHTML.innerHTML
oPopup.show lefter, topper, 200, 65, window.document.body
window.event.returnvalue=false
End Function

</script>


<Body oncontextmenu="ContextMenu">
<H2>Right Click Shortcut Menu Popup</h2>
<DIV ID="oContextHTML" Style="display:none;">
<DIV onmouseover=this.style.background="gold"
onmouseout=this.style.background="#e4e4e4">
<SPAN onclick="MenuItem1()" language="VBScript">Menu1</span></div>
<DIV onmouseover=this.style.background="gold"
onmouseout=this.style.background="#e4e4e4">
<SPAN onclick="MenuItem2()" language="VBScript">Menu2</span></div>
</div>
</body>
</html>

"mayayana" wrote:

> I hope you have a local copy of MSDN. :)
> The IE DOM is so extensive it's very hard to work
> with if you can't look things up.
>
> The syntax for calling a sub is kind of odd. It takes
> the brackets:
>
> -----------------------------------
> <SCRIPT LANGUAGE="VBScript">
> Sub Test()
> Msgbox "Test was called."
> End Sub
> </SCRIPT>
>
> <SPAN onclick="Test()">Menu Item One</SPAN>
>
> ------------------------------------
>
> You might find it useful to collect some sample code.
> One sample:
>
> http://www.jsware.net/jsware/scripts.php3#domed
>
> It's a WYSIWYG HTML editor built entirely with VBS
> in webpages. It's not a very good editor, actually. Rather, it
> was designed specifically to just provide a large selection
> of sample DOM code. (It was also designed to work
> in IE 5.00, so it doesn't have some of the newer functions
> like createPopup.)
>
>
> > Working in an HTA; how can the following code line:
> >
> > <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>
> >
> > in the code below, be made to call a VBScript sub rather than display a
> > message box? I have already tried many combinations including the obvious:
> >
> > <SPAN onclick="Test" language=vbscript>Menu Item One</SPAN>
> >
> > The full code is below:
> >
> > <HTML>
> > <HEAD>
> > <TITLE>Popup Custom Navigation Menu Sample</TITLE>
> >
> > <SCRIPT LANGUAGE="vbscript">
> > Set oPopup = window.createPopup
> > Function contextMenu
> >
> > lefter = window.event.offsetX+10
> > topper = window.event.offsetY+10
> > oPopup.document.body.innerHTML = oContextHTML.innerHTML
> > oPopup.show lefter, topper, 200, 65, window.document.body
> > window.event.returnValue=false
> > End Function
> >
> > Sub ItemOne
> >
> > </SCRIPT>
> >
> > </HEAD>
> > <BODY oncontextmenu="contextMenu">
> > <h1>Creating Custom Context Menus with the Popup Object</h1>
> > Right-click anywhere on the document to see a customized popup navigation
> > menu.
> >
> > <DIV ID="oContextHTML" STYLE="display:none;">
> > <DIV onmouseover=this.style.background="gold"
> > onmouseout=this.style.background="#e4e4e4">
> > <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>
> > </DIV>
> > <DIV onmouseover=this.style.background="gold"
> > onmouseout=this.style.background="#e4e4e4">
> > <SPAN onclick=msgbox("yyy") language="vbscript">Menu Item Two</SPAN>
> > </DIV>
> > </DIV>
> >
> > </BODY>
> > </HTML>
> >
> > Thanks much for your assistance.
>
>
>
Top

Re: Call to VBScript fails by mayayana

mayayana
Fri May 11 09:23:12 CDT 2007


> Does the code I posted run on your machine? I'm wondering if it's a
version
> or build issue...?
>
> I tried the fix you suggested and it still doesn't do anything when I
click
> the buttons

I gather that the spans in the hidden
DIVs are shown as buttons in your popup?
It works for me if I just make the DIV visible
and click the menu. I can't try the popup
menu because I use IE 5.00 on Win98SE
and createPopup was introduced with IE 5.5.

I also had trouble with "this". I'm not familiar
with that usage and in my tests it causes an
"object required" error. Maybe it's OK, but I
can't find such a usage in the docs.
I've also never seen style set directly as an
event parameter. You have:

onmouseout=this.style.background="#e4e4e4"

Again, I'm not certain that that can't work. Maybe
someone else knows. But I've never seen it before.
I would normally use subs for all of that, like:

onmouseout="DoMouseOut()"
onclick="DoClick()"
etc.



Top

Re: Call to VBScript fails by mayayana

mayayana
Fri May 11 09:32:16 CDT 2007

Another thought: If you need compatibility
across IE versions you can use a table or DIV
instead of a popup. That's what a lot of websites do
for "popout menus". You just set the table to display: none;
and when you want to show it you use display: block;
and set the z-index to something above zero. You
can also position it wherever you like by using
position: absolute; If you combine that with "3-d"
shading on the edges it can be a popup menu
that shows on top of everything else.

(Actually, all browsers except IE can do something
like that with straight CSS, using the :hover pseudo class
to show a popup menu when something is hovered
over. )



Top

Re: Call to VBScript fails by ThatsIT

ThatsIT
Fri May 11 09:45:45 CDT 2007


"XP" <XP@discussions.microsoft.com> wrote in message
news:F78BDAE3-5830-42B7-A53E-A41BF5A59752@microsoft.com...
> Hi again Mayayana,
>
> Does the code I posted run on your machine? I'm wondering if it's a
> version
> or build issue...?
>
> I tried the fix you suggested and it still doesn't do anything when I
> click
> the buttons...just in case I'll paste my exact code:


found your problem

a popup window is in fact a new window, so when calling a sub from the popup
you need to address it from the parent.

look for word parent in the now working code


<hta:application id="oGame" applicationname="Cards" singleinstance="yes"
windowstate="normal">

<HTML>
<HEAD>
<Title>Right Click Popup Menu</title>
<HTA:Application
ID="TestApp"
singleinstance="YES"
caption="yes"
scroll="no"
border="thin"
borderstyle="sunken"
innerborder="no"
contextmenu="no"
minimizebutton="no"
maximizebutton="no"/>
</head>

<script language="VBScript">

Sub MenuItem1()
Msgbox "Menu Item One"
End Sub

Sub MenuItem2()
Msgbox "Menu Item Two"
End Sub

set oPopup = window.createpopup
Function ContextMenu
lefter=window.event.offsetX+10
topper=window.event.offsetY+10
oPopup.document.body.innerHTML=oContextHTML.innerHTML
oPopup.show lefter, topper, 200, 65, window.document.body
window.event.returnvalue=false
End Function

</script>


<Body oncontextmenu="ContextMenu">
<H2>Right Click Shortcut Menu Popup</h2>
<DIV ID="oContextHTML" Style="display:none;">
<DIV onmouseover=this.style.background="gold"
onmouseout=this.style.background="#e4e4e4">
<SPAN onclick="parent.MenuItem1()" language="VBScript">Menu1</span></div>
<DIV onmouseover=this.style.background="gold"
onmouseout=this.style.background="#e4e4e4">
<SPAN onclick="parent.MenuItem2()" language="VBScript">Menu2</span></div>
</div>
</body>
</html>





















>
> <HTML>
> <HEAD>
> <Title>Right Click Popup Menu</title>
> <HTA:Application
> ID="TestApp"
> singleinstance="YES"
> caption="yes"
> scroll="no"
> border="thin"
> borderstyle="sunken"
> innerborder="no"
> contextmenu="no"
> minimizebutton="no"
> maximizebutton="no"/>
> </head>
>
> <script language="VBScript">
>
> Sub MenuItem1()
> Msgbox "Menu Item One"
> End Sub
>
> Sub MenuItem2()
> Msgbox "Menu Item Two"
> End Sub
>
> set oPopup = window.createpopup
> Function ContextMenu
> lefter=window.event.offsetX+10
> topper=window.event.offsetY+10
> oPopup.document.body.innerHTML=oContextHTML.innerHTML
> oPopup.show lefter, topper, 200, 65, window.document.body
> window.event.returnvalue=false
> End Function
>
> </script>
>
>
> <Body oncontextmenu="ContextMenu">
> <H2>Right Click Shortcut Menu Popup</h2>
> <DIV ID="oContextHTML" Style="display:none;">
> <DIV onmouseover=this.style.background="gold"
> onmouseout=this.style.background="#e4e4e4">
> <SPAN onclick="MenuItem1()" language="VBScript">Menu1</span></div>
> <DIV onmouseover=this.style.background="gold"
> onmouseout=this.style.background="#e4e4e4">
> <SPAN onclick="MenuItem2()" language="VBScript">Menu2</span></div>
> </div>
> </body>
> </html>
>
> "mayayana" wrote:
>
>> I hope you have a local copy of MSDN. :)
>> The IE DOM is so extensive it's very hard to work
>> with if you can't look things up.
>>
>> The syntax for calling a sub is kind of odd. It takes
>> the brackets:
>>
>> -----------------------------------
>> <SCRIPT LANGUAGE="VBScript">
>> Sub Test()
>> Msgbox "Test was called."
>> End Sub
>> </SCRIPT>
>>
>> <SPAN onclick="Test()">Menu Item One</SPAN>
>>
>> ------------------------------------
>>
>> You might find it useful to collect some sample code.
>> One sample:
>>
>> http://www.jsware.net/jsware/scripts.php3#domed
>>
>> It's a WYSIWYG HTML editor built entirely with VBS
>> in webpages. It's not a very good editor, actually. Rather, it
>> was designed specifically to just provide a large selection
>> of sample DOM code. (It was also designed to work
>> in IE 5.00, so it doesn't have some of the newer functions
>> like createPopup.)
>>
>>
>> > Working in an HTA; how can the following code line:
>> >
>> > <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>
>> >
>> > in the code below, be made to call a VBScript sub rather than display a
>> > message box? I have already tried many combinations including the
>> > obvious:
>> >
>> > <SPAN onclick="Test" language=vbscript>Menu Item One</SPAN>
>> >
>> > The full code is below:
>> >
>> > <HTML>
>> > <HEAD>
>> > <TITLE>Popup Custom Navigation Menu Sample</TITLE>
>> >
>> > <SCRIPT LANGUAGE="vbscript">
>> > Set oPopup = window.createPopup
>> > Function contextMenu
>> >
>> > lefter = window.event.offsetX+10
>> > topper = window.event.offsetY+10
>> > oPopup.document.body.innerHTML = oContextHTML.innerHTML
>> > oPopup.show lefter, topper, 200, 65, window.document.body
>> > window.event.returnValue=false
>> > End Function
>> >
>> > Sub ItemOne
>> >
>> > </SCRIPT>
>> >
>> > </HEAD>
>> > <BODY oncontextmenu="contextMenu">
>> > <h1>Creating Custom Context Menus with the Popup Object</h1>
>> > Right-click anywhere on the document to see a customized popup
>> > navigation
>> > menu.
>> >
>> > <DIV ID="oContextHTML" STYLE="display:none;">
>> > <DIV onmouseover=this.style.background="gold"
>> > onmouseout=this.style.background="#e4e4e4">
>> > <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>
>> > </DIV>
>> > <DIV onmouseover=this.style.background="gold"
>> > onmouseout=this.style.background="#e4e4e4">
>> > <SPAN onclick=msgbox("yyy") language="vbscript">Menu Item Two</SPAN>
>> > </DIV>
>> > </DIV>
>> >
>> > </BODY>
>> > </HTML>
>> >
>> > Thanks much for your assistance.
>>
>>
>>

Top

Re: Call to VBScript fails by XP

XP
Fri May 11 10:26:01 CDT 2007


Thanks again Mayayana!!!

I may use this technique in another project I have as the needs are
different for that one...

Thanks much and best regards...

"mayayana" wrote:

> Another thought: If you need compatibility
> across IE versions you can use a table or DIV
> instead of a popup. That's what a lot of websites do
> for "popout menus". You just set the table to display: none;
> and when you want to show it you use display: block;
> and set the z-index to something above zero. You
> can also position it wherever you like by using
> position: absolute; If you combine that with "3-d"
> shading on the edges it can be a popup menu
> that shows on top of everything else.
>
> (Actually, all browsers except IE can do something
> like that with straight CSS, using the :hover pseudo class
> to show a popup menu when something is hovered
> over. )
>
>
>
>
Top

Re: Call to VBScript fails by XP

XP
Fri May 11 10:25:01 CDT 2007

You're right ThatsIT, thats it!!!

Thanks, I really felt like it was close, but I'm not experienced enough to
crack it;

Thanks again.

"ThatsIT.net.au" wrote:

>
> "XP" <XP@discussions.microsoft.com> wrote in message
> news:F78BDAE3-5830-42B7-A53E-A41BF5A59752@microsoft.com...
> > Hi again Mayayana,
> >
> > Does the code I posted run on your machine? I'm wondering if it's a
> > version
> > or build issue...?
> >
> > I tried the fix you suggested and it still doesn't do anything when I
> > click
> > the buttons...just in case I'll paste my exact code:
>
>
> found your problem
>
> a popup window is in fact a new window, so when calling a sub from the popup
> you need to address it from the parent.
>
> look for word parent in the now working code
>
>
> <hta:application id="oGame" applicationname="Cards" singleinstance="yes"
> windowstate="normal">
>
> <HTML>
> <HEAD>
> <Title>Right Click Popup Menu</title>
> <HTA:Application
> ID="TestApp"
> singleinstance="YES"
> caption="yes"
> scroll="no"
> border="thin"
> borderstyle="sunken"
> innerborder="no"
> contextmenu="no"
> minimizebutton="no"
> maximizebutton="no"/>
> </head>
>
> <script language="VBScript">
>
> Sub MenuItem1()
> Msgbox "Menu Item One"
> End Sub
>
> Sub MenuItem2()
> Msgbox "Menu Item Two"
> End Sub
>
> set oPopup = window.createpopup
> Function ContextMenu
> lefter=window.event.offsetX+10
> topper=window.event.offsetY+10
> oPopup.document.body.innerHTML=oContextHTML.innerHTML
> oPopup.show lefter, topper, 200, 65, window.document.body
> window.event.returnvalue=false
> End Function
>
> </script>
>
>
> <Body oncontextmenu="ContextMenu">
> <H2>Right Click Shortcut Menu Popup</h2>
> <DIV ID="oContextHTML" Style="display:none;">
> <DIV onmouseover=this.style.background="gold"
> onmouseout=this.style.background="#e4e4e4">
> <SPAN onclick="parent.MenuItem1()" language="VBScript">Menu1</span></div>
> <DIV onmouseover=this.style.background="gold"
> onmouseout=this.style.background="#e4e4e4">
> <SPAN onclick="parent.MenuItem2()" language="VBScript">Menu2</span></div>
> </div>
> </body>
> </html>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> >
> > <HTML>
> > <HEAD>
> > <Title>Right Click Popup Menu</title>
> > <HTA:Application
> > ID="TestApp"
> > singleinstance="YES"
> > caption="yes"
> > scroll="no"
> > border="thin"
> > borderstyle="sunken"
> > innerborder="no"
> > contextmenu="no"
> > minimizebutton="no"
> > maximizebutton="no"/>
> > </head>
> >
> > <script language="VBScript">
> >
> > Sub MenuItem1()
> > Msgbox "Menu Item One"
> > End Sub
> >
> > Sub MenuItem2()
> > Msgbox "Menu Item Two"
> > End Sub
> >
> > set oPopup = window.createpopup
> > Function ContextMenu
> > lefter=window.event.offsetX+10
> > topper=window.event.offsetY+10
> > oPopup.document.body.innerHTML=oContextHTML.innerHTML
> > oPopup.show lefter, topper, 200, 65, window.document.body
> > window.event.returnvalue=false
> > End Function
> >
> > </script>
> >
> >
> > <Body oncontextmenu="ContextMenu">
> > <H2>Right Click Shortcut Menu Popup</h2>
> > <DIV ID="oContextHTML" Style="display:none;">
> > <DIV onmouseover=this.style.background="gold"
> > onmouseout=this.style.background="#e4e4e4">
> > <SPAN onclick="MenuItem1()" language="VBScript">Menu1</span></div>
> > <DIV onmouseover=this.style.background="gold"
> > onmouseout=this.style.background="#e4e4e4">
> > <SPAN onclick="MenuItem2()" language="VBScript">Menu2</span></div>
> > </div>
> > </body>
> > </html>
> >
> > "mayayana" wrote:
> >
> >> I hope you have a local copy of MSDN. :)
> >> The IE DOM is so extensive it's very hard to work
> >> with if you can't look things up.
> >>
> >> The syntax for calling a sub is kind of odd. It takes
> >> the brackets:
> >>
> >> -----------------------------------
> >> <SCRIPT LANGUAGE="VBScript">
> >> Sub Test()
> >> Msgbox "Test was called."
> >> End Sub
> >> </SCRIPT>
> >>
> >> <SPAN onclick="Test()">Menu Item One</SPAN>
> >>
> >> ------------------------------------
> >>
> >> You might find it useful to collect some sample code.
> >> One sample:
> >>
> >> http://www.jsware.net/jsware/scripts.php3#domed
> >>
> >> It's a WYSIWYG HTML editor built entirely with VBS
> >> in webpages. It's not a very good editor, actually. Rather, it
> >> was designed specifically to just provide a large selection
> >> of sample DOM code. (It was also designed to work
> >> in IE 5.00, so it doesn't have some of the newer functions
> >> like createPopup.)
> >>
> >>
> >> > Working in an HTA; how can the following code line:
> >> >
> >> > <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>
> >> >
> >> > in the code below, be made to call a VBScript sub rather than display a
> >> > message box? I have already tried many combinations including the
> >> > obvious:
> >> >
> >> > <SPAN onclick="Test" language=vbscript>Menu Item One</SPAN>
> >> >
> >> > The full code is below:
> >> >
> >> > <HTML>
> >> > <HEAD>
> >> > <TITLE>Popup Custom Navigation Menu Sample</TITLE>
> >> >
> >> > <SCRIPT LANGUAGE="vbscript">
> >> > Set oPopup = window.createPopup
> >> > Function contextMenu
> >> >
> >> > lefter = window.event.offsetX+10
> >> > topper = window.event.offsetY+10
> >> > oPopup.document.body.innerHTML = oContextHTML.innerHTML
> >> > oPopup.show lefter, topper, 200, 65, window.document.body
> >> > window.event.returnValue=false
> >> > End Function
> >> >
> >> > Sub ItemOne
> >> >
> >> > </SCRIPT>
> >> >
> >> > </HEAD>
> >> > <BODY oncontextmenu="contextMenu">
> >> > <h1>Creating Custom Context Menus with the Popup Object</h1>
> >> > Right-click anywhere on the document to see a customized popup
> >> > navigation
> >> > menu.
> >> >
> >> > <DIV ID="oContextHTML" STYLE="display:none;">
> >> > <DIV onmouseover=this.style.background="gold"
> >> > onmouseout=this.style.background="#e4e4e4">
> >> > <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN>
> >> > </DIV>
> >> > <DIV onmouseover=this.style.background="gold"
> >> > onmouseout=this.style.background="#e4e4e4">
> >> > <SPAN onclick=msgbox("yyy") language="vbscript">Menu Item Two</SPAN>
> >> > </DIV>
> >> > </DIV>
> >> >
> >> > </BODY>
> >> > </HTML>
> >> >
> >> > Thanks much for your assistance.
> >>
> >>
> >>
>
>
Top