<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' CONFIGURAÇÃO DO LAYOUT '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function header() %> Fórum de Mensagens F.ó.r.u.m d.e. m.s.g.s.

<% end function function footer() %> <% end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' a = request("acao") post = request("post") db = Server.MapPath("forum.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%>ao Fórum, <%=request.cookies("usuario")%><%else%>ao Fórum<%end if%>! Abaixo estão as <%=nmsgs%> mensagens postadas pela galera. Utilize o forum para tirar duvidas relacionadas aos serviços pretados pelo site. Sempre lembrando que as mensagens mais novas vem primeiro!

Postar Uma Nova Mensagem
Voltar ao Site

<%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 %>

<% elseif a = "msg" then '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' CRIAR A PÁGINA COM A MENSAGEM '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' id = request("id") set m = con.execute("SELECT * FROM forum WHERE id = "&id) if m("idres") <> "0" OR m("idres") <> 0 then refer = "s" refid = m("idres") set mr = con.execute("SELECT * FROM forum WHERE idres = "&refid&" AND id <> "&m("id")&" ORDER BY id ASC") set ref = con.execute("SELECT * FROM forum WHERE id ="&refid) else refer = "n" set mr = con.execute("SELECT * FROM forum WHERE idres = "&id&" ORDER BY id ASC") end if msg_com_linhas = replace(m("msg"),vbcrlf,"
") header() %>
<%=m("assunto")%> - <%=data("compacto",m("data"))%>
<%if refer = "s" then%>
Em resposta à "><%=ref("assunto")%>, postada por <%=ref("nome")%><%end if%>
<%=msg_com_linhas%>

<%if refer="s" then%>Outras <%end if%>Respostas - <%=ref("id")%><%else%><%=m("id")%><%end if%>">Postar Uma Resposta <% if mr.eof then %>
<%if refer="s" then%>Além desta, não tem nenhuma outra<%else%>Não tem nenhuma<%end if%> resposta pra essa mensagem. <%=ref("id")%><%else%><%=m("id")%><%end if%>">Poste uma você! <% else %>
<% x = 0 Do While not mr.eof x = x + 1 %> R<%=x%>: "><%=mr("assunto")%> (<%=mr("nome")%> - <%=data("compacto",mr("data"))%>)
<% mr.movenext loop end if %>

 

Voltar às Mensagens  |  Postar uma Nova Mensagem

<% elseif a = "postar" then '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' CRIAR A PÁGINA COM O FORMULÁRIO DE POSTAGEM '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' oid = request("idres") if oid <> "" then set res = con.execute("SELECT * FROM forum WHERE id ="&oid) assunto = res("assunto") resid = oid else assunto = "" resid = 0 end if header() %>
Preencha o formulário abaixo e poste uma mensagem no fórum. Os campos
marcados com X são obrigatórios.

Nome (X):
">

E-Mail:
">

Endereço da Homepage (com http://):
">

Assunto da Mensagem (X):

Sua Mensagem (X):

  

<% elseif a = "postar2" then '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' INSERIR A MENSAGEM NO BANCO DE DADOS '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function campo(c) if request.form(c) = "" then %> <% end if end function campo("nome") campo("assunto") campo("msg") function n(cam) if request.form(cam) = "" then n = "n" else n = request.form(cam) end if end function response.cookies("usuario") = request.form("nome") response.cookies("usuario").expires = Date() + 365 response.cookies("usuario_email") = request.form("email") response.cookies("usuario_email").expires = Date() + 365 response.cookies("usuario_hp") = request.form("hp") response.cookies("usuario_hp").expires = Date() + 365 con.Execute "INSERT INTO forum (nome, email, hp, assunto, msg, idres, data) VALUES ('"&n("nome")&"', '"&n("email")&"', '"&n("hp")&"', '"&n("assunto")&"', '"&n("msg")&"', "&n("idres")&",'"&Date()&"')" %> <% else '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' CRIAR PÁGINA DE ERRO, SE OCORRER ALGUM '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' msg = request("msg") header() %> <%=msg%>

Voltar

<% end if 'da açao footer() function data(tipo,dt) ano = Year(dt) mes = Month(dt) dia = Day(dt) select case mes case 1 mes2 = "Janeiro" case 2 mes2 = "Fevereiro" case 3 mes2 = "Março" case 4 mes2 = "Abril" case 5 mes2 = "Maio" case 6 mes2 = "Junho" case 7 mes2 = "Julho" case 8 mes2 = "Agosto" case 9 mes2 = "Setembro" case 10 mes2 = "Outubro" case 11 mes2 = "Novembro" case 12 mes2 = "Dezembro" end select if mes < 10 then mes = "0"&mes else mes = mes end if response.write dia&" de "&mes2&" de "&ano end function %>