[Resolvido] ERRO Dundas

[Igor Meireles 0]

ERRO

 

Dundas.Upload.2 erro '80004005'

 

Failed to get the boundary.

/_util/ac/envia.asp, line 46

 

dim objUpload

Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 100000

objUpload.UseUniqueNames = false

46-> objUpload.SaveToMemory

 

For Each objUploadedFile in objUpload.Files

 

objUploadedFile.SaveAs path&"\"&idA&"\"&id_doc&".PDF"

 

situacao = 1

 

Next

Set objUpload = nothing

 

 

se eu determino o tamanho do arquivo que eu quero . . usando o

 

objUpload.MaxFileSize = 100000

 

da o mesmo erro

[Anderson Schmitt 0]

Amigo, veja se você não está chamando algum Request.Form ou apenas Request antes de tentar salvar o arquivo.

[Igor Meireles 0]

Estou pois pego as variáveis para poder salvar o arquivo . ..

 

 

<%

ARQUIVO = Request.Form("arquivo")

idA = Request.QueryString("idA")

cd_cliente = Request.QueryString("cd_cliente")

id_usuario = Request.QueryString("id_usuario")

tipo_documento = Request.Form("tipo_documento")

situacao = 0

ARQUIVO = "teste"

tipo_documento = 0

 

Server.ScriptTimeout = 60

 

path = "e:\SGQ\inetpub\wwwroot\_pdf\ac"

 

If Request.QueryString("upload") = 1 then

 

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

 

If not objFS.FolderExists(path&"\"&idA) Then

 

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

'Response.Write(path&"\"&idA)

'Response.End()

objFS.CreateFolder(path&"\"&idA)

Set objFS = Nothing

 

End if

 

SQL = " INSERT INTO ANALISE_CREDITO_DOC (ID_ANALISE, ID_CLIENTE, ID_USUARIO, CD_TIPO_DOCUMENTO, DS_ARQUIVO, DS_SITUACAO) VALUES "_

& " ("&idA&","&cd_cliente&","&id_usuario&","&tipo_documento&",'"&ARQUIVO&"',"&situacao&")"

Con.Execute(SQL)

 

SQL = "SELECT MAX(ID) AS iID FROM ANALISE_CREDITO_DOC"

 

Set rs = Con.Execute(SQL)

 

id_doc =rs("iID")

 

Set rs = Nothing

 

dim objUpload

Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 100000

objUpload.UseUniqueNames = false

objUpload.SaveToMemory

 

For Each objUploadedFile in objUpload.Files

 

objUploadedFile.SaveAs path&"\"&idA&"\"&id_doc&".PDF"

 

situacao = 1

 

Next

Set objUpload = nothing

 

SQL = " UPDATE ANALISE_CREDITO_DOC "_

& " SET DS_SITUACAO="&situacao&" WHERE ID_ANALISE = "&idA

 

%>

<script language="javascript">

alert('Arquivo inserido com sucesso!')

location = 'inserir_documento.asp?st=1&idA=<%=idA%>';

</script>

<%

 

 

Set objFS = Nothing

 

 

End If

 

%>

[Anderson Schmitt 0]

Este é o problema então.

 

Você deve usar o próprio componente de upload para pegar as variáveis.

 

Não sei no caso do Dundas, mas, geralmente os objetos de upload tem uma função chamada FORM que é exclusivamente para isso.

 

Tente criar o objeto de Upload antes de chamar qualquer Request.Form.

Após isso, troque todos os Request.Form por objUpload.Form()

 

Isso deve funcionar.

 

 

Atenciosamente,

 

Anderson Schmitt.

[Igor Meireles 0]

Perfeito Anderson . . brigadão !