CONFIRMACION DE LA INTRODUCCION DE LOS SINTOMAS "
Response.write " Se han introducido los siguientes síntomas: "
Response.Write "
"
for I = 0 to numerosintomasreales - 1
if len(request.querystring(sintomasreales(I))) <> 0 then
'response.write "Se esta comprobando si se va a introducir el sintoma:" + request.querystring(sintomasreales(I)) + " "
' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA DE TODAS LAS PRUEBAS POSIBLES
SQL= "SELECT DISTINCT nombre_sintoma FROM historia_sintoma"
SQL = SQL + " WHERE NOMBRE_SINTOMA like '" + request.querystring(sintomasreales(I)) + "' and "
SQL = SQL + " IDENTIFICADOR_HISTORIA = " + cstr(numerohistoria)
Set rs0 = CreateObject("ADODB.Recordset")
rs0.CursorType = AdopenKeyset
rs0.LockType = adLockOptimistic
rs0.Open SQL, "DSN=SEX"
if rs0.bof = true and rs0.eof=true then
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open "historia_sintoma", "DSN=SEX"
rs1.addnew
HayNuevosSintomas = true
Response.write "
" + request.querystring(sintomasreales(I)) + " "
rs1("NOMBRE_SINTOMA") = request.querystring(sintomasreales(I))
rs1("IDENTIFICADOR_HISTORIA") = CLNG(numerohistoria)
rs1.update
rs1.close
end if
rs0.close
end if
next
Response.Write "
"
if HayNuevosSintomas = false then
Response.write "
Por favor seleccione previamente los síntomas deseados.
"
end if
END IF
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.