Jump to content
Fórum Script Brasil

adrianollp

Membros
  • Posts

    26
  • Joined

  • Last visited

About adrianollp

adrianollp's Achievements

0

Reputation

  1. adrianollp

    Aspmail

    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:
  2. adrianollp

    Aspmail

    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...
  3. adrianollp

    Sql.......

    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:
  4. sim sim ... já estou usando o update e o where .. mas mesmo assim da erro =/// alguém tem mais alguma dica?! ^^''
  5. adrianollp

    Response.redirect

    como assim cara?????????
  6. adrianollp

    Alteraaaaando ^^''

    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............
  7. 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
  8. uahuaha dá proxima eu edito.. malz.... ahuha mas então.. não funcionou tb!!! =/// e agora?! ó_ò
  9. 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!!!!
  10. não dá nenhum erro não cara!!! ele exclui.. só que só do servidor!!!! =///
  11. pra ajudar, ele não tah entrano no if que verifica se o rs tah vazio.... " if not rsObra.EOF then" =//
  12. 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!!! ^^
  13. adrianollp

    Exclusão!

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

    Exclusão!

    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....
  15. adrianollp

    Exclusão!

    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...
×
×
  • Create New...