How to use show files page, if we have subfolders in a folder? is ther any way Faisal, plz man some one reply me. at least one of my questions plzzzzzzzzzzzzzzzzzzzz

I have questioned this same issue. I can't write this stuff from scratch, but I can easily figure out how to manipulate it to do what I need. Below is the answer to your question, you can easily copy and paste the first script down from the original show.asp script but you need to remove these two lines in each concession. How you use the (/) in each path is solely determined by your ISP, this worked for mine.

Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")

Heres the Script I used:

<!-- Show Uploaded Resumes -->

<%
' File System Object
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")

' File System Object
' "Uploaded" Folder
Set folder = fso.GetFolder(Server.MapPath("/member1/"))

If folder.Size > 0 Then
Response.Write "<ul>"
For Each file In folder.Files
Response.Write "<li type=""circle"">"
Response.Write "<a target=""_blank"" href=""/member1/"
Response.Write file.Name & """>"
Response.Write "<B><font size=""2"" color=""#0033CC"">" & file.Name
Response.Write "</b><br> "
Next
Response.Write "</ul>"
End If
%>
<!-- End Uploaded Resumes -->
<!-- Show Uploaded Resumes -->

<%
' File System Object
' "Uploaded" Folder
Set folder = fso.GetFolder(Server.MapPath("/member2/"))

If folder.Size > 0 Then
Response.Write "<ul>"
For Each file In folder.Files
Response.Write "<li type=""circle"">"
Response.Write "<a target=""_blank"" href=""/member2/"
Response.Write file.Name & """>"
Response.Write "<B><font size=""2"" color=""#0033CC"">" & file.Name
Response.Write "</b><br> "
Next
Response.Write "</ul>"
End If
%>
<!-- End Uploaded Resumes -->
<!-- Show Uploaded Resumes -->
<%
' File System Object
' "Uploaded" Folder
Set folder = fso.GetFolder(Server.MapPath("/member3/"))

If folder.Size > 0 Then
Response.Write "<ul>"
For Each file In folder.Files
Response.Write "<li type=""circle"">"
Response.Write "<a target=""_blank"" href=""/member3/"
Response.Write file.Name & """>"
Response.Write "<B><font size=""2"" color=""#0033CC"">" & file.Name
Response.Write "</b><br> "
Next
Response.Write "</ul>"
End If
%>
<!-- End Uploaded Resumes -->