<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Dim path, currentobj, keyType, redirto On Error Resume Next path=Session("dpath") Set currentobj=GetObject(path) keyType = "IIsFTPDirectory" %> " TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" > <%= sFont("","","",True) %>
<%= sFont("","","",True) %> <%= L_REDIRTO_TEXT %>  <% redirto=currentobj.HttpRedirect %> <% if redirto <> "" then %> <%= redirto %> <% else %> <%= L_UNSET_TEXT %> <% end if %> <% if false then %> <%= text("HttpRedirect",25,"","","",false,true) %> <% end if %>   
 
<% end if %>