Endast bild???

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576	' Limit files to 1MB

If contentType="image/gif" or  "image/pjpeg" THEN 

Count = Upload.SaveVirtual("/db/filer")

else
response.write("fel filformat")
end if %>

Varför får inte gif eller jpg sparas!? Just nu släpps ingen bild eller fil igenom...!

Gör så här istället för att kolla filen:

Ext = LCase(Right(File.Path, 4))
If Ext <> ".jpg" and Ext <> ".gif" and Ext <> ".bmp" Then

   Response.Write "Filen " & File.Path & " är inte av rätt sort.<br>Bara .gif .jpg och .bmp är tillåtna"

End If

Läs mer i manualen