Problema com Upload

[nandolee 0]

eu tenho esse codigo com compontes. porem quando eu envio de um form de uma pagina para essa pagina ele da o seguinte erro:

 

Objeto necessário: 'UploadRequest.Item(...)'

 

vcodigo = Session("codigo_arquivo3")


byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

caminho_foto = UploadRequest.Item("foto").Item("FileName")

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

foto = UploadRequest.Item("foto").Item("Value")

pasta = Server.MapPath("Controladoria/")
nome_foto = "/"& vcodigo &"_"& nome_foto

cfoto = nome_foto

if foto <> "" then
	Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
	Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
	For i = 1 to LenB(foto)
		MyFile.Write chr(AscB(MidB(foto,i,1)))
	Next
	MyFile.Close
end if


	conn.execute(" UPDATE CONTROLADORIA SET PDF = '"& cfoto &"' WHERE CODIGO = " & vcodigo)

o form esta com o nome de FOTO porem nao faz o up.

 

flw, ajuda ae

[hargon 64]

É só isso o código da página? E onde declarou o objeto que fará o Upload?

[CaBo GeL 0]

Posta o codigo completo!!!

 

e se n me engano esse Upload é sem Componente!!! e esta faltando muita coisa...

 

at+