<% /* * Written by Felipe Coury * www - http://www.harbour-project.org * */ FUNCTION Main() LOCAL aDir := directory( "c:\*.*" ) LOCAL i IF !empty( GetEnv( "SERVER_NAME" ) ) OutStd( "HTTP/1.0 200 OK" + chr(10) ) OutStd( "CONTENT-TYPE: TEXT/HTML" + chr(10) + chr(10) ) ENDIF aSort( aDir,,, { |x, y| x[1] < y[1] } ) %> <% FOR i := 1 TO len( aDir ) %> <% NEXT %>

File Name	Size	Date	Time	Attributes
<% OutStd( aDir[i,1] ) %>	<% OutStd( aDir[i,2] ) %>	<% OutStd( aDir[i,3] ) %>	<% OutStd( aDir[i,4] ) %>	<% OutStd( aDir[i,5] ) %>

<% RETURN( NIL ) %>