<% Dim strCompleteURL strCompleteURL = "http://" If Request.ServerVariables("SERVER_PORT_SECURE") = 1 Then strCompleteURL = "https://" strCompleteURL = strCompleteURL & LCase(Request.ServerVariables("HTTP_HOST")) & strSection If Request.QueryString() <> "" Then strCompleteURL = strCompleteURL & "?" & Request.QueryString() End If %> <% If InStr(1, Request.ServerVariables("HTTP_USER_AGENT"), "Netscape 3") > 0 AND blnMSIE4x5 = False AND blnMSIE55 = False Then %> <% Else %> <% End If %>
<% Call WebTrendsTagging() %>