inc_whatsnew.asp
<%
'#################################################################################
'## Ver.3.4.07 multi-language Skin3D Portal V2
'#################################################################################
'## Copyright (C) 2001-08 Gaëtan Dupont All Rights Reserved
'##
'## By using this program, you are agreeing to the terms of the
'## GNU General Public License.
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding ImageForums2001 must remain intact
'## in the scripts and in the outputted HTML.
'## The "Image Forums 2001" text with a link back to
'## http://www.forums2001.ca in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## Support can be obtained from support forums at:
'## http://www.forums2001.ca
'##
'## Email: image_forum_2001@hotmail.com
'##
'#################################################################################
if strGuestbook = "1" then
strSql = "SELECT G_ID, G_MODERATION"
strSql = strSql & " FROM " & strTablePrefix & "GB_OPTIONS"
strSql = strSql & " WHERE G_ID = 1"
Set rsOption = my_Conn.Execute (strSql)
strGBModeration = rsOption("G_MODERATION")
rsOption.Close
Set rsOption = nothing
if strGBModeration = "1" then
Response.Write "<div>" & vbNewLine
if (mlev = 4 and aAllowed>0) or (lcase(strNoCookies) = "1") then
strSql = "SELECT G_MODERATED"
strSql = strSql & " FROM " & strTablePrefix & "GUESTBOOK"
strSql = strSql & " WHERE G_MODERATED = 1"
Set rsGetModerated = Server.CreateObject("ADODB.Recordset")
rsGetModerated.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if not (rsGetModerated.EOF or rsGetModerated.BOF) and mLev >= 3 then
Response.Write " <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><a href=""guestbook.asp?rand=" & int(10000000*rnd) & "&action=view&method=approve"">" & getCurrentIcon(strIconValidateGuestBook,"Validate new GuestBook Entry","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
else
'Do Nothing
end if
rsGetModerated.Close
Set rsGetModerated = nothing
end if
Response.Write "</div>" & vbNewLine
end if
end if
if strTopSite = "1" then
Response.Write "<div>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><a href=""topsite.asp?rand=" & int(10000000*rnd) & "§ionid=5"">" & vbNewline
if strStylesCss = "1" and getStyles = "2" then
Response.Write " <img src=""" & strImageUrl & "Lang" & strLangLCID & "logo_topsite.gif"" border=""0"" alt=""" & fLangN("strLangTopSite00560",strForumTitle) & """ title=""" & fLangN("strLangTopSite00560",strForumTitle) & """>" & vbNewline
else
Response.Write " <img src=""" & strImageUrl & +skin+ "/Lang" & strLangLCID & "logo_topsite.gif"" border=""0"" alt=""" & fLangN("strLangTopSite00560",strForumTitle) & """ title=""" & fLangN("strLangTopSite00560",strForumTitle) & """>" & vbNewline
end if
Response.Write "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
"</div>" & vbNewLine
end if
if strAllowAvatars = "1" then
Response.Write "<div>" & vbNewLine
if ((mlev = 4 and aAllowed>0) or (lcase(strNoCookies) = "1")) or (mlev = 3 and strModeratorAvatar = 1) then
strSql = "SELECT A_VALIDATED"
strSql = strSql & " FROM " & strTablePrefix & "AVATAR"
strSql = strSql & " WHERE A_VALIDATED <> 1"
set rsAvatar = Server.CreateObject("ADODB.Recordset")
rsAvatar.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if not rsAvatar.EOF then
Response.Write " <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><a href=""admin_unapproved_avatar.asp?rand=" & int(10000000*rnd) & "§ionid=888"">" & getCurrentIcon(strIconValidateAvatar,"Validate new Avatars","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
else
'Do Nothing
end if
rsAvatar.Close
Set rsAvatar = nothing
end if
Response.Write "</div>" & vbNewLine
end if
if strUseFileLibrary = "1" then
Response.Write "<div>" & vbNewLine
if (mlev = 4 and aAllowed>0) or (lcase(strNoCookies) = "1") then
strSql = "SELECT F_VALID, F_DATE"
strSql = strSql & " FROM " & strTablePrefix & "FILEMANAGER"
strSql = strSql & " WHERE F_VALID = 0"
strSql = strSql & " AND F_DATE > '" & DateToStr(DateAdd("d",-30,strForumTimeAdjust)) & "'"
strSql = strSql & " ORDER BY F_DATE DESC"
Set rsResource = Server.CreateObject("ADODB.Recordset")
rsResource.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if not (rsResource.EOF or rsResource.BOF) and mLev >= 3 then
Response.Write " <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><a href=""JavaScript: OpenValidate('pop_file_ratings.asp?rand=" & int(10000000*rnd) & "&referrer=validate')"">" & getCurrentIcon(strIconValidateFileLib,"Validate new Mods","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
else
'Do Nothing
end if
rsResource.Close
Set rsResource = nothing
end if
Response.Write "</div>" & vbNewLine
end if
if (strPortalArticles = "1") or (strPortalnews = "1") or (strPortalLinks = "1") then
Response.Write "<div>" & vbNewLine
if (mlev = 4 and aAllowed>0) or (lcase(strNoCookies) = "1") then
strSql = "SELECT VALIDATED, ADDED"
strSql = strSql & " FROM " & strTablePrefix & "SITE_LINKS"
strSql = strSql & " WHERE VALIDATED = 0"
strSql = strSql & " ORDER BY ADDED DESC"
Set rsGetResource = Server.CreateObject("ADODB.Recordset")
rsGetResource.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if not (rsGetResource.EOF or rsGetResource.BOF) and mLev >= 3 then
Response.Write " <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><a href=""JavaScript: OpenValidate('validate.asp?rand=" & int(10000000*rnd) & "&mode=Resources')"">" & getCurrentIcon(strIconValidate,"Validate new Resources","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
else
'Do Nothing
end if
rsGetResource.Close
Set rsGetResource = nothing
end if
Response.Write "</div>" & vbNewLine
end if
if strShowQuotesDay = "1" then
Response.Write "<div>" & vbNewLine
if (mlev = 4 and aAllowed>0) or (lcase(strNoCookies) = "1") then
strSql = "SELECT Q_PENDING"
strSql = strSql & " FROM " & strTablePrefix & "QUOTES"
strSql = strSql & " WHERE Q_PENDING = 1"
Set rsGetQuotes = Server.CreateObject("ADODB.Recordset")
rsGetQuotes.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if not (rsGetQuotes.EOF or rsGetQuotes.BOF) and mLev >= 3 then
Response.Write " <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><a href=""JavaScript: OpenValidate('validate.asp?rand=" & int(10000000*rnd) & "&mode=Quote')"">" & getCurrentIcon(strIconValidateQuote,"Validate new Quotes","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
else
'Do Nothing
end if
rsGetQuotes.Close
Set rsGetQuotes = nothing
end if
Response.Write "</div>" & vbNewLine
end if
%>
Topic Locked
Posted - 28 September 2009 : 14:23:45
)