Erro no upload no FTP

[Gilberto Jr 26]

Ola pessoal, eu peguei um exemplo de upload aqui no imaster e adaptei o mesmo no meu formulario, mas na hora de enviar ele esta dando erro.

segue abaixo o codigo

<!--#include file="funcoes.asp" -->
<%
Server.ScriptTimeout = 1500
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
'nome = UploadRequest.Item("nome").Item("Value")
'email = UploadRequest.Item("email").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_arq = UploadRequest.Item("Arquivo").Item("ContentType")

' Recupera o tamanho do arquivo e Bytes
tamanho = Request.TotalBytes

'Divide o valor total de bytes para KiloBytes com 3 casas decimais
Retorno = Round((Tamanho/1024),3) &" KB"

'Valor divido para KB concatenado com KB
'Retorno = Retorno & " KB"

' Caminho completo dos arquivos enviados
caminho_arq = UploadRequest.Item("Arquivo").Item("FileName")

' Nome dos arquivos enviados
nome_arq = Right(caminho_arq,Len(caminho_arq)-InstrRev(caminho_arq,"\"))

' Conteudo binario dos arquivos enviados
guia = UploadRequest.Item("Arquivo").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("../../guiavm/")
nome_arq = "/"&nome_arq

' pasta + nome dos arquivos
cguia = nome_arq

' Fazendo o Upload do arquivo selecionado
if guia <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arq)
For i = 1 to LenB(guia)
MyFile.Write chr(AscB(MidB(guia,i,1)))
Next
MyFile.Close
end if
%>

E abaixo segue a imagem do erro

 

Desde ja eu agradeço.

 

Ah o site esta hospedado na locaweb.

[Giancarlo Braga 0]

Não apareceu imagem nenhuma.

Mas na grande maioria dos casos o problema é quase sempre com o caminho do upload.

Pelo menos foi o que percebi sempre que precisei fazer sistemas com upload embutido.

 

Tente tirar o Server.MapPath e usa um caminho físico, inclusive mostrando a unidade e tudo mais.

Só pra testar, ok? Digo isso às cegas pois não sei se é o seu problema.

 

Abraço.

[xanburzum 169]

poste o numero e linha do erro