vis filer med fso

Hvorfor virker nedstående ikke?


<%
    Set objFSO2 = CreateObject(\"Scripting.FileSystemObject\")
    Set F = objFSO2.GetFolder(Left(Request.ServerVariables(\"PATH_TRANSLATED\"), InStrRev(Request.ServerVariables(\"PATH_TRANSLATED\"), \"\\\")))

    Set CFiles = F.Files

    For Each Ting In CFiles
        If Not InStr(Ting.Name,\".asp\") Then
            Response.Write \"<a href=\'\" & Ting.Name & \"\'>\" & Ting.Name & \"</a><br>\"
        End If
    Next
%>

Altså ideen er at jeg bare vil udskrive filnavnene MEDMINDRE de hedder noget med .asp

:)