<% Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Upload.SetMaxSize 3000000, True On Error Resume Next Count = Upload.Save("E:\inetpub\websites\customkayaks\Diary\images") If Err <> 0 or Count = 0 then %> <% If Err <> 0 Then Response.Write "An error occurred:" & Err.Description Else Response.Write "Nothing has been uploaded."%>

Try again. <% Else On Error Goto 0 Set File = Upload.Files(1) If File.ImageType = "UNKNOWN" Then File.Delete %> This is not a valid image file.

Try again. <% Else %> The following <% = File.ImageType%> image has been uploaded:

Path: <% = File.OriginalPath %>
Size: <% = File.Size %> bytes
Dimensions: <% = File.ImageWidth %> x <% = File.ImageHeight %> pixels

Upload another image <% End If End If %>