<%
meses = Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre")
fecha = date() 'FECHA ACTUAL
anio=year(fecha)
mes= Array("1","2","3","4","5","6","7","8","9","10","11","12")
fecha2 = dateserial(year(fecha)-1,month(fecha),day(fecha))'FECHA AÑO ANTERIOR
anio2=year(fecha2)
mes1=month(fecha)
anio1=year(fecha)
'Response.Write(fecha&"-"&anio&"
")
'Response.Write(fecha2&"-"&anio2)
Response.Write(""&anio2&" "&anio&"
| ")
codigo=mes1
%>
<%
Dim conexion ' Objeto Connection
Dim cs ' Connection String
Dim pathBD ' Path de la base de datos
' ¿Donde esta la base de datos?
pathBD = Server.MapPath("../../bbdd/Noticias.mdb")
' Creamos un objeto Connection
Set conexion = Server.CreateObject("ADODB.Connection")
' Definimos el ConnectionString con una variable auxiliar (cs)
' Indicamos que utilizamos MS Access (DRIVER=...), y donde está
' la base de datos (DBQ=...)
cs = "DRIVER={Microsoft Access Driver (*.mdb)};"
cs = cs & "DBQ=" & pathBD
' Le damos el ConnectionString al objeto de conexión
conexion.ConnectionString = cs
' Abrimos la conexión
conexion.open
%>
<%
' Declaramos más variables
Dim comando ' Un objeto Command
Dim rs ' Un objeto RecordSet
' Creamos un objeto Command
Set comando = Server.CreateObject("ADODB.Command")
' Asociamos el comando a "conexion"
comando.ActiveConnection = conexion
' Asociamos la sentencia SQL al comando
' Ejecutamos la sentencia SQL y depositamos los resultados en
' el RecordSet rs
' Escribimos los datos...
%>
<%
cont=1
for i=0 to 11
if cont = 1 then
response.write("")
else
end if
response.write("| ")
sql="SELECT * FROM TB_NOTICIAS WHERE Mes="&mes(i)& "AND Anyo="&anio
comando.CommandText = sql
set rs = comando.Execute
if rs.EOF then
Response.Write(""&meses(i)&"")'MESES SIN NOTICIAS
else
codigo=Request.Querystring("codigo")
mes1=month(fecha)
if codigo=mes(i) or mes(i)=mes1 then
Response.Write(""&meses(i)&"")'MESES CON NOTICIAS
else
Response.Write(""&meses(i)&"")'MESES sin NOTICIAS
End if
End if
response.write(" | ")
cont = cont + 1
if cont > 4 then
response.write(" ")
cont = 1
end if
Next
%>
|
<%
codigo=Request.Querystring("codigo")
anio=Request.Querystring("anio")
if codigo ="" and anio ="" then 'MES EN EL QUE ESTAMOS ACTUALMENTE CON NOTICIA
sql1="SELECT * FROM TB_NOTICIAS WHERE Mes="&mes1&" AND Anyo="&anio1
comando.CommandText = sql1
set rs1 = comando.Execute
IF rs1.EOF then
'MES EN EL QUE ESTAMOS ACTUALMENTE sin NOTICIA
else'MES EN EL QUE ESTAMOS ACTUALMENTE CON NOTICIA
Response.Write(""&meses(mes1-1)&"
")
while not rs1.EOF
Response.Write(""&rs1("Titulo")&" "&rs1("Dia")&"/"&rs1("Mes")&"/"&rs1("Anyo")&"
")
Response.Write(rs1("Resumen")&" Ver detalles
")
rs1.MoveNext
wend
End if
else
sql1="SELECT * FROM TB_NOTICIAS WHERE Mes="&codigo&" AND Anyo="&anio
comando.CommandText = sql1
set rs1 = comando.Execute
Response.Write(""&meses(codigo-1)&"
")
while not rs1.EOF
Response.Write(""&rs1("Titulo")&" "&rs1("Dia")&"/"&rs1("Mes")&"/"&rs1("Anyo")&"
")
Response.Write(rs1("Resumen")&" Ver detalles
")
rs1.MoveNext
wend
End if
%> |
|
|
