Oncoclinica :: Protocolo

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"%> ``` <% 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 %> Oncoclinica :: Protocolo

PROTOCOLO DE ENTREGA

<%response.write(Date)%>

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

Data	Nome	Convênio	Medico

<% rs3.MoveNext wend %>

<%=rs3("data")%>

<%=rs3("nomepaciente")%>

<%=rs3("tbl_protocolo_convenio")%>

<%=left(rs3("medico"),16)%>

" />



<% if rs3.Supports(adApproxPosition)=true then i=rs3.RecordCount response.write("Quantidade de guias: " & i) end if%>

Recebido por:______________________________________________ Data:___/___/_______

<% rs3.Close oConn.Close Set rs3 = Nothing Set oConn = Nothing end if %> ```

Arthur Dowsley

Recuperar texto campo richtext

Recuperar dados checkbox