Jump to content
Arthur Dowsley

Recuperar dados checkbox

Recommended Posts

Pessoal. Boa noite, sou novo no forum e estou batendo cabeça com um código relativamente simples. Tenho uma pagina que me traz os registros normalmente. Ai inclui um checkbox para que o usuario selecione quais os registros "checkados" quer para imprimir. Já tentei de varias maneiras mas sem sucesso. Até consegui fazer mas ele traz somete um registro e preciso trazer somente os selecionados para impressão (data, nomepaciente, medico, tbl_protocolo_convenio). Não precisa gravar no banco. Segue o código para analise. Se alguém puder ajudar agradeço.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" LCID="1046"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
Dim oConn
set oConn = createobject("adodb.connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("consultas.mdb")
set rs3 = createobject("adodb.recordset")
rs3.open "select data, nomepaciente, medico, tbl_protocolo_convenio from prot ORDER BY data ASC" ,oConn,3,3
%>
<title>Oncoclinica :: Protocolo</title>
<style type="text/css">@import "css/estilo.css";</style>
</head>

<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="3"><img src="imgs/barra_menu.gif" width="800" height="100" /></td>
  </tr>
  <tr>
    <td colspan="3"><img src="imgs/barra_linha.gif" width="800" height="10" /></td>
  </tr>
  <tr>
    <td><table width="800" border="0" align="center" cellpadding="0">
      <tr>
        <td><div class="txtprincipal">
          <div align="left">PROTOCOLO DE ENTREGA</div>
        </div></td>
        <td><div class="txtprincipal"><div align="right"><%response.write(Date)%></div></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="imgs/barra_linha.gif" width="800" height="10" /></td>
  </tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="91"><div align="left" class="menu_lista">Data</div></td>
    <td width="333"><div align="left" class="menu_lista">Nome</div></td>
    <td width="130"><div align="left" class="menu_lista">Convênio</div></td>
    <td width="246"><div align="left" class="menu_lista">Medico</div></td>
  </tr>
  <tr>
    <td colspan="4"><img src="imgs/barra_linha.gif" width="800" height="3" /></td>
  </tr>
    <%If rs3.EOF and rs3.BOF then 
'ou seja, se o resultado vier vazio 
'response.write "Venda inexistente!"
'response.redirect("cadastro_off.asp")
response.end
else 
rs3.MoveFirst 
While not rs3.Eof%>
<form action="print.asp" method="post" name="checado">
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
          <td width="90"><div align="left" class="lista"><%=rs3("data")%></div></td>
        <td width="337"><div align="left" class="lista"><%=rs3("nomepaciente")%></div></td>
        <td width="130"><div align="left" class="lista"><%=rs3("tbl_protocolo_convenio")%></div></td>
        <td width="150"><div align="left" class="lista"><%=left(rs3("medico"),16)%></div></td>
        <td width="93"><div align="center" class="lista"><input type="checkbox" name="seleciona" value="<%=rs3("nomepaciente")%>" /></div></td>
         </tr>
    <%
rs3.MoveNext
wend
%>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2"><img src="imgs/barra_linha.gif" width="800" height="10" /></td>
  </tr>
  <tr>
    <td>
    <div align="left" class="lista">
    <%
    if rs3.Supports(adApproxPosition)=true then
  i=rs3.RecordCount
  response.write("Quantidade de guias: " & i)
end if%>
    </div>
    
    </td>
    <td align="right"><label>
      <input type="submit" name="button" id="button" value="Enviar" />
    </label>
    </form>
    </td>
  </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2"><div align="left" class="menu_lista">Recebido por:______________________________________________ Data:___/___/_______</div></td>
  </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2"><img src="imgs/barra_linha.gif" width="800" height="10" /></td>
  </tr>
</table>
<%
rs3.Close
oConn.Close 
Set rs3 = Nothing
Set oConn = Nothing
end if
%>

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By Wictor Pamplona
      Olá, me chamo Wictor Pamplona e estou enfrentando um pequeno problema com HTML. Gostaria de pedir à ajuda de vocês para resolver essa questão.
       
      Veja, eu tenho um formulário aonde possuí vários SELECT, eu já produzi um código jQuery que faz a tradução deste select para HTML e altera o select ele estando oculto para o usuário, isto já está funcional. Porém, recentemente me surgiu a necessidade de inserir código HTML nestes options, tanto para ser imprimido como texto, como ser lido como html dentro da página.
      Sei que a dúvida parecer ser de javascript, porém não é (creio que possa ser resolvido com HTML).
       
      Vejamos, eu colocando o option assim:

      <option value=""><b>1-</b> Linha 1
      Eu queria que fosse traduzido para o select exatamente como foi escrito, sendo uma variável de texto não aplicando a estilização HTML: <b>1- Linha 1</b>.
      Porém, ainda assim apresenta só o texto sem o html, retornando no select apenas: 1- LInha 1, não imprimindo o html em texto.
    • By luizmtz
      Amigos,

      Estou com uma dificuldade de imprimir em uma impressora ESC/POS via bluetooth. 

      Tentando imprimir normalmente, já com a impressora pareada, ela não aparece na listagem.
       
    • By M. Alberto
      Tenho um comando em PHP que realiza a impressão da página. Agora, queria que esta fosse em duas vias automaticamente. 
      Há como fazer isto?
      Como imprimir automaticamente através do Google Chrome uma página web duas vezes?
      Obrigado!!
       
      <script> //função que irá imprimir function PrintDiv(div) { $('#'+div).printElement(); } </script>  
    • By Gilberto Jr
      Boa noite;
      Em um sistema que eu desenvolvi, agora eu tenho colocar para imprimir etiquetas.
      A impressora é ZEBRA ou ARGOX, elas podem estar na LPT1 ou USB.
      Como que eu faria em ASP CLASSIC para imprimir essa ETIQUETA?
      Se eu conseguisse direto pelo ASP enviar um arquivo TXT para a impressora.
      Porque o arquivo txt eu consigo gerar, agora enviar para o LPT1 ou USB eu não consigo.
      Alguém já passou por uma situação dessa e conseguiu resolver?
      Att;
      Gilberto Jr;
    • By Caio Marcio de Campo
      Olá, criei um formulário em ASP e nele coloquei um botão, com imagem, para imprimí-lo. Entretando, a figura do botão é impressa junto com o formulário. Tem alguma instrução que faça com que ela não seja impressa, simplesmente o formulário? O código que coloquei foi esse: <p align="center"><a style='cursor:hand;'><img border="0" src="imprimir.gif" onclick="Javascript:window.print();" class="botao"></a></p>.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.