Lateralidade e localização no espaço
Atividades com calendário
Sistemas de numeração



Problema da semana

 
 
Língua Portuguesa: restaurar a oralidade na sala de aula.

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 = 'MA'" 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")%>
 


Devemos estimular a criança a contar nos dedos?


Giovanna Santos, Aquidauana-MS
Confira a resposta
Envie a sua dúvida
 

A resolução de ´problemas´ em matemática.

Eles facilitam ou dificultam o aprendizado?

Como contornar os problemas dos ´problemas´?



Debata com os autoras!