Tving gem destination som

Du skal have fat i et upload/download komponent ala ASP upload eller ASPSmartUpload. Kan findes her:

http://www.aspupload.com/
http://www.aspsmart.com/aspSmartUpload/

Link fra fil:

<a href="lastned.asp?mappe=files&file=dinfil.ext">Last ned fil</a>

lastned.asp:

<%
Response.Expires = -1

Dim filename
Dim shortfn
Dim mappe
mappe = Request.QueryString("mappe")
shortfn = request.querystring("file")
filename = server.mappath("produkter/" & mappe & "/" & 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 "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.ContentType = ContentType

 
  Response.BinaryWrite objStream.Read
%>

Works like a charm...