<%@ LANGUAGE = "VBScript" %>
SISTEMA EXPERTO
<%
Response.write "
BUSQUEDA DE PATOLOGIA FINALIZADA
"
'**** Abre la conexion
Const AdopenKeyset = 1
Const adLockOptimistic = 3
' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA DE TODAS LAS PRUEBAS POSIBLES
SQL= "SELECT DISTINCT NOMBRE_PATOLOGIA FROM PATOLOGIA"
SQL = SQL + " WHERE NOMBRE_PATOLOGIA like '%" + TRIM(REQUEST.QUERYSTRING("TERMINO")) + "%'"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
IF rs1.eof = TRUE THEN
Response.write "
No se ha encontrado ninguna patología que contenga '" + REQUEST.QUERYSTRING("TERMINO") + "'
"
ELSE
Response.write "Seleccione la patología sobre la cuál desea obtener información:"
Response.write ""
END IF
rs1.close
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
