>
<%
mt_filetype=right(rsFilesArr(12,i),4)
select case mt_filetype
case ".txt"
fileimg="docimages/txt.gif"
case ".doc"
fileimg="docimages/doc.gif"
case ".ppt",".pot"
fileimg="docimages/ppt.gif"
case ".xls"
fileimg="docimages/xls.gif"
case ".pdf"
fileimg="docimages/pdf.gif"
case ".mdb",".mda"
fileimg="docimages/mdb.gif"
case ".exe"
fileimg="docimages/exe.gif"
case ".msg"
fileimg="docimages/msg.gif"
case ".oft"
fileimg="docimages/oft.gif"
case ".jpg",".bmp",".gif"
fileimg="docimages/paint.gif"
case ".zip"
fileimg="docimages/zip.gif"
case else
fileimg="docimages/txt.gif"
end select
%>
 |
<%=rsFilesArr(3,i)%><% if rsFilesArr(16,i)<>"" then %>
<%=rsFilesArr(16,i)%><% end if %> |
<%=rsFilesArr(13,i)%> |
<%=dodatetime(rsFilesArr(4,i),0,mtDateLCID) & " by " & rsFilesArr(5,i)%> |
<% if rsFilesArr(15,i)<>"" then %> <%=dodatetime(rsFilesArr(15,i),0,mtDateLCID)%> <%else%>
No comments
<%end if %> |
<% if session("mt_viewcomment")=1 or session("mt_addcomment")=1 then %>
<% if cint(rsFilesArr(14,i))>0 and (session("mt_addcomment")=1 or session("mt_viewcomment")=1) then %>
View<% if (session("mt_addcomment")=1) then%>/add <% end if %>(<%=rsFilesArr(14,i)%>)
<% else %>
<% if session("mt_addcomment")=1 then %>Add comment<% else %>n/a<% end if %>
<% end if %>
<% else %>
n/a
<% end if %> |
<% if session("mt_lockfiles")=1 then %> <% if rsFilesArr(9,i)=1 and rsFilesArr(10,i)<>"" then %> ','<%=replace(rsFilesArr(12,i),"'","\'")%>','<%=replace(rsFilesArr(13,i),"'","\'")%>','<%=replace(rsFilesArr(0,i),"'","\'")%>','<%=replace(rsFilesArr(16,i),"'","\'")%>'); return false;">
by <%=rsFilesArr(10,i)%>
<% else %> 
<% end if %> <% else %> <% if rsFilesArr(9,i)=1 and rsFilesArr(10,i)<>"" then %>
by <%=rsFilesArr(10,i)%>
<% else %>
<% end if %> <% end if %> |
<%=dodatetime(rsFilesArr(6,i),0,mtDateLCID) & " by " & rsFilesArr(7,i)%> |
<% if session("mt_deletefiles")=1 then %> <% if rsFilesArr(9,i)<>"" and rsFilesArr(10,i)<>"" then %>
<% else %>
<% end if %> <% else %>n/a <% end if %> |
<%
end if
next
erase rsFilesArr 'clear file list array
%>
<% else %>
To subscribe to this folder, please register
<% end if %>
<% if session("mt_username")<>"" then %>
New folder
<% if parentid<>0 then %>
Edit folder
<% end if %>
<% end if %>
<% else %>
<% if session("mt_addfolder")=1 and parentid<>0 then %>
Add File
<% end if %>
<% else %>
<% if session("mt_addfiles")=1 and parentid<>0 then %> 
There
are currently no folders or files within this directory
