liste filer i mappe

jeg har den her kode der gerne sku liste filerne i en mappe og linke til dem os

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                                    Set f = objFSO.getFolder(Server.MapPath("/galleri"))

                                    For Each Item in f.SubFolders
                                        Response.Write "<a href='galleri/" & Item.Name & "'>" & Item.Name & "</a><br>"

          end if

                                    Next
%>

men jeg får den her fejl

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/u-site/index.asp, line 8
end if