将数据库中的二进制流文件生成到硬盘上

如何将数据库中的二进制流文件生成到硬盘上？ 

<%
dim conn, rs

set conn = server.createObject("adodb.connection")
conn.open "Provider=OraOLEDB.Oracle;Data Source=oracle.mydomain.com;User ID=scott;PASSWORD=tiger;Persist Security Info=True"

set rs = conn.execute("Select blobcolumn FROM blobtable Where id = 7")

'Write it to the browser
response.binaryWrite rs.fields("blobcolumn").value

'Write it to disk
dim stream
set stream = server.createObject("adodb.stream")
stream.type = adTypeBinary
stream.open
stream.write(rs.fields("blobcolumn").value)
stream.saveToFile folderAndFileName, adSaveCreateOverWrite
stream.close
%>