<%noticia1=0%> <% Dim noticias Dim noticias_cmd Dim noticias_numRows Set noticias_cmd = Server.CreateObject ("ADODB.Command") noticias_cmd.ActiveConnection = MM_web_STRING noticias_cmd.CommandText = "SELECT * FROM noticias WHERE activo=1 AND sigla='"&sigla&"' ORDER BY fechaModifica DESC" noticias_cmd.Prepared = true Set noticias = noticias_cmd.Execute noticias_numRows = 0 %> <% If Not noticias.EOF Or Not noticias.BOF Then %> <%noticia1=(noticias.Fields.Item("idCont").Value)%> <% End If ' end Not noticias.EOF Or NOT noticias.BOF %> <% noticias.Close() Set noticias = Nothing %> <% Dim noticias2 Dim noticias2_cmd Dim noticias2_numRows Set noticias2_cmd = Server.CreateObject ("ADODB.Command") noticias2_cmd.ActiveConnection = MM_web_STRING noticias2_cmd.CommandText = "SELECT * FROM noticias WHERE activo=1 AND idCont<>"¬icia1&" AND sigla='"&sigla&"' ORDER BY fechaModifica DESC" noticias2_cmd.Prepared = true Set noticias2 = noticias2_cmd.Execute noticias2_numRows = 0 %> <% If Not noticias2.EOF Or Not noticias2.BOF Then %> <% End If ' end Not blog.EOF Or NOT blog.BOF %> <% noticias2.Close() Set noticias2 = Nothing %> <% Dim blog Dim blog_cmd Dim blog_numRows Set blog_cmd = Server.CreateObject ("ADODB.Command") blog_cmd.ActiveConnection = MM_web_STRING blog_cmd.CommandText = "SELECT * FROM blog WHERE activo=1 AND sigla='"&sigla&"' ORDER BY fechaModifica DESC" blog_cmd.Prepared = true Set blog = blog_cmd.Execute blog_numRows = 0 %> <% If Not blog.EOF Or Not blog.BOF Then %> <% End If ' end Not caso_exito.EOF Or NOT caso_exito.BOF %> <% blog.Close() Set blog = Nothing %>