'**
' @name         functions.vbs
'
' @describe     VbScript functions
'
' @db_objects	
'
' @author		Laurent Constantin
'
' @revised		06/2004
'*

'*******************************************************************
' Confirm function with the focus on the NO button (to avoid deleting item by mystake)
Public Function new_confirm(confirm_msg)
	Dim return_value

	if msgbox(confirm_msg, vbYesNo + vbQuestion + vbDefaultButton2, "Confirm") = vbYes then 
		return_value = true
	else
		return_value = false
	end if

	new_confirm = return_value
End Function