<%
' 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
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 = ""
%>
<%select case request("grupo")
case "GD":
imagem1="discussao_01.gif"
imagem2="discussao_02.gif"
case "PN":
imagem1="nevralgico_01.gif"
imagem2="nevralgico_02.gif"
end select
%>
Seu
espaço de aprender e ensinar,
debatendo questões importantes
para educação
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
%>
