<% On Error Resume Next Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")
'Upload.OverwriteFiles = False findes ikke direkte i aspSmartUpload Upload.TotalMaxFileSize = 1048576 Upload.AllowedFilesList = "gif,jpg,jpeg" Upload.Upload
' Trap errors ' *********** If Err Then Response.Write "<tr><td>Den valgte fil er ikke et billed, eller for stor!</td></tr>" Response.End End If
For Each File in Upload.Files File.SaveAs Server.MapPath("upload/" & intName & File.Ext) Response.Write "<tr><td>Billedet er nu tilføjet.</td></tr>" Next %>
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.