<%@ LANGUAGE = "VBScript" %>
SISTEMA EXPERTO
<%
DIM DNIPACIENTE
DNIPACIENTE = TRIM(REQUEST.QUERYSTRING("DNIPACIENTEABUSCAR"))
if cdbl(DNIPACIENTE) > clng(DNIPACIENTE) then
NumeroDecimal=true
else
NumeroDecimal=false
DNIPACIENTE = cstr(int(cdbl(DNIPACIENTE)))
end if
IF isnumeric(DNIPACIENTE) = false or NumeroDecimal=true THEN
Response.write "
Por favor introduzca el D.N.I. del paciente, no se admiten letras.
"
ELSE
'**** Abre la conexion
Const AdopenKeyset = 1
Const adLockOptimistic = 3
' ********** CONSTRUYENDO LA SENTENCIA DE CONSULTA
SQL= "SELECT DNI, NOMBRE_CLIENTE, PRIMER_APELLIDO_CLIENTE, SEGUNDO_APELLIDO_CLIENTE, NUMERO_HISTORIA_CLINICA FROM cliente WHERE DNI LIKE '" + DNIPACIENTE + "'"
Set rs1 = CreateObject("ADODB.Recordset")
rs1.CursorType = AdopenKeyset
rs1.LockType = adLockOptimistic
rs1.Open SQL, "DSN=SEX"
IF rs1.eof = FALSE THEN
Response.write "
