AspUpload problem (fil saknas)

Hej!

Har problem med min AspUpload kod. Får allt att fungera utom när själva fältet för bild/fil är tom dvs bild/fil saknas.
Har provat massa men det går inte. Undrar om någon kan tipsa mig hur jag ska göra.
Jag får inget felmeddelande utan koden körs fast bild/fil saknas.

Här är min kod:

<%	'on error resume next

Set upload   = Server.CreateObject("Persits.Upload.1")
Upload.Save

actualName   = upload.Form("id")
Session("ID") = actualName

Set File  = upload.Form("thefile")

For Each File in Upload.Files

' **** Detta fungerar inte *****
If File Is Nothing Then
Response.Redirect "redigera_bild_fel.asp?Fil=Fel&ID=" & actualName
Exit For
End If 
' **************************

If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
Response.Redirect "redigera_bild_fel.asp?Bild=Typ&ID=" & actualName
Exit For
End If 

If File.ImageWidth > 200 Then
Response.Redirect "redigera_bild_fel.asp?Width=Stor&ID=" & actualName
Exit For
End If 

If File.ImageHeight > 300 Then
Response.Redirect "redigera_bild_fel.asp?Height=Stor&ID=" & actualName
Exit For
End If 

extension="." & LCase(File.Imagetype)

FileName = actualName & extension

File.SaveAs "c:\inetpub\wwwroot\PRODUKTER\bilder\" & actualName & File.ext
Next 

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM Produkter WHERE ID = " & actualName
RecSet.Open Addera, DB, adOpenStatic, adLockOptimistic

RecSet("Bild") = FileName
RecSet.Update
Dim IDprodukt
IDprodukt = RecSet("ID")
RecSet.Close
Set RecSet = nothing
%>

/Annette

on error resume next?

Du har avmarkerat det ovan...

Vad är det du vill, att det ska bli eller inte ska bli felmeddelande!?

Använder ditt webbhotel aspSmartImage?

I så fall kan du automatiskt redigera bilden i koden om den är för bred eller för hög. Användaren behöver inte märka något.

Fördelen är mindre kåd att underhålla och ett mer användarvänligt system.

Servern som jag kommer använda mig av har bara AspUpload installerad.
Även om jag aktiverar on error resume next så händer inget utan koden körs.
Fast om jag försöker ladda upp en större bild och om den är av annat felformat reagerar koden på detta.
Problemet är att den inte reagerar på om jag bara klickar på ladda upp dvs ej har med sökvägen till bilden i bildfältet i mitt formulär.
/Annette

manulen skrev:

The Save method returns the number of files successfully uploaded.

Jag hade således provat något sånt härnt:

Set upload   = Server.CreateObject("Persits.Upload.1")
intCount = Upload.Save

if intCount = 0 then
    ' inga filer :(
    response.redirect "blah.asp"
end if

mvh

Tack!!!!
Nu fungerar det!

/Annette