jmaresca2005
12-13-2004, 12:13 PM
<% @language ="vbscript" %>
<% response.buffer = true %>
<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
'Point this to the file you wish to download
xml.Open "GET","http://dev-environ/Users/" & request("FileName"),False
xml.Send
' Add a header to give it a file name:
Response.AddHeader "Content-Disposition", _
"attachment;filename=" & request("DisplayFileName")
' Specify the content type to tell the browser what to do.
'THIS FOOLS THE BROWSER INTO THINKING YOU WISH TO DOWNLOAD A ZIP FILE
Response.ContentType = "application/zip"
' Binarywrite the bytes to the browser
Response.BinaryWrite xml.responseBody
Set xml = Nothing
%>
<body>
</body>
<% response.buffer = true %>
<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
'Point this to the file you wish to download
xml.Open "GET","http://dev-environ/Users/" & request("FileName"),False
xml.Send
' Add a header to give it a file name:
Response.AddHeader "Content-Disposition", _
"attachment;filename=" & request("DisplayFileName")
' Specify the content type to tell the browser what to do.
'THIS FOOLS THE BROWSER INTO THINKING YOU WISH TO DOWNLOAD A ZIP FILE
Response.ContentType = "application/zip"
' Binarywrite the bytes to the browser
Response.BinaryWrite xml.responseBody
Set xml = Nothing
%>
<body>
</body>