UPLOAD - ERRO

USUARIO.EXCLUIDOS 02/03/2010 17:16:15
#335808
Boa tarde pessoal,

to tentando fazer upload usando componentes (sem componentes naum consigo carregar arquivos acima de 200 kb) mas ta com erro

Server.CreateObject Failed
[ô]Cria uma instancia do objeto Upload e atribui a variável objUpload.
Set objUpload = server.CreateObject([Ô]Dundas.Upload.2[Ô]) -- > mas tenho esse componente instalado no servidor

alguem pode me ajudar ?

<%
[ô]Início de grava_anexo.asp


[ô]Utilizaremos a função On Error Resume Next para ignorar qualquer erro que possa vir a acontecer, e posteriormente iremos identifica-lo e só então comunicarmos ao usuário.
[ô]On Error Resume Next

Response.Write [Ô]<HTML><HEAD><TITLE>WebNOW - UpLoad com Dundas UpLoad</TITLE></HEAD><BODY>[Ô]

Dim objUpload


[ô]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

[ô]Determinamos False em UseUniqueNames para que o arquivo nao mude de nome.
objUpload.UseUniqueNames = False

[ô]Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados.
objUpload.Save [Ô]\\gbvm001\intraempresarial$\z_zportal\a_admin\b_links[Ô]


[ô]INFORMAÇÕES DO ARQUIVO CARREGADO

[ô]loop through all uploaded files, and output their Content Type
For Each objUploadedFile in objUpload.Files
Response.Write([Ô]content Type: [Ô] & objUploadedFile.ContentType & [Ô]<br>[Ô])
Next

[ô]loop through all uploaded files, and output their Original Path
For Each objUploadedFile in objUpload.Files
Response.Write([Ô]Original Path: [Ô] & objUploadedFile.OriginalPath & [Ô]<br>[Ô])
Next


[ô]Informação para o caminho físico em que o arquivo foi carregado
[ô]loop through all uploaded files, and output their Path
For Each objUploadedFile in objUpload.Files
Response.Write([Ô]Path: [Ô] & objUploadedFile.Path & [Ô]<br>[Ô])
Next


[ô]loop through all uploaded files, and output their size in bytes
For Each objUploadedFile in objUpload.Files
Response.Write([Ô]Size: [Ô] & objUploadedFile.Size & [Ô]<br>[Ô])
Next

[ô]loop through all uploaded files, and output their tagname
For Each objUploadedFile in objUpload.Files
Response.Write([Ô]TagName: [Ô] & objUploadedFile.TagName & [Ô]<br>[Ô])
Next



[ô]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 acima
Response.Write [Ô]<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font><br>[Ô]

[ô]Response.Write Path



End If
Response.Write [Ô]</BODY></HTML>[Ô]
[ô]Fim de grava_anexo.asp

%>




Tópico encerrado , respostas não são mais permitidas