Tvunget download - problem med større filer

Hej Eksperter

Jeg har i et stykke tid brugt en download script, men det fejler når jeg prøver at hente større filer.. (f.eks 76 mb =P )

scriptet ser således ud.

<%@ Page language="vb" runat="server" explicit="true" strict="true" %>
<script language="vb" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
    Dim strRequest As String = Request.QueryString("file")
    Dim fileExt As String = Right(strRequest,len(strRequest)-InStrRev(strRequest,"."))
    Dim messageTxt As String = "Please provide a file to download."
    select case fileExt
        case "jpg","bmp","png","wav","mp3","flv","html","htm","mp4","avi","mpeg","mpg","mov","wmv","pdf","txt","doc","rtf","xls","zip","rar"
        case Else
        messageTxt = "Not Allowed"
        strRequest = ""
    end select
   
    If strRequest <> "" Then
        'get absolute path of the file
        Dim path As String = Server.MapPath(strRequest)
        'get file object as FileInfo
        Dim file As System.IO.FileInfo = New System.IO.FileInfo(path)
        '-- if the file exists on the server
        If file.Exists Then
            'set appropriate headers
            Response.Clear()
            Response.AddHeader("Content-Disposition", "attachment; filename=" & file.Name)
            Response.AddHeader("Content-Length", file.Length.ToString())
            Response.ContentType = "application/octet-stream"
            Response.WriteFile(file.FullName)
            Response.End
        'if file does not exist
        Else
           
            Response.Write("This file does not exist.")
        End If
    'nothing in the URL as HTTP GET
    Else
        Response.Write(messageTxt)
    End If
End Sub
</script>