<% 'sFile = request.querystring("file") sFile = "ArtVespaWall.jpg" 'sPath = "/" & sFile sPath = Server.MapPath(".") & "\" & sFile 'Response.Write sPath ' Response.End() sName = "ArtVespaWall.jpg" ContentType = "application/x-msdownload" Response.Buffer = True Const adTypeBinary = 1 Response.Clear Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile sPath ContentType = "application/octet-stream" Response.AddHeader "Content-Disposition", "attachment; filename=""" & sName & """" Response.Charset = "UTF-8" Response.ContentType = ContentType Response.BinaryWrite objStream.Read Response.Flush objStream.Close Set objStream = Nothing %>