Pregunta de examen. (Mover fichero FSO a BD)

Hola,

El objetivo es recorrer los ficheros de un directorio i insertarlos en SQL
Server.
Lo tengo todo listo, lo que pasa es que no se como tengo que recuperar el
fichero para almacenarlo como tipo image en SQL Server.

Os muestro como lo hago:

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.Mappath("\"))
Set files = folder.Files

For Each file in Files

fiNom = file.Name
fiTamany = file.Size
fiTipus = file.Type

on error resume next
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "[924_Immobles].dbo.documentacio", Conex, 2, 2
rs.AddNew
rs("taula_id") = 5
rs("taula_indenti") = cstr(cint(taula_indenti))
rs("doc_data") = now
rs("doc_descrip") = "proves automàtiques"
rs("doc_nom") = fiNom
rs("doc_tamany") = fiTamany
rs("doc_dades").AppendChunk 'Como expreso el documento para que se inserte
??????????
rs("doc_tipus") = fiTipus
rs.Update

Next
%>

Lo que no hago es hacer el upload y guardarlo, sino que lo recupero de
directorio directamente y inserto.

¿Alguna idea?, ¿Alguna url?...

Muchas gracias.