'--------------------------------------------------
'makeMsgBox(prompt,buttons,title)
'This function makes the VBScript msgbox function
'available to Javascript.  It is used in the newAlert
'function and newConfirm above.  Note that the inputs
'for msgbox can be found at:
' http://msdn.microsoft.com/library/en-us/script56/html/ae073d50-e4a4-4e23-8e46-0cb1369965e7.asp
'  
'Settings for the "Buttons" value are as follows:
'  Constant           Value	Description
'  vbOKOnly	          0	    Display OK button only.
'  vbOKCancel	      1	    Display OK and Cancel buttons.
'  vbAbortRetryIgnore 2	    Display Abort, Retry, and Ignore buttons.
'  vbYesNoCancel      3	    Display Yes, No, and Cancel buttons.
'  vbYesNo	          4	    Display Yes and No buttons.
'  vbRetryCancel      5	    Display Retry and Cancel buttons.
'  vbCritical         16	Display Critical Message icon.
'  vbQuestion         32	Display Warning Query icon.
'  vbExclamation      48	Display Warning Message icon.
'  vbInformation      64	Display Information Message icon.
'  vbDefaultButton1   0	    First button is default.
'  vbDefaultButton2   256	Second button is default.
'  vbDefaultButton3   512	Third button is default.
'  vbDefaultButton4   768	Fourth button is default.
'  vbApplicationModal 0	    Application modal; the user must respond to the message box before continuing work in the current application.
'  vbSystemModal      4096	System modal; all applications are suspended until the user responds to the message box.
'--------------------------------------------------
Function makeMsgBox(prompt, buttons, title)
	makeMsgBox = MsgBox(prompt,buttons,title)
End Function

'--------------------------------------------------
'makeInputBox(prompt,title,default)
'This function makes the VBScript inputbox helper
'available to Javascript.  
'--------------------------------------------------
Function makeInputBox(pr,tit,def)	
	makeInputBox = InputBox(pr,tit,def)
End Function