devo unire i risultati di queste di select

[yro]

allora ho queste 2 select coi rispettivi cicli:

set rs1 = server.CreateObject("adodb.recordset")
strSQL1="SELECT DISTINCT ci.id, ci.id2, ci.cognome, ci.nome, ci.dnascita FROM ci WHERE id2 IS NULL"
rs1.open strSQL1, strConn, 0, 3

	<%
do while not rs1.EOF
%>
    <tr align="center">
	<td>">Vai</td>
      <td><%=rs1.Fields.Item("cognome").value%></td>
      <td><%=rs1.Fields.Item("nome").value%></td>
      <td><%=rs1.Fields.Item("dnascita").value%></td>
      <td>&u=<%=user%>">Inserisci nuova navigazione</td>
    </tr>
	 <%
  rs1.movenext
  loop
  %>

e

set rs2 = server.CreateObject("adodb.recordset")
strSQL2="SELECT servizio.idutente, servizio.orafine, ci.id, ci.nome from servizio,ci WHERE servizio.orafine IS NULL AND servizio.idutente = ci.id"
rs2.open strSQL2, strConn, 0, 3

do while not rs2.eof
gg = rs2("nome")
'response.Write( rs2("nome"))
rs2.movenext
loop

adesso dovrei unire il tutto in una sola select perche devo fare in modo che i nomi che ottengo dalla 2a select e che sono uguali ai nomi ottenuti nella prima siano scritti in rosso...

come si può fare??

grazie!!