Ir para conteúdo

Arthur Dowsley

Members
 Perfil  Explorar Conteúdo

  • Total de itens

    2

  • Registro em

  • Última visita

Tudo que Arthur Dowsley postou

  1. Arthur Dowsley

    Recuperar texto campo richtext

    Arthur Dowsley postou um tópico no fórum ASP Clássico

    Pessoal. Seguinte. Tenho uma pagina que recupera alguns dados normalmente do banco postgres. Acontece que um desses campos esta assim na tabela: {\rtf1\ansi\ansicpg1252\uc1\deff0\adeff0\deflang0\deflangfe0\adeflang0{\fonttbl {\f0\fnil\fcharset0\fprq2 Arial;} {\f1\fswiss\fcharset0\fprq2 Tahoma;} {\f2\froman\fcharset2\fprq2 Symbol;}} {\colortbl;} {\stylesheet{\s0\ltrpar\itap0\nowidctlpar\ql\li0\ri0\lin0\rin0\rtlch\af0\afs24\ltrch\f0\fs24 [Normal];}{\*\cs10\additive Default Paragraph Font;}} {\*\generator TX_RTF32 21.0.551.501;} \paperw11907\paperh16840\margl567\margt567\margr567\margb567\deftab1134\widowctrl\lytexcttp\formshade\sectd \headery0\footery0\pgwsxn11907\pghsxn16840\marglsxn567\margtsxn567\margrsxn567\margbsxn567\pgbrdropt32\pard\ltrpar\itap0\nowidctlpar\ql\li0\ri0\lin0\rin0\plain\rtlch\af1\afs20\alang1046\ltrch\f1\fs20\lang1046\langnp1046\langfe1046\langfenp1046 - 55 ANOS\par - NEGA ETILISMO E TABAGISMO\par - ROSIVANIA - IRM\loch\af1\dbch\af1\hich\f1\'c3\hich\af1\dbch\af1\loch\f1 / NITA - IRM\loch\af1\dbch\af1\hich\f1\'c3\par\hich\af1\dbch\af1\loch\f1 - HAS \par - AVO MATERNA - CA DE MAMA\par - G3P2A1\par\par\par - REFERE TER GASTRITE, REALIZOU EDA \par\par EDA 31/01/20 = BLASTOMA G\loch\af1\dbch\af1\hich\f1\'c1\hich\af1\dbch\af1\loch\f1 STRICO\par\par AP DE BIOPSIA G\loch\af1\dbch\af1\hich\f1\'c1\hich\af1\dbch\af1\loch\f1 STRICA 10/02/20 = CARCINOMA DE C\loch\af1\dbch\af1\hich\f1\'c9\hich\af1\dbch\af1\loch\f1 LULAS EM ANEL DE SINETE. CLASSIFICA\loch\af1\dbch\af1\hich\f1\'c7\'c3\hich\af1\dbch\af1\loch\f1 O DE LAUREN - TIPO DIFUSO, GRAU 3. H PYLORI NEGATIVO\par\par SEM QUEIXAS, INQUERIDA NEGA SINTOMAS DIGESTIVOS. ACEITA BEM A DIETA.\par\par\par AO EXAME:BEG, CONSCIENTE, ORIETADA, PESO = 52,60 / ALT = 1,58\par ACV - RCR EM 2T\par AR - MV + EM AHT, SEM RA\par ABD - NORMOTENSO, FLACIDO\par EXT - SEM EDEMA\par\par\par CONDUTA:\par - SOLICITO IHQ\par - SOLICITO CA 125, CEA, CA 19.9\par - AGUARDO TC DE TORAX E ABD E CINT \loch\af1\dbch\af1\hich\f1\'d3\hich\af1\dbch\af1\loch\f1 SSEA QUE REALIOU ONTEM E HOJE NA .\par\par\par -----\par\par } A duvida e como converter isso. Ja tentei com replace sem sucesso. Teria alguma solução? Eu recupero o texto assim: <%=obRS2("texto").Value
  2. Arthur Dowsley

    Recuperar dados checkbox

    Arthur Dowsley postou um tópico no fórum ASP Clássico

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

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito