<!--
'langauge="vbscript" type="text/vbscript"

Const popupVBInclude = True

Function DoMsgBox(strTitle, strText, intIcon, intButtons, intDButton, intModal)
	Dim lngIcons

	lngIcons = intButtons + (intIcon * 16) + (intDButton * 256) + (intModal * 4096)

	DoMsgBox = MsgBox(strText, lngIcons, strTitle)
End Function


Function DoInputBox(strTitle, strText, strDefaultText)
   DoInputBox = InputBox(strText, strTitle, strDefaultText)
End Function

'// buttons
'Const cOKOnly = 0
'Const cOKCancel = 1
'Const cAbortRetryIgnore = 2
'Const cYesNoCancel = 3
'Const cYesNo = 4
'Const cRetryCancel = 5

'// image
'Const cNoIcon = 0
'Const cCritical = 1
'Const cQuestion = 2
'Const cExclamation = 3
'Const cInformation = 4

'// def button
'Const cDefaultButton1 = 0
'Const cDefaultButton2 = 1
'Const cDefaultButton3 = 2

'// modal
'Const cApplicationModal = 0
'Const cSystemModal = 1

-->