WWW.NPNG.COM.BR
NO PAIN NO GAIN INTERNET BODYBUILDING COMMUNITY


SEJA BEM VINDO AO MAIOR ACERVO DE INFORMAÇÕES
SOBRE FISICULTURISMO E AFINS
NA INTERNET BRASILEIRA!

O NPNG está sendo reformulado, portanto, alguns recursos não estão disponíveis.

PATROCÍNIO: http://www.Abomai.com.br

<% Dim flag, ndate set my_Conn = server.createobject("adodb.connection") my_Conn.open strConn ndate = dateadd("d", -300, now()) SQL = "SELECT ARTIGOS.ARTIGO_ID, ARTIGOS.TITULO, ARTIGOS.ATUALIZACAO, SECAO.SECAO AS DESC_SEC FROM ARTIGOS INNER JOIN " _ & "SECAO ON SECAO.SEC_ID = ARTIGOS.SECAO " _ & "WHERE DATA BETWEEN CONVERT(SMALLDATETIME, '" & ndate & "', 101) AND CONVERT(SMALLDATETIME,'" & now() & "', 101) " _ & "OR ATUALIZACAO BETWEEN CONVERT(SMALLDATETIME, '" & ndate & "', 101) AND CONVERT(SMALLDATETIME,'" & now() & "', 101) " _ & "ORDER BY ARTIGOS.SECAO ASC, ARTIGOS.DATA DESC" 'SQL = "SELECT TOP 10 ARTIGOS.ARTIGO_ID, ARTIGOS.TITULO, ARTIGOS.ATUALIZACAO, SECAO.SECAO AS DESC_SEC FROM ARTIGOS INNER JOIN " _ ' & "SECAO ON SECAO.SEC_ID = ARTIGOS.SECAO " _ ' & "ORDER BY ARTIGOS.SECAO ASC, ARTIGOS.DATA DESC" set rs = my_Conn.execute(sql) if not rs.eof then flag = "" response.Write("

") do until rs.eof if flag <> rs("DESC_SEC") then response.write "
• " & rs("DESC_SEC") & "
  
" & vbcrlf flag = rs("DESC_SEC") end if response.write " " & formatdatetime(rs("ATUALIZACAO"), 2) & vbcrlf & _ "- " & rs("titulo") & "
" & vbcrlf rs.movenext loop response.Write("

") end if 'my_Conn.close 'set my_Conn = nothing %>

