<% Option Explicit %>
<%
dim mysql
mysql = true
%>
<%
dim cnData, rsData
dim Id, Titular, Descripcion, Categoria, Nueva, Fecha, Activa, Proxima, Actual
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
<%
cnData.Open
rsData.Open "SELECT * FROM Noticias WHERE Categoria='Ferias' and Activa=1 and Proxima=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
if not rsData.EOF then
%>
Próximas Ferias
<%
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
%>
<%
rsData.Open "SELECT * FROM Noticias WHERE Categoria='Ferias' and Activa=1 and Proxima=0 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
%>
