Conexion a dos tablas e la misma BD

[zink]

Hola, estoy tratando de hacer un reporte de una base de datos, pero esos datos estan en varias tablas, hago la conexion a la primera e imprimo los datos y todo sale bien, pero a la hora de hacer la conexion con la segunda tabla no me abre la pagina, lo mas seguro es que no estoy haciendo bien la conexion o engo algo mal.

Primero hago la conexion la BD
.....
<%
Dim DBCONT, CONT
Set DBCONT = Server.CreateObject("ADODB.Connection")
Set CONT = Server.CreateObject("ADODB.RecordSet")
DBCONT.Mode = adModeReadWrite
DBCONT.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("base.mdb"))

nombre= Request ("valor")
SQLCONT="SELECT * FROM contribuyente WHERE id_1= '"&nombre&"' "
CONT.Open SQLCONT ,DBCONT

%>
....
imprimo los datos en diferentes celdas:
.....
<td width="21%">
<% Response.Write CONT("nombre")%>
</td>
......
Cierro la conexion y la vuelvo a hace para la siguiente tabla:
.....
<%
CONT.Close

DBCONT.Close

Set DBCONT = Nothing
Set CONT = Nothing
%>

</center>
<%
Dim DBIMP, IMPUE
Set DBIMP = Server.CreateObject("ADODB.Connection")
Set IMPUE = Server.CreateObject("ADODB.RecordSet")
DBIMP.Mode = adModeReadWrite
DBIMP.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("base.mdb"))

nombre= Request ("valor")
SQLIMP="SELECT * FROM impuestos WHERE id_1= '"&nombre&"' "
IMPUE.Open SQLIMP ,DBIMP

%>



Aqui es donde creo que esta elerror, no me dice que tipo de eeror es solo no muestra la pagina.


que me sugieren? que no cierre la conexion? que haga un inner join?

Gracias.

[bakanzipp]

y por que no juntas las cosas?

<%
Dim DBCONT, CONT
Set DBCONT = Server.CreateObject("ADODB.Connection")
Set CONT = Server.CreateObject("ADODB.RecordSet")
DBCONT.Mode = adModeReadWrite
DBCONT.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("base.mdb"))

nombre= Request ("valor")
SQLCONT="SELECT * FROM contribuyente WHERE id_1= '"&nombre&"' "
CONT.Open SQLCONT ,DBCONT

%>
....
imprimo los datos en diferentes celdas:
.....
<td width="21%">
<% Response.Write CONT("nombre")%>
</td>

</center>
<%
nombre= Request ("valor")
SQLIMP="SELECT * FROM impuestos WHERE id_1= '"&nombre&"' "
CONT.Open SQLIMP ,DBCONT


CONT.Close

DBCONT.Close

Set DBCONT = Nothing
Set CONT = Nothing

[zink]

Gracias bakanzipp por contestar, se me hace buena idea lo que me comentas no se me habia ocurrido.

Hice la prueba y me marca el sigueinte error:
ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

en la linea donde tengo:
CONT.Open SQLIMP ,DBCONT

ando medio perdido.
jeje (medio?)

gracias

[u_goldman]

La operación no se permite si el objeto está abierto, es decir, no puedes abrir algo que esté abierto ya...solo necesitas cerrar el recordset antes de tratar de abrirlo de nuevo

imprimo los datos en diferentes celdas:
.....
<td width="21%">
<% Response.Write CONT("nombre")%>
</td>
<%
CONT.CLose
%> </center>
<%
nombre= Request ("valor")
SQLIMP="SELECT * FROM impuestos WHERE id_1= '"&nombre&"' "
CONT.Open SQLIMP ,DBCONT


CONT.Close

Salu2,

[zink]

Gracias, ya funciona.