[FCKeditor] Upload to DataBase.

[pictor]

Sto cercando di modificare l'FCKeditor in modo che possa effettuare l'upload del filemanager anche verso un database.

Questa è la funzione che copia lo stream del file uploadato verso un file sull'hard disk.

	Public Sub SaveAs(sItem, sFileName)
		If File(sItem).Size < 1 Then
			nErr = 2
			Exit Sub
		End If
		
		If Not IsAllowed(File(sItem).Ext) Then
			nErr = 4
			Exit Sub
		End If
		
		Dim oFileStream
		Set oFileStream = Server.CreateObject("ADODB.Stream")
		With oFileStream
			.Type		= 1
			.Mode		= 3
			.Open
			oSourceData.Position = File(sItem).Start
			oSourceData.CopyTo oFileStream, File(sItem).Size
			.Position	= 0
			.SaveToFile sFileName, 2
			.Close
		End With
		Set oFileStream = Nothing
	End Sub

Come posso modificarlo per buttarlo in un campo OLE binario del database? (uso SQL Server)

E' sufficiente un:

RS("CampoOLE") = oSourceData.CopyTo RS("CampoOLE"), File(sItem).Size

oppure

RS("CampoOLE") = oSourceData.Read

?

Cos'altro dovrei fare?

Mi date una mano?
E' molto importante.

Grazie