<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<%
Const L_VIRTUALDIRECTORY_TEXT="Directory Properties"
Const L_WHENCONNECTING_TEXT="When connecting to this resource"
Const L_FTP_TEXT="ftp://"
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, 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
%>
<%= L_VIRTUALDIRECTORY_TEXT %>