<% Response.Charset="UTF-8" id = request.QueryString("id"):if(id="") then id=0 verfotos = request.QueryString("verfotos") abreDB mes=request.QueryString("mes") ano=request.QueryString("ano") if mes = "" then mes = month(date) ano = year(date) end if Set lista = conexaoDB.Execute("SELECT * from noticias WHERE month(data)="&mes&" and year(data)="&ano&" ORDER BY id DESC") Set listaMes = conexaoDB.Execute("SELECT TOP 1 data from noticias ORDER BY data ASC") %> OFICINA G3 - Depois da Guerra

<% do while not lista.eof id = lista("id") texto = lista("texto") titulo = lista("titulo") data = lista("data") album = lista("album") imagem = lista("imagem") %> <%=titulo%> - Data da Postagem: <% =data%>

<% if imagem="" then %> <%else%> <% end if %>

<%=texto%>

<% if album=True AND verfotos<>"s" then %> <% end if %>

<% Set listaComen = conexaoDB.Execute("SELECT id,idBlog from comentarios WHERE idBlog="&id) if listaComen.Eof then %> <% else %> <% end if %>


<% lista.movenext loop %>

<% if month(date)=1 then mes="Janeiro" else if month(date)=2 then mes="Fevereiro" else if month(date)=3 then mes="Março" else if month(date)=4 then mes="Abril" else if month(date)=5 then mes="Maio" else if month(date)=6 then mes="Junho" else if month(date)=7 then mes="Julho" else if month(date)=8 then mes="Agosto" else if month(date)=9 then mes="Setembro" else if month(date)=10 then mes="Outubro" else if month(date)=11 then mes="Novembro" else if month(date)=12 then mes="Dezembro" end if end if end if end if end if end if end if end if end if end if end if end if %>
<%=mes%>/<%=year(date)%>
<% dataM= month(listaMes("data")) dataA= year(listaMes("data")) dataM2= month(date) dataA2= year(date) do while not (dataM=dataM2 and dataA=dataA2) if dataM2=1 then dataM2=13 dataA2=dataA2-1 end if dataM2=dataM2-1 if dataM2=1 then mes="Janeiro" else if dataM2=2 then mes="Fevereiro" else if dataM2=3 then mes="Março" else if dataM2=4 then mes="Abril" else if dataM2=5 then mes="Maio" else if dataM2=6 then mes="Junho" else if dataM2=7 then mes="Julho" else if dataM2=8 then mes="Agosto" else if dataM2=9 then mes="Setembro" else if dataM2=10 then mes="Outubro" else if dataM2=11 then mes="Novembro" else if dataM2=12 then mes="Dezembro" end if end if end if end if end if end if end if end if end if end if end if end if %> <%=mes%>/<%=dataA2%>
<% loop %>