<% 'Grava data de acesso response.cookies("forum")("data") = now() response.cookies("forum").expires = date() + 365 'Verifica a data da última visita if request.cookies("forum")("data") = "" then ultimavisita = "-" else ultimavisita = request.cookies("forum")("data") end if %> <%=config_titulo%> <% 'SELECIONA TODOS OS FÓRUNS SQL = "SELECT codf,nomef FROM tforum order by nomef asc" Set rs = db.execute(SQL) 'ÚLTIMO USUÁRIO CADASTRADO SQL7 = "SELECT loginu FROM tusuario order by codu DESC" Set rs7 = db.execute(SQL7) 'TOTAL DE MENSAGENS SQL8 = "SELECT COUNT(*) as mensagens FROM ttopico" Set rs8 = db.execute(SQL8) 'TOTAL DE USUÁRIOS CADASTRADOS SQL9 = "SELECT COUNT(*) as usuarios FROM tusuario" Set rs9 = db.execute(SQL9) %>

 

Sua última visita - <%=ultimavisita%> Total de Tópicos : <%=rs8("mensagens")%> | Total de Usuários cadastrados : <%=rs9("usuarios")%>
<% do while not rs.eof %> <% codf = rs("codf") nomef = rs("nomef") 'SELECIONA TODOS OS SUBFORUNS SQL1 = "SELECT codsf,nomesf,descrsf FROM tsubforum WHERE codf = "&codf&"" set rs1 = db.execute(SQL1) do while not rs1.eof codsf = rs1("codsf") nomesf = rs1("nomesf") descrsf = rs1("descrsf") 'SELECIONA TOTAL DE TÓPICOS EM CADA SUBFORUM SQL2 = "SELECT COUNT(*) as total FROM ttopico WHERE codsf = "&codsf&"" set rs2 = db.execute(SQL2) 'SELECIONA A DATA DE ÚLTIMA POSTAGEM NO FÓRUM SQL3 = "SELECT datat,codu FROM ttopico WHERE codsf = "&codsf&" order by codt desc" set rs3 = db.execute(SQL3) if not rs3.eof then datat = rs3("datat") codu = rs3("codu") 'SELECIONA O LOGIN E DATA DO ÚLTIMO USUÁRIO QUE POSTOU NO SUBFÓRUM SQL4 = "SELECT loginu,codu FROM tusuario WHERE codu = "&codu&"" Set rs4 = db.execute(SQL4) msgrecentes = datat &"
"& rs4("loginu") 'VERIFICA SE EXISTEM MENSAGENS DPS DO ÚLTIMO ACESSO if datat > request.cookies("forumnow")("data") then icone = "imagens/icon_folder_new.gif" else icone = "imagens/icon_folder.gif" end if else msgrecentes = "-" icone = "imagens/icon_folder.gif" end if 'SELECIONA OS MODERADORES SQL5 = "SELECT codu FROM tpermissao WHERE codsf = "&codsf&" and codn = 1" Set rs5 = db.execute(SQL5) if not rs5.eof then do while not rs5.eof 'SELECIONA SOMENTE O LOGIN DO MODERADOR SQL6 = "SELECT loginu FROM tusuario WHERE codu = "&rs5("codu")&"" Set rs6 = db.execute(SQL6) if not rs6.eof then moderador = rs6("loginu")&", "&moderador end if rs5.movenext loop cont_mod = len(moderador) moderador = left(moderador,cont_mod-2) 'Retira a ultima virgula else moderador = "Nenhum" end if %> <% moderador = "" rs1.movenext loop rs.movenext loop %>
 <%=rs("nomef")%>
 <%=nomesf%>
<%=descrsf%>
 <%=rs2("total")%>  <%=msgrecentes%>  <%=moderador%>

 Último membro cadastrado: "><%=rs7("loginu")%>
 Contém novas mensagens desde sua última visita.
 Nenhuma nova mensagem desde a sua última visita.