<% Response.Write getCurrentIcon(strIconFolderHot,"Hot Topic","align=""absmiddle""") & " " & vbCrLf & _ "Forum..." 'set my_Conn = server.createobject("adodb.connection") 'my_Conn.open strConn ' ndate = dateadd("d", -5, now()) ' SQL = "SELECT T.TOPIC_ID, T.T_SUBJECT, SUBSTRING(T.T_MESSAGE, 1, 100) AS MSG, " & _ ' "T.T_REPLIES, T.T_LAST_POST, C.CAT_NAME, F.F_SUBJECT " & _ ' "FROM [NPNG].[NPNG].[F_CATEGORY] C, [NPNG].[NPNG].[F_TOPICS] T, [NPNG].[NPNG].[F_FORUM] F " & _ ' "WHERE T.CAT_ID = C.CAT_ID " & _ ' "AND T.FORUM_ID = F.FORUM_ID " & _ ' "AND T.CAT_ID = C.CAT_ID " & _ ' "AND t.cat_id = 1 " & _ ' "AND t.t_replies >= 20 " & _ ' "AND T.T_LAST_POST >= " & DateToStr(ndate) & _ ' " ORDER BY F.F_SUBJECT, T.T_LAST_POST DESC " 'response.write sql ' set rs = my_Conn.execute(sql) ' if not rs.eof then ' flag = "" ' response.Write("

") ' do until rs.eof ' if flag <> rs("F_SUBJECT") then ' response.write "
• " & rs("F_SUBJECT") & "
  
" & vbcrlf ' flag = rs("F_SUBJECT") ' end if ' Response.Write getCurrentIcon(strIconFolderHot,"Hot Topic","align=""absmiddle""") & " " & vbCrLf & _ ' " " & rs("T_SUBJECT") & " " & vbCrLf & _ ' StrToDate(rs("T_LAST_POST")) & "
" & _ ' rs.movenext ' loop ' response.Write("

") ' end if 'my_Conn.close 'set my_Conn = nothing %>

<% if strShowStatistics = "1" then WriteStatistics else my_Conn.close set my_Conn = nothing end if sub WriteStatistics Dim Forum_Count Dim NewMember_Name, NewMember_Id, Member_Count Dim LastPostDate, LastPostLink Forum_Count = intForumCount '## Forum_SQL - Get newest membername and id from DB strSql = "SELECT M_NAME, MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS " &_ " WHERE M_STATUS = 1 AND MEMBER_ID > 1 " &_ " ORDER BY MEMBER_ID desc;" set rs = Server.CreateObject("ADODB.Recordset") rs.open TopSQL(strSql,1), my_Conn if not rs.EOF then NewMember_Name = chkString(rs("M_NAME"), "display") NewMember_Id = rs("MEMBER_ID") else NewMember_Name = "" end if rs.close set rs = nothing '## Forum_SQL - Get Active membercount from DB strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_POSTS > 0 AND M_STATUS=1" set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql, my_Conn if not rs.EOF then Member_Count = rs("U_COUNT") else Member_Count = 0 end if rs.close set rs = nothing '## Forum_SQL - Get membercount from DB strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM F_MEMBERS WHERE M_STATUS=1" set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql, my_Conn if not rs.EOF then User_Count = rs("U_COUNT") else User_Count = 0 end if rs.close set rs = nothing LastPostDate = "" LastPostLink = "" LastPostAuthorLink = "" if not (intLastPostForum_ID = "") then ForumTopicReplies = intTopicReplies ForumLastPostTopicID = intLastPostTopic_ID ForumLastPostReplyID = intLastPostReply_ID LastPostDate = ChkDate(strLastPostDate,"",true) LastPostLink = DoLastPostLink(false) LastPostAuthorLink = " by: " & profileLink(chkString(strLastPostMember_Name,"display"),intLastPostMember_ID) & "" end if ActiveTopicCount = -1 if not IsNull(Session(strCookieURL & "last_here_date")) then if not blnHiddenForums then '## Forum_SQL - Get ActiveTopicCount from DB strSql = "SELECT COUNT(" & strTablePrefix & "TOPICS.T_LAST_POST) AS NUM_ACTIVE " &_ " FROM " & strTablePrefix & "TOPICS " &_ " WHERE (((" & strTablePrefix & "TOPICS.T_LAST_POST)>'"& Session(strCookieURL & "last_here_date") & "'))" &_ " AND " & strTablePrefix & "TOPICS.T_STATUS <= 1" set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql, my_Conn if not rs.EOF then ActiveTopicCount = rs("NUM_ACTIVE") else ActiveTopicCount = 0 end if rs.close set rs = nothing end if end if ArchivedPostCount = 0 ArchivedTopicCount = 0 if not blnHiddenForums and strArchiveState = "1" then '## Forum_SQL strSql = "SELECT P_A_COUNT, T_A_COUNT FROM " & strTablePrefix & "TOTALS" set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql, my_Conn if not rs.EOF then ArchivedPostCount = rs("P_A_COUNT") ArchivedTopicCount = rs("T_A_COUNT") else ArchivedPostCount = 0 ArchivedTopicCount = 0 end if rs.Close set rs = nothing end if 'ShowLastHere = (cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1)) > 0) if ShowLastHere then response.write "You last visited on " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & "
" end if if intPostCount > 0 then if Member_Count = 1 and User_Count = 1 then Response.Write "1 Member has " else Response.Write Member_Count & " of " & User_Count & " Members have " end if Response.Write " made " if intPostCount = 1 then Response.Write "1 post " else Response.Write intPostCount & " posts" end if Response.Write " in " if intForumCount = 1 then Response.Write "1 forum" else Response.Write intForumCount & " forums" end if if (LastPostDate = "" or LastPostLink = "" or intPostCount = 0) then Response.Write "." else Response.Write ", with the last post on " & LastPostLink & LastPostDate & "" if LastPostAuthorLink <> "" then Response.Write LastPostAuthorLink & "." else Response.Write "." end if end if end if if intTopicCount = 1 then Response.Write "is " else Response.Write "are " end if Response.Write " currently " if intTopicCount > 0 then Response.Write intTopicCount else Response.Write "no" end if if intTopicCount = 1 then Response.Write " topic" else Response.Write " topics" end if if ActiveTopicCount > 0 then Response.Write " and " & ActiveTopicCount & " active " if ActiveTopicCount = 1 then Response.Write "topic" else Response.Write "topics" end if Response.Write " since you last visited." elseif blnHiddenForums and (strLastPostDate > Session(strCookieURL & "last_here_date")) and ShowLastHere then Response.Write " and there are active topics since you last visited." elseif not(ShowLastHere) then Response.Write "." else Response.Write " and no active topics since you last visited." end if if ArchivedPostCount > 0 and strArchiveState = "1" then Response.Write("There ") if ArchivedPostCount = 1 then Response.Write "is " else Response.Write "are " end if Response.Write ArchivedPostCount & " " if ArchivedPostCount = 1 then Response.Write " archived post " else Response.Write " archived posts" end if if ArchivedTopicCount > 0 then Response.Write " in " & ArchivedTopicCount if ArchivedTopicCount = 1 then Response.Write " archived topic" else Response.Write " archived topics" end if end if end if if NewMember_Name <> "" then Response.Write "
Please welcome our newest member: " & _ "" & profileLink(NewMember_Name,NewMember_Id) & "." & vbNewline end if my_Conn.close set my_Conn = nothing end sub %>

O 'No Pain No Gain' incentiva o uso de suplementos alimentares ou de qualquer medicamento. Antes de praticar qualquer atividade física procure orientação profissional. As mensagens postadas no fórum são de inteira responsabilidade de quem as redigiu. Não podemos controlar o conteúdo do que está sendo discutido por impossibilidade física, são centenas de postagens por dia. Nenhuma orientação recebida por outros usuários ou moderadores substitui a orientação de um profissional, que sempre deverá ser consultado, seja nutricionista, personal trainer, endocrinologista, etc. Não será tolerada nesse fórum a comercialização de qualquer medicamento ou substância de circulação proibida no Brasil (Verificar legislação pertinente: Lei n° 9.965/00 e Código Penal art. 334). Substâncias anabólicas administradas sem acompanhamento médico podem trazer sérios prejuízos à sua saúde! Caso você pertença a algum órgão estatal (Ministério Público, Polícia Federal, ANVISA, etc.) e precise de maiores informações, favor entrar em contato conosco.