<%@ LANGUAGE="VBSCRIPT" %>
<%[green]
'==========================================================================
'
' NAME: publicdownloads.asp
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: [URL unfurl="true"]http://www.thespidersparlor.com[/URL]
' DATE : 10/27/2007
' COPYRIGHT (c) 2007 All Rights Reserved
'
' COMMENT: Dynamically creates download links.
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'
' IN NO EVENT SHALL THE SPIDER'S PARLOR AND/OR ITS RESPECTIVE SUPPLIERS
' BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
' DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
' WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
' ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
' OF THIS CODE OR INFORMATION.
'
'==========================================================================[/green]
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Public Downloads</title>
</head>
<body>
<%
set directory=server.createobject("scripting.filesystemobject")
set allfiles=directory.getfolder(server.mappath("/[red]publicdownloads/[/red]"))
Dim count
count = 0
For each directoryfile in allFiles.files
count = count + 1
Next
If count = 0 Then
Response.Write "Sorry no files to display.<br>"
Else
[green]
' Lists all the files found in the directory[/green]
For each directoryfile in allFiles.files
If directoryfile.name <> "[red]publicdownloads.asp[/red]" Then
response.write "<br><a href=/[red]publicdownloads/[/red]"[green]
' Write out the name of the document[/green]
response.write server.urlencode(directoryfile.name)
response.write ">"[green]
' Write out the name of the document[/green]
response.write directoryfile.name
response.write "</a><br>"
End If[green]
' End for next loop to list documents[/green]
Next
End If
%>
</body>
</html>
