savevirtual ile resim upload

Host firmam (godaddy) normal save komutu kullanmama izin vermediği için savevitual kullanmak zorundayım ama aşağıdaki kodu kullandığımda işaretlediğim yerde hata lıyorum sebebini anlamadım


Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.CodePage = 1254
Upload.OverwriteFiles = True
Upload.SetMaxSize 100000
UPLOAD.SaveVirtual "/upload/"
Set File = Upload.Files("FILE")
resim = File.name <----------------------------------
If File.ImageType = "UNKNOWN" Then
Session("msg") = ("Sadece JPG, GIF ve PNG formatlı dosyalar y&uuml;kleyebilirsiniz !")
File.Delete
Response.Redirect Request.ServerVariables("HTTP_REFERER")
Response.End
ElseIf File.Size > 100000 Then
Session("msg") = ("Resmin boyutu &ccedil;ok b&uuml;y&uuml;k,l&uuml;tfen boyutu en fazla 100 Kb olacak şekilde d&uuml;zenleyin !")
File.Delete
Response.Redirect Request.ServerVariables("HTTP_REFERER")
Response.End
Else
File.SaveAsVirtual "/upload/" & id & File.ext
End If