FSO vis kun dir og billeder

Dette script viser hele indholdet i en folder men den skal kun vise hvis der er tale om et dir eller billeder.
Alt andet *.asp *.txt osv.. skal ikke vises.

<%
Function ShowImageForType(strName)
    Dim strTemp

    strTemp = strName

    If strTemp <> "dir" Then
        strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))
    End If
   
    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=""./mediebank" & 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))

%>
<BR>

<TABLE BORDER="5" BORDERCOLOR="green" CELLSPACING="0" CELLPADDING="2">
    <TR BGCOLOR="#006600">
        <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="#CCFFCC">
        <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="#CCFFCC">
        <TD ALIGN="left" ><A HREF="<%= strPath & objItem.Name %>"><img src="resize-showpic.asp?path=mediebank/<%= objItem.Name %>" border="0"></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>