Veamos...
Cita: sql = "SELECT 'tabla1' as Listado FROM tabla1 WHERE tabla1.username = 'Juan' UNION SELECT 'tabla2' as Listado FROM tabla2 WHERE tabla2.username = 'Juan'
1.- Para empezar no creo que sea correcto por aqui...
Deberia ser algo semejante a esto...
SELECT * FROM Tabla1 WHERE tabla1.username = 'Juan' UNION SELECT * FROM Tabla2 WHERE tabla2.username = 'Juan'
Aqui segun yo estas seleccionando todos los registros de la tabla1 donde el usuario sea Juan y uniendolos a todos los registros de la tabla2 donde el usuario sea Juan (Aunque no se si realmente la sintaxis este correcta en cuanto a la unión, ni tampoco le veo el objetivo del Juan?)
Cita: <td><font face="arial,helvetica" size="2"><%=rsIdentifs.Fields("Listado")%></font></td>
2. Aqui deberias usar rsIdentifs.Fields("nombre del campo")
o sea algo asi.... =rsIdentifs.Fields("username")
3. Y este rsUsers que anuncia? tal vez deberia ser rsIdentifs.Movenext
Espero que te ayude con eso....