[Resolvido] upload

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