Link a singoli oggetti di cartella

[benni]

Ho un problema:
devo visualizzare il contenuto di una cartella e fin qui ok
ecco il codice che ho usato

<%
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s, cont
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
cont = 1
For Each f1 in fc
if right(f1.name, 3) = "mov" then
response.write ""& f1.name &""
end if %>



<% Next
ShowFolderList = s
End Function

response.Write ShowFolderList(server.MapPath("movies/"))%>

mi serve anche pero' creare il linkad ogni singolo oggetto della cartella.
Grazie

[Mems]

response.write "" & f1.name & ""

[benni]

Cioe' cosi?
<%response.write "%><%" & f1.name & "%>"<%end if%>

ma mi da errore, dove sbaglio?

[benni]

Ho risolto.

<a href="http://www.dominio.it/movies/<%=""& f1.name &""%>"><% response.write ""& f1.name &""
end if %>

questa la stringa giusta

Grazie a tutti
ciao