<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	–ĽŹĚ	FŹ¤ŽĐ-Ź¤•iŠé‰ćŽş-Śo—ť‰Ű-“`•[ƒƒjƒ…[
'	Ťě¬“úF2002/10/18
'	Ťě¬ŽŇFŽRŤč
'################################################
'-->
%>


<%
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
%>