<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% On Error Resume Next Dim path, currentobj, redir, dirtype, quote, dirkeyType, vtype dirkeyType = "IIsWebDirectory" path=Session("dpath") Session("path")=path Set currentobj=GetObject(path) vtype = Session("vtype") %> <% 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 vtype = "svc" or not Session("isAdmin") then if thetype = dirtype then writeDirType = "

" else writeDirType = "

" end if else if thetype=dirtype then writeDirType= "" else writeDirType= "" end if end if end function %> " OnLoad="SetDirType('<%= dirtype %>');" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" >

<%= sFont("","","",True) %> <% if (vtype="server") or (vtype="svc") then %> <%= L_HOMEDIRECTORY_TEXT %> <% else %> <%= L_DIRECTORY_TEXT %> <% end if %>