Tenho um formulário com duas combos. Ambas estão carregadas com dados de duas tabelas...
Depois que eu envio o formulário, preciso cadastrar os dados em uma terceira tabela que contém todos os campos desse formulário inclusive o id do que está nas combos...
Como faço esse cadastro?
Abaixo o código do formulário...
<!--#include virtual="conecta.inc"--> <% ' criação do objecto recordset para carregar a combo Set rsCombo = Server.CreateObject("ADODB.Recordset") Set rsCombo1 = Server.CreateObject("ADODB.Recordset") ' criar a declaração de SQL Dim strSQL Dim strSQL1 strSQL = "SELECT sigla FROM orgaos order by sigla" strSQL1 = "SELECT descprojeto FROM projetos order by idprojeto" ' executar a declaração de SQL desejada. Retorna a informação para as combos rsCombo.Open strSQL, strCon rsCombo1.Open strSQL1, strCon %> <html> <head> </head> <body> <form method="POST" action="NovoProcessoAction.asp" target="_self" name="Formulario"> <div align="center"> <center> <table border="0" width="682"> <tr> <td width="662" colspan="3"><select name="txtcombo1" size="1"> <% ' enquanto não chegamos ao fim dos dados Do While Not rsCombo1.EOF %> <!-- Aqui é o que aparece na Primeira Combo --> <option value="<%=rsCombo1("descprojeto")%>"><%=rsCombo1("descprojeto")%></option> <% ' Movemos para os dados seguintes do recordset... rsCombo1.MoveNext Loop ' continuamos o Loop %> </select> </td> </tr> <tr> <td width="150">Código do processo</td> <td width="512" colspan="2">Descrição do processo</td> </tr> <tr> <td width="150"><input type="text" name=txtcodigoprocesso size="20"> </td> <td width="512" colspan="2"><input type="text" name=txtdescprocesso size="72"> </td> </tr> <tr> <td width="150">Data de início</td> <td width="150">Validade</td> <td width="362">Órgão</td> </tr> <tr> <td width="150"><input type="text" name=txtDataProcesso size="20"> </td> <td width="150"><input type="text" name=txtValidade size="20" style="border: 1 solid #C0C0C0"> </td> <td width="362"><select name="txtcombo" size="1"> <% ' enquanto não chegamos ao fim dos dados Do While Not rsCombo.EOF %> <!-- Aqui é o que aparece na Segunda Combo --> <option value="<%=rsCombo("sigla")%>"><%=rsCombo("sigla")%></option> <% ' Movemos para os dados seguintes do recordset... rsCombo.MoveNext Loop ' continuamos o Loop %> </select> </td> </tr> </table> </center> </div> <div align="center"> <center> <table border="0" width="684"> <tr> <td width="150"> <input type="submit" value="Enviar" name="B1"> </td> <td width="150"> </td> <td width="364"> </td> </tr> </table> </center> </div> </form> <% ' fechar e limpar o objeto do recordset da combo rsCombo1.Close rsCombo.Close Set rsCombo1 = Nothing Set rsCombo = Nothing %> </body> </html>