<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim objStream, myContents, myFileName GetFileName=Request.QueryString("getfile") myFileName = GetFileName 'change the name to suit Response.ContentType = "application/octet-stream" Response.AddHeader "content-disposition", "attachment; filename=" & myFileName Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.LoadFromFile Server.MapPath(myFileName) 'again change to suit if needed myContents = objStream.ReadText Response.BinaryWrite myContents objStream.Close Set objStream = Nothing %>