Ir para conteúdo
Fórum Script Brasil
  • 0

Erro No Upload


smez

Pergunta

estou com uma duvida no sistema de upload

o sistema ta funcionando

<%
Response.Expires = -1000
Response.Buffer = True

Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin
' Recuperando os Dados Digitados ----------------------
de = UploadRequest.Item("de").Item("Value")
para = UploadRequest.Item("para").Item("Value")
msg = UploadRequest.Item("msg").Item("Value")

contentType = UploadRequest.Item("foto").Item("ContentType") 
filepathname = UploadRequest.Item("foto").Item("FileName") 
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) 
filename = Replace(filename,".","_"& rndit &".") 
value = UploadRequest.Item("foto").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'FAZ O UPLOAD DAS IMAGENS EM UMA PASTA (/mural).
 pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
       Set MyFile = ScriptObject.CreateTextFile(Server.mapPath("mural/"&filename&""))
   
 For i = 1 to LenB(value) 
  MyFile.Write chr(AscB(MidB(value,i,1)))
 Next
 MyFile.Close
'renomeia ao arquivo
Function rndit()
	Dim RndTemp 
	Randomize 
	RndTemp = Rnd * 100 
	RndTemp= Int(RndTemp) 
	rndit = RndTemp 
End Function 
%>
<%	Dim adoConn

Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\Inetpub\smez\db\movimento.mdb'"
Dim newcode
Set newcode = Server.CreateObject("ADODB.Recordset")
newcode.Open "mural", adoConn, 2, 2, 2
newcode.AddNew
newcode("de") = de
newcode("para") = para
newcode("msg") = msg
newcode("foto") = filename
newcode.Update
newcode.close
set newcode = nothing
%>

o erro que esta dando e o seguinte

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0046)

Permissão negada

/movimento/enviar_mural.asp, line 45

quando a pessoa não envia a foto

como eu faço para arrumar isso.

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...