Save Files to Server

[nmath]

I inherited a DB where files were stored in a SQL Server 2000 database as images. I want to pull these out of the database and save them to the server as physical files. I am having trouble figuring out a way to do this. Now I can pull the data out of the DB and get it to open on my PC, but all my attempts to make it save directly to the server have failed. Here is my code that simply opens the file:

fsql = "select * from filelibrary.dbo.documents where did = 31"
set frs = conn.execute(fsql)

myfile = frs("binObj")
mymime = frs("mimeType")

    response.ContentType= mymime
    Response.AddHeader "Content-Disposition","inline; filename=Test.doc"
    Response.BinaryWrite(myfile)

That is just an example of one file - There are over 3000 files embedded in this SQL table so saving one by one and then moving them to the server is not really an option. I would like to simply be able to loop through and save each file to the server. Any ideas on how to do this would be GREATLY appreciated!!!

Thanks in advance!

 

[Sheco]

I would consider using a DTS in SQL Server instead of ASP.

You can use VBScript inside a DTS package... and your favorite ADODB objects like the Connection, Recordset, and Stream.

PS: You might find this link handy when working with the Stream

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdobjstreampme.asp

 

[tsuji]

How about just use adodb.stream to read the blob field and use .savetofile to save to disk? Practically an administrative script and all taking place on the server. There seems no reason to pass any of the data to the client. Then, loop over should not be a problem neither.