No pones la linea donde marca error, pero si es donde tienes ultima_entrada = rs.Fields("ultima_entrada"), el fallo es por lo que te dije, no hay otra.
Simplemente compruébalo con esto:
Cita: ...
sql_ch = "Select MAX(fechaEntrada) as ultima_entrada from checador where id_empleado = "&tempId&" "
response.write sql_ch
response.end
la consulta que se imprima, cópiala, págala y ejecútala en el analizador de consultas de lo que uses y comprobaras que no regresa datos.
Ahora, si el error no es en esa linea, hubiera sido útil saber en cuál.
Saludos