FileExists - ASPupload

Hej

Hvis jeg submitter et link - Upload.Form("link2") - med en allerede eksisterende fil så finder "ifFileExists" rigtigt nok ud af, om filen eksisterer, men hvis jeg derimod submitter et link - Upload.Form("link1") - til en fil, som ikke er blevet uploadet er "ifFileExists" helt ukritisk, og opdager f.eks. ikke, hvis filen pga. fejl aldrig er blevet, og at filen derfor ikke findes. Hvorfor??

________________________________________

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

    Set Upload = Server.CreateObject("Persits.Upload.1")
    strImageDir="/grafik/artikler/"
    Upload.SetMaxSize 10000, True
    Upload.OverwriteFiles = false

    On Error Resume Next
    Count = Upload.Save(Server.MapPath(strImageDir))   

    For Each File in Upload.Files
        strNAVN = strImageDir & File.ExtractFileName
    Next
   
    if not Upload.Form("link2") = "" then
        strNAVN = Upload.Form("link2")
    end if
   
    if ifFileExists (strNAVN) then
        if not Upload.Form("link1") = "" then
            If Err.Number = 8 Then
                  Response.Write "<script>alert('Billedet må ikke overstige en størrelse af 10 KB. En løsning herpå er at komprimere billedet eller at vælge et andet.')</script>"
                  Response.Write "<script>java script:history.back();</script>"
            Else
                If Err <> 0 Then
                      Response.Write "<script>alert('Der opstod en teknisk fejl: ' + Err.Description)</script>"
                      Response.Write "<script>java script:history.back();</script>"
                Else               
                    If fileLengthCheck(strNAVN) then
                        insertArticleInDatabase (strNAVN)
                    Else
                        fileDelete(strNAVN)
                          Response.Write "<script>java script:history.back();</script>"
                      End if
                  End if
              End if
        else
            if not Upload.Form("link2") = "" then
                insertArticleInDatabase (strNAVN)
            end if
        End if
    end if
   
    'sendBack("Der er ikke indtastet noget link - prøv igen.")

end if
   
Function ifFileExists (strNAVN)

    Set FSO = CreateObject("Scripting.FileSystemObject")
    strNAVN2 = Server.MapPath(strNAVN)
    Response.Write "<script>alert('"& strNAVN2 & "');</script>"
   
    If FSO.FileExists(strNAVN2) Then       
        ifFileExists = true
    else
        Response.Write "<script>alert('Stien til den indskrevne fil findes ikke.');</script>"
        Response.Write "<script>java script:history.back();</script>"
        ifFileExists = false
    end if
   
end function