Remove From My Forums
Permissão negada

Pergunta
Entrar para Votar
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

0

Entrar para Votar

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

Responder

|

Citação
Inquiridor

Permissão negada

Pergunta

Todas as Respostas
