<%@ Page Explicit="true" %> <%@ Import Namespace="System.Xml" %> <%@ Import Namespace="ESADMINLib" %> <% InitVars() GetPortalStyleVariables() Dim formId As String = "" Dim formAction As String = "" Select Case g_action Case "chat" formId = "form1" formAction = "/netagent/scripts/srvgate.dll?Action=1060" Case "callback" formId = "form3" formAction = "/netagent/scripts/srvgate.dll?Action=14000" Case "chat_lb" formId = "form4" formAction = g_loadbalancer & "/narouter/nadispatch.aspx?Action=1060" Case "callback_lb" formId = "form6" formAction = g_loadbalancer & "/narouter/nadispatch.aspx?Action=14000" Case Else formId = "form7" formAction = "/netagent/scripts/srvgate.dll?Action=1060" End Select final_invalidformat = Replace(g_invalidformat, """", "\""") final_requiredfieldtext = Replace(g_requiredfieldtext, "'", "\'") final_tolongtext = Replace(g_tolongtext, """", "\""") If (g_rtt_portalStyle_enable) Then getLogoAttributions() End If %> <%=NA_HTMLEnCode(g_pagetitle)%>
style="display:none;"<% End If%> > <% If Not (g_Flyout) Then%>
Change Font Size
<%End If %>
<% If Not (g_Flyout) Then Response.Write(UTF8Encode(g_portalheader)) End If If 0 < g_resumeSuspendErrorId Then Response.Write("

") End If %>
<% If g_geolocation = True And g_autosubmit = False Then %> <% End If %>
<%If Not g_Flyout Then%> * <%=NA_HTMLEnCode(g_denotesrequiredtext)%>
 
<% Else%>
<%=(UTF8Encode(g_plainHeader))%>
<% End If%> <% If Not g_canResumeSuspendedSession Then WriteOutTheQuestions() End If ' Show Real Time Translation options If g_rtt_portalStyle_enable And (g_logo_dict.Count > 0) Then For Each key As String In g_logo_dict.Keys%>
<%=key%>
<% Next For Each kvp As KeyValuePair(Of String, String) In g_logo_dict%>
<% Next%> <% End If%> <% If (g_action = "chat_lb" Or g_action = "callback_lb") Then%> <% ElseIf g_didquestaskfor_queue = False Then queuenode = g_systemnode.SelectSingleNode( _ String.Format(".//sysinfo/queues/queue[@id='{0}']", _ If(String.IsNullOrEmpty(g_didquestaskfor_queue), g_portalqueueid, g_defaultqueueId))) Dim qstatus As Boolean = False If queuenode IsNot Nothing Then qstatus = If(Boolean.TryParse(queuenode.SelectSingleNode("@status").InnerText, qstatus), qstatus, False) End If If qstatus Then %> <% Else If Len(g_portalClosedHTML) > 0 Then Response.Redirect(g_portalClosedHTML) ElseIf Len(g_portalclosedurl) > 0 Then Response.Redirect(g_portalclosedurl) Else DoErrorPage() End If Response.End() End If End If If g_didquestaskfor_language = False Then %> <% End If If g_didquestaskfor_unfiedtemplate = False Then %> <% End If Dim clientVal As String clientVal = DetermineBestClient() If (Not (g_didquestaskfor_client) And (clientVal <> "")) Then %> <% End If %> <% For Each thekey In Request.QueryString If Not (SkipList(thekey)) Then %> <% End If Next For Each thekey In Request.Form If Not (SkipList(thekey)) Then %> <% End If Next If nareferer <> "" Then %> <% End If %> <% 'Create an unseen resume-session checkbox if cookie indicates visitor returning to a suspended session If g_canResumeSuspendedSession Then %> <% If g_Flyout Then%><% End If %> <% End If %>
<% If (g_newwindow) Then%>     <% End If%>
<% If Not (g_Flyout) Then Response.Write(UTF8Encode(g_portalfooter)) End If If g_autosubmit = True Then %> <% End If %>
<% If Not (g_Flyout) Then %> <% End If%>
<% If g_Flyout AndAlso g_hidebranding = 0 AndAlso Not g_autosubmit AndAlso Not g_canResumeSuspendedSession Then%>
<% 'see http://javascriptrules.com/2009/08/05/css-color-brightness-contrast-using-javascript/ Dim color As String = g_flyoutbgcolor 'could potentially be g_portalbgcolor if not a flyout 'black Dim logopath As String = "/netagent/client/unified/imgs/MoxieLogo.svg" Dim brightness As Integer = -1 Dim r As Integer = -1 Dim g As Integer = -1 Dim b As Integer = -1 Dim match As Match = Regex.Match(color, "rgba?\((\d+), ?(\d+), ?(\d+)") If match.Success Then Integer.TryParse(match.Groups(1).Value, r) Integer.TryParse(match.Groups(2).Value, g) Integer.TryParse(match.Groups(3).Value, b) brightness = (r * 299 + g * 587 + b * 114) / 1000 If brightness < 125 Then 'use white logopath = "/netagent/client/unified/imgs/MoxieLogoWhite.svg" End If End If %>
<% End If%> <% Response.Flush() If Request.IsSecureConnection Then Request.Cookies.Item("ASP.NET_SessionId").Secure = True End If %>