Vereis, tengo un codigo, que, basicamente, es tal que asi:
Do While Not MR.EOF or MR.BOF
strSQL = "SELEC * FROM TABLA"
sET MRG = MyConn.Execute(strSQL)
MRG.Close
MR.MoveNext
Loo`p
MR.Close
Bien. Con las primeras sentencias muestro una serie de informafcion por la pantalla. Luego, ejecuto otra sentenica sql dentro de la primera, cogiendoparametros que me ha devuelto la sql1.
Sin embargo, cuando paso a un 2º registro de la primera, me da error....
No se si me he explicado... MMmmm.. mejor os pego todo el codigo para que lo veais bien...
Código:
strSQLSecc = "Select ID, CONTENIDO, SECC_JUEGO, TITULO FROM GAMES_INFO"
strSQLSecc = strSQLSecc & " WHERE ID_JUEGO =" & txtGameEsID
strSQLSecc = strSQLSecc & " AND ID_SECCION=" & txtGameSeccID
Do While NOT MyRecordSet.EOF
txtContenido = Myrecordset("CONTENIDO")
txtTitulo = MyRecordset("TITULO")
txtSubSecc = MyRecordset("ID")
response.write("<tr><td width=""465"" align=""left"">")
response.write("<br><font class=""CABECERA"">")
response.write(txtTitulo & "<br>")
'response.write(aqui la linea separadora)
response.write("</font>")
response.write("<font class=""NORMAL"">")
response.write(txtContenido)
response.write("</font>")
' ** ¡¡ Aqui para sacar la Galeria de Imagenes !!
strSQLGal = "SELECT ID FROM GAMES_IMAG WHERE ID_JUEGO="&txtGameEsID&" AND ID_SECC="&txtGameSeccID
strSQLGal = strSQLGal &" AND ID_SUBSECC=" & txtSubSecc
response.write strSQLGal
Set MRG = MyConn.Execute(strSQLGal)
Do While Not MRG.EOF or MR.BOF
' ** Coger los datos
MRG.MoveNext
Loop
MRG.Close
' ** ¡¡ Fin Galeria de Imagenes !!
response.write("</td></tr>")
' ** ¡¡ FIN DE LA IMPRESION DE CONTENIDOS **
CuantosRegistros=CuantosRegistros+1
MyRecordset.MoveNext
Loop
MyRecordset.Close
response.write("</table>")
Me da un error en la linea de Set MRG=MyConn.Execute(strSQLGal) de: ADODB.Recordset error '800a0e78'
La operación solicitada por la aplicación no está permitida si el objeto está cerrado.
/amp_secc.asp, line 166