<% Set oPassMgrObj = Server.CreateObject("Passport.Manager") strURL = Request.ServerVariables("URL") Response.Write "strURL: " & strURl & "
" Response.write "oPassMgrObj.FromNetworkServer: " & oPassMgrObj.FromNetworkServer & "
" If oPassMgrObj.FromNetworkServer=true then Response.Redirect(ThisPageURL) end if dim strReturnPassport strReturnPassport = oPassMgrObj.LogoTag(cstr(Server.URLEncode(ThisPageURL)), cint(TimeWindow), CBool(ForceLogin), Cstr(CoBrandArgs), cint(strLCID), CBool(Secure)) strReturnPassport = Replace(strReturnPassport, Chr(34), "'") Response.Write "Strpassport return:
" Response.Write strReturnPassport %>