O técnico Mano Menezes terá enormes problemas para montar o time que pega o Fluminense na próxima rodada. Ele não terá três jogadores titulares do setor ofensivo. Tcheco cumprirá a segunda das três partidas de suspensão impostas pelo STJD, Diego Souza foi expulso contra o Paraná e Carlos Eduardo recebeu o terceiro cartão amarelo, sem contar que será vendido para o Hoffenheim, da Alemanha, nos próximos dias.

Comunidade:http://www.orkut.com/Community.aspx?cmm=24331604&refresh=1
_________________________________________________

Jogo legal de futebol>


Clique para Jogar!

SEMPRE GRÊMIO!!!








<% @ language="Vbscript" %>
<%
"#########################################################
"# #
"# Delas.it news system, a system of news #
"# where every news can be commented. #
"# This is a free code and you can use it as you want #
"# but i enjoy if you want say me that you use it. #
"# P.S.: sorry for my english... i"m italian! #
"# #
"# http://www.delas.it delas@delas.it #
"# #
"# Soon the second relase with many more features... #
"#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~#
"# #
"# These are the variables that must be modificated: #
"# #
"#########################################################

strURLdb = "db/database.mdb" "Enter here the url of the database
RecPerPag = 5 "Enter here the number of news printed per page
strNoComm = "There aren"t comments for this news." "The message if there aren"t comments for the news
strNoNews = "There aren"t record in the database." "The message if there aren"t news in the database
strMainTitle = "These are all the news from the datbase." "The title of the main page

"#########################################################
"# Dont"t modify the code under here! #
"# all right reserved, Delas.it #
"#########################################################
"#########################################################
%>

<% strAction = request("action")
iIDNews = request("id")
iIdNewsRif = request("idrif")
if strAction = "sendcomment" then
strName = Request("name")
strText = Request("text")
end if
if strAction = "sendnews" then
strName = Request("name")
strText = Request("text")
strTitle = Request("title")
end if %>

<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(strURLdb)

"Recordset for all news
set objNews=server.createobject("adodb.recordset")
sql="select * from news order by news.id desc"
objNews.open sql,conn,3,3

"Recordset for the news details
if strAction="detail" then
set objNewsDett=server.createobject("adodb.recordset")
sql="select * from news where id="& iIDNews &""
objNewsDett.open sql,conn,3,3
end if

"Recordset for the news comments
if strAction="detail" then
set objNewsComm=server.createobject("adodb.recordset")
sql="select * from comments where idrif="& iIDNews &" order by comments.id desc"
objNewsComm.open sql,conn,3,3
end if

"Recordset for add a new comment
if strAction="sendcomment" then
set objAddComm=server.createobject("adodb.recordset")
sql="select * from comments where idrif="& iIdNewsRif &""
objAddComm.open sql,conn,3,3

objAddComm.AddNew
objAddComm("author") = strName
objAddComm("text") = strText
objAddComm("idrif") = iIdNewsRif
objAddComm("date") = Now()
objAddComm.Update
end if

"Recordset for add a new news
if strAction="sendnews" then
set objAddNews=server.createobject("adodb.recordset")
sql="select * from news"
objAddNews.open sql,conn,3,3

objAddNews.AddNew
objAddNews("author") = strName
objAddNews("title") = strTitle
objAddNews("text") = strText
objAddNews("date") = Now()
objAddNews.Update
end if
%>

<% if strAction = "detail" then
response.write ""
elseif strAction = "postcomment" then
response.write ""
elseif strAction = "postnews" then
response.write ""
else
response.write ""
end if %>




<% if (strAction="") or (strAction="home") then %>