<% set objupload = server.CreateObject("Dundas.Upload.2") 'objUpload.MaxFileSize = 15640 objupload.UseUniqueNames = true objupload.UseVirtualDir = true objupload.save ("banner") redir = Seguranca(objUpload.form("redir")) categoria = Seguranca(objUpload.form("categoria")) if categoria = "" then response.Clear() response.Redirect "enviar_banner.asp?msg=O campo Categoria é obrigatorio!!" end if For Each objUploadedFile in objUpload.Files foto = objUpload.GetFileName(objUploadedFile.Path) Next 'response.Write foto&"
" if foto <> "" then Set original = Server.CreateObject("Persits.Jpeg") 'Verificação do tamanho da imagem, se for maior que 500pixels redimencionamos ' response.Write path & foto ' response.end original.Open path & foto if Original.Width > O_MAX_WIDTH then L = O_MAX_WIDTH A = O_MAX_HEIGHT Original.Width = L Original.Height = A original.Save path & foto end if Set original = Nothing end if 'response.End() set objupload = nothing sql = "INSERT INTO banners (categoria,foto,redirecionar,desativado) VALUES ("&categoria&",'"&foto&"','"&redir&"',-1)" 'response.Write(SQL) 'response.end set rs = objConexao.Execute(sql) response.Redirect "enviar_banner.asp?msg=Banner Incluido com sucesso!!\n aguarde a liberação do administrador&id="&categoria %>