<% 
Function getNetxtraFooter()
	Dim hhttp
	Dim strHTML
	dim Item
	dim strQry
	dim strHttp 
	dim hostname 

	strHttp = "http"
    hostname = Request.ServerVariables("HTTP_X_FORWARDED_SERVER")

	If (Request.ServerVariables("SERVER_PORT")="443") Then
		strHttp = "https"
	End If

	For Each Item In Request.Querystring
		strQry = strQry & "&" & Item & "=" &Request.Querystring(Item)
	Next

	If (Request.Cookies("UserValidated")<>"" AND Not IsNull(Request.Cookies("UserValidated"))) Then
		strQry = strQry & "&nxruid=" & Request.Cookies("UserValidated")
	End If


	Set hhttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
	hhttp.setOption 2, 13056
	strQry = "&" & strQry & "&fullstr=" & Server.Urlencode(Request.ServerVariables("QUERY_STRING"))
	hhttp.open "GET", strHttp & "://" & hostname & "/integra/footer.jsp?page=" & strHttp & "://" & Request.ServerVariables("HTTP_HOST") & Server.URLEncode(Request.ServerVariables("URL")) & strQry, False, "client", "design"
	hhttp.send
	getNetxtraFooter = hhttp.responseText
	set hhttp = Nothing
End Function

 %>
<%= getNetxtraFooter %>