
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：商社-商品企画室-経理課-伝票メニュー
'	作成日：2002/10/18
'	作成者：山崎
'################################################
'-->
%>


<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim FileName, basp, barray, SaveMapPath
	FileName = Request("FileName")
	SaveMapPath = Server.MapPath("/" & HomeAlias & "/data/gazokako") & "/" & FileName

	Set basp=Server.CreateObject("basp21")
	barray = basp.BinaryRead(SaveMapPath)

	Response.AddHeader "Content-Disposition","attachment;filename=" & FileName & ""
	Response.ContentType="image/gif111"
	Response.BinaryWrite barray

End Sub
%>