Poderá haver algum atraso nas respostas das perguntas do Fórum em virtude do autor estar ausente do país num encontro de Especialistas em DTM e Desordens do Sono (Ronco e Apneia)
<%if cod_topico<>"" then%>
<%end if 'menu topico%>
<%
if acao="inicial" OR acao="" then
set rs=conexao.execute("SELECT cod_topico, titulo, visualizacoes FROM topicos_forum ORDER BY titulo ASC")
if rs.eof=false then
%>
| Título do Tópico |
Visualizações |
Perguntas |
|
<%
rs.movefirst
while (not rs.eof)
%>
| &titulo=<%=rs("titulo")%>"><%=rs("titulo")%> |
<%=rs("visualizacoes")%> |
<%
set rs1=conexao.execute("SELECT COUNT(cod_pergunta) AS total FROM perguntas_forum WHERE cod_topico="&rs("cod_topico")&" ")
if rs1.eof=false then
response.Write(rs1("total"))
rs1.close()
set rs1=nothing
end if
%> |
|
<% rs.movenext
wend
rs.close
end if
set rs=nothing
elseif acao="ver_topico" AND cod_topico<>"" then
%>
<%
set rs=conexao.execute("SELECT visualizacoes FROM topicos_forum WHERE cod_topico="&cod_topico&"")
dim visualizacoes
visualizacoes=rs("visualizacoes")+1
rs.close
set rs=nothing
conexao.execute("UPDATE topicos_forum SET visualizacoes="&visualizacoes&" WHERE cod_topico="&cod_topico&"")
if subacao="" then
set rs=conexao.execute("SELECT * FROM perguntas_forum WHERE cod_topico="&cod_topico&" AND situacao='sim' ORDER BY cod_pergunta DESC")
if rs.eof then
response.Write("Não existem perguntas cadastradas,
faça aqui uma pergunta")
else
rs.movefirst
while (not rs.eof)
%>
| <%=rs("data")%> |
Nome: <%=rs("nome")%>
Pergunta:
<%
if rs("descricao")<>"" then
descricao=replace(rs("descricao"),chr(13),"
")
descricao=replace(rs("descricao"),chr(10),"
")
response.Write(descricao)
end if
%> |
<%
if rs("resposta")<>"" then
%>
Resposta:
<%
response.Write(rs("data_resposta")&" - "&rs("resposta"))
%> |
<%
end if%>
<%
rs.movenext
wend
rs.close
end if'sql
set rs=nothing
elseif subacao="inserir_pergunta" then
%>
<%
end if 'subacao inserir pergunta%>
<%
end if'acao inicial
%>
