<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Const L_VIRTUALDIRECTORY_TEXT="Directory Properties" Const L_WHENCONNECTING_TEXT="When connecting to this resource" Const L_HTTP_TEXT="http://" Const L_CONTENTSHOULD_TEXT="the content should come from:" Const L_DIR_TEXT="a directory located on the server you are configuring" Const L_NETDIR_TEXT="a share located on another computer." Const L_REDIR_TEXT="a redirection to a URL." On Error Resume Next Dim path, currentobj, redir, dirtype, quote, dirkeyType dirkeyType = "IIsWebDirectory" path=Session("dpath") Session("path")=path Set currentobj=GetObject(path) %> <% 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 %> <%= L_VIRTUALDIRECTORY_TEXT %>

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

<%= writeDirType("dir") %>  <%= L_DIR_TEXT %>

<% if Session("vtype") <> "dir" then %> <%= writeDirType("net") %>  <%= L_NETDIR_TEXT %> <% else %> <% if Session("IsIE") then %> <% else %> <% end if %> <%= L_NETDIR_TEXT %> <% end if %>

<%= writeDirType("redir") %>  <%= L_REDIR_TEXT %>