<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% ' strings for localization Const L_ACCESSDENIED_TEXT="Access Denied" Const L_PATH_TEXT="Network share:" Const L_CONNECTAS_TEXT="Connect as..." Const L_USERNAME_TEXT="User Name:" Const L_PASSWORD_TEXT="Password:" Const L_ACCESSFLAGS_TEXT="Access Permissions" Const L_READ_TEXT="Read" Const L_WRITE_TEXT="Write" Const L_SCRIPT_TEXT="Script" Const L_EXECUTE_TEXT="Execute" Const L_CONTENTCONTROL_TEXT="Content Control" Const L_LOGACCESS_TEXT="Log access" Const L_ENABLEBROWSING_TEXT="Directory browsing allowed" Const L_DIRECTORYSTYLE_TEXT="Directory Listing Style" Const L_MSDOS_TEXT="MS-DOS" Const L_UNIX_TEXT="UNIX" On Error Resume Next Dim path, spath, instobj, currentobj path=UCase(Session("dpath")) spath=UCase(Session("spath")) if spath = "" then spath = Mid(path,1,InStr(path,"/ROOT")-1) Session("spath")=spath end if Set currentobj=GetObject(path) Set instobj=GetObject(spath) Session("SpecObj")=spath Session("SpecProps")="MSDosDirOutput" Set currentobj=GetObject(path) %>
<%= L_PATH_TEXT %> <% if InStr(currentobj.Path,"\\") then %> <%= text("Path",45,"","","",false,true) %>   <% else %> <% end if %>
<%= L_USERNAME_TEXT %> <%= text("UNCUserName",45,"","","",false,true) %>  
<%= L_PASSWORD_TEXT %> <%= pword("UNCPassword",45,"","","",false,true) %>  
 
<%= checkbox("AccessRead","",false) %> <%= L_READ_TEXT %>
<%= checkbox("AccessWrite","",false) %> <%= L_WRITE_TEXT %>
<% if currentobj.DontLog then %>  <%= L_LOGACCESS_TEXT %>
<% else %>  <%= L_LOGACCESS_TEXT %>
<% end if %>
<% if Session("vtype") = "svc" or Session("vtype") = "server" then%>
<%= L_DIRECTORYSTYLE_TEXT %>
  <%= printradio("hdnMSDOSDirOutput", not instobj.MSDOSDirOutput, "SetBool();",false) %>   <%= L_UNIX_TEXT %>®
  <%= printradio("hdnMSDOSDirOutput", instobj.MSDOSDirOutput, "SetBool();",false) %>   <%= L_MSDOS_TEXT %>® <% if instobj.MSDOSDirOutput then %> <% else %> <% end if %>
<% end if %>
<% end if %>