<%@ LANGUAGE = "VBScript" %>
SISTEMA EXPERTO
<%
DIM VISITASELECCIONADA
VISITASELECCIONADA = TRIM(REQUEST.QUERYSTRING("VISITASELECCIONADA"))
'**** PREPARA LA APERTURA DE LA CONEXION CON LA BASE DE DATOS
Const AdopenKeyset = 1
Const adLockOptimistic = 3
IF len(cstr(VISITASELECCIONADA)) = 0 THEN
Response.write "
Por favor seleccione previamente un caso.
"
ELSE
' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA
SQL= "SELECT IDENTIFICADOR_HISTORIA, FECHA_INGRESO, IDENTIFICADOR_HISTORIA_PADRE, VISITA_PADRE FROM HISTORIA_CLINICA WHERE IDENTIFICADOR_HISTORIA = " + CSTR(VISITASELECCIONADA)
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
'response.write "VISITA Nº:" + cstr(rs1.fields(0)) + " de " + cstr(rs1.fields(1)) + " "
dim Visita_Padre
dim NVISITA
NVISITA=0
REDIM VISITA(0)
VISITA(0) = rs1.fields(0)
REDIM HORA(0)
HORA(0) = rs1.fields(1)
NVISITA = NVISITA + 1
IF rs1.eof = FALSE THEN
response.write "
"
while rs1.fields(3) = true
Visita_Padre = rs1.fields(0)
'response.write "la visita padre ahora es=" + cstr(Visita_Padre) + " "
rs1.Close
SQL= "SELECT IDENTIFICADOR_HISTORIA, FECHA_INGRESO, IDENTIFICADOR_HISTORIA_PADRE, VISITA_PADRE FROM HISTORIA_CLINICA WHERE IDENTIFICADOR_HISTORIA_PADRE = " + CSTR(Visita_Padre)
rs1.Open SQL, "DSN=SEX"
REDIM PRESERVE VISITA(NVISITA)
REDIM PRESERVE HORA(NVISITA)
VISITA(NVISITA) = rs1.fields(0)
HORA(NVISITA) = rs1.fields(1)
NVISITA = NVISITA + 1
'response.write "la visita actual es=" + cstr(rs1.fields(0)) + " "
wend
rs1.close
response.write "
"
ELSE
response.write "
El paciente solicitado no está registrado, asegurese de que introdujo el D.N.I. correcto.
"
END IF
END IF
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
