<% Option Explicit %>
<%
	Dim FileName
	Dim FullFileName
	FileName = "MyWordDocument.doc"
	FullFileName = "C:\Webfiles\MyWordDocument.doc"
	Response.ContentType = "application/x-unknown"
	Response.Addheader "Content-Disposition", "attachment; filename=" & chr(34) & FileName & chr(34)
	Response.Binarywrite GetBinaryFile(FullFileName)

	Function GetBinaryFile(ByVal FileSpec)
		Const adTypeBinary = 1
		Dim objStream
		Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Open()
		objStream.Type = adTypeBinary
		objStream.LoadFromFile (FileSpec)
		GetBinaryFile = objStream.Read()
		Set objStream = Nothing
	End Function
%>