File.ImageType ALTID JPG
Heysa...Når jeg uploader et f.eks. et worddokument skriver den dette ud:
---------------
FilNavn: Startpakke.doc
FilType: JPG
---------------
Min kode ser sådan her ud:
--------------
randomize
n=int(10000000*rnd)
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 50000, True
On Error Resume Next
Count = Upload.SaveToMemory
If Err.Number = 8 Then
session("fejl") = "Dit billede er for stort, det må MAX fylde 50 kb."
response.redirect "add_add.asp"
Else
If Err <> 0 Then
session("fejl") = "Der opstod en fejl, brug denne besked ved henvendelse: " & Err.Description
response.redirect "add_add.asp"
End If
End If
For Each File in Upload.Files
Dim FileName
FileName = File.ExtractFileName
Dim FileType
FileType2 = File.ImageType
response.write "FilNavn: " & FileName
response.write "<br>"
response.write "FilType: " & FileType
If File.ImageWidth >= 500 Then
session("fejl") = "Dit billede er for stort, det må MAX være 500 pixel bred."
response.redirect "add_add.asp"
End If
If File.ImageType <> "GIF" AND File.ImageType <> "JPG" AND File.ImageType <> "JPEG" Then
session("fejl") = "Billede skal være i formatet GIF eller JPG"
response.redirect "add_add.asp"
End If
File.SaveAs "d:\inetpub\wwwroot\Billeder\"& n & FileName
Next
---------------
Derfor kan jeg ikke få den if-sætning der begynder med "If File.ImageType..." til at fungerer, for uanset hvad jeg gør retunerer File.ImageType hele tiden JPG
