Dois SUBMIT's em um FORM

Leonardo Rocha · Agosto 13, 2008

Prezados colegas,

Gostaria de fazer o seguinte:

Tenho os seguintes dados:

LISTA DA TABELA

Gostaria que fosse criado dois INPUT do tipo "RADIO", um para que abra o form "detalhes.asp" e outro para abrir o form "produto.asp". Porém não consigo, pois o sistema só entende o primeiro form informado no ACTION, o que fazer para resolver isso.

Até +

jothaz · Agosto 13, 2008

Use uma função java script:

<script>
    function fSubmit(valor){
        if (valor==1)
            document.frm.action = 'detalhes.asp';
        else    
            document.frm.action = 'produto.asp';
            
        document.frm.submit()    
    }
</script>

Retire o action do form assim:

<form id="frm" method="post">

Chame a função assim:

<input type="radio" value="1" id="rdb" onclick="fSubmit(this.value)" >

Leonardo Rocha · Agosto 13, 2008

Jothas,

Muito obrigado mesmo pela força.

Más é o seguinte coloquei o código como você descreveu, porém ao executá-lo o sistema não sai da página atual.

Porém, de qualquer forma existe também um problema... O meu "VALUE" tem uma condição, portanto não posso utilizar como você falou.

Vou postar o código inteiro aqui, porém sem adicionar o código que você enviou, ok!!!

Gostaria, se possível, que você analisasse e me desse uma dica de como implementar aí os dois input's, pois necessito muito disso.

<%

Dim strURL, cnnSearch, rstSearch, strDBPath, strSQL, strSearch, intContador

'Função que tira todos os acentos das palavras

function TiraAcento(StrAcento)

for i = 1 to len(StrAcento)

Letra = mid(StrAcento, i, 1)

Select Case Letra

Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

Letra = "A"

Case "é","É","ê","Ê","Ë","ë","È","è"

Letra = "E"

Case "í","Í","ï","Ï","Ì","ì"

Letra = "I"

Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

Letra = "O"

Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

Letra = "U"

Case "ç","Ç"

Letra = "C"

Case "não"

Letra = "N"

End Select

texto = texto & Letra

end function

strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%>

<br>

<tr>

<td><strong><font face="'MS Sans Serif',Geneva,sans-serif" size="+1" color="#006a00">Consulta de Estabelecimentos</font></strong></font>

<form action="<%= strURL %>" method="get">

<b><font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="2" color="#006a00">Nome do Establecimento ou Nº do Processo:</font></b> <font color="Lime"><input type="text" name="search" value="<%= strSearch %>" size="55"></font><input type="image" src="btbuscar.gif" align="absmiddle" >

</div></form>

<%

If strSearch <> "" Then

strDBPath = Server.MapPath("dbvinhos.mdb")

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

strSQL = "SELECT * " _

& "FROM estabelecimento " _

& "WHERE Processo LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "OR nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "ORDER BY nome;"

Set rstSearch = cnnSearch.Execute(strSQL)

intContador = rstSearch.RecordCount

%>

<tr>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Nome do Estabelecimento </font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Data do Pedido</font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Data do Credenciamento</font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Situação </font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="Yellow">Produtos</font></STRONG></FONT></th>

<br>

</tr>

<%

Do While Not rstSearch.EOF

%>

<tr>

</tr>

<%

rstSearch.MoveNext

Loop

%>

</table>

<%

rstSearch.Close

Set rstSearch = Nothing

cnnSearch.Close

Set cnnSearch = Nothing

End If

%>

</div></td>

</tr>

</table>

<\CODEBOX>

jothaz · Agosto 13, 2008

Não entedi nadinha! :lol:

Mas sou meio burro masmo!

Vamos ver se fica mais claro.

Será montado quanto radio buttons?

Qual o contéúdo de <%=rstSearch("cod_estabel")%>?

Leonardo Rocha · Agosto 18, 2008

Não entedi nadinha! :lol:
Mas sou meio burro masmo!
Vamos ver se fica mais claro.
Será montado quanto radio buttons?
Qual o contéúdo de <%=rstSearch("cod_estabel")%>?

Amigo, desculpe-me pela demora.. é que não recebi nenhum e-mail a respeito.

É o seguinte: <%=rstSearch("cod_estabel")%>?

é o código do estabelecimento ao qual, também existe na tabela produto.

jothaz · Agosto 18, 2008

Pelo que entendi de acordo com o codigo do cliente que esta contidono value radio irá re-direcionar pra página distintas.

No value do radio você t~em somente o códgo do cliente?

Qtos clientes poderão ser?

Uma sugestão é criar um cadastro, ou no proprio cadastro do cliente, o nome da página a ser carrada e jogar esta valor para o value.

Leonardo Rocha · Agosto 18, 2008

Pelo que entendi de acordo com o codigo do cliente que esta contidono value radio irá re-direcionar pra página distintas.
No value do radio você t~em somente o códgo do cliente?
Qtos clientes poderão ser?
Uma sugestão é criar um cadastro, ou no proprio cadastro do cliente, o nome da página a ser carrada e jogar esta valor para o value.

Veja só...

Eu tenho uma tabela que se chama cliente...

Fiz uma uma página que lista todos os clientes em ordem alfábetica...

Tenho um item do tipo "rádio" que ao selecionar o cliente desejado clico em um botão e o sistema direciona para outra página que me mostra os dados do cliente completo. Porém nesta mesma listagem eu gostaria de ter outro "rádio" e clicar no botão para abrir os produtos pertencentes a este cliente.

No caso na tabela produto eu já tenho o código que é igual ao código do cliente.

Aguardo ajuda, muito obrigado"

sabino · Agosto 19, 2008

Bom dia pessoal!

Pelo que entendi, o Leonardo deseja que, ao clicar em um radio button o sistema seja direcionado para a pagina X e ao clicar em outro seja direcionado para Y.. se for isso mesmo, é possível colocar uma função no onclick do radio que redireciona para a página desejada ou definir uma variável que seja alterada no onclick para que a página seja redirecionada em um onsubmit (por exemplo). Seria alguma coisa assim...

Opção 1)

&lt;script>
  function defineDestino(strURL, lngCodCliente)
  {
      window.location.href = strURL + "?CodCliente=" + lngCodCliente;
  }
</script>

<input type="radio" value="<%=rstSearch("cod_estabel")%>" ... onclick="defineDestino('Detalhes.asp', this.value);">
<input type="radio" value="<%=rstSearch("cod_estabel")%>" ... onclick="defineDestino('Produtos.asp', this.value);">

Opção 2) Opção 1)

&lt;script>
  var strDestino = "";
  var lngCodCliente = 0;
  function defineDestino(strURL, lngCodigo)
  {
      strDestino = strURL;
      lngCodCliente = lngCodigo;
      return true;
  }

  function redireciona(objForm)
  {
    objForm.action = strDestino + "?CodCliente=" + lngCodCliente;
    return true;
  }
</script>

<form ... onsubmit="return redireciona(this);">
<input type="radio" value="<%=rstSearch("cod_estabel")%>"  ... onclick="return defineDestino('Detalhes.asp', this.value);">
<input type="radio" value="<%=rstSearch("cod_estabel")%>"  ... onclick="return defineDestino('Produtos.asp', this.value);">

Espero que isso ajude!

[]' a todos!

Leonardo Rocha · Agosto 19, 2008

Olá amigo, muito obrigado pela ajuda!

É o seguinte eu consegui aplicar o código conforme você informou, porém não executa o formulário de acordo com o item selecionado.

Ou seja, não está trazendo os dados do registro selecionado no "radio".

Veja como ficou o formulário ao qual eu aplico o código que você enviou, no caso o "PRODUTO_LISTA.ASP" abaixo:

function defineDestino(strURL, lngCodCliente)

{

window.location.href = strURL + "?cod_estabel=" + lngCodCliente;

}

</script>

<%

If strSearch <> "" Then

strDBPath = Server.MapPath("dbvinhos.mdb")

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

strSQL = "SELECT * " _

& "FROM estabelecimento " _

& "WHERE Processo LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "OR nome like '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "ORDER BY nome;"

Set rstSearch = cnnSearch.Execute(strSQL)

%>

<tr>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Estabelecimento </font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Pedido</font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Credenciamento</font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Situação </font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="Yellow">Produtos</font></STRONG></FONT></th>

<br>

</tr>

<%

Do While Not rstSearch.EOF

if (cor = 1) then

bg = "#d5ffd5"

cor = 2

else

bg = "#f2fff2"

cor = 1

end if

%>

<tr>

<td bgcolor="<%=bg%>" align="center"><input type="radio" name="radio" value="<%=rstSearch("cod_estabel")%>"></td>

<td><input type="radio" name="radio" value="<%=rstSearch("cod_estabel")%>" onclick="defineDestino('estab_cadastra.asp', this.value);"></td>

<td><input type="radio" name="radio" value="<%=rstSearch("cod_estabel")%>" onclick="defineDestino('produto_lista.asp', this.value);"></td>

</tr>

<%

rstSearch.MoveNext

Loop

%>

</table>

<%

rstSearch.Close

Set rstSearch = Nothing

cnnSearch.Close

Set cnnSearch = Nothing

End If

%>

</div></td>

</tr>

</table>

</form>

E UM DOS FORMULÁRIOS QUE EU DESEJO ABRIR, NESTE CASO O FORMULÁRIO "PRODUTO_LISTA.ASP"

<%

On error resume Next

Dim objConn, stringSQL, strConnection, codigo, estab

codigo = Request.QueryString("radio")

estab = Request.QueryString("nome")

' Conectando com o banco de dados dbvinhos.mdb

Set objConn = Server.CreateObject("ADODB.Connection")

Set objRS = Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=" & Server.MapPath("dbvinhos.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

stringSQL = "SELECT * FROM Produto WHERE cod_estabel = "&codigo

Set objRS = objConn.Execute(stringSQL)

if err <> 0 Then%>

<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Ocorreu algum erro!</b><br><a href="java script:history.back(-1)">Volta</a></font></div>

<%else%>

<strong><font face="'MS Sans Serif',Geneva,sans-serif" size="+1" color="#006a00">Produtos registrados <%=estab%></font></strong></font>

Estabelecimento:<%=estab%>

<tr>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Nome do Produto </font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Registro</font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Data do Credenciamento</font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="#ffffff">Situação </font></STRONG></FONT></th>

<th bgcolor="#008400"><FONT face=Verdana size=1><STRONG><font color="Yellow">Selecionar</font></STRONG></FONT></th>

<br>

</tr>

<%

Do While Not objRS.EOF

%>

<tr>

</tr>

<%

objRS.MoveNext

Loop

%>

</table>

</center>

</div>

</form>

<%end if%>

Editado Agosto 19, 2008 por Leonardo Rocha

Entrar

Dois SUBMIT's em um FORM

Pergunta

Leonardo Rocha

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

jothaz

Link para o comentário

Compartilhar em outros sites

Leonardo Rocha

Link para o comentário

Compartilhar em outros sites

jothaz

Link para o comentário

Compartilhar em outros sites

Leonardo Rocha

Link para o comentário

Compartilhar em outros sites

jothaz

Link para o comentário

Compartilhar em outros sites

Leonardo Rocha

Link para o comentário

Compartilhar em outros sites

sabino

Link para o comentário

Compartilhar em outros sites

Leonardo Rocha

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades