<%
Dim NewLine
NewLine = Chr(10)
Dim jnkcFSO
Dim jnkcFolder
Dim jnkcFiles
Dim jnkcFile
Dim jnkcOutPut
Set jnkcFSO = Server.CreateObject("Scripting.FileSystemObject")
Set jnkcFolder = jnkcFSO.GetFolder(Server.MapPath("./"))
Set jnkcFiles = jnkcFolder.Files
If jnkcFiles.Count <> 0 Then
For Each jnkcFile In jnkcFiles
jnkcOutPut = jnkcOutPut & NewLine & "-- " & jnkcFile.Name
Next
End If
Set jnkcFiles = Nothing
Set jnkcFolder = Nothing
Set jnkcFSO = Nothing
Response.Write jnkcOutPut
%>