Select Em Uma Tabela E Duas Consultas

[jucacabala]

olha eu aqui de novo

é o seguinte

tenho um banco com tres tabelas

- eventos

- programaçao

- objetivo

sendo que existe dois tipos de eventos onde para cada um deles a programação e o objetivo são diferentes.

então criei nas tabelas programaçao e objetivo um campo tipo que distingue os dois tipos de eventos.

esta parte já esta solucionada, pois criei quatro tipos de consultas:

- consulta_objetivotipo1

- consulta_objetivotipo2

- consulta_programacaotipo1

- consulta_programacaotipo2

ficaria assim:

<a href="eventos_sim.asp?cod1=<% = rsEvento.Fields("codigo") %>" id="link01">Integrados ao Sistema Nacional de Tr&acirc;nsito (municipalizados)</a><br>

<a href="eventos_nao.asp?cod1=<% = rsEvento.Fields("codigo") %>" id="link01">N&atilde;o Integrados ao Sistema Nacional de Tr&acirc;nsito (n&atilde;o municipalizados)</a>

nas paginas eventos_sim.asp e eventos_nao.asp preciso montar uma consulta no BD para puxar os dados da tabela eventos e das outras duas consultas

sei que não será necessario usar inner join mas como faço isso?

desde já muito obrigadinho!

[jucacabala]

achei a solução

<%
DIM conexaodb, rs1, str1, rs2, str2, rs3, str3, codAltera
call abreConexao
codAltera = Request.QueryString("codigo")
str1 = "SELECT * FROM evento "
str1 = str1 & "WHERE codigo = '" & codAltera & "'"
set rs1 = conexaodb.Execute(str1)

str2 = "SELECT * FROM Consulta_objetivo2 "
str2 = str2 & "WHERE codigo = '" & codAltera & "'"
set rs2 = conexaodb.Execute(str2)

str3 = "SELECT * FROM Consulta_tipo2 "
str3 = str3 & "WHERE codigo = '" & codAltera & "'"
set rs3 = conexaodb.Execute(str3)
%>
.
.
.
.
.
.
<td class="arial_verde"><% = rs1.Fields("nome_evento")%></td>
.
.
<td><% = rs2.Fields("objetivo")%></td>
.
.
<td><% = rs3.Fields("tipo")%></td>