TSRDesign

Agradeço pela ajuda, pois eu tive q mudar algumas partes para q ele funcionase, pois é como você disse, esse sistema é muito antigo, e agora ele ta rodando quase perfeito, estou apenas inserindo mais alguns comandos para melhorar esse sistema e dar uma modernizada. Bom assim q eu terminar eu coloco o link dele aqui fincionando para q outros possão tb utilizar deste sistema.

Sei q tem um monte d tópico falando sobre esse sistema, mais todos os topicos q tem algum download disponivel, o download esta fora do ar, se aguem ai realmente conseguiu fazer com q esse sistema funcione eu agradeço muito, pois to a 2 semanas tentando resolver os bugs deste sistema, e sei tb q existem outros sistemas, mais infeliznemte nenhum me serviu, e olha q eu tentei varios. Aguardo Respostas

testei de todo jeito mais não deu certo entaum fiz um novo só com o codigo q você mando e testei mais tb não deu certo entaum compactei e coloquei nesse link pra você ver o q tah dando errado Arquivo

não deu certo, eu acho que tah faltando identificar a variavel "pId" no meu formulario. onde eu coloko?

eu gostaria de saber qual é a função, e o que eu coloco em: action. <form name="form1" method="post" action="para onde eu mando"> pois eu qeria mandar para dois lugares diferentes. botaõ1 enviar para 01.htm botaõ2 enviar para 02.htm

Ola eu tenho um formulario, e gostaria de colocar dois botões submit nele. Mas o problema e que quando eu clikar ele envia o formulario para páginas diferentes Ex: botaõ1 form action="01.htm" botaõ2 form action="02.htm"

Valeu mesmo jow. Obrigrado pela sua atenção

Nada ainda então eu compactei tudo e coloquei nesse link: Arquivos.rar Valeu pela ajuda

Tah eu to testando atravez do localhost no arquido teste.asp ele carrega todos os dados certos, envia as variaveis, mas na hora de excuir, nada. Postei na net Arquivo

:( Nada ainda Continua sem apagar.

eu corrigi alguns erros pois estava faltando end if e ficou assim teste.asp <form action="excluir.asp" method="GET"> <% set conexao=Server.CreateObject("ADODB.Connection") conexao.open "DBQ= "&server.MapPath("mens.mdb")&"; Driver={microsoft access driver (*.mdb)};" set objlista=Server.CreateObject("ADODB.recordset") objlista.open "select * from mens order by cod ASC", conexao if not objlista.eof then %> <table width="100%" border="0" cellpadding="0" cellspacing="6"> <tr> <td width="29%" height="20"><center><input name="Submit" type="submit" class="formulario" value="Excluir"></center></td> </tr> <% while not objlista.eof %> <tr> <td height="20"><div align="center"><input name="checkbox" type="checkbox" value="<%= objlista("cod")%>"></div></td> </tr> <% objlista.movenext wend end if%></table> </form> excluir.asp <% Dim conexao, sql, array_id, i, sql_id, id,strDBPath, objlista set conexao=server.createobject("ADODB.Connection") conexao.open "DBQ= "&server.MapPath("mens.mdb")&"; Driver={microsoft access driver (*.mdb)};" set objlista=server.createobject("ADODB.recordset") id = Request.QueryString("checkbox") 'Caso ocorra algum erro os precessos não são interrompidos 'e é passado para a próxima linha de comando On error Resume Next if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "papeis.id = " & Trim(array_id(i)) & " OR " 'campo texto, então" & Trim(array_id(i)) & " OR " 'caso numerico '" & Trim(array_id(i)) & "' OR " Next sql_id = left(sql_id,(len(sql_id)-4)) sql = "DELETE FROM mens WHERE "&sql_id&"" Set rs= conexao.execute(sql) end if %>

Acabei de tenta mais não eu certo ele aparece uma tela em branco, e quando abro o BD os dados ainda estavam lá :D Valeu pela ajuda.