<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% On Error Resume Next Dim path, currentobj, keyType, redir, dirtype, quote, dirkeyType path=Session("dpath") Session("path")=path Set currentobj=GetObject(path) dirkeyType = "IIsFTPDirectory" %> <% redir=currentobj.HttpRedirect path=currentobj.path if redir <> "" then dirtype="redir" elseif instr(path,"\\") then dirtype="net" else dirtype="dir" end if quote=chr(34) function writeDirType(thetype) if thetype=dirtype then writeDirType="" else writeDirType="" end if end function %> " TOPMARGIN=5 OnLoad="SetDirType('<%= dirtype %>');" TEXT="#000000" LINK="#FFFFFF" > <%= sFont("","","",True) %> <% if (vtype="server") or (vtype="svc") then %> <%= L_HOMEDIRECTORY_TEXT %> <% else %> <%= L_DIRECTORY_TEXT %> <% end if %>

<%= L_WHENCONNECTING_TEXT %> <%= L_CONTENTSHOULD_TEXT %>

<%= sFont("","","",True) %> <%= writeDirType("dir") %> <%= L_DIR_TEXT %>
<%= sFont("","","",True) %> <% if Session("vtype") <> "dir" then %> <%= writeDirType("net") %> <%= L_NETDIR_TEXT %> <% else %>    <%= sFont("","","Gray",True) %> <%= L_NETDIR_TEXT %> <% end if %>