///Erro no script do Dundas...\\\

[WLJ 0]

ALGUEM PODE ME AJUDAR? É UM SCRIPT PRA FAZER UPLOAD DE HTML´S. A LINHA 41 É ONDE EU PEGO O NOME DO ARQUIVO, POIS MAIS EM BAIXO INSIRO ESTE NOME NUM BD...

 

Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário /roger/admin/inserir_cifra.asp, line 41

 

Dim objUpload, nome_arquivo'Cria uma instancia do objeto Upload e atribui a variável objUpload.Set objUpload = server.CreateObject("Dundas.Upload.2")'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.objUpload.UseVirtualDir = true'esta linha abaixo faz com que o Dundas não altere o nome do arquivo quando fizer o uploadobjUpload.UseUniqueNames = false'Utilizamos o caminho fisico que determina onde serão salvos os arquivos carregados.objUpload.Save "..\jundiainet\roger\cifras"'Limpa a instância criada na memória do servidor.Set objUpload = nothing'Aqui nós verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o último erro, caso nenhum erro tenha ocorrido o objeto conterá o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem será dada ao usuário.If Err <> 0 Then'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número.Response.Write Err.Description & " " & Err.Number & "<br>"Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=javascript:history.back(-1)>Voltar</a> </b></font>"Else'Se o objeto Err for igual a 0 será apresentado a mensagem de sucesso e os dados estarão salvos no caminho determinado acimaResponse.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font>"End IfFor Each objUploadedFile in objUpload.Filesnome_arquivo = objUpload.GetFilename(objUploadedFile.Path)NextSet objUpload = nothing

Linha 41:

For Each objUploadedFile in objUpload.Filesnome_arquivo = objUpload.GetFilename(objUploadedFile.Path)Next

[Salgado 4]

você destruiu objUpload antes da hora, comente a linha 16 desse código que você passou e teste

[WLJ 0]

você destruiu objUpload antes da hora, comente a linha 16 desse código que você passou e teste

valew salgado...

[WLJ 0]

Mas ta aparecendo outro erro agora...

 

Dundas.Upload.2 erro '80004005' Failed to get the boundary. /roger/admin/inserir_cifra1.asp, line 17

Linha 17...

            <%             Dim objUpload             Dim objUploadedFile             Set objUpload = server.CreateObject("Dundas.Upload.2")             'esta linha ativa o uso do caminho do diretorio virtual             objUpload.UseVirtualDir = true             'esta linha abaixo faz com que o Dundas não altere o nome do arquivo quando fizer o upload             objUpload.UseUniqueNames = false17>>     objUpload.Save "../cifras"

[Salgado 4]

Será a "/"? tente com "\", ,pois estava assim e não deu erro ai antes.

 

 

Valeu?

[WLJ 0]

Será a "/"? tente com "\", ,pois estava assim e não deu erro ai antes.Valeu?

é porque antes eu estava usando caminho fisico... mas da o mesmo erro pelas duas maneiras!