svær fso sortering

Jeg har dette
<%   
                    Set fso = CreateObject("Scripting.FileSystemObject")
                    Set folderObject = fso.GetFolder(Server.MapPath("scripts"))
                    Set filer = FolderObject.Files
                    %>
                    <tr>
                        <td>
                            <div align="right">
                            <table border="0" width="95%" id="table3">
                            <%For Each File In filer%>
                                <tr>
                                    <td><a target="_blank" href="scripts/<%=File.name%>">
                                    <span style="text-decoration: none">
                                    <font face="Arial" size="2" color="#000000"><%=File.name%></font></span></a></td>
                                </tr>
                                <%next%>
                                </table>
                            </div>
                        </td>
                    </tr>   
                    <%
                    set fo=nothing
                    set fs=nothing
                    %>                   
                    <% end if %>

som lister alle filerne i en mappe, men hvordan får jeg lavet det således at kun asp filerne bliver vist ?