[Resolvido] upload

[edgard 0]

Oi Gente...

 

Tipo de erro:

Persits.Upload.1 (0x800A001A)

Acesso negado.

/teste/admo/artigos_adm/artigos_anexar.asp, line 59

<!--#include file="../include_adm/asp_adm/db_adm.inc"-->
	
<%

	Dim sSQL, iID, sMsg, iCounter, iContador
	
	Set Upload = Server.CreateObject("Persits.Upload")
	
	Upload.SetMaxSize 3000000, True '(3 megas)
	
	'On Error Resume Next
	
	Upload.Save
	
	'If Err.Number = 8 Then
	
	'	sMsg = "O arquivo é grande de mais para ser anexado."
	
	'Else
	
	'	If Err <> 0 Then
		
	'		sMsg =  "Erro ocorrido: " & Err.Description & " , entre em contato com o administrador do site."
		
	'	Else
	
			Set File = Upload.Files("FILE1")
			
			Filename = file.Filename	
			
			for iContador = 1 to len(Filename)
	
				if mid(Filename,iContador,1) = " " then
	
					sMsg = "Erro ocorrido: O nome do arquivo não pode ter espaços entre os caracteres."
	
				end if
	
			next 
	
			If sMsg <> "Erro ocorrido: O nome do arquivo não pode ter espaços entre os caracteres." Then
	
				Set id = Upload.Form("id") 
				iID = id
	
				If Not File Is Nothing Then
	
					Filename = file.Filename
	
					sSQL = "update teste_artigos set nm_anexo = '"& Filename &"' where id_artigo = "& iID
					Call dataExecute(sSQL)

					sSQL = "select id_artigo from teste_artigos where id_artigo = "& iID
					Set oRs = dataCharge(sSQL)
					
						FilePath = Server.MapPath(".\upload") & "\" &  oRs.Fields("id_artigo") & "-" & Filename
						File.SaveAs FilePath
						
						sMsg = "O arquivo foi anexado com sucesso."

					oRs.close
					set oRs = nothing
					
				End If
	
			end if
	
	'	end if
	
	'end if
	
	response.Redirect("artigos_adm.asp?func=1&msg="& Server.URLEncode(sMsg))
	
%>

Da pau aqui File.SaveAs FilePath

[Welington Nazato 0]

olha as permições da pasta de destino

[edgard 0]

olha as permições da pasta de destino

Legal... obrigado !!! funcionou... eu compartilhei a pasta que tem todo o meu site para gravacao e leitura... ai funcionou, deve ser isso mesmo né ?

[Ted k' 126]

exatamente, para não ter problemas futuros, compartilha toda a pasta do site e não uma a uma