udskriv alle filer - bare ikke asp filer......

Jeg har følgende kode, som udskriver en oversigt over alle filer i en mappe.

Nu vil jeg gerne have det sådan at den udskriver alle filer, bare ikke asp filer... r det til at forstå ! :-(

Hjælp mig..........

<%
    strPathInfo = Request.ServerVariables("PATH_INFO")
    strPhysicalPath = Server.MapPath(strPathInfo)

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(strPhysicalPath)
    Set objFolder = objFile.ParentFolder
    Set objFolderContents = objFolder.Files

    For Each objFileItem in objFolderContents
        Response.write "<a href="
        Response.Write(objFileItem.Name)
        Response.write ">"
        Response.Write(objFileItem.Name & "<br>")
        Response.write "</a>"
    Next
%>