''Customer : NIST
''Version : OnExit 2.8
Function timer_vb ()
Dim strParent
Dim hParent
Dim strParentDomain
On Error Resume Next
Set hParent = window.opener  'get the handle to the parent window
strParentDomain = hParent.document.domain
If ( Err.Number <> 0 ) Then
	Call setTimeout ( "popSurvey();", 1, "JavaScript" )
Else
	Call setTimeout ( "vbUpdate();", 1, "JavaScript" )	
	Call setTimeout ( "timer_vb", 3000, "VBScript" )
End If
timer_vb = True
End Function