<%@ LANGUAGE = "VBScript" %> SISTEMA EXPERTO <% redim sintomasreales(0) Response.write "
BUSQUEDA DE SINTOMAS

" '**** Abre la conexion Const AdopenKeyset = 1 Const adLockOptimistic = 3 ' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA DE TODAS LAS PRUEBAS POSIBLES SQL= "SELECT DISTINCT nombre_sintoma FROM sintoma" SQL = SQL + " WHERE nombre_sintoma 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 ningun síntoma que contenga '" + REQUEST.QUERYSTRING("TERMINO") + "'

" ELSE Response.write "Seleccione los síntomas padecidos por el paciente:" Response.write "
" while rs1.bof = false and rs1.eof=false Response.write "" + rs1.Fields(0) + "
" redim preserve sintomasreales(numerosintomasreales) sintomasreales(numerosintomasreales) = rs1.Fields(0) numerosintomasreales = numerosintomasreales + 1 rs1.MoveNext wend session("SintomasNuevos") = sintomasreales session("NumeroSintomasNuevos") = numerosintomasreales Response.write "" Response.write "

" Response.write "
" END IF rs1.close %> e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.


SISTEMA EXPERTO APLICADO A LA ATENCIÓN PRIMARIA MÉDICA. AYUDA AL DIAGNÓSTICO

: Calle Suarez, Marcos
: Ingeniería Organización
Contenido del proyecto:
Directorio raíz  >  Codigo  >  MIntroduccionSintomasBuscadosSAD.asp