Pegar dados em uma combo e manda para o banco

[david dias 0]

Galera Boa tarde.

 

e o seguinte

 

queria pegar um dado de uma tabela que vem do banco atraves de um select e enviala para outra tabela no banco

 

<TD><SELECT style="WIDTH: 170px" name=server>
  <% do while not rsservidor.eof %>
  <OPTION value="<%=rsservidor("id")%>"><%=rsservidor("nome_server")%></OPTION>
  <%rsservidor.movenext%>
  <%loop%>
  </Select>

Ese é o codigo que eu pego os dados em um select no banco de dados

queria saber como eu fasso para depois de selecionado o iten incruila em outra tabela ex tabela de log

[hargon 64]

Na tag FORM você deve informar o metódo POST e a action o nome de uma página a ser carregada.

 

Na página a ser carregada você recebe a informações utilizando REQUEST.FORM("NOME_DA_COMBO") e insere no banco através do INSERT.

 

Lembrando que no formulário o ideal é você ter um botão para submeter as informações. O cadastro é simples, é o mesmo que cadastrar uma INPUTE="TEXT".

[xanburzum 169]

você recupera seu dados, e depois pode antes verificar se ja existe os dados , senaun só gravar

 

varserver=trim(request.form("server"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>