<% IF Session("admlogado") = "NAO" THEN Response.redirect "logout.asp" END IF %> <% set objupload = server.CreateObject("Dundas.Upload.2") 'objUpload.MaxFileSize = 15640 objupload.UseUniqueNames = true objupload.UseVirtualDir = true objupload.save ("../banner") on error resume next If Err <> 0 Then Response.Write("Houve um erro e o upload dos arquivos não foi efetuado.
") Response.Write("Descrição do erro: " & Err.Description) Response.Write("
Número do erro: " & Err.Number) Response.End() end if 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 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) VALUES ("&categoria&",'"&foto&"','"&redir&"')" 'response.Write(SQL) 'response.end set rs = objConexao.Execute(sql) response.Redirect "enviar_banner.asp?msg=Banner Incluido com sucesso!!&id="&categoria %>