Permissão Negada

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%"> </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 ####
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 ############
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 ######

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Ã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 #################
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
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çã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ós 5 segundos

'response.write "<br><br>você será 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>

o bloco que está com erro é esse logo abaixo

'############### FOTO 01 #######################
if imagem01 <> "" then
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

Valew pela força galera....