quote:

do you recommend I put them in a .zip directory aswell?

First, create a new page and give it an .asp extension.
Then design the page how you want it to look (ie, add tables, text, graphics, etc.).
Other than the .asp extension, you can name this page whatever you like.

Then within the html code, add the following to the very top of your page (before the opening html tag):

<%
	Dim strThisPage
	strThisPage = Request.ServerVariables("SCRIPT_NAME")
	strThisPage = Right(strThisPage, Len(strThisPage) - 1)

	'****************************************************
	' Add the path to the folder that holds your files in the next statement.
	'****************************************************

	Dim FILE_FOLDER
	'Add the path to the folder that holds your files here
	FILE_FOLDER = Server.MapPath("./yourfilefolder/") '<----
%>



Now add the following into your html code where you want the actual file names listed (eg, in a table cell):

<%
	GetAllFiles
%>



Add the following to the very end of your html code (after the closing html tag):

<%
Sub GetAllFiles()
	Dim oFS, oFolder, oFile
	Set oFS = Server.CreateObject("Scripting.FileSystemObject")

	'Set Folder Object To Proper File Directory
	Set oFolder = oFS.getFolder(FILE_FOLDER)

	Dim intCounter
	Dim FileArray()

	intCounter = 0
	ReDim Preserve FileArray(oFolder.Files.Count, 4)

	For Each oFile in oFolder.Files
		strFileName = oFile.Name
		strFileType = oFile.Type
		strFileSize = oFile.Size
		strFilePath = oFile.Path
		strFileDtMod = oFile.DateLastModified

		FileArray(intCounter, 0) = strFileName
		FileArray(intCounter, 1) = "<A class=File HREF=" & Chr(34) & "startDownload.asp?File=" _
			& strFilePath & "&Name=" & strFileName & "&Size=" & strFileSize & Chr(34) _
			& " onMouseOver=" & Chr(34) & "self.status='" & strFileName & "'; return true;" & Chr(34) _
			& " onMouseOut=" & Chr(34) & "self.status=''; return true;" & Chr(34) & ">" & strFileName & "</A>"
		FileArray(intCounter, 2) = strFileType
		FileArray(intCounter, 3) = strFileSize
		'FileArray(intCounter, 4) = strFilePath
		FileArray(intCounter, 4) = strFileDtMod

		intCounter = (intCounter + 1)
	Next

	' EchoB("<B>" & oFolder.Files.Count & " Files Available for Download</B>")

	intRows = uBound(FileArray, 1)
	intCols = uBound(FileArray, 2)

	For x = 0 To intRows -1
		Echo("<TR>")
		For z = 0 To intCols
			If z > 0  Then
				BuildTableCol(FileArray(x, z))
			End IF
		Next
		Echo("</TR>")
	Next


	Cleanup oFile
	Cleanup oFolder
	Cleanup oFS
End Sub

Function Echo(str)
	Echo = Response.Write(str & vbCrLf)
End Function

Function EchoB(str)
	EchoB = Response.Write(str & "<BR>" & vbCrLf)
End Function

Sub Cleanup(obj)
	IF isObject(obj) Then
		Set obj = Nothing
	End IF
End Sub

Function StripFileName(strFile)
	StripFileName = Left(strFile, inStrRev(strFile, "\"))
End Function

Sub BuildTableCol(strData)
	Echo("<TD CLASS=DataCol>" & strData & "</TD>")
End Sub

'Not implemented
Sub BuildTableRow(arrData)
	Dim intCols
	intCols = uBound(arrData)
	For y = 0 To intCols
		Echo("<TD CLASS=DataCol>" & arrData(y) & "</TD>")
	Next
End Sub
%>


Finally, save this page and link to it from your other pages.

Save the following code as a new .asp page and name it "startDownload.asp".

<%
	'****************************************************
	' This page forces the 'save as file' prompt to prevent files from being opened in the browser.
	' It MUST be saved as "startDownload.asp" to work with the first script.
	'****************************************************

Response.Buffer = True
Dim strFilePath, strFileSize, strFileName

Const adTypeBinary = 1

strFilePath = Request.QueryString("File")
strFileSize = Request.QueryString("Size")
strFileName = Request.QueryString("Name")

Response.Clear

'*******************************
' Requires MDAC 2.5 to be stable
' I recommend MDAC 2.6 or 2.7
'*******************************
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

strFileType = lcase(Right(strFileName, 4))
    
	' Feel Free to Add Your Own Content-Types Here
    Select Case strFileType
	Case ".asf"
	ContentType = "video/x-ms-asf"
	Case ".avi"
	ContentType = "video/avi"
	Case ".doc"
	ContentType = "application/msword"
	Case ".zip"
	ContentType = "application/zip"
	Case ".xls"
	ContentType = "application/vnd.ms-excel"
	Case ".gif"
	ContentType = "image/gif"
	Case ".jpg", "jpeg"
	ContentType = "image/jpeg"
	Case ".wav"
	ContentType = "audio/wav"
	Case ".mp3"
	ContentType = "audio/mpeg3"
	Case ".mpg", "mpeg"
	ContentType = "video/mpeg"
	Case ".rtf"
	ContentType = "application/rtf"
	Case ".htm", "html"
	ContentType = "text/html"
	Case ".asp"
	ContentType = "text/asp"
	Case Else
	'Handle All Other Files
	ContentType = "application/octet-stream"
    End Select
	
	Response.AddHeader "Content-Disposition", "attachment; filename=000" & strFileName
	Response.AddHeader "Content-Length", strFileSize
	' In a Perfect World, Your Client would also have UTF-8 as the default in their browser
	Response.Charset = "UTF-8"
	Response.ContentType = ContentType
	
	Response.BinaryWrite objStream.Read
	Response.Flush

objStream.Close
Set objStream = Nothing

%>