<%@ LANGUAGE = "VBScript" %>
SISTEMA EXPERTO
<%
'**** Abre la conexion
Const AdopenKeyset = 1
Const adLockOptimistic = 3
' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA DE TODAS LAS PRUEBAS POSIBLES
SQL= "SELECT DNI, PRIMER_APELLIDO_CLIENTE, SEGUNDO_APELLIDO_CLIENTE, NOMBRE_CLIENTE FROM cliente WHERE PRIMER_APELLIDO_CLIENTE LIKE '" + TRIM(REQUEST.QUERYSTRING("apellidocliente")) + "'"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
IF rs1.eof = TRUE and rs1.bof = TRUE THEN
Response.write "
El paciente solicitado es nuevo.
"
ELSE
Response.write "
El resultado de la busqueda es:
"
Response.write "
"
Response.write "
D.N.I.
PRIMER APELLIDO
SEGUNDO APELLIDO
NOMBRE
"
WHILE rs1.eof = FALSE
Response.write "
" + rs1.fields(0) + "
" + rs1.fields(1) + "
" + rs1.fields(2) + "
" + rs1.fields(3) + "
"
RS1.MOVENEXT
WEND
Response.write "
"
END IF
rs1.close
%>
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
