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:
Me da un error en la linea de Set MRG=MyConn.Execute(strSQLGal) de: ADODB.Recordset error '800a0e78' 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>")
La operación solicitada por la aplicación no está permitida si el objeto está cerrado.
/amp_secc.asp, line 166