%@ LANGUAGE = "VBScript" %>
SELECCIÓN DE LA PATOLOGÍA
<%
Historia_Actual=cstr(Session("Historia_Actual"))
Const AdopenKeyset = 1
Const adLockOptimistic = 3
SQL5= "SELECT * FROM HISTORIA_SINTOMA where IDENTIFICADOR_HISTORIA = " & Historia_Actual
Set rs5 = CreateObject("ADODB.Recordset")
rs5.CursorType = AdopenKeyset
rs5.LockType = adLockOptimistic
rs5.Open SQL5, "DSN=SEX"
IF RS5.EOF=TRUE THEN
Response.write "
Este caso no tiene registrado ningún síntoma. Por favor introduzca previamente los síntomas.
"
rs5.CLOSE
ELSE
rs5.CLOSE
SQL5= "SELECT IDENTIFICADOR_HISTORIA FROM HISTORIA_PATOLOGIA where IDENTIFICADOR_HISTORIA = " & Historia_Actual
Set rs5 = CreateObject("ADODB.Recordset")
rs5.CursorType = AdopenKeyset
rs5.LockType = adLockOptimistic
rs5.Open SQL5, "DSN=SEX"
IF RS5.EOF=false THEN
Response.write "
Este caso ya está diagnosticado
"
else
Dim q
SQL= "SELECT * FROM patologia"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
rs1.Movelast
nuerotodasPatologias=rs1.recordcount
rs1.Movefirst
For q=0 to nuerotodasPatologias -1 or rs1.EOF
redim preserve PatologiasTodas(q)
PatologiasTodas(q)=rs1.fields(0)
rs1.movenext
next
response.write "
"
end if
END IF
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.