<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="HTCOMNET.Main" %>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Folders.aspx.vb" Inherits="HTCOMNET.Folders"%>
<html>
	<head>
		<title><%=Session(SK_LANGUAGE).GetText("FOLDERS")%></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 leftmargin="5" topmargin="5" bgcolor="#FFFFFF" text="#000000">		
		<script language="JavaScript">
			drawupwin('<font color="FFFF66">&nbsp;&nbsp;<%=Session(SK_LANGUAGE).GetText("FOLDERS")%></font>',Innerwidth()-15, Innerheight()-15, '#F8F6E6');
		</script>
	<form name="form" method="post">
	<table cellspacing=0 cellpadding=0 border=0 width=100% height="250">
	<tr valign=top><td>
<BR>
<%
Dim root as folder
Dim PermStr as string
Dim i as Integer=0
for each root in Session(SK_FOLDERS)
	PermStr=""
	if root.CanModify then	PermStr &= Session(SK_LANGUAGE).GetText("MODIFY") & " +"
	if root.CanUpload then 	PermStr &= Session(SK_LANGUAGE).GetText("UPLOAD") & " +"
	if root.CanZIP then 	PermStr &= Session(SK_LANGUAGE).GetText("ZIP") & " +"
	if root.CanUnZIP then 	PermStr &= Session(SK_LANGUAGE).GetText("UNZIP") & " +"
	if root.CanSetattrib then 	PermStr &= Session(SK_LANGUAGE).GetText("SET_ATTRIBUTES") & " +"
    If PermStr.EndsWith("+") Then 
        PermStr=left(PermStr, PermStr.Length - 2)
    end if
%>
   <%if Directory.exists(root.Location)%>
		&nbsp;<a style="cursor:pointer;cursor:hand;" onclick="javascript: if(window.opener.parent.topFrame) window.opener.parent.topFrame.logoffclick = true; window.opener.parent.location.href='Default.aspx?goto=<%=i%>';window.close();" title="<%=Session(SK_LANGUAGE).GetText("GO_TO")%> <%=PartsString(root.folderName, 35, " ")%>" ><img border=0 src="images/XP_folderopen.gif" width="22" height="24">&nbsp;<u><font size="4" color="#333399"><b><%=root.folderName%></b></font></u></a>
   <%Else%>
       &nbsp;<img alt="<%=Session(SK_LANGUAGE).GetText("NOT_AVAILABLE")%>" src="images/XP_grayfolderopen.gif" width="22" height="24">&nbsp;<u><font class="list" face="Arial" size="3" color="#333399"><b><%=PartsString(root.folderName, 35, " ")%></b></font></u>
   <%End if%>
 <table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="10">&nbsp;</td>
<td align=left> 
<table width="100%" border="0" cellspacing="1" cellpadding="1">
  <tr><td width="120"><font style="font-size:12px;" class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("DESCRIPTION")%>: </font></td><td align=left><font style="font-size:12px;" face="Arial" color="#333399"><%=root.Description%></font></td></tr>
  <tr><td width="120"><font style="font-size:12px;" class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("PERMISSIONS")%>: </font></td><td align=left><font style="font-size:12px;" face="Arial" color="#009900"><%IF PermStr="" then%><%=Session(SK_LANGUAGE).GetText("READ_ONLY")%>!<%ELSE%><%=PermStr%><%END IF%></font></td></tr>
  <%if not ISADVERSION then%>
    <tr><td><font style="font-size:12px;" class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("DISK_QUOTA")%>: </font></td><td align=left><font style="font-size:12px;" face="Arial" color="#CC3333"><%IF root.Quota=0 then%><%=Session(SK_LANGUAGE).GetText("NONE")%><%ELSE%><%=FormatSize(root.Quota)%><%END IF%></font></td></tr>
  <%end if%>
    <tr><td><font style="font-size:12px;" class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("MAX_FILE_SIZE")%>: </font></td><td align=left><font style="font-size:12px;" face="Arial" color="#CC3333"><%IF root.Maxfilesize=0 then%><%=Session(SK_LANGUAGE).GetText("NONE")%><%ELSE%><%=FormatSize(root.Maxfilesize)%><%END IF%></font></td></tr>
	<tr><td><font style="font-size:12px;" class="subactionsfont"><%=Session(SK_LANGUAGE).GetText("UNUPLOADED")%>: </font></td><td align=left><font style="font-size:12px;" face="Arial" color="#666600"><%IF root.Unuploaded="" then%><%=Session(SK_LANGUAGE).GetText("NONE")%><%ELSE%><%=Replace(root.Unuploaded, ";", " ")%><%END IF%></font></td></tr>
</table>
</td>
</tr>
</table> 

<img src="images/Foldersline.gif" height="1" width="291"><BR><BR> 
<%
i+=1
next%>
</td> 
</tr>
</table>
</form>

	<script language="JavaScript">
	drawdownwin('&nbsp;');
	</script>
	</body>
</html>

