%@ Language=VBScript %> <% Response.buffer = true Response.expires = 0 %> <% On Error Resume next Set g_objFH_Search = LOCreateObject(gstrSearchObject & ".FH_Search") Dim strUserName Dim strHeaderDate strUserName = g_objFH_Search.CurrentUser.UserName strHeaderDate = g_objFH_Search.UI_Search.HeaderDate Set g_objFH_Search = Nothing %>
|