<%@ LANGUAGE = "VBScript" %> SISTEMA EXPERTO <% 'redim sintomasreales(0) PRUEBAENVIADA = REQUEST.QUERYSTRING("PRUEBASELECCIONADA") Response.write "
INTRODUCCION DE RESULTADOS DE LAS PRUEBAS

" Response.write "La prueba seleccionada es '" + REQUEST.QUERYSTRING("PRUEBASELECCIONADA") +"'.

" '**** Abre la conexion Const AdopenKeyset = 1 Const adLockOptimistic = 3 ' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA DE TODAS LAS SUBPRUEBAS SQL= "SELECT DISTINCT NOMBRE_SUBPRUEBA, TIPO_SUBPRUEBA FROM SUBPRUEBA " SQL = SQL + " WHERE NOMBRE_PRUEBA like '" + REQUEST.QUERYSTRING("PRUEBASELECCIONADA")+ "'" Set rs1 = CreateObject("ADODB.Recordset") rs1.CursorType = AdopenKeyset rs1.LockType = adLockOptimistic rs1.Open SQL, "DSN=SEX" Response.write "
" Response.write "" Response.write "" I=0 while rs1.bof = false and rs1.eof=false Response.write "" Response.write "" I=I+1 rs1.MoveNext wend Response.write "
" + rs1.fields(0) + "" Response.write "" Response.write "
" Response.write "

" Response.write "" 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  >  MIntroduccionPruebas.asp