<%@ Language=VBScript %>
<%Response.buffer=True

'///////////////////////////////////////
'// This is the server path to your files (it WILL need changing)
'///////////////////////////////////////

filePath = "c:\http_root\file\"

'///////////////////////////////////////
'// First, see if the user has logged in
'///////////////////////////////////////

'///////////////////////////////////////
'// Request file name from link query string
'///////////////////////////////////////


fileName = request.querystring("file")

'///////////////////////////////////////
'// Log the download
'///////////////////////////////////////

' Insert logging code here
' Eg - record the user and download in a seperate dataabse / text file


'////////////////////////////////////////
'// Send the file.
'// The file is sent to the user, using the code "download.asp?f=filename.ext"
'// So, if the file is called setup.zip, youll use a link "download.asp?f=setup.zip"
'//
'////////////////////////////////////////


Response.ContentType = "application/asp-unknown"
Response.AddHeader "content-disposition","attachment; filename=" & fileName
Set FStream = Server.CreateObject("ADODB.Stream")
FStream.Open()
FStream.Type = 1
FStream.LoadFromFile(filePath&filename)
Response.BinaryWrite FStream.Read()
FStream.Close
Set FStream = Nothing
Response.End

'////////////////////////////////////////
%>

private void Page_Load(object sender, System.EventArgs e)
		{
                     //put an if block around SendFile2Stream to satisfy your auth levels

                     //pass the querystring with the filename to the method
			SendFile2Stream(Request.QueryString[0]);			
		}

              //method for sending the file to the output stream
		private void SendFile2Stream(string filename)
		{
                     //declare local variables
			FileStream fs = null;
			byte [] bytBytes = null;

                     //try block
			try
			{
                            //open the filestream to the document
                            //note" Configuration.WebsiteDocsPath is a class-property I've got to get useful keys from the                  
                            //web.config
				fs = new FileStream(Configuration.WebsiteDocsPath + filename, FileMode.Open, FileAccess.Read);
                            //create a byte array of doc's length
				bytBytes = new byte[fs.Length];
                            //read the filestream into the array
				fs.Read( bytBytes, 0, Convert.ToInt32( fs.Length ) );
			}
                     //should be some catch blocks here!!!

                     //don't cross the streams! :)
			finally
			{
				fs.Close();
			}

                     //add the headers
			Response.AddHeader( "Content-disposition", "attachment; filename=" + filename );
                     //pick a content type
			Response.ContentType = "application/octet-stream";
                     //write the doc to the output stream
			Response.BinaryWrite(bytBytes);
                     //end
			Response.End();
		}//end method