<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% if Session("FONTSIZE") = "" then %> <% else %> <% 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) %> " TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" > <%= sFont("","","",True) %>

<%= sFont("","","",True) %> <%= L_PATH_TEXT %>	<% if InStr(currentobj.Path,"\\") then %> <%= text("Path",45,"","","",false,true) %> <% else %> > <% end if %>
<%= sFont("","","",True) %> <%= L_USERNAME_TEXT %>	<%= sFont("","","",True) %> <%= text("UNCUserName",45,"","","",false,true) %>
<%= sFont("","","",True) %> <%= L_PASSWORD_TEXT %>	<%= sFont("","","",True) %> <%= pword("UNCPassword",45,"","","",false,true) %>

<%= sFont("","","",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 %>

<%= sFont("","","",True) %> <%= printradio("hdnMSDOSDirOutput", not instobj.MSDOSDirOutput, "SetBool();",false) %> <%= L_UNIX_TEXT %>®

<%= sFont("","","",True) %> <%= printradio("hdnMSDOSDirOutput", instobj.MSDOSDirOutput, "SetBool();",false) %> <%= L_MSDOS_TEXT %>® <% if instobj.MSDOSDirOutput then %> <% else %> <% end if %>

<% end if %>

<% end if %>