Conselho convoca a 3a Conferência Nacional do Esporte
A 3a Conferência Nacional do Esporte, em 2010, foi convocada pelo Ministro do Esporte, Orlando Silva, durante reunião do Conselho Nacional do Esporte na última quinta-feira (10). Com o slogan "Por um time chamado Brasil", o evento tem como objetivo a construção do Plano Decenal do Esporte, estabelecendo linhas estratégicas, ações, metas, compromissos e responsáveis para o desenvolvimento do esporte para os
próximos dez anos.
Todo o trabalho terá duração de cinco meses e culminará na etapa nacional, nos dias 3 a 6 junho de 2010, em Brasília. As etapas municipais acontecem de fevereiro a abril e as etapas estaduais e do Distrito Federal, de março a maio. Ambas as fases serão compostas por mesas de debates e grupos temáticos para garantir as propostas a serem deliberadas na Conferência Nacional.
A perspectiva é que aconteçam 350 etapas municipais e regionais, com metade dos municípios brasileiros envolvidos. Os 26 estados e o Distrito Federal participaram das etapas estaduais. A expectativa é de reunir 1,2 mil pessoas, entre delegados eleitos, natos e convidados. Estima-se a participação de 100 mil pessoas em todos os processos
A Comissão Organizadora Nacional da Conferência tem a participação direta de 23 entidades, representantes dos setores da sociedade que têm relação ou interesse pelo esporte. Serão delegados da etapa nacional: os eleitos nas etapas estaduais e os delegados natos.
Trata-se de um plano da sociedade e do governo federal para concretizar as políticas sociais do esporte, discutidas e definidas junto à população. O Plano Decenal é a materialização necessária das conquistas nesse setor e a garantia do caminho a ser trilhado por essas conquistas.
Fornecer forma e concretude à Política Nacional de Esporte, com seus princípios, suas diretrizes, bem como os eixos estruturantes da II Conferência, são os principais objetivos da III Conferência Nacional do Esporte. A idéia é aprovar os rumos para o desenvolvimento do Esporte e do lazer para os próximos 10 anos, colocando o Brasil entre as dez potências esportivas do mundo.
Fonte: Em Questão
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "www.contee.org.br" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.contee.org.br", 1) = 0 Then strBody = "" strBody = strBody & "O link abaixo é uma sugestão de leitura: Conselho convoca a 3a Conferência Nacional do Esporte" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc996.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Conselho convoca a 3a Conferência Nacional do Esporte" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Conselho convoca a 3a Conferência Nacional do Esporte" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc996.asp" & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Foi encontrado erro no preenchimento. Por favor confira os dados:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %> <% '
The Message to be sent:
'Subject: < %= strSubject % >
'Body: < %= strBody % >
End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>Sua mensagem foi enviada com sucesso. <% End Sub %>