Download med fso

Jeg er ved at lave en "download backup db(access)" funktion, men har lidt problemer.

download_db.asp :

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
dim fso, fldr, file, strDownloadDirectory
strDownloadDirectory = Server.mappath("../../access/")

response.write "<form method=""get"" action=""download.asp"">" & vbCrLf
response.write "<select name=""file"">" & vbCrLf

set fso = server.createobject("scripting.filesystemobject")
set fldr = fso.getfolder(strDownloadDirectory)
for each file in fldr.files

response.write "<option value=""" & strDownloadDirectory & "\" & file.name & """>" & file.name & "</option>" & vbCrLf

next
set fso = nothing
set fldr = nothing
set file = nothing
response.write "</select>" & vbCrLf
response.write "<input type=""submit"" value=""Download database"">"
response.write "</form>" & vbCrLf
%>
</body>
</html>

------------------------------------------

download.asp :

<% @ Language = VBScript %>
<%
Option Explicit
Response.Buffer = True


Function FileRead(byVal FILE)
    Dim strOut : strOut = ""
    Dim objFSO, FileDownload
    Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set FileDownload = ObjFSO.OpenTextFile(FILE, 1, False)
    strOut = FileDownload.ReadAll()
    FileDownload.Close
    Set FileDownload = Nothing
    Set objFSO = Nothing
    FileRead = strOut
End Function


Dim strFileToDownload, strFileContents

strFileToDownload = Request.QueryString("file")
strFileContents = FileRead( strFileToDownload )


With Response
    .AddHeader "Content-Disposition", "filename=" & strFileToDownload
    .ContentType = "application/octet-stream"
    .Write strFileContents
End With
%>

------------------------------------------

download_db.asp viser også rigtigt nok en select med de rigtige filer, og options value er den fulde sti.

Men når jeg trykker "download" promtes jeg med filen "download" og ikke andet.

Hjælp :)