<%
PATOLOGIASOLICITADA = request.querystring("PatologiaAMostrar")
if LEN(PATOLOGIASOLICITADA) = O then
response.write "
POR FAVOR SELECCIONE UN PREVIAMENTE UNA PATOLOGIA. "
ELSE
'**** Abre la conexion
Const AdopenKeyset = 1
Const adLockOptimistic = 3
response.write "
INFORMACIÓN SOBRE LA PATOLOGÍA '" + PATOLOGIASOLICITADA + "'. "
Response.write " Síntomas asociados a la patología: "
Response.Write "
"
' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA DE TODAS LAS PRUEBAS POSIBLES
SQL= "SELECT DISTINCT nombre_sintoma FROM DIAGNOSTICO_HISTORICO"
SQL = SQL + " WHERE NOMBRE_PATOLOGIA like '" + PATOLOGIASOLICITADA + "'"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
WHILE rs1.eof=FALSE
Response.write "
"
' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA DE TODOS LOS SINTOMAS DEL CASO
SQL= "SELECT SUBPRUEBA.NOMBRE_PRUEBA, SUBPRUEBA.NOMBRE_SUBPRUEBA, RESULTADO.VALOR_RESULTADO"
SQL = SQL + " FROM SUBPRUEBA INNER JOIN (RESULTADO INNER JOIN DIAGNOSTICO_RESULTADO ON RESULTADO.IDENTIFICADOR_RESULTADO = DIAGNOSTICO_RESULTADO.IDENTIFICADOR_RESULTADO) ON SUBPRUEBA.IDENTIFICADOR_SUBPRUEBA = RESULTADO.IDENTIFICADOR_SUBPRUEBA"
SQL = SQL + " WHERE DIAGNOSTICO_RESULTADO.NOMBRE_PATOLOGIA LIKE '" + PATOLOGIASOLICITADA + "' "
SQL = SQL + " ORDER BY SUBPRUEBA.NOMBRE_PRUEBA ASC, SUBPRUEBA.NOMBRE_SUBPRUEBA ASC"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
IF rs1.EOF = TRUE THEN
Response.write "
No existen resultados de las pruebas asociadas a la patología.
"
ELSE
Response.write "
Resultados de las pruebas asociadas a la patología: "
Response.write "
"
Response.write "
PRUEBA
APARTADO DE LA PRUEBA
VALOR
"
END IF
while rs1.EOF = false
Response.write "
" + rs1.Fields(0) + "
" + rs1.Fields(1) + "
"
SELECT CASE rs1.Fields(2)
CASE 1:
Response.write "
NEGATIVO
"
CASE 2:
Response.write "
POSITIVO
"
CASE 3:
Response.write "
BAJO
"
CASE 4:
Response.write "
NORMAL
"
CASE 5:
Response.write "
ALTO
"
END SELECT
rs1.MoveNext
wend
rs1.CLOSE
Response.write "
"
END IF
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.