Persits.Upload.1 tjek + rename ?

Prøv at kigge på denne side de har eks på hvordan du han gøre det:
http://digitalcolony.com/01/upload/

Også her på ASPuploads hjemmeside, dog ikke vidre godt eks med der er et:
http://www.aspupload.com/Manual.htm

Her er et lile eks som vist er det mest simple at kaste sig ud i:

set upload = server.createObject("Persits.Upload.1")
Count = Upload.SaveVirtual("../data/pics")
for each file in upload.files
  if file.ImageType<>"JPG" and file.ImageType<>"GIF" then
    File.Delete
  end if
next

jeg har stirret mig blind i den manual, men

set upload = server.createObject("Persits.Upload.1")
Count = Upload.SaveVirtual("../data/pics")
for each file in upload.files
  if file.ImageType<>"JPG" and file.ImageType<>"GIF" then
    File.Delete
  end if

er 50% af det :) ska bare omdøbes
next

men det vel noget med file.name og file.exten...

og det er nok også smart at tjekke File.Attributes

<%
  Set Upload = Server.CreateObject("Persits.Upload.1")
  Count = Upload.SaveVirtual("/images/")

for each file in upload.files
  if file.ImageType<>"JPG" then
    File.Delete
  end if

file.Move "d:\web\"& domain &"\www\images\top.jpg"
next

%>

<%=Count%> files uploaded.


men men *Snøft* den ska sq overskrive hvis den findes :(

ahaa


File.SaveAs "d:\web\"& domain &"\www\images\top.jpg"

go dreng eagleeye