<%if session("USER")<>"joaoalberto@pc" and session("USER")<>"pedromatos@AM098" and session("FUNCTION")<>"Marketing" then response.Redirect("main.asp")%> <% Function GraficNews() for mes=0 to 5 newsMonth = dateAdd("m",-5+mes,date()) 'response.Write fuelMonth&"<---" response.Write "['"&MonthName(month(newsMonth),true)&"'," sSql = "SELECT ID FROM EVENTOS WHERE MONTH(DATA)="&month(newsMonth)&" AND YEAR(DATA)="&year(newsMonth)&"" Set rs = Conn.Execute(sSql) if rs.EOF and rs.BOF then response.Write " 0," else sSql = "SELECT COUNT(*) AS NumberOfNews FROM EVENTOS WHERE MONTH(DATA)="&month(newsMonth)&" AND YEAR(DATA)="&year(newsMonth)&"" Set rs = Conn.Execute(sSql) if rs("NumberOfNews")="" then response.Write " 0," else response.Write rs("NumberOfNews")&"," end if response.Write "'']," next End function Function NewsList() newsDate=dateadd("m",-6,date()) sSql = "SELECT * FROM EVENTOS WHERE DATA>#"&month(newsDate)&"-"&day(newsDate)&"-"&year(newsDate)&"# ORDER BY DATA DESC"' Set rs = Conn.Execute(sSql) response.Write "

" response.Write "

" response.Write "Data" response.Write "

" response.Write "

" response.Write "Titulo" response.Write "

" response.Write "

" while not rs.eof response.Write "" response.Write "

" response.Write "

" response.Write rs("DATA") response.Write "

" response.Write "

" response.Write rs("TITULO") response.Write "

" response.Write "

" response.Write "" response.Write "

" response.Write "

" response.Write "" response.Write "

" rs.movenext wend End function if request.form("TITLE")<>"" then sSql = "SELECT ID FROM EVENTOS ORDER BY DATA DESC" Set rs = Conn.Execute(sSql) idNew=rs("ID")+1 sSql = "INSERT INTO EVENTOS (ID, TITULO, DATA) VALUES ("&idNew&", '"&request.form("TITLE")&"', '"&now()&"')" Set rs = Conn.Execute(sSql) 'response.Write sSql objFSO.createfolder(Server.MapPath("\eventos")&"\"&idNew) response.Redirect("main.asp?pag=news-edit.asp&id="&idNew&"") end if sSql = "DELETE FROM EVENTOS WHERE ID=177" Set rs = Conn.Execute(sSql) Set objFolder = objFSO.GetFolder(Server.MapPath("\eventos")&"\177") objFolder.delete %>

<%=NewsList()%>

Adicionar Notícia