Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Tenho esse código que pega os dados do formulário faz um upload, depois faz um insert e um upload, mas o problema é que nenhum dado esta indo para o banco de dados, já fiz o response.write sql e realmente retorna nada. Tentei mundar o jogo de Request mas da erro de Binary não sei o que.Ta ai:
<%Set cnNoticias = Server.CreateObject("ADODB.Connection")cnNoticias.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../Noticias.mdb")a = Request("a")t = Request("t")NotID = Request("NotID")Area = Request("Area")Titulo = Request("Titulo")Noticia = Request("Noticia")Imagem = Request("Imagem")Resumo = Request("Resumo")Autor = Request("Autor")If a = "N" ThenintCount=0 Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.TotalMaxFileSize = 2000000 FileName = mySmartUpload.AllowedFilesList = "gif,jpg,jpeg" 'mySmartUpload.DeniedFilesList = "exe,bat,asp,mdb" mySmartUpload.Upload mySmartUpload.Save("../imagens") For each file In mySmartUpload.Files FileName = file.Name FileSize = file.Size FileNameA = file.FileName intCount = intCount + 1 Next If t = "u" Then SQL = "UPDATE Noticias SET Area = '"&Area&"', Titulo = '"&Titulo&"', Noticia = '"&Noticia&"', Imagem = '"&FileNameA&"', Resumo = '"&Resumo&"', Autor = '"&Autor&"' WHERE NotID = "&NotID&"" ElseIf t = "i" Then SQL = "INSERT INTO Noticias(Area, Titulo, Noticia, Imagem, Resumo, Autor)Values('"&Area&"', '"&Titulo&"', '"&Noticia&"', '"&FileNameA&"', '"&Resumo&"', '"&Autor&"')" End IfElseIf a = "EN" Then SQL = "DELETE FROM Noticias WHERE NotID = "&NotID&""End If Set Rs = cnNoticias.Execute(SQL)Response.Redirect "adm.asp"%>
Preciso de ajuda, por favor.
Eu estou usando?Então o que eu faço?
qdo usa enctype´data .. nao se usa request.....