File.ImageType ALTID = JPG

Må vi se selve upload funktionen, da det er der der mangler noget.

Kommer her:
--------------
  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
    FileType = File.FileType
    Dim FileType2
    FileType2 = File.ImageType
   
    response.write "her1: " & FileName
    response.write "<br>"
    response.write "her2: " & FileType
    response.write "<br>"
    response.write "her3: " & FileType2

  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
---------------
Der er så if-sætningen med "If File.ImageType..." jeg har lidt problemer med, men det kommer jo af at File.ImageType retunerer JPG

Må indrømme at jeg ikke kender Persits.Upload, og har ikke tænkt mig at rode mig ud i det lige nu.. Desværre.

Flere points her: http://www.eksperten.dk/spm/351729