%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% strSQL = "Select Max(idNoticia) From tblNoticias where chrEstado = 'A'" vNoticia = ObtenerDatos(strSQL) If IsArray(vNoticia) Then strSQL = "Select idNoticia, strNoticia, strTextoNoticia from tblNoticias Where idNoticia = " & vNoticia(0,0) vNoticia = ObtenerDatos(strSQL) End If %>