Persits.Jpeg - finde typen

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
Set File = Upload.Files("opload") ' den fil der oploades
If Not File Is Nothing Then
  ' Obtain file name
  Filename = file.Filename

Navn = file.Filename
Navn = replace(Navn,"æ","")
Navn = replace(Navn,"ø","")
Navn = replace(Navn,"å","")
Navn = replace(Navn,"Æ","")
Navn = replace(Navn,"Ø","")
Navn = replace(Navn,"Å","")
Navn = replace(Navn," ","")
Navn = replace(Navn,"%","")
Navn = trim(Navn)
navn = replace(Navn,"."," ")
navn = right(navn,Len(navn)-InstrRev(navn," "))
end if

'navn er nu filtypen

Men det er jo ikke Server.CreateObject("Persits.Upload") - det er et serveropjekt der hedder: Server.CreateObject("Persits.Jpeg")