Mostrar dados de duas tabelas

Boa tarde estou tentando pegar dados de duas tabelas no bd e não estou conseguindo, estou tentando deixar mais ou menos assim.

Home | Quem Somos | Contato (tabela 1)

• h1 | - q1 | - c1 (tabela 2 mostra os nome refente a cada coluna)
• h2 | - q2 | - c2

| - q3 | - c3

| | - c4

Abaixo deixo o código que estou usando.

<table border=1>
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\wwwroot\Reply\dados\dados_reply.mdb"
Set RS = Server.CreateObject("ADODB.Recordset")
rs.CursorType = 0
rs.CursorLocation = 3
rs.LockType = 3
SQLStmt = "SELECT * FROM menusite where liberar = true order by ordem asc"
RS.Open SQLstmt,Conn%>
<%If rs.Eof Then%>
<%else %><tr class="menu">
<%While Not RS.EOF %>
<td><a href="<%=rs("pagina")%>" class="parent"><span><b><%=rs("titulo")%></b></span></a></td>
<%titulosite = rs("titulo")%>

<%Set RS1 = Server.CreateObject("ADODB.Recordset")
rs1.CursorType = 0
rs1.CursorLocation = 3
rs1.LockType = 3
SQLStmt = "SELECT * FROM segmento where menusite = '"&titulosite&"' order by id_seg asc"
RS1.Open SQLstmt,Conn%>
<%If rs1.Eof Then%>
<%else%> </tr> <tr>
<%While Not RS1.EOF %>
<td><a href="quemsomos.asp?seg=<%=rs1("links")%>&tittropagina=<%=RS1 ("segmento")%>&id=<%=RS1 ("id_seg")%>">
<%If segmento = rs1("links") Then%>

• <%=rs1("segmento")%>

<%id_seg = Cint (RS1 ("id_seg"))%>
<%else%>

• <%=rs1("segmento")%>

<%end if%>
</a></td>
<%RS1.MoveNext
Wend
RS1.close
end if%>
</tr>
<%RS.MoveNext
Wend
RS.close
end if%>
</table>