Deixe aqui seu recado, lembrando-se que você:"
| Pode colocar mensagens novas. Pode responder as mensagens. |
Não pode editar as suas mensagens. Não pode remover as suas mensagens. |
| Pode colocar mensagens novas. Pode responder as mensagens. |
Não pode editar as suas mensagens. Não pode remover as suas mensagens. |
<% end function function footer() %> <% end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' a = request("acao") post = request("post") db = Server.MapPath("../dados/forum5.mdb") Set con = Server.CreateObject( "adodb.Connection" ) con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";" if a = "" OR a = "mostrar" then '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' PÁGINA INICIAL DO FÓRUM, COM TODAS AS MENSAGENS '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' set frs = server.createobject("adodb.recordset") frs.open "SELECT * FROM forum", con, 1, 3 nmsgs = frs.recordcount set f = con.execute("SELECT * FROM forum ORDER BY id DESC") header() %> <%if post <> "" AND Session("postforum") = "" then Session("postforum") = "sim"%> <%end if%> Seja bem-vindo <%if request.cookies("usuario") <> "" then%>de volta ao Fórum, <%=request.cookies("usuario")%><%else%>ao Fórum<%end if%>! Abaixo estão as <%=nmsgs%> mensagens postadas. Sempre lembrando que as mensagens mais novas vêm primeiro!
<%Do While not f.eof
if f("idres") = "0" OR f("idres") = 0 OR IsNull(f("idres")) OR f("idres") = "" OR f("idres") = " " then
set r = con.execute("SELECT * FROM forum WHERE idres = "&f("id")&" ORDER BY id ASC")
%>
• P: "><%=f("assunto")%> (<%=f("nome")%> - <%=data("compacto",f("data"))%>)
<%
x = 0
Do While not r.eof 'Respostas
x = x + 1
%>
• R<%=x%>: "><%=r("assunto")%> (<%=r("nome")%> - <%=data("compacto",r("data"))%>)
<%
r.movenext
loop%>
<%
end if 'Checagem se é resposta ou não
f.movenext
loop
%>
|
<%=m("assunto")%> - <%=data("compacto",m("data"))%> Postada por <%=m("nome")%><%if m("email") <> "n" then%>, ">mande um e-mail<%end if%><%if m("hp") <> "n" then%> ou " target="_blank">veja a hp<%end if%> <%if refer = "s" then%> Em resposta à "><%=ref("assunto")%>, postada por <%=ref("nome")%><%end if%>
<%if refer="s" then%>Outras <%end if%>Respostas - <%=ref("id")%><%else%><%=m("id")%><%end if%>">Postar Uma Resposta
<%
if mr.eof then
%>
|