sub opn_side(p_val)
'msgbox 1
if p_val=1 then
window.open "Virtual.html","Movie","toolbar=no,width=480,height=276"
elseif p_val = 2 then
window.open "Educational.html","Movie2","toolbar=no,width=480,height=276"
end if


end sub