<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="HTCOMNET.Main" %>
<%@ Page CodeBehind="onefileprop.aspx.vb" Language="vb" AutoEventWireup="false" Inherits="HTCOMNET.onefileprop" %>
<html>
<head>
<title>Properties</title>
<meta http-equiv="Content-Type" content="text/html; charset=<%=Session(SK_CHARSET)%>">
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
<link rel="stylesheet" href="Scripts<%=JS_CSS_VERSION%>/Style.css" type="text/css">
<SCRIPT language="JavaScript" src="Scripts<%=JS_CSS_VERSION%>/Main.js"></SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="5"  leftmargin="5">
<script language="JavaScript">
drawupwin('<font color="#FFFF66">&nbsp;&nbsp;<%=Session(SK_LANGUAGE).GetText("PROPERTIES")%></font>', Innerwidth()-15, Innerheight()-15,'#F8F6E6');
</script>
&nbsp;&nbsp;<asp:Literal Runat=server Text="" ID="lblerror"/>  
<table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10">&nbsp;</td>
    <td width="260" align="left">
         <fieldset style="padding:5px;width:260;height:200px;">
		<legend><%IF len(shortname)>25 THEN%><%=left(shortname, 25) & "..."%><%ELSE%><%=shortname%><%END IF%>&nbsp;<%=Session(SK_LANGUAGE).GetText("PROPERTIES")%></legend>
        <table border="0" cellspacing="0" cellpadding="0" width="100%">
          <tr> 
            <td width="10"></td>
            <td width="100"><font class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("ATTRIBUTES")%></font></td>
            <td><font color="#0066CC">-&nbsp;<%=getattribstr(attrib)%></font></td>
          </tr>
          <tr> 
            <td width="10"></td>
            <td width="100"><font class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("CREATED")%> 
              </font></td>
            <td><nobr><font color="#0066CC">-&nbsp;<%=replace(datecreated, " ", " ")%></font></nobr></td>
          </tr>
          <tr> 
            <td width="10"></td>
            <td width="100"><nobr><font class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("LAST_MODIFIED")%></font></nobr></td>
            <td><nobr><font color="#0066CC">-&nbsp;<%=replace(datemod, " ", " ")%></font></nobr></td>
          </tr>
          <tr> 
            <td width="10"></td>
            <td width="100"><nobr><font class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("SIZE")%></font></td>
            <td><font color="#0066CC">-&nbsp;<%=FormatSize(size)%></font></nobr></td>
          </tr>
          <tr> 
            <td width="10"></td>
            <td width="100"><font class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("TYPE")%></font></td>
            <td><font color="#0066CC">-&nbsp;<%=ftype%></font></td>
          </tr>
          <tr> 
            <td width="10"></td>
            <td width="100"><font class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("NAME")%></font></td>
            <td><font color="#0066CC">-&nbsp;<%=PartsString(shortname, 25, " ")%></font></td>
          </tr>
        </table>
		</fieldset>
     </td>
	<td width="10">&nbsp;</td>
    <td width="170" align="left">
         <fieldset style="padding:5px;width:170;height:200px;">
		<legend><%=Session(SK_LANGUAGE).GetText("ATTRIBUTES")%></legend>
		<form name="form1" action="onefileprop.aspx"  method="post">
          <input name="fileorfolder" type="hidden" value="<%=name%>">
          <input name="already" type="hidden" value="1">
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="ReadOnly" id="ReadOnly" value="1" <%if (attrib and FileAttributes.ReadOnly) then%>checked<%end if%> > 
                <%=Session(SK_LANGUAGE).GetText("COMMON", "READ_ONLY")%></font></td>
            </tr>
            <tr> 
              <td><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="Hidden" id="Hidden" value="1" <%if (attrib and FileAttributes.Hidden) then%>checked<%end if%> >
                <%=Session(SK_LANGUAGE).GetText("COMMON", "HIDDEN")%></font></td>
            </tr>
            </table>
            <%If  Session(SK_CURRENT_FOLDER).CanSetAttrib And Session(SK_CURRENT_FOLDER).CanModify Then %>
                <%if isFolder then%>
					<br><font class="subactionsfont">&nbsp; 
					<input type="checkbox" name="Sub" id="Sub" value="1">
					<%=Session(SK_LANGUAGE).GetText("COMMON","APPLY_CHANGES_TO_THE_SUBFOLDERS")%></font>
				<%end if%>
				<p align="center"><input  type="submit" class="button" value="<%=Session(SK_LANGUAGE).GetText("SET_ATTRIBUTES")%>"></p>
            <%end if%>
          
      </form>
      </fieldset>
     </td>
  </tr>
</table>
<script language="JavaScript">
drawdownwin("");
</script>
</body>
</html>
