<%@ Language="VBScript" Codepage="949"%>
<!-- #include file="../coms/incs/comms.asp" -->
<%
 
 Call fSetDBCon()			
 Call fSetRs()	
 
 board_no        = request("board_no")
 no              = request("no")

 strSQL = "select mime_type, file_rname, file_fname from board_attfile where board_no="&board_no&" and no="&no
 
 objRs.Open strSQL,objDBCon
 if not (objRs.eof or objRs.bof) then datalist = objRs.getRows
 fRsRelease()
 fObjDestroy()

 Set objStream = Server.CreateObject("ADODB.Stream")
 Response.AddHeader "Content-Disposition", "attachment;filename=" & datalist(1,0)
 Response.ContentType="application/octect-stream name= " & datalist(0,0)
 objStream.Open
 objStream.Type = 1    '// 1 - binary타입을 의미한다.
 objStream.LoadFromFile Server.MapPath("\upfile\s001")&"\"& datalist(2,0)
 download = objStream.Read 
 Response.BinaryWrite download

 Set objStream = Nothing
%>