«

Hi All

I want to create a webpage which will list all the files in particular
folder and hyperlink to them to allow users to view the grpahics online
without having to send each file to them by email.

I got the following code but gives me a VBScript error. I have created a
folder called files under the home directory of this website and have added
the name of the folder

Can someone please help?


<%@ LANGUAGE=VBScript %>
<%
Dim ofs,of
Dim fi
set ofs = createobject("Scripting.FileSystemObject")
set of = ofs.getFolder("files") ' blieve this is the problem
For Each fi In of
Response.Write("<a href='" + fi.Name + "'>" + fi.Name + "<br>")
Next fi
%>

Microsoft VBScript compilation error '800a0401'
Expected end of statement

/default.asp, line 13

Next fi
-----^

> Next fi
> -----^

Get rid of the fi and try again. It should just be Next.