<% dim fejl fejl = 0 Set Upload = Server.CreateObject("Persits.Upload.1")
For Each File in Upload.Files
If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then Response.Write "GIF or JPG files only please!" fejl = 1 Exit For End If
If File.ImageWidth > 150 Then Response.Write "Image width cannot exceed 150 pixels." fejl = 1 Exit For End If
If File.ImageHeight > 200 Then Response.Write "Image height cannot exceed 200 pixels." fejl = 1 Exit For End If
Next
If fejl = 0 Upload.Save "d:hometlnetdkwwwupload" end if %>
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.