<% Option Explicit %> <% dim mysql mysql = true %> <% dim cnData, rsData dim Id, Titular, Descripcion, Categoria, Activa, Nueva set cnData = Server.CreateObject("adodb.connection") set rsData = Server.CreateObject("adodb.recordset") if mysql then cnData.ConnectionString = conexion else cnData.ConnectionString = "dsn=acaes.com.data" end if %> <% cnData.Open rsData.Open "SELECT * FROM Noticias WHERE Activa=1 and Nueva=1 ORDER BY Id DESC", cnData While (not rsData.EOF) Id = rsData.fields("Id").value Titular = rsData.fields("Titular").value Descripcion = rsData.fields("Descripcion").value Categoria = rsData.fields("Categoria").value Activa = rsData.fields("Activa").value Nueva = rsData.fields("Nueva").value %> <% if Categoria = "DecoInforma" then %> <% else %> <% end if %> <% rsData.MoveNext Wend %>

	Noticias
		<% response.write(Titular) %> <% response.write(Descripcion) %>	<% response.write(Titular) %> <% response.write(Descripcion) %>
		Mas noticias...