Collins Software

//=================================================================================
//                         msgbox
//===============================================================================
function msgbox(prompt,buttons,title,helpfile,context)
{
    var VB_Script;

    if (arguments.length == 1) return VB_Msgbox_1(prompt);
    if (arguments.length == 2) return VB_Msgbox_2(prompt,buttons);
    if (arguments.length == 3) return VB_Msgbox_3(prompt,buttons,title);
    if (arguments.length == 5) return VB_Msgbox_5(prompt,buttons,title,helpfile,context);

    alert('invalid arguments to msgbox');
}
</script>
<script language=vbscript>
'===============================================================================
'     VB_Msgbox_1..5 (Place AFTER JavaScript)
'===============================================================================
Function VB_Msgbox_1(prompt)
    Msgbox_1 = MsgBox(prompt)
End Function

Function VB_Msgbox_2(prompt,buttons)
    VB_Msgbox_2 = MsgBox(prompt,buttons)
End Function

Function VB_Msgbox_3(prompt,buttons,title)
    VB_Msgbox_3 = MsgBox(prompt,buttons,title)
End Function

Function VB_Msgbox_5(prompt,buttons,title,helpfile,context)
    VB_Msgbox_5 = MsgBox(prompt,buttons,title,helpfile,context)
End Function
</script>