<% Set strConn = Server.CreateObject("ADODB.Connection") strConn.Open "DRIVER={SQL Server};SERVER=193.169.170.181;Database=NOTICIAS;Uid=sa" valormes = request.QueryString("valormes") fecha_actual = date mes_actual= Month(fecha_actual) anho_actual= Year(fecha_actual) response.write(anho_actual) sql="Select * From noticias WHERE MONTH(fecha)='"&mes_actual&"' and YEAR(fecha)='"&anho_actual&"' ORDER BY fecha desc" sql1="Select * From noticias WHERE MONTH(fecha)='"&valormes&"' and YEAR(fecha)='"&anho_actual&"' ORDER BY fecha desc" if valormes="" then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,strConn,3,1 else Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql1,strConn,3,1 end if %> <%Do While Not RS.Eof%> <% fecha=RS("fecha") dia = DAY(fecha) IF MONTH(fecha)="1" then meses = "ENERO" END IF IF MONTH(fecha)="2" then meses = "FEBRERO" END IF IF MONTH(fecha)="3" then meses = "MARZO" END IF IF MONTH(fecha)="4" then meses = "ABRIL" END IF IF MONTH(fecha)="5" then meses = "MAYO" END IF IF MONTH(fecha)="6" then meses = "JUNIO" END IF IF MONTH(fecha)="7" then meses = "JULIO" END IF IF MONTH(fecha)="8" then meses = "AGOSTO" END IF IF MONTH(fecha)="9" then meses = "SEPTIEMBRE" END IF IF MONTH(fecha)="10" then meses = "OCTUBRE" END IF IF MONTH(fecha)="11" then meses = "NOVIEMBRE" END IF IF MONTH(fecha)="12" then meses = "DICIEMBRE" END IF formato_mostrar=FormatDateTime(fecha,1) titulo=RS("titulo") link=RS("link") descripcion=rs("descripcion") sql2="select * from noticias where titulo='"&titulo&"'" Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.Open sql2,strConn,3,1 if rs2.eof then enlace= link else enlace= ""&titulo&"" end if RS2.close %> <% RS.MoveNext Loop %>

|Enero|Febrero|Marzo|Abril|Mayo|Junio|Julio|Agosto|Septiembre|Octubre|Noviembre|Diciembre|

<%response.write(formato_mostrar)%> <%response.write(enlace)%> <% response.Write(descripcion)%>

Subir