[Ajuda] Erro 'ASP 0178 : 80070005'

[SnoOx]

Amigos, bom dia. Trabalho em uma pequena administradora de condomínios, e em nosso site temos uma parte onde os clientes acessam para visualizar relatórios, etc. Dentro de uma determinada página, antes de realizarmos o upload do novo relatório, primeiro clicamos num "X" para deletar o anterior, deixando apenas para o cliente o mais atualizado. Porém está acontecendo o seguinte erro quando clicamos no X para deletar:

Server object error 'ASP 0178 : 80070005'

Server.CreateObject Access Error

/painel/docs/docscad_exe.asp, line 77

The call to Server.CreateObject failed while checking permissions. Access is denied to this object.

Isso está atrapalhando muito nosso trabalho, alguns dos amigos poderiam colaborar?

Abraços! :rolleyes:

[bareta]

é dificil dizer sem ver o codigo, mais aparentemente o componente usado foi modificado, ou falta permissoes na pasta especifica.

[SnoOx]

Perdão, aqui está todo o código :)

<%@ Language=VBScript %>
<%if Session("user")(0)="" then Response.Redirect("default.asp")%>
<!--#include file="../!include/funcoes.inc"-->
<!--#include file="../!include/conexao.inc"-->
<%
'    arq_path = "e:\home\helpadm\web\documentos\"
    arq_path = "E:\vhosts\helpadm.net\web\documentos\"
    select case Request("acao")
    case "incluir"
        'set cn = server.CreateObject("ADODB.connection")
        
        cn.BeginTrans()
        
        sql =    " INSERT INTO DOCUMENTO (sq_condominio, sq_tipodocumento, ds_documento, ds_path, dt_lancamento) VALUES "&_
        "("&Request("in_condominio")&_
        ", "&Request("in_tipodocumento")&_
        ", '"&aspas(Request("nome"))&"'"&_
        ", ''"&_
        ", "& date() &")"

        cn.execute(sql)
        
        set rs = server.CreateObject("ADODB.recordSet")
        
        sql =    " select sq_documento from DOCUMENTO where " &_
                " sq_condominio = "& Request("in_condominio") &_
                " AND sq_tipodocumento = "& Request("in_tipodocumento") &_
                " AND ds_documento = '"& Request("nome") &"'" &_
                " AND ds_path = ''"
        set rs = cn.execute(sql)

        in_documento = rs("sq_documento")
        set rs = nothing
        
        tmp_path = arq_path & "temp\"
        
        nome_ref = "HelpAdm" & request("in_condominio") & request("in_tipodocumento") & in_documento
        err = false
    
        set objUpload = Server.CreateObject ("Dundas.Upload.2") '=> CRIA OBJETO
        objUpload.UseUniqueNames = true '=> COM MESMO NOME DO ENVIADO
        objUpload.Save tmp_path '=> SALVA EM DIRETORIO TEMPORARIO
        For Each Item in objUpload.Files '=> RETORNA NOME DO ARQUIVO SALVO
            nome_arquivo = mid(item.path,len(tmp_path)+1)
            nomeArqExt = mid(nome_arquivo,inStrRev(nome_arquivo,"."))
        Next
        If (objUpload.FileExists(arq_path&nome_ref)) then '=> VERIFICA EXISTENCIA DO ARQUIVO NO DIRETÓRIO DE PRODUÇÃO
            objUpload.FileDelete tmp_path&nome_arquivo '=> SE EXISTE, APAGA O TEMPORÁRIO E RETORNA MENSAGEM DE ARQUIVO JÁ EXISTENTE
            err = true
            Response.Write("arquivo já existe")
        else
            objUpload.FileCopy tmp_path&nome_arquivo, arq_path&nome_ref&nomeArqExt '=> COPIA O ARQUIVO PARA O DIRETÓRIO DE PRODUÇÃO COM NOVO NOME
            objUpload.FileDelete tmp_path&nome_arquivo '=> APAGA ARQUIVO DO TEMPORÁRIO
            'objUpload.FileMove tmp_path&nome_arquivo,arq_path&nome_arquivo '=> SE NÃO EXISTE, MOVE DO DIR TEMPORÁRIO PARA O DE PRODUÇÃO
            
            sql = "    update DOCUMENTO set ds_path = '"& nome_ref&nomeArqExt &"' where sq_documento = " & in_documento
            cn.execute (sql) '=> ATUALIZA O NOME DO ARQUIVO NO BD
        end if
        
        if err then
            cn.RollbackTrans()
        else
            cn.CommitTrans()
            msg =    "O documento foi cadastrado com sucesso."
        end if
        
        Set objUpload = Nothing '=> DESTROI OBJETO DE UPLOAD


    case "excluir"
        sql =    " select ds_path from DOCUMENTO where " &_
                " sq_documento = " & request("ind")
        set rs = cn.execute(sql)
        nome_arquivo = rs("ds_path")
        set rs = nothing
        
        set objUpload = Server.CreateObject ("Dundas.Upload.2") '=> CRIA OBJETO
        objUpload.FileDelete arq_path&nome_arquivo '=> APAGA ARQUIVO DO TEMPORÁRIO
        set objUpload = Nothing '=> DESTROI OBJETO DE UPLOAD

        sql =    " delete from DOCUMENTO where sq_documento = "& Request("ind")
        cn.execute(sql)
        
        msg = "Arquivo excluido com sucesso."

    end select
%>
<html>
<head><link rel="stylesheet" type="text/css" href="../!include/admin.css"></head>
<body>
<p>&nbsp;</p>
<p align='center'><%=msg%></p>
</body>
</html>
<%cn.close%>

[bareta]

verifique a instalação do dundas upload no servidor onde esta hospedado...

[SnoOx]

verifique a instalação do dundas upload no servidor onde esta hospedado...

Oi amigo, a Locaweb me respondeu que está instalado no meu pacote. Não sei mais o que fazer :wacko:

[bareta]

experimente tirar as ! das suas includes ( pode ser )...

aparentemente o resto tá certo... se colocar so a o dundas num arquivo pra teste... da erro?

arquivo.asp

<%
set objUpload = Server.CreateObject ("Dundas.Upload.2")
set objUpload = nothing
%>

[chai0304]

Não sei mais o que fazer .

[bareta]

experimente tirar as ! das suas includes ( pode ser )...

aparentemente o resto tá certo... se colocar so a o dundas num arquivo pra teste... da erro?

arquivo.asp

<%
set objUpload = Server.CreateObject ("Dundas.Upload.2")
set objUpload = nothing
%>

o que retorna ao rodar esse código ai em cima?

[blogs]

Não sei mais o que fazer .

[bareta]

muda de componente... !!!

[chiufual]

so a o dundas num arquivo pra teste... da erro?