% Option Explicit %>
<%
dim mysql
mysql = true
%>
<%
dim cnData, rsData
dim Id, Titular, Descripcion, Categoria, Nueva, Fecha, Activa, Proxima, Actual, fechaanterior, a
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
%>
Noticias ACA España. Actualidad, Ferias, DECO Informa, Publicaciones, Breves. La informática al servicio del mueble
Noticias
Actualidad
<%
'fechaanterior = DateAdd("yyyy", -1, Date)
cnData.Open
rsData.Open "SELECT * FROM Noticias WHERE Fecha > ADDDATE(CurDate(),INTERVAL -1 YEAR) and Activa=1 ORDER BY Id DESC", cnData
'ADDDATE() va dentro de la consulta SELECT, ya que no ha de ser interpretada en asp(vbScript), sino por mysql. Toda la sentencia la interpreta mysql
While (not rsdata.EOF)
Id = rsData.fields("Id").value
Titular = rsData.fields("Titular").value
Descripcion = rsData.fields("Descripcion").value
Categoria = rsData.fields("Categoria").value
Fecha = rsData.fields("Fecha").value
Activa = rsData.fields("Activa").value
'Proxima = rsData.fields("Proxima").value
'Actual = rsData.fields("Actual").value
%>