ANPG: Ato de posse da nova diretoria é terça, 25
A posse da nova diretoria da ANPG, eleita durante o XXII Congresso Nacional de Pós-Graduandos, de 15 a 18 de abril de 2010, no Rio de Janeiro, acontecerá em Brasília, no próximo dia 25, terça-feira, às 10h.
Para a nova presidente da entidade, Elisangela Lizardo, a ANPG tem que “reafirmar o compromisso da entidade na defesa de um Brasil soberano, no reconhecimento da Ciência e Tecnologia como setores estratégicos para o país e na defesa dos direitos dos pós-graduandos”.
Na segunda-feira, 24, acontece também a 1ª reunião da nova diretoria, e a pauta é o Planejamento da Gestão, de acordo com as diretrizes do 22º Congresso da ANPG. Um dos objetivos é tratar dos preparativos para o 2º Salão Nacional de Divulgação Científica, organizado em conjunto com a União Nacional dos Estudantes (UNE), União Brasileira dos Estudantes Secundaristas (UBES) e Comissão Nacional do PET (CENAPET). Esta importante atividade ocorre durante a 62ª Reunião Anual da SBPC, de 25 a 30 de julho de 2010, em Natal, capital do Rio Grande do Norte.
Caravana pelos Direitos dos pós-graduandos
No dia 25, além da posse, ocorrerão as atividades da 2ª Caravana da ANPG a Brasília –pelos Direitos dos pós-graduandos. A atividade será marcada por duas audiências em que os pós-graduandos apresentarão suas pautas: no período da manhã os diretores da ANPG se reúnem com o presidente da CAPES, professor Jorge Guimarães. No fim da tarde, a audiência é com o Ministro da Ciência e Tecnologia, Sérgio Rezende.
Após a posse, a ANPG participa das atividades da 4ª Conferência Nacional de Ciência, Tecnologia e Inovação (CNCTI), que ocorre em Brasília entre 26 e 28 de maio. Durante a 4ª CNCTI, ocorre a etapa nacional da Caravana da ANPG de Ciência, Tecnologia e Inovação, que tem atividades previstas nesta quinta-feira (20/5) em Porto Alegre (RS) e Belém (PA). Na sexta, ocorre a etapa Centro-Oeste da Caravana de CTeI da ANPG , em Goiânia (GO).
Confira a programação completa:
24/5 (segunda-feira)
14h – 1ª Reunião da Diretoria Plena da ANPG
25/5 (terça-feira)
8h30 – Audiência com o Presidente da CAPES, professor Jorge Guimarães – 2ª Caravana da ANPG pelos Direitos dos Pós-Graduandos
10h – ATO DE POSSE DA DIRETORIA DA ANPG – Gestão 2010/2012
Local: Câmara dos Deputados – Anexo II – Plenário 14
14h – 1ª Reunião da Diretoria Plena da ANPG (continuidade)
17h – Audiência com o Ministro da Ciência e Tecnologia, Sérgio Rezende – 2ª Caravana da ANPG pelos Direitos dos Pós-Graduandos
26 a 28/5 (quarta a sexta):
4ª Conferência Nacional de Ciência, Tecnologia e Inovação (CNCTI)
Local: Complexo de eventos do hotel Golden Tulip Brasília Alvorada, antigo Blue Tree Towers
Dia 28/5 (sexta-feira):
13h - Debate “A Universidade Brasileira, a Pós-Graduação e a Pesquisa” na 4ª CNCTI – Etapa Nacional da Caravana de Ciência, Tecnologia e Inovação da ANPG
Fonte: ANPG
<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & 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: ANPG: Ato de posse da nova diretoria é terça, 25" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1603.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: ANPG: Ato de posse da nova diretoria é terça, 25" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: ANPG: Ato de posse da nova diretoria é terça, 25" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1603.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 %>