<% ' %> <% 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.ContentType="image/jpeg" Response.BinaryWrite barray End Sub %>