ADODB.Stream

[sublyer 0]

Bom tenho um método que converte um determinado arquivo em BLOB, para que seja incluido em um banco de dados Mysql.

O problema acontece quando chamo o método converterBLOB(arquivo) que realizará a conversão, mas quando retornar o valor não consigo, pois ele me da o seguinte erro:

 

Microsoft VBScript runtime (0x800A01F5)

Illegal assignment: 'converteBLOB'

 

Alguém poderia me informar onde estou errando?

 

Muito obrigado por quem puder me ajudar.

 

Meu método é o seguinte:

<%class Blob	' Método que converte um arquivo para BLOB, para realizar inclusão na base de dados MySQL	' @param - arquivo (arquivo a ser convertido)		' @return  - arquivo no formato blob (binary)		' @author - jader tavares		' @version - 1.0.0		' @since 01/09/2006			Public Sub converteBLOB(arquivo)							Dim objStream						Dim arquivoTemporario						Dim objBuffer												' criando objeto						Set objStream = Server.CreateObject("ADODB.Stream")						' abrindo um novo espaco na memoria						objStream.Open												' determinando o tipo de arquivo (1 = AdTypeBinary)						objStream.Type = 1												' determinando o arquivo temporario						arquivoTemporario = arquivo												' abrindo o arquivo a partir do diretorio do arquivoTemporario						objStream.LoadFromFile arquivoTemporario 												' lendo o arquivoTemporario						objBuffer = ObjStream.Read						[b]' Problema encontrado nesta linha[/b]						[color=#FF0000]converteBLOB = objBuffer [/color] 	End SubEnd class%>

[Marcelo Barcellos 0]

Colega...Sub não retorna parâmetro pelo seu chamadorTroque de SUB para Function e não se esquece de mudar de "End Sub" para "End Function"

[sublyer 0]

Correto, era esse mesmo o problema.Obrigado.