%@ LANGUAGE = "VBScript" %>
<%
NHISTORIACLINICACLIENTE = session("cliente")
Historia_Actual=cstr(Session("Historia_Actual"))
if len(Historia_Actual) = 0 then
Response.write "
"
Response.write "
Por favor elija previamente un paciente y un caso.
"
Response.write ""
else
Const AdopenKeyset = 1
Const adLockOptimistic = 3
SQL= "SELECT IDENTIFICADOR_HISTORIA FROM HISTORIA_PATOLOGIA where IDENTIFICADOR_HISTORIA = " & Historia_Actual
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
IF RS1.EOF=false THEN
Response.write ""
Response.write "
Este caso ya está diagnosticado. Para realizar otro diagnostico vuelva a abrir este caso.
"
Response.write ""
else
response.write ""
END IF
end if
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.