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

Resgatando Radio Do Select


willianpp

Pergunta

pessoal olha só...

fiz um select na minha pag.... ficou assim...

<%

dim varsearch, rstsql, rstsearch, cod

	varsearch=request.Form("search")
	Set Conexao = Server.CreateObject("ADODB.Connection")
    


	Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}"


   
strSQL = "SELECT nome, cod, num FROM keep WHERE num = " & varsearch 
  
  Set rstSearch = Conexao.Execute(strSQL)

   
	%>
<html>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<head>
<title>Consulta - http://www.superasp.com.br</title>
</head>
<body bgcolor="#FFFFFF">
<div align="center" style="width: 756; height: 119">
  <p>&nbsp;</p><table width="69%" border="0" cellspacing="0" cellpadding="0" height="1" align="center">
<tr>
      <td width="736" valign="top" height="136"> 
<table border="0" cellpadding="0" cellspacing="0" width="81%" align="center">
<tr bgcolor="ffffff"> 
            <td colspan="3">
              <table width="100%" border="0" cellspacing="2" cellpadding="2">
                <tr> 
                  <td width="18%" height="21" bgcolor="#f5f5f5"> 
<div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_inclusao.asp" class="menu">Incluir</a></font></b></font></div></td>
                  <td width="26%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="form_exclui.asp" class="menu"><font color="#000099">Excluir</font></a></font></b></font></div></td>
                  <td width="18%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="procura.asp" class="menu">Pesquisar</a></font></b></font></div></td>
                  <td width="56%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Alterar</font></b></font></div></td>
                </tr>
              </table>
              
            </td>
          </tr>
          <tr> 
            <td colspan="3"> 
              <table width="735" border="0" cellspacing="0" cellpadding="0" height="18">
<tr> 
                  <td align="center" height="1" width="735"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br>
                    </b> <font size="2">Selecione o(s) cadastros(s) a ser(em) 
                    alterado(s)</font></font></td>
                </tr>
              </table>
              <form method="post" action="alterar.asp">
                <table width="532" border="0" cellspacing="0" cellpadding="0" height="1">
                  <tr> 
                    <td height="1" align="center" width="532"> 
                      <table width="100%" height="61" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FF6600"> 
                          <td width="144" height="2" align="center" bgcolor="#FF6600"> 
                            <font size="1" color="FFFFFF"><b><font face="Verdana">Cod</font></b>                            </font></td>
                          <td width="144" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Matricula</font></b> 
                            </font></td>
                          <td colspan="2" height="2" align="center"> <font size="1" color="FFFFFF"><b></b> 
                            </font> <font size="1" color="FFFFFF"><b><font face="Verdana">Nome</font></b> 
                            </font></td>
                          <td width="117" height="2" align="center"> <font size="1" color="FFFFFF"> 
                            <input type="submit" name="Submit" value="Alterar">
                          </font></td>
                        </tr>
                         <% While Not rstSearch.EOF %>
                        <tr bgcolor="#FFFFE6"> 
                          <td width="144" height="2" align="center" bgcolor="#FFFFE6"> 
<div align="left">
  <label>
  <input type="text" name="txt_cod" value="<% = rstsearch("cod")%>">
  </label>
</div></td>
                          <td width="144" height="2" align="center"> 
                            <div align="left" id="lbl_mat"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              
                            </font></b></font>
                              <label>
                              <input name="txt_mat2" type="text" id="txt_mat2" value="<% = rstsearch("num")%>">
                            </label>
</div></td>
                          <td colspan="2" height="2" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              </font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">
                              
                              </font></b></font>
                              <label>
                              <input name="txt_nome" type="text" value="<% = rstsearch("nome")%>">
                              </label>
                          </div></td>
                          <td width="117" height="2" align="center"> 
                            <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              <input type="radio" name="radio" value="<%=rstsearch(0)%>">
                          </font> </b></font></div></td>
                        </tr>
                          <% rstsearch.MoveNext
	Wend
	rstsearch.close

	set rstsearch = Nothing
  %>

***então aparecerá uma lista... com algumas linhas...

quero selecionar uma delas atraves do radio e resgatar o nome dessa pessoa na outra pagina...

só q .. a cada linha exibida se repete o txt q exibe o nome da pessoa... de forma q quando peço pra o nome ele exibe todos....

tem como colocar um vetor aí... ou sei la.. "amarrar" a os campos da linha com o radio selecionado...?

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

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
      152.1k
    • Posts
      651.8k
×
×
  • Criar Novo...