adrianollp

isso, ele não tah enviando mais de um anexo!! e eu já tentei de td quanto é jeito!! mas ele só grava no banco!!! ai vai o cod:

como eu faço pra mandar mais de duas imagens?! ql a rotina de comandos?! porque o que eu to fazendo ele só manda o primeiro arquivo!! =// vlw...

e aiiii....... então.. meu problema é o seguinte: eu montei um codigo de alteração de categorias com imagem... só que meu codigo sql estah aparecendo com uma "," no final.. sendo que ela não existe!! nunca coloquei ela no cod... alguém sabe como tirar?? vou postar o cod pra vocês verem:

sim sim ... já estou usando o update e o where .. mas mesmo assim da erro =/// alguém tem mais alguma dica?! ^^''

como assim cara?????????

ai galera.. bl?! tipo... eu tenho que fazer.. como qlqr coisa dinamica.... uma alteração de cadastro... só que esse cadastro tem imagem!! eu fiz um formulario.. com um campo hidden que mostra o caminho da imagem e na frente dele um botao pra excluir.... mas quando eu excluo.. ao invés de deletar só a img.. ele deleta todo o registro!!! .. alguém pode me ajudar?! ó_ò flwwwwwsssssssss............

vlw pessoal.. já consegui!!! o que aconteceu era que eu tava passando pro banco não o nome do arquivo... e sim todo o caminho!!!... eu apenas coloquei um "img = upl.Form("imagem").ShortFilename" e ele funcionou!!! vlw pessoal!! ^^ pode fexar o tópico moderador =D

uahuaha dá proxima eu edito.. malz.... ahuha mas então.. não funcionou tb!!! =/// e agora?! ó_ò

opa!! ele entrou no if!!! mas num entra nesse: If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) Then fso.deletefile server.MapPath("obra") & "\" & nome_fisico End If ele tah ignorando!!!!

não dá nenhum erro não cara!!! ele exclui.. só que só do servidor!!!! =///

pra ajudar, ele não tah entrano no if que verifica se o rs tah vazio.... " if not rsObra.EOF then" =//

ae galera.. meu codigo de exclusao de arquivo no servidor teoricamnete tah certo.. mas num exclui o arquivo manja?! tipo.. alguém axa o erro ae? <!-- #include file="conexao.asp" --> <% menu = Session("menu") if menu = "excluir_obra" then pg = "Lançamento" bd = "obra" end if %> <% bd = request("bd") ' Cria rs que vai receber pesquisa Set rsObra = Server.CreateObject("ADODB.Recordset") For cont = 1 to Cint(Request("num_nomes")) ob_id = Cint(Request("nome" & cont)) '----------------------Verifica se estava selecionado-------------------------- If NOT IsEmpty(ob_id) AND ob_id <> 0 Then '-----------------------------Deletando o Arquivo--------------------------------- ' Monta string SQL que vai retornar do bd o nome do arquivo selecionado. sql = "SELECT ob_img FROM obra WHERE ob_id = " & ob_id 'response.Write(sql):response.End() ' Executa a consulta e coloca o resultado no recordset rsObra.Open sql, conexao, 3, 1 if not rsObra.EOF then nome_fisico = rsObra("ob_img") caminho_fisico = ("e:\home\wdot\web\fkf\adm\obra\") set fso = Server.CreateObject("Scripting.FileSystemObject") set pasta = fso.getfolder(caminho_fisico) set arquivo_leg = Server.CreateObject("Scripting.FileSystemObject") If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) Then fso.deletefile server.MapPath("obra") & "\" & nome_fisico End If set fso = nothing set pasta = nothing set arquivo_leg = nothing '--------------------Deletando do Banco de Dados------------------- sql = "DELETE * FROM obra WHERE ob_id = " & ob_id conexao.execute sql end if set rsDestaque = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM destaques WHERE categoria = '" & bd & "' AND id_info = " & ob_id rsDestaque.open sql, conexao ' Se o rs do resultado dessa pesquisa for vazio, significa q o id excluido não era o destaque if not rsDestaque.EOF then sql = "UPDATE destaques SET id_info = 0 WHERE categoria = '" & bd & "'" conexao.execute sql ' Fazer o update na tabela de destaque, na categoria = bd, com id_info = 0 end if rsObra.Close End If Next set rsObra = nothing Response.Redirect("admin.asp?resposta=11") conexao.close Set conexao = Nothing %> tipo... ele exclui do banco normalmente.... vlwsss galera!!! ^^

isso!!! eu quero excluir mais de uma foto por vez!!! mas tah danu pau.... vlws..

dá uma olhada no meu codigo, estou usando o WHERE, veja c esta certo por favor!! <!-- #include file="conexao.asp" --> <% menu = Session("menu") if menu = "excluir_home" then pg = "Home" bd = "home" end if %> <% bd = request("bd") ' Cria rs que vai receber pesquisa Set rsGaleria = Server.CreateObject("ADODB.Recordset") For cont = 1 to Cint(Request("num_nomes")) gal_id = Cint(Request("nome" & cont)) '----------------------Verifica se estava selecionado-------------------------- If NOT IsEmpty(gal_id) AND gal_id <> 0 Then '-----------------------------Deletando o Arquivo--------------------------------- ' Monta string SQL que vai retornar do bd o nome do arquivo selecionado. sql = "SELECT gal_foto_grande, gal_foto_pequena FROM " & bd & " WHERE gal_id = " & gal_id 'response.Write(sql):response.End() ' Executa a consulta e coloca o resultado no recordset rsGaleria.Open sql, conexao, 3, 1 if not rsGaleria.EOF then nome_fisico = rsGaleria("gal_foto_grande") 'response.Write(nome_fisico):response.End() caminho_fisico = ("e:\home\wdot\web\fkf\adm\galeria\") set fso = Server.CreateObject("Scripting.FileSystemObject") set pasta = fso.getfolder(caminho_fisico) set arquivo_leg = Server.CreateObject("Scripting.FileSystemObject") If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\galeria\" & nome_fisico) Then fso.deletefile server.MapPath("galeria") & "\" & nome_fisico End If set fso = nothing set pasta = nothing set arquivo_leg = nothing end if if not rsGaleria.EOF then nome_fisico = rsGaleria("gal_foto_pequena") caminho_fisico = ("e:\home\wdot\web\fkf\adm\galeria\") set fso = Server.CreateObject("Scripting.FileSystemObject") set pasta = fso.getfolder(caminho_fisico) set arquivo_leg = Server.CreateObject("Scripting.FileSystemObject") If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\galeria\" & nome_fisico) Then fso.deletefile server.MapPath("galeria") & "\" & nome_fisico End If set fso = nothing set pasta = nothing set arquivo_leg = nothing end if '--------------------Deletando do Banco de Dados------------------- sql = "DELETE * FROM " & bd & " WHERE gal_id = " & gal_id conexao.execute sql end if set rsDestaque = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM destaques WHERE categoria = '" & bd & "' AND id_info = " & gal_id rsDestaque.open sql, conexao ' Se o rs do resultado dessa pesquisa for vazio, significa q o id excluido não era o destaque if not rsDestaque.EOF then sql = "UPDATE destaques SET id_info = 0 WHERE categoria = '" & bd & "'" conexao.execute sql ' Fazer o update na tabela de destaque, na categoria = bd, com id_info = 0 end if Next Response.Redirect("admin.asp?resposta=11") %> <% rsGaleria.close set rsGaleria = nothing conexao.close Set conexao = Nothing %> vlws....

ae galera, beleza? eu fiz uma pagina de exclusão com imagens, mas quando eu vou excluir, eu só posso excluir uma de cada vez... e não um monte por vez... alguém sabe como resolver isso!?! vlws...

consegui resolver!! =DD o problema eu só coloquei um clng na variavel e ficou td certo!!!! vlws ^^

é claro!! esta é a pagina q o formulario chama: <!--#include file="conexao.asp"--> <!--#include file="../funcoes/funcoes.asp"--> <% titulo = request("titulo") descricao = request("descricao") lancamento = request("lancamento") 'é uma checkbox data = request("data") codigo = request("ob_id") sql = "UPDATE obra " &_ "SET ob_titulo = '" & titulo & "', " &_ "ob_descricao = '" & descricao & "', " &_ "ob_lancamento = " & lancamento & ", " &_ 'é uma checkbox "ob_data = '" & cDate(data) & "' " &_ "WHERE ob_id = " & codigo & "" 'response.Write(sql):response.End() Conexao.Execute (sql) conexao.close Set conexao = Nothing Response.Redirect("admin.asp?resposta=10") %> quando a check box estiver selecionada, ela funciona normal! ou seja, ele cadastra no banco normalmente e tal, só que tipo .... quando ela não tah selecionada, ela dá pau.... no value da checkbox no formulario, ele esta valendo um, e no banco de dados, a descrição dela é "1 sim, 0 não" !! vlws...

tipo, agora tem um otro problema, meu campo lancamento é uma check box pra saber c um item é um lancamento, só q c eu não seleciono ela, ela dá pau no sql..... alguém pod me ajudar?!

consegui, os erros eram q o lancamento e o codigo eram numeros .. e estavam como strings!!! vejam o codigo sql certo: sql = "UPDATE obra " &_ "SET ob_titulo = '" & titulo & "', " &_ "ob_descricao = '" & descricao & "', " &_ "ob_lancamento = " & lancamento & ", " &_ "ob_data = '" & cDate(data) & "' " &_ "WHERE ob_id = " & codigo & "" vlw galera ^^

tipo ... quando eu dou um response.write no sql, tah td certo, mas dá esse erro!!

aki vai o codigo: sql = "UPDATE obra " &_ "SET ob_titulo = '" & titulo & "', " &_ "ob_descricao = '" & descricao & "', " &_ "ob_lancamento = '" & lancamento & "', " &_ "ob_data = '" & data & "' " &_ "WHERE ob_id = " & codigo 'response.Write(sql):response.End() Conexao.Execute (sql) --> linha 19 conexao.close

esse é o erro é no sql, mas o sql num tem erro! : Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /ativos/fkf/adm/update_lancamento_action.asp, line 19 Linha 19: "conexao.Execute (sql)" é uma pagina de update sql...... ajuda?! vlws...

não adianta!!!! c eu coloco esse response.write ele edxa td branco .. quando eu tiro funciona .. ou seja .. num tah pegando o id mesmo!!! q no caso seria o codigo.... tipo .. MP ok?!

estah sim!! e isso me intriga!!! =///

tipo .. agora tah dano pau no id!!! ele não tah pegando a string da otra pagina, sendo q ela estah passando!!! erro: Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'h_id ='. /fkf/adm/update_home.asp, line 56 esse é o sql da pagina q num tah pegano o id: <% Set rsHome2 = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM "& bd &" WHERE h_id = " & Request.QueryString("codigo") 'response.Write(strsql):response.End() rsHome2.Open(strSQL), conexao, 3, 1 --> (linha 56) %> alguém me ajuda?! ^^'