' Generic Merlin Error Message box
Function MerlinInputBox(txt, default)
	'if strmsg = "" then exit function
	MerlinInputBox = InputBox (txt, "BMC Service Desk Express", default)
End Function

Function MerlinInputBoxWithTitle(txt, default, title)
	'if strmsg = "" then exit function
	MerlinInputBoxWithTitle = InputBox (txt, title, default)
End Function

Function MerlinMsgBox(strmsg, msgtype)
	if strmsg = "" then exit function
	MerlinMsgBox = MsgBox (strmsg, msgtype, "BMC Service Desk Express")
End Function

Function MerlinErrorMsgBox(strmsg, msgtype)
	if strmsg = "" then exit function
	MerlinErrorMsgBox = MsgBox (strmsg, msgtype, "BMC Service Desk Express")
End Function

Function FormatVBMsg(ResStr, StrErrNum, strArgs)
	FormatVBMsg = GetStringCommon(ResStr,strArgs)
End Function
'Sridhar#29487: Added this function
Function GetAscVal(char)
    GetAscVal=Asc(char)
End function
'Sridhar-Ends here

'So that non-VBScript browsers can tell
Const CommonSystemMsgLoaded = True