| <script language=javascript>
//=================================================================================
//
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> |