Problema objeto abierto

[xhisna]

Bueno de nuevo vuelvo a tener problemas del estilo al anterior intento solucionar como el anterior pero sera que cada vez manejo mas sentencias y me desbordan, haber si alguien puede decirme xk me da el dichoso error de "no se puede hacer la operacion xk el objeto esta abierto"

Os pongo el codigo:

Código:

			var cadenaConexion = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" +Server.MapPath("basedatos/bd.mdb");
					var sql,result,sql1= Server.CreateObject("ADODB.Recordset");
					var result2 = Server.CreateObject("ADODB.Recordset");
		try{
				 var conexion= Server.CreateObject ("ADODB.Connection");
                	 conexion.Open ("Provider=Microsoft.Jet.OLEDB.4.0;"+" Data Source = "+Server.MapPath ("basedatos/bd.mdb"));
                	 }
                	 catch (e){
                	 Response.Write ("Error1:");
                	 Response.Write ("<b>" + e.description + "</b>");
                	 Response.End();}
			
				try{
				
					var nick = Session("nick");
			
					var sql = "SELECT codigo FROM pedido WHERE nick='"+nick+"'";
					
                            result.Open(sql, conexion);
							
		while (result.eof == false)
		{
		
		var codigo = result("codigo");
		
		 var sql ="SELECT * FROM articulos WHERE codigo="+codigo+"";
        
                
                result2.Open(sql, conexion);
				
        			var articulo = result2("articulo");
					var titulo = result2("titulo");
					var descripcion = result2("descripcion");
					var precio = result2("precio");
					
					var sql1 = "INSERT INTO historial(nick,articulo,titulo,descripcion,precio,fecha_pedido) VALUES ('"+nick+"','"+articulo+"','"+titulo+"','"+descripcion+"','"+precio+"', Date())";
						    							
							conexion.Execute(sql1);
							conexion.commitTrans();
							result2.close();
							result.movenext();
							}
							
							Response.write("Su pedido ha sido tramitado, en breve lo recibira en su domicilio a contrareembolso");
							
					var sql = "DELETE * FROM pedido WHERE nick = '"+nick+"'";
					
							conexion.Execute(sql);
								
								}
							
					catch(e){//posible fallo en la BD
				Response.Write ("<h2 align=center >Error2:</h2>");
				Response.Write ("<b>" +e.description+ "</b>");
				Response.Write("<h4 align=center ><button onclick='history.back()'>Volver</button></h4>");
				Response.End();
			}				
		
		
		
		%>

Imagino que sera una chorrada pero llevo una hora cambiando cositas haber si sale y nada. Mil Gracias