/beta/order/files_sam_recicel.asp

 1	<TABLE Class="OrderFile" cellspacing='1' align=center style='width:700;background-color:red;border:2 solid black;'>
 2		<tr>
 3			<td colspan="2" class="orderTableHeader" style="text-align:center;">فايلهاي مربوط به اين سفارش</td> 
 4			<td colspan='2' class="orderTableHeader" style="text-align:left;">
 5				<input class="GenButton" type="button" value="اضافه کردن فايل" onclick="window.location='file://///intelserver2500/OrdersStorage/<%=cstr(Order)%>';">
 6				<input type='file' value='اضافه کردن فايل'>
 7			</td>
 8		</tr>
 9		<%
10		dim fso, fld, file
11		set fso = Server.CreateObject("Scripting.FileSystemObject")
12		on error resume next
13		set fld = fso.GetFolder("\\intelserver2500\OrdersStorage\" & cstr(Order))
14		tmpCounter = 0
15		for each file in fld.Files
16			tmpCounter = tmpCounter + 1
17			%>
18			<tr class="<%if (tmpCounter MOD 2) = 1 then response.write "CusTD3" else response.write "CusTD4"%>">
19				<td>
20					<a href='file://///intelserver2500/OrdersStorage/<%=cstr(Order)%>/<%=file.Name%>'>
21						<%=left(file.Name,inStrRev(file.Name,".") - 1)%>
22					</a>
23				</td>
24				<td>
25					<%=file.Type%>
26				</td> 
27				<td>
28					<%=separate(file.Size)%>
29				</td>
30				<td>
31					<%=file.DateCreated%>
32				</td>
33			</tr>
34			<%
35		next
36		if tempCounter = 0 then
37%>
38		<tr class="CusTD3">
39			<td colspan="4">هيچ</td>
40		</tr>
41		<%
42		end if
43		set fso = nothing
44		set fld = nothing
45		set file = nothing
46		%>
47	</TABLE>