none
Permissão negada RRS feed

  • Pergunta

  • Galera estou com o seguinte problema.

    Ao execular uma inclusao aparece a seguinte mensagem 

    Erro de tempo de execução do Microsoft VBScript erro '800a0046'

    Permissão negada

    /catalogo/seg_asp/upload_form2.asp, line 196

    eu já compartilhei a pasta de bd e de fotos mas não adianta continua dando esse erro

    meu condigo é:

    <table width="597" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="597" class="texto8"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="16%">&nbsp;</td>
            <td width="84%" class="texto8"><%
    
    '############### FOTO 01 #######################
    tipo_imagem01 = UploadRequest.Item("imagem01").Item("ContentType")
    
    '############### FOTO 02 #######################
    tipo_imagem02 = UploadRequest.Item("imagem02").Item("ContentType")
    
    '############### FOTO 03 #######################
    tipo_imagem03 = UploadRequest.Item("imagem03").Item("ContentType")
    
    '############### FOTO 04 #######################
    tipo_imagem04 = UploadRequest.Item("imagem04").Item("ContentType")
    
    '############### FOTO 05 #######################
    tipo_imagem05 = UploadRequest.Item("imagem05").Item("ContentType")
    
    '###############################################
    '### CAMINHO COMPLETO DOS ARQUIVOS ENVIADOS ####
    '############### FOTO 01 #######################
    caminho_imagem01 = UploadRequest.Item("imagem01").Item("FileName")
    
    '############### FOTO 02 #######################
    caminho_imagem02 = UploadRequest.Item("imagem02").Item("FileName")
    
    '############### FOTO 03 #######################
    caminho_imagem03 = UploadRequest.Item("imagem03").Item("FileName")
    
    '############### FOTO 04 #######################
    caminho_imagem04 = UploadRequest.Item("imagem04").Item("FileName")
    
    '############### FOTO 05 #######################
    caminho_imagem05 = UploadRequest.Item("imagem05").Item("FileName")
    
    '###############################################
    '#### NOME DO ARQUIVO A SER ENVIADO ############
    '############### FOTO 01 #######################
    nome_imagem01 = Right(caminho_imagem01,Len(caminho_imagem01)-InstrRev(caminho_imagem01,"\"))
    
    '############### FOTO 02 #######################
    nome_imagem02 = Right(caminho_imagem02,Len(caminho_imagem02)-InstrRev(caminho_imagem02,"\"))
    
    '############### FOTO 03 #######################
    nome_imagem03 = Right(caminho_imagem03,Len(caminho_imagem03)-InstrRev(caminho_imagem03,"\"))
    
    '############### FOTO 04 #######################
    nome_imagem04 = Right(caminho_imagem04,Len(caminho_imagem04)-InstrRev(caminho_imagem04,"\"))
    
    '############### FOTO 05 #######################
    nome_imagem05 = Right(caminho_imagem05,Len(caminho_imagem05)-InstrRev(caminho_imagem05,"\"))
    
    '###############################################
    '### CONTEUDO BINARIO DOS ARQUIVOSENVADOS ######
    '############### FOTO 01 #######################
    imagem01 = UploadRequest.Item("imagem01").Item("Value")
    
    '############### FOTO 02 #######################
    imagem02 = UploadRequest.Item("imagem02").Item("Value")
    
    '############### FOTO 03 #######################
    imagem03 = UploadRequest.Item("imagem03").Item("Value")
    
    '############### FOTO 04 #######################
    imagem04 = UploadRequest.Item("imagem04").Item("Value")
    
    '############### FOTO 05 #######################
    imagem05 = UploadRequest.Item("imagem05").Item("Value")
    
    '###############################################
    '### PASTA ONDE AS FOTOS SER&Atilde;O QUARDADAS #######
    pasta = Server.MapPath("..\fotos\")
    
    '############### FOTO 01 #######################
    nome_imagem01 = "\"&nome_imagem01
    
    '############### FOTO 02 #######################
    nome_imagem02 = "\"&nome_imagem02
    
    '############### FOTO 03 #######################
    nome_imagem03 = "\"&nome_imagem03
    
    '############### FOTO 04 #######################
    nome_imagem04 = "\"&nome_imagem04
    
    '############### FOTO 05 #######################
    nome_imagem05 = "\"&nome_imagem05
    
    '###############################################
    '### PASTA + NOME DOS ARQUIVOS #################
    '############### FOTO 01 #######################
    cimagem01 = "..\fotos" + nome_imagem01
    
    '############### FOTO 02 #######################
    cimagem02 = "..\fotos" + nome_imagem02
    
    '############### FOTO 03 #######################
    cimagem03 = "..\fotos" + nome_imagem03
    
    '############### FOTO 04 #######################
    cimagem04 = "..\fotos" + nome_imagem04
    
    '############### FOTO 05 #######################
    cimagem05 = "..\fotos" + nome_imagem05
           
    	
    ' Fazendo o Upload do arquivo selecionado
    
    if cimagem01="..\fotos\" then
       cimagem01="..\fotos\sem-foto.jpg"
    end if
    
    if cimagem02="..\fotos\" then
       cimagem02="..\fotos\sem-foto.jpg"
    end if
    
    if cimagem03="..\fotos\" then
       cimagem03="..\fotos\sem-foto.jpg"
    end if
    
    if cimagem04="..\fotos\" then
       cimagem04="..\fotos\sem-foto.jpg"
    end if
    
    if cimagem05="..\fotos\" then
       cimagem05="..\fotos\sem-foto.jpg"
    end if
    
    
    '############### FOTO 01 #######################
    if imagem01 <> "" then
    '##### linha 196 V
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem01)
    For i = 1 to LenB(imagem01)
    MyFile.Write chr(AscB(MidB(imagem01,i,1)))
    Next
    MyFile.Close
    end if
    
    '############### FOTO 02 #######################
    if imagem02 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem02)
    For i = 1 to LenB(imagem02)
    MyFile.Write chr(AscB(MidB(imagem02,i,1)))
    Next
    MyFile.Close
    end if
    
    '############### FOTO 03 #######################
    if imagem03 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem03)
    For i = 1 to LenB(imagem03)
    MyFile.Write chr(AscB(MidB(imagem03,i,1)))
    Next
    MyFile.Close
    end if
    
    '############### FOTO 04 #######################
    if imagem04 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem04)
    For i = 1 to LenB(imagem04)
    MyFile.Write chr(AscB(MidB(imagem04,i,1)))
    Next
    MyFile.Close
    end if
    
    '############### FOTO 05 #######################
    if imagem05 <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem05)
    For i = 1 to LenB(imagem05)
    MyFile.Write chr(AscB(MidB(imagem05,i,1)))
    Next
    MyFile.Close
    end if
    
    
    ' Conecta-se ao Banco de Dados
    
    'Set conexao = Server.CreateObject("ADODB.Connection")
    'conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=..\bd\bd.mdb"
    
    url_conexao = Server.MapPath("..\bd\bd_catalogo.mdb")
    set conexao = Server.CreateObject("ADODB.Connection")
    conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 
    
    
    ' cadastra os dados no banco de dados
    sql = "Insert into produto (valor, data, hora, grupo, ativo,imagem01,imagem02,imagem03,imagem04,imagem05,referencia, observacao, desc_produto) values('"&valor&"','"&sData&"','"&hora&"','"&grupo&"', '"&ativo&"','"&cimagem01&"', '"&cimagem02&"', '"&cimagem03&"', '"&cimagem04&"', '"&cimagem05&"', '"&referencia&"','"&observacao&"', '"&desc_produto&"')"
    conexao.Execute(sql)
    %></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="19" valign="top" class="texto8bold"><table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td><div align="center" class="texto8bold">
              <%
    ' Mostra Mensagem de Confirma&ccedil;&atilde;o na Tela
    Response.write "Dados Cadastrados com Sucesso!"
    response.write "<meta http-equiv='refresh' content='1; url=../seg_asp/inserir_produto.asp'/>"
    ' Redireciona ap&oacute;s 5 segundos
    'response.write "<br><br>Vc ser&aacute; redirecionado em 5 segundos..<br>"
    'response.write "<meta http-equiv='refresh' content='2; url=../admin.asp'/>"
    'end if
    %>
              <br>
            </div></td>
          </tr>
        </table>
            <div align="center"><br />
          </div></td>
      </tr>
      <tr>
        <td valign="top" height="10"></td>
      </tr>
    </table>
    

    Marcello Masters
    segunda-feira, 10 de agosto de 2009 18:37

Todas as Respostas

  • Marcello,

    Como estão as configurações de Segurança de Diretório no IIS? Está com acesso anônimo, acesso autenticado?

    IIS > SeuSite > Propriedades > Segurança de Diretório


    []´s
    terça-feira, 11 de agosto de 2009 20:51