Ir para conteúdo
Fórum Script Brasil
  • 0

Dois SUBMIT's em um FORM


Leonardo Rocha

Pergunta

Prezados colegas,

Gostaria de fazer o seguinte:

Tenho os seguintes dados:

<form name="form" method="get" action="produto.asp">

LISTA DA TABELA

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

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

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é +

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0

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)" >

Link para o comentário
Compartilhar em outros sites

  • 0

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.

<CODEBOX>

<%

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

next

TiraAcento = texto

end function

strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%>

<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff">

<br>

<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">

<div style="width:70%">

<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" >

<input type="image" src="btlimpar.gif" onclick="java script:document.form.reset()" 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

%>

<div align="left">

<form id="form" method="get" action="produto.asp">

<table border="0" cellpadding="4" cellspacing="1" width ="100%">

<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>

<div align="right"><input type="image" src="btverificarproduto.gif"</div>

<br>

</tr>

<%

Do While Not rstSearch.EOF

%>

<tr>

<td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("nome").Value %></font></td>

<td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Data_Pedido").Value %></font></div></td>

<td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Data_Credenciamento").Value %></font></div></td>

<td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("situacao").Value %></font></div></td>

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

</tr>

<%

rstSearch.MoveNext

Loop

%>

</table>

<%

rstSearch.Close

Set rstSearch = Nothing

cnnSearch.Close

Set cnnSearch = Nothing

End If

%>

</div></td>

</tr>

</table>

<p> </p>

<\CODEBOX>

Link para o comentário
Compartilhar em outros sites

  • 0
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.

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0
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"

Link para o comentário
Compartilhar em outros sites

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0

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:

<script>

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)

%>

<form method="post" action="produto_lista.asp">

<table border="0" cellpadding="4" cellspacing="1" width ="80%" align="center">

<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>

<div align="right"><input type="image" src="btverificarproduto.gif"</div>

<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%>"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("nome").Value %></font></td>

<td bgcolor="<%=bg%>"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Data_Pedido").Value %></font></td>

<td bgcolor="<%=bg%>"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Data_Credenciamento").Value %></font></td>

<td bgcolor="<%=bg%>"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("situacao").Value %></font></td>

<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%>

<div align="left">

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

<div align="left">

<form method="get" action="produto_visualiza.asp">

Estabelecimento:<%=estab%>

<table border="0" cellpadding="4" cellspacing="1" width ="100%">

<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>

<div align="right"><input type="image" src="btdetalhesproduto.gif" value=<"a href="alterar.asp"></div>

<br>

</tr>

<%

Do While Not objRS.EOF

%>

<tr>

<td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS.Fields("Nome").Value %></font></td>

<td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS.Fields("Registro").Value %></font></div></td>

<td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS.Fields("Data_Credenciamento").Value %></font></div></td>

<td bgcolor="#f0fff0"><font color="#003300" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS.Fields("Situação").Value %></font></div></td>

<td bgcolor="#f0fff0" align="center"><input type="radio" name="radio" value="<%=objRS(0)%>"> </td>

</tr>

<%

objRS.MoveNext

Loop

%>

</table>

<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"></b><br><a href="java script:history.back(-1)"><img src="retornar.gif" alt="Produtos" border="0" width="50" height="30"></a></font></div>

</center>

</div>

</form>

<%end if%>

Editado por Leonardo Rocha
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...