asp code help

One of my clients has this asp code, and it returns a 500 error can somebody take a look at if for me, I'm not very good at all with ASP

<%
Dim fs, d, dc, dn
set fs = Server.CreateObject("Scripting.FileSystemObject")
set dc = fs.GetFolder("C:\Inetpub\ftproot\users\alex2\public_html\")
set dn = dc.Files
for Each d in dn
%>
<%i=i+1%>
<%=d.name%>
<%Next%>
<%dossier="dossier2"%>
<%
set fs=CreateObject("Scripting.FileSystemObject")
set f=fs.CreateFolder("C:\Inetpub\ftproot\users\alex2\public_html\"&dossier)
set f=nothing
set fs=nothing%>

 

 

 

 

Top