Upload

If File.ImageType <> "JPG" Then
File1.Delete
Response.write "Det er ikke et jpg billed"
end if

Hvor skal jeg smide det ... lige efter det sidste?

du har jo allerede afvist mit svar hvorfor?

hvad hedder det forfield du uploader fra ?

Fordi jeg ikke kan få det til at virke!

<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data"
  ACTION="upload.asp?<% = PID %>"
  OnSubmit="return ShowProgress();">

      <INPUT TYPE="FILE" SIZE="40" NAME="FILE1">
  <INPUT TYPE=SUBMIT VALUE="Upload!">
  </FORM>

Set Upload = Server.CreateObject("Persits.Upload")
    Upload.ProgressID = Request.QueryString("PID")
    Upload.OverwriteFiles = False
Count = Upload.SaveVirtual("/iArrangementsudvalg/Pics/")

If File.ImageType <> "JPG" Then
File.Delete
Response.write "Det er ikke et jpg billed"
end if

Det har jeg prøvet før.. det giver følgende:
Object required: ''

Set Upload = Server.CreateObject("Persits.Upload")
    Upload.ProgressID = Request.QueryString("PID")
    Upload.OverwriteFiles = False
Count = Upload.SaveVirtual("/iArrangementsudvalg/Pics/")

If File.ImageType <> "JPG" Then
File1.Delete
Response.write "Det er ikke et jpg billed"
end if

hvis det ikke virker så kik her
http://www.devguru.com/features/tutorials/fileupload/dgfileupload.html

Det er jo det samme som før ... og det virkede ikke!

Nu har jeg gjort sådan:
For Each File In Upload.Files
If File.Ext <> "JPG" Then
File1.Delete
Response.write "Det er ikke et jpg billed"
end if

Set Upload = Server.CreateObject("Persits.Upload")
    Upload.ProgressID = Request.QueryString("PID")
    Upload.OverwriteFiles = False
Count = Upload.SaveVirtual("/iArrangementsudvalg/Pics/")

Det giver følgende fejl:
Invalid 'for' loop control variable

Set Upload = Server.CreateObject("Persits.Upload")
    Upload.ProgressID = Request.QueryString("PID")
    Upload.OverwriteFiles = False
Count = Upload.SaveVirtual("/iArrangementsudvalg/Pics/")

For Each File In Upload.Files
If File.Ext <> "JPG" Then
File1.Delete
Response.write "Det er ikke et jpg billed"
end if
Next

If File.Ext <> "JPG" Then
Skiftes til
If File.ImageType <> "JPG" Then

Nu lader den mig i det mindste uploade jpg filer men ved alle andre skriver den:

Object required: ''

Glem det ... har valgt at lave det på en anden måde ... denne virke til ikke at virke!

http://www.eksperten.dk/spm/228802