Trabalhando com símbolos
Trabalhando com mapas
Encontrando as direções
Direções cardeais e alfabetização cartográfica
 
Ciências : Como trabalhar a educação sexual com as crianças?

História: televisão e cotidiano da criança.

Continue a História: estimule seus alunos a se tornarem escritores.





<%end if end if%>
<% ' Variáveis de execução do bano de dados Dim RS Dim RS2 Dim SQLStmt ' Variáveis relacionadas aos dados do visitante Dim nome, email, cidade, uf, escola, opiniao Dim OK Set rst_Forum = Server.CreateObject("ADODB.Recordset") ' vamos então buscar as mensagens em Base de Dados ordenadas por data sql = sql & " Select * from Forum where " Dim dia, mes, ano, sql ano=Year(Date) mes=Month(Date) dia=Day(Date) Session.LCID=1033 '--USA sql = sql & " FOR_DataInicio <= #" & DateSerial(ano,mes,dia) & "# and FOR_DataFim >= #" & DateSerial(ano,mes,dia) & "# " ' if request("grupo")<>"" then ' sql = sql & " and FOR_Grupo = '" & request("grupo") & "'" 'end if sql = sql & " and FOR_Grupo = 'GE'" Session.LCID=1046 '--Brasil 'Mostra "sql",sql set rst_Forum = Server.CreateObject("ADODB.Recordset") rst_Forum.open sql,Conexao,3 numReg = rst_Forum.RecordCount if numReg > 0 then 'response.write "NumRegs: " & numReg & "
" if not rst_Forum.eof then forum = rst_Forum("FOR_RowID") titforum = rst_Forum("FOR_Titulo") descforum = rst_Forum("FOR_Descricao") else forum = "" titforum = "" descforum = "" end if ' Os valores das variáveis são zerados nome = "" email = "" cidade = "" uf = "" escola = "" opiniao = "" %>
<% strFullPath = request.serverVariables("PATH_TRANSLATED") pag = Mid(strFullPath,InStrRev(strFullPath,"\")+1) %>

<%=titforum%>

<%=descforum%>


Nome:
Email:
Cidade:
UF:
Escola:
Opinião:

Seu formulário está Pronto ?
Então clique para
     Quer recomeçar ?
Então clique para

<% sql = "SELECT * from RespForum where RFO_Forum_DR = " & forum if request("ordena")<>"" then sql = sql & " order by "& request("ordena") else sql = sql & " order by RFO_DataHora DESC" end if 'response.write sql set rst_RespForum = Server.CreateObject("ADODB.Recordset") rst_RespForum.open sql,Conexao,3 numReg = rst_RespForum.RecordCount 'response.write "NumRegs: " & numReg & "
" if numReg > 0 then %>

Ordenação: Nome Escola Data

<% Do While Not rst_RespForum.EOF %> <%rst_RespForum.MoveNext Loop rst_RespForum.close%>
Enviado em: <%=rst_RespForum("RFO_DataHora")%>
Escola: <%=rst_RespForum("RFO_Escola")%> (<%=rst_RespForum("RFO_Cidade") & " - " & rst_RespForum("RFO_UF")%>)
Por: " class="pequeno"><%=rst_RespForum("RFO_Nome")%>
Opinião: <%=rst_RespForum("RFO_Opiniao")%>

 

Como tornar as aulas de geografia mais dinâmicas permitindo maior participação dos alunos?


Aparecida Junqueira, Nilópolis-RJ?

Confira a resposta
Envie a sua dúvida
 
 
Depois dos ataques terroristas de 11 de setembro, a guerra tornou-se constatnte nos noticiários.

Como as crianças têm participado das guerras?

E as crianças do Brasil, o que sabem dela?

Debata com as autoras!