<% Dim page page="file_manager" %>

<% If Session("PTHKAdmin_LoggedIn")=true Then %> <% If Request.QueryString("msg")<>"" Then Response.Write "

" & Request.QueryString("msg") & "

" End If %> <% If Request("t")="ph" Then %>

Add New
Attorney photos must be JPGs with 100px width and 100px height at 72 dpi.

Folder Contents

<% Set fso = CreateObject("Scripting.FileSystemObject") filename=server.mappath("/images/attorneys/") Set f = fso.GetFolder(filename) Set fc = f.Files If fc.count > 0 Then %> <% dim n,col n = 0 For Each f1 in fc n = n + 1 If Right(n/2,2)=".5" Then col="#EEEEEE" Else col="#FFFFFF" End If %> <% Next %>

	Name	Size (KB)	Last Modified
	<%=f1.name%>	<%=FormatNumber((f1.Size/1000),1)%>	<%=f1.DateLastModified%>

<% Else Response.Write "

" End If Set fso = nothing Set f = nothing Set fc = nothing %>

<% Elseif Request("t")="pdf" Then %>

Add New

Folder Contents

<% Set fso = CreateObject("Scripting.FileSystemObject") filename=server.mappath("/pdfs/") Set f = fso.GetFolder(filename) Set fc = f.Files If fc.count > 0 Then %> <% n = 0 For Each f1 in fc n = n + 1 If Right(n/2,2)=".5" Then col="#EEEEEE" Else col="#FFFFFF" End If %> <% If Len(f1.name)>15 Then %> <% Else %> <% End If %> <% Next %>

	Name	Size (KB)	Last Modified
	<%=Left(f1.name,15)%>~.pdf	<%=f1.name%>	<%=FormatNumber((f1.Size/1000),1)%>	<%=f1.DateLastModified%>

<% Else Response.Write "

" End If Set fso = nothing Set f = nothing Set fc = nothing %>

<% End If %> <% End If %>