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