Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá amigos, estou criando um site de noticias, mas estou com um probleminha. Quando tento enviar uma noticia com foto da este erro:
Microsoft VBScript runtime error '800a0046'
Permission denied
/addnotfoto1.asp, line 82
Quem puder me dar uma ajudinha agradeço desde já. E o código é este aí abaixo:
<!-- #include file="upload.inc" -->
<%If session("usr_log_ok")="" Then
Response.Write "Você está Logado no sistema!"
Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"
Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")
Response.End()<meta name="generator" content="Namo WebEditor v5.0">
<title>CeLiNhO</title>
<style TYPE="text/css">scrollbar-face-color: FFFFFF;
scrollbar-arrow-color: 000000;
scrollbar-base-color: 000000;
scrollbar-shadow-color: FFFFFF;
scrollbar-dark-shadow-color: 000000;
scrollbar-highlight-color: FFFFFF;</STYLE>
<STYLE></STYLE>
<body>
<p> </p>
<p align="center"><font face="Arial Black" color="red"><span style="font-size:14pt;"><%' Recuperando os Dados Digitados ----------------------
Topico = UploadRequest.Item("Topico").Item("Value")
Resumo = UploadRequest.Item("Resumo").Item("Value")
Classe = UploadRequest.Item("Classe").Item("Value")
Classe1 = UploadRequest.Item("Classe1").Item("Value")
Autor = UploadRequest.Item("Autor").Item("Value")
Noticia = UploadRequest.Item("Noticia").Item("Value")
' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")
tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")
' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")
caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")
' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))
' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")
foto1 = UploadRequest.Item("foto1").Item("Value")
' pasta onde as imagens serao guardadas
pasta = Server.MapPath("fotos/")
nome_foto = "/"&nome_foto
nome_foto1 = "/"&nome_foto1
' pasta + nome dos arquivos
cfoto = "fotos" + nome_foto
cfoto1 = "fotos" + nome_foto1
' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if
if foto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to LenB(foto1)
MyFile.Write chr(AscB(MidB(foto1,i,1)))
Next
MyFile.Close
end if
' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../dados/dados.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 Noticias (Topico,Resumo,Classe,Classe1,Autor,Noticia,foto,foto1) values ('"& Topico &"', '"& Resumo &"', '"& Classe &"','"& Classe1 &"','"& Autor &"', '"& Noticia &"', '"& cfoto &"', '"& cfoto1 &"')"
Conexao.Execute(sql)
' Mostra Mensagem de Confirmação na Tela
Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!"
' Redireciona após 5 segundos
response.write "<br><br>você será redirecionado em 20 segundos..<br>"
response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>"
%></span></font>Carregando comentários...