<%@ LANGUAGE = "VBScript" %>
SISTEMA EXPERTO
<%
DIM DNIPACIENTE
DNIPACIENTE = TRIM(REQUEST.QUERYSTRING("DNIPACIENTEABUSCAR"))
if cdbl(DNIPACIENTE) > clng(DNIPACIENTE) then
NumeroDecimal=true
else
NumeroDecimal=false
DNIPACIENTE = cstr(int(cdbl(DNIPACIENTE)))
end if
IF isnumeric(DNIPACIENTE) = false or NumeroDecimal=true THEN
Response.write "
Por favor introduzca el D.N.I. del paciente, no se admiten letras.
"
ELSE
'**** Abre la conexion
Const AdopenKeyset = 1
Const adLockOptimistic = 3
' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA
SQL= "SELECT DNI, NOMBRE_CLIENTE, PRIMER_APELLIDO_CLIENTE, SEGUNDO_APELLIDO_CLIENTE, NUMERO_HISTORIA_CLINICA FROM cliente WHERE DNI LIKE '" + DNIPACIENTE + "'"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
IF rs1.eof = TRUE and rs1.bof = TRUE THEN
Response.write "
El paciente solicitado es nuevo. Por favor introduzca los datos para darle de alta.
Elija la visita anterior para continuar con ese caso.
"
rs1.close
' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA
SQL= "SELECT NUMERO_HISTORIA_CLINICA, IDENTIFICADOR_HISTORIA, FECHA_INGRESO, IDENTIFICADOR_HISTORIA_PADRE FROM HISTORIA_CLINICA WHERE NUMERO_HISTORIA_CLINICA = " + CSTR(ID_HISTORIA) + "AND VISITA_PADRE = FALSE ORDER BY IDENTIFICADOR_HISTORIA DESC"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
response.write ""
END IF
END IF
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
