%
' *** busca REGIOES na tabela GERAL
sqlqry = "SELECT distinct(regiao),cod_regiao From Geral"
Set rs = conn.Execute(sqlqry)
' *** busca SISTEMAS na tabela GERAL
sqlqry_s = "SELECT distinct(sistema),cod_sistema From Geral"
Set rs_s = conn.Execute(sqlqry_s)
' *** busca informações na tabela EXAMES
sqlqry1 = "Select distinct(exame),cod_exame from [geral]"
Set rs1 = conn.Execute(sqlqry1)
%>
Image Memorial
|
|
|
|
|
| EXAMES POR SISTEMA |
<%
On error resume Next
rs_s.moveFirst
Do While not rs_s.EOF
%>
|
"><%= rs_s("sistema")%> |
|
<%
rs_s.MoveNext
Loop
%>
| EXAMES POR REGIÃO |
<%
On error resume Next
rs.moveFirst
Do While not rs.EOF
%>
|
"><%= rs("regiao")%> |
|
<%
rs.MoveNext
Loop
%>
| MÉTODOS DIAGNÓSTICOS |
|
Radiologia Convencional Digitalizada |
|
- Simples |
|
- Contrastada |
|
Mamografia Digitalizada |
|
Ultra-sonografia |
|
Ultra-sonografia com Doppler |
|
Ecocardiografia |
|
Tomografia Computadorizada Helicoidal de Múltiplos Detectores |
|
Ressonância Magnética (fechada e aberta) |
|
Densitometria Óssea |
|
|
| EXAMES POR ESPECIALIDADES |
<%
On error resume Next
rs1.moveFirst
Do While not rs1.EOF
%>
|
"><%= rs1("exame")%> |
|
<%
rs1.MoveNext
Loop
%>
|
|
<%
' *** fecha recorSet
rs.close()
Set rs = Nothing
rs_s.close()
Set rs_s = Nothing
rs1.close()
Set rs1 = Nothing
%>