<%
strAll = ""
strSql = "SELECT c.company, m.name, m.age FROM TabCompany c INNER JOIN TabMan m ON c.id = m.id"
strSql = strSql & " where m.age > 50 ORDER BY c.company, m.name, m.age"

rs.Open strSql, conn, 1, 1
    Do Until rs.EOF
        strAll = strAll & rs("company") & " " & rs("name") & " " & rs("age") & vbCrLf

        rs.movenext
    Loop
rs.Close

response.write strAll
%>