download af video ( wmv )

Hej, jeg bruger flg asp side til at downloaded wmv filer.

<%
Response.Expires = -1

Dim filename
Dim shortfn

shortfn = request.querystring("file")
filename = server.mappath("video/" & shortfn)

Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Open
  Const adTypeBinary = 1
  objStream.Type = adTypeBinary
  objStream.LoadFromFile Replace(filename,"/","\") 
  Response.AddHeader "Content-Disposition", "attachment;filename=" & shortfn
  Select Case right(filename,3)
        Case "mp4"
              ContentType = "video/mp4"
          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 "wmv"
              ContentType = "video/x-ms-wmv"
          Case Else
              'Handle All Other Files
              ContentType = "application/octet-stream"
  End Select

  Response.ContentType = ContentType
  Response.BinaryWrite objStream.Read
%>

Det virker sådan set også fint. Men ved større filer går der lang tid før browseren spørger om man vil gemme eller åbne filen.

Jeg ville gerne have at den kom og spurgte om det med det samme.

Kristian