Upload não envia imagem

Olá pessoal, esotu fazendo um upload com o seguinte código :

<%Set Upload = Server.CreateObject("Persits.Upload")Upload.SetMaxSize 50000, TrueOn Error Resume Nextdiretorio = "img\"Upload.Save Server.MapPath(diretorio)If Err.Number = 8 Then Response.Write "O arquivo enviado é mto grande."Else If Err <> 0 Then Response.Write "Ocorreu um erro: " & Err.Description Else Response.Write "Arquivo enviado com sucesso" End IfEnd If%>bom, não aparecçe nenhuma msg d erro mas simplismente o arquivo não é enviado, quando eu vou conferir no FTP o arquivo não esta na pasta /img
se alguém puder ajudar eu agradeço..

vlw

abraçoss