problemer med variabler i forbindelse med if sætning
Jeg har nedenstående kode til at uploade en fil, problemet er at hvis filen er af en forkert type, så bliver intErrorCode sat til 20. Det virker også fint, men alligevel går den ind i følgende ifsætning, hvilket jeg ikke fatter:If Not Upload.Files("file").IsMissing And intErrorCode = 0 Then
------------------ kode ----------------
intErrorCode = 0
If bolWasPosted Then
On Error Resume Next
Set Upload = Server.CreateObject("AspSmartUpload.SmartUpload")
MaxFileSize = 2048000 '2000Kb
Upload.MaxFileSize = MaxFileSize
Upload.AllowedFilesList = "doc,pdf,xls"
Upload.Upload
If Err <> 0 Then
If Err = -2147220494 Then intErrorCode = 20
If Err = -2147467259 Then intErrorCode = 21
Err.Clear
End If
If Not Upload.Files("file").IsMissing And intErrorCode = 0 Then
strFilename = strGenerator()
strFilename = strFilename &"_"& Upload.Files("file").FileName
strFilename = Replace(strFilename," ","_")
Upload.Files("file").SaveAs Server.MapPath("/Files/" & strFilename)
intFileSize = CInt(Upload.Files.TotalBytes/1024)
Conn.Execute("INSERT INTO Files (Name,FileName,FolderId,FileSize) VALUES ('"& AccentReplacer(Upload.Form("Name")) &"', '"& strFilename &"', "& Upload.Form("Category") &", "& intFileSize &");")
Else
If intErrorCode = 0 Then intErrorCode = 40
End If
