UPLOAD - ERRO
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
%>
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