Select Case strTemp
Case "asp"
strTemp = "asp"
Case "dir"
strTemp = "dir"
Case "htm", "html"
strTemp = "htm"
Case "gif", "jpg"
strTemp = "img"
Case "txt"
strTemp = "txt"
Case Else
strTemp = "misc"
End Select

strTemp = "<IMG SRC=""./images/dir_" & strTemp & ".gif"" WIDTH=16 HEIGHT=16 BORDER=0>"

ShowImageForType = strTemp
End Function
%>
<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem

strPath = "./"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))

%>
Contents of <B><%= strPath %></B><BR>
<BR>
</p>
<TABLE BORDER="5" BORDERCOLOR="#003399" CELLSPACING="0" CELLPADDING="2">
<TR BGCOLOR="#0066CC">
<TD><FONT COLOR="#FFFFFF"><B>File Name:</B></FONT></TD>

<TD><FONT COLOR="#FFFFFF"><B>File Size (bytes):</B></FONT></TD>

<TD><FONT COLOR="#FFFFFF"><B>Date Created:</B></FONT></TD>

<TD><FONT COLOR="#FFFFFF"><B>File Type:</B></FONT></TD>
</TR>
<%

For Each objItem In objFolder.SubFolders
If InStr(1, objItem, "_vti", 1) = 0 Then
%>

<TR BGCOLOR="#91C8FF">
<TD ALIGN="left" ><%= ShowImageForType("dir") %>&nbsp;<A HREF="<%= strPath & objItem.Name %>"><%= objItem.Name %></A></TD>
<TD ALIGN="right"><%= objItem.Size %></TD>
<TD ALIGN="left" ><%= objItem.DateCreated %></TD>
<TD ALIGN="left" ><%= objItem.Type %></TD>
</TR>
<%
End If
Next

For Each objItem In objFolder.Files
%>

<TR BGCOLOR="#91C8FF">
<TD ALIGN="left" ><%= ShowImageForType(objItem.Name) %>&nbsp;<A HREF="<%= strPath & objItem.Name %>"><%= objItem.Name %></A></TD>
<TD ALIGN="right"><%= objItem.Size %></TD>
<TD ALIGN="left" ><%= objItem.DateCreated %></TD>
<TD ALIGN="left" ><%= objItem.Type %></TD>
</TR>
<%
Next

Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

%>
</TABLE>