Urgent!! problem with listing files

I am using a simple code so as to list all the files in a directory. the code is

Whichfolder=server.mappath("\") &"/upload/"
Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Whichfolder)
Set fc = f.files

For Each f1 in fc
Response.write (f1.name & "<BR>")
Next

the problem is that instead getting results, i get a blank page wich seams to be loading and processing the code for a long time. What seams to be the problem? pleaze pleaze help.. thanx :)

It works fine on my webserver!

<%
Whichfolder=server.mappath("\") & "/300606/"
Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Whichfolder)
Set fc = f.files

For Each f1 in fc
Response.write (f1.name & "<BR>")
Next
%>

OUTPUT:
index.htm
photos.js
photos.xml
UserSelections.txt