La operación no está permitida si el objeto está abierto.

[ponzonik]

hola gente... recupero este post para ver si me pueden dar una mano. cuando quiero ver un .asp me tira el mismo error que a esta persona.

creo que el codigo asp esta bien, pero mis conocimientos son mas bien escasos... aca esta:

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
	Dim DB
	Set DB = Server.CreateObject ("ADODB.Connection")
	DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&"../../inetpub/wwwroot/v3/dbs/aereos.mdb")
	DB.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" + DB + ";"
	Dim RS
	Set RS = Server.CreateObject ("ADODB.Recordset")
	Dim Consulta
%>
<h1>Region: <% 'TOMAR LOS DATOS DE LOS COOKIES %></h1>
<% 
	Consulta = "SELECT aereos.id, aeropuertos.ciudad AS origen, aeropuertos_1.ciudad AS destino, aeropuertos_2.ciudad AS escala1, aeropuertos_3.ciudad AS escala2, aereos.tarifa, aereos.impuestos, aereos.comentarios FROM (((aereos INNER JOIN aeropuertos ON aereos.origen = aeropuertos.id) INNER JOIN aeropuertos AS aeropuertos_1 ON aereos.destino = aeropuertos_1.id) INNER JOIN aeropuertos AS aeropuertos_2 ON aereos.escala1 = aeropuertos_2.id) INNER JOIN aeropuertos AS aeropuertos_3 ON aereos.escala2 = aeropuertos_3.id;"
	RS.Open Consulta, DB
		
	If RS.EOF And RS.BOF Then
		Response.Write "No hay ningún dato en la sección seleccionada."
	Else
		RS.MoveFirst
		While Not RS.EOF
			Response.Write RS.Fields ("origen")
			Response.Write RS.Fields ("destino")
			Response.Write RS.Fields ("escala1")
			Response.Write RS.Fields ("escala2")
			Response.Write RS.Fields ("escala3")
			Response.Write "<HR>"
			RS.MoveNext
		Wend
	End If
	
	RS.Close()
	Set RS = Nothing
	
	%>

mil gracias desde ya....................... (el xq de la consulta sql que estoy queriendo hacer esta aca......... http://www.forosdelweb.com/f21/ayuda-consulta-sql-244046/)


(no hay html xq es un include de otra pagina, igual IE debe dibujarlo bien)/