Base de Datos access da error.

[jordan]

Primero hago esto esto:


Set BD = Server.CreateObject("ADODB.Connection")
BD.Open "DSN=Prueba.com.per"
Set RS1 = Server.CreateObject("ADODB.Recordset")
SQL1 = "SELECT * FROM per_art where tofe <> ''"
RS1.Open SQL1, BD%>

Cargo el resultado:

<%Do While Not RS1.EOF%>
.....
<%RS1.Movenext
Loop
RS1.Close
BD.Close
%>

en principio esto es ok.

Luego vuelbo a cargar:

Set BD = Server.CreateObject("ADODB.Connection")
BD.Open "DSN=prueba.com.per"
Set RS1 = Server.CreateObject("ADODB.Recordset")
SQL1 = "SELECT * FROM per_art where familia = 'NOV'"
RS1.Open SQL1, BD
%>
El error me lo da en la línea BD.open "DSN=prueba.com.per" (color rojo)

Si no hago los close primeros y quito los open de segundos, funciona bien.

Pero luego al hacer unos links a otras páginas, me da error. Siempre es al abrir la DB o cargar el Recordset.

No lo entiendo, funcionaba bien hasta ayer. Parece ser, que volvieron a cargar la DB, pero lo único que hicieron fue, modificar unos datos.