<%
'Ruta en el servidor del directorio que queremos listar
dirname="http://www.disdelsur.com/adm_img/"
'Directorio a listar
mypath = "adm_img/"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath(dirname))
Set filez = folder.Files
FileCount = folder.Files.Count
response.write "<center><font size=1>There are "
response.write " <font size=2>"
response.write FileCount & " </font>"
response.write " tutorials.</font></center><p>"
For Each listing in filez
TotalChars = len(listing.name)
Title = left(listing.name,TotalChars - 4)
Title = replace(Title,"_"," ")
response.write "<A HREF='" & mypath
response.write listing.name
response.write "' class=""menu"" target=""_new"">"
response.write Title
response.write "[/url]
"
Next
%>