Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 Placing code every 10th reply		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

thefreemason
Starting Member

27 Posts
Posted - 14 September 2004 :  11:11:01  Show Profile
Is it possible to make code appear between the 10th and 11th reply to a topic.

We want to add a peice of code that will display an advert.

This is the code:
<script language=JavaScript src=/adserver/abm.asp?z=4></script>

Thanks

Mike

-gary
Development Team Member

406 Posts
Posted - 15 September 2004 :  12:05:05  Show Profile
About line 569 in topic.asp
After: CColor = strForumCellColor end if
Before: Response.Write " <tr>" & vbNewLine & _

Add: If iForum Mod 10 = 0 then Response.Write...

Adding the correct table cells and your code.
KawiForums.com
Go to Top of Page

thefreemason
Starting Member

27 Posts
Posted - 15 September 2004 :  15:19:39  Show Profile
Ok will give that a go and reply asap with results
Go to Top of Page

thefreemason
Starting Member

27 Posts
Posted - 16 September 2004 :  07:30:15  Show Profile
gary

Not sure where this code should go, as we are using the Speedball version. Here is the topic.asp source code:

<%
'#################################################################################
'## Snitz Forums 2000 v3.4.04
'#################################################################################
'## Copyright (C) 2000-04 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## 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 Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
%><!--#INCLUDE FILE="config.asp"--><%

qsTopicID = Request.QueryString("TOPIC_ID")
frmMethodType = Request.Form("Method_Type")
qsSearchTerms = Request.QueryString("SearchTerms")
if (qsTopicID = "" or IsNumeric(qsTopicID) = False) and frmMethodType <> "login" and frmMethodType <> "logout" then
Response.Redirect "default.asp"
Response.End
else
Topic_ID = cLng(qsTopicID)
end if
Dim ArchiveView, ArchiveLink, CColor
if request("ARCHIVE") = "true" then
strActivePrefix = strTablePrefix & "A_"
ArchiveView = "true"
ArchiveLink = "archive=true&"
elseif request("ARCHIVE") <> "" then
Response.Redirect "default.asp"
Response.End
else
strActivePrefix = strTablePrefix
ArchiveView = ""
ArchiveLink = ""
end if

%><!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_subscription.asp" -->
<!--#INCLUDE FILE="inc_moderation.asp"--><%
Response.Write "<script language=""JavaScript"" type=""text/javascript"">" & _
"function ChangePage(fnum){" & _
"if (fnum == 1) {" & _
"document.PageNum1.submit();" & _
"}" & _
"else {" & _
"document.PageNum2.submit();" & _
"}" & _
"}" & _
"</script>"

mypage = request("whichpage")
if ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) then mypage = 1
mypage = cLng(mypage)

if qsSearchTerms <> "" then ' Request("SearchTerms")
SearchLink = "&SearchTerms=" & qsSearchTerms ' Request("SearchTerms")
else
SearchLink = ""
end if

if strSignatures = "1" and strDSignatures = "1" then
if ViewSig(MemberID) <> "0" then
CanShowSignature = 1
end if
end if

'## Forum_SQL - Get original topic and check for the Category, Forum or Topic Status and existence
strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO" & _
", M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY" & _
", T.T_DATE, T.T_SUBJECT, T.T_AUTHOR, T.TOPIC_ID, T.T_STATUS, T.T_LAST_EDIT" & _
", T.T_LAST_EDITBY, T.T_LAST_POST, T.T_SIG, T.T_REPLIES" & _
", C.CAT_STATUS, C.CAT_ID, C.CAT_NAME, C.CAT_SUBSCRIPTION, C.CAT_MODERATION" & _
", F.F_STATUS, F.FORUM_ID, F.F_SUBSCRIPTION, F.F_SUBJECT, F.F_MODERATION, T.T_MESSAGE"
if CanShowSignature = 1 then
strSql = strSql & ", M.M_SIG"
end if
strSql = strSql & " FROM " & strActivePrefix & "TOPICS T, " & strTablePrefix & "FORUM F, " & _
strTablePrefix & "CATEGORY C, " & strMemberTablePrefix & "MEMBERS M " & _
" WHERE T.TOPIC_ID = " & Topic_ID & _
" AND F.FORUM_ID = T.FORUM_ID " & _
" AND C.CAT_ID = T.CAT_ID " & _
" AND M.MEMBER_ID = T.T_AUTHOR "

set rsTopic = Server.CreateObject("ADODB.Recordset")
rsTopic.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText

if rsTopic.EOF then
recTopicCount = ""
else
recTopicCount = 1
Member_Name = rsTopic("M_NAME")
Member_ReceiveMail = rsTopic("M_RECEIVE_EMAIL")
Member_AIM = rsTopic("M_AIM")
Member_ICQ = rsTopic("M_ICQ")
Member_MSN = rsTopic("M_MSN")
Member_YAHOO = rsTopic("M_YAHOO")
Member_Title = rsTopic("M_TITLE")
Member_Homepage = rsTopic("M_HOMEPAGE")
TMember_ID = rsTopic("MEMBER_ID")
Member_Level = rsTopic("M_LEVEL")
Member_Posts = rsTopic("M_POSTS")
Member_Country = rsTopic("M_COUNTRY")
Topic_Date = rsTopic("T_DATE")
Topic_Subject = rsTopic("T_SUBJECT")
Topic_Author = rsTopic("T_AUTHOR")
TopicID = rsTopic("TOPIC_ID")
Topic_Status = rsTopic("T_STATUS")
Topic_LastEdit = rsTopic("T_LAST_EDIT")
Topic_LastEditby = rsTopic("T_LAST_EDITBY")
Topic_LastPost = rsTopic("T_LAST_POST")
Topic_Sig = rsTopic("T_SIG")
Topic_Replies = rsTopic("T_REPLIES")
Cat_Status = rsTopic("CAT_STATUS")
Cat_ID = rsTopic("CAT_ID")
Cat_Name = rsTopic("CAT_NAME")
Cat_Subscription = rsTopic("CAT_SUBSCRIPTION")
Cat_Moderation = rsTopic("CAT_MODERATION")
Forum_Status = rsTopic("F_STATUS")
Forum_ID = rsTopic("FORUM_ID")
Forum_Subject = rsTopic("F_SUBJECT")
Forum_Subscription = rsTopic("F_SUBSCRIPTION")
Forum_Moderation = rsTopic("F_MODERATION")
Topic_Message = rsTopic("T_MESSAGE")
if CanShowSignature = 1 then
Topic_MemberSig = trim(rsTopic("M_SIG"))
end if
end if

rsTopic.close
set rsTopic = nothing

if recTopicCount = "" then
if ArchiveView <> "true" then
Response.Redirect("topic.asp?ARCHIVE=true&" & ChkString(Request.QueryString,"sqlstring"))
else
Response.Redirect("default.asp")
end if
end if

if mLev = 4 then
AdminAllowed = 1
ForumChkSkipAllowed = 1
elseif mLev = 3 then
if chkForumModerator(Forum_ID, chkString(strDBNTUserName,"decode")) = "1" then
AdminAllowed = 1
ForumChkSkipAllowed = 1
else
if lcase(strNoCookies) = "1" then
AdminAllowed = 1
ForumChkSkipAllowed = 0
else
AdminAllowed = 0
ForumChkSkipAllowed = 0
end if
end if
elseif lcase(strNoCookies) = "1" then
AdminAllowed = 1
ForumChkSkipAllowed = 0
else
AdminAllowed = 0
ForumChkSkipAllowed = 0
end if

if strPrivateForums = "1" and (Request.Form("Method_Type") <> "login") and (Request.Form("Method_Type") <> "logout") and ForumChkSkipAllowed = 0 then
result = ChkForumAccess(Forum_ID, MemberID, true)
end if

if strModeration > 0 and Cat_Moderation > 0 and Forum_Moderation > 0 and AdminAllowed = 0 then
Moderation = "Y"
else
Moderation = "N"
end if

if mypage = -1 and Request.QueryString("REPLY_ID") <> "" then
strSql1 = "SELECT REPLY_ID "
strSql2 = "FROM " & strActivePrefix & "REPLY "
strSql3 = "WHERE TOPIC_ID = " & Topic_ID & " "
' DEM --> if not a Moderator, all unapproved posts should not be viewed.
if AdminAllowed = 0 then
strSql3 = strSql3 & "AND (R_STATUS < "
if Moderation = "Y" then
' Ignore unapproved/rejected posts
strSql3 = strSql3 & "2 "
else
' Ignore any previously rejected topic
strSql3 = strSql3 & "3 "
end if
strSql3 = strSql3 & "OR R_AUTHOR = " & MemberID & ") "
end if
strSql4 = "ORDER BY R_DATE ASC "

if strDBType = "mysql" then
set rsReplies = Server.CreateObject("ADODB.Recordset")

rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText

if rsReplies.EOF then
iReplyCount = ""
else
arrReplyData = rsReplies.GetRows(adGetRowsRest)
iReplyCount = UBound(arrReplyData, 2)
rREPLY_ID = 0
end if

LastPostReplyID = cLng(Request.QueryString("REPLY_ID"))

if iReplyCount <> "" then
for iReply = 0 to iReplyCount
intReplyID = arrReplyData(rREPLY_ID,iReply)
if LastPostReplyID = intReplyID then
intPageNumber = ((iReply+1)/strPageSize)
if intPageNumber > cLng(intPageNumber) then
intPageNumber = cLng(intPageNumber) + 1
end if
strwhichpage = "whichpage=" & intPageNumber & "&"
exit for
end if
next
else
strwhichpage = ""
end if

rsReplies.Close
set rsReplies = nothing
else
set rsReplies = Server.CreateObject("ADODB.Recordset")
rsReplies.cachesize = strPageSize
rsReplies.pagesize = strPageSize

rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText

LastPostReplyID = cLng(Request.QueryString("REPLY_ID"))
rsReplies.Find = "reply_id=" & LastPostReplyID & ""

if not (rsReplies.EOF or rsReplies.BOF) then
if rsReplies.absolutepage > 1 then strwhichpage = "whichpage=" & rsReplies.absolutepage & "&"
else
strwhichpage = ""
end if

rsReplies.Close
set rsReplies = nothing
end if

Response.Redirect("topic.asp?" & strwhichpage & "topic_id=" & Topic_ID & "&#" & LastPostReplyID & "")
Response.End
end if

' -- Get all the high level(board, category, forum) subscriptions being held by the user
Dim strSubString, strSubArray, strBoardSubs, strCatSubs, strForumSubs, strTopicSubs
if MySubCount > 0 then
strSubString = PullSubscriptions(0, 0, 0)
strSubArray = Split(strSubString,";")
if uBound(strSubArray) < 0 then
strBoardSubs = ""
strCatSubs = ""
strForumSubs = ""
strTopicSubs = ""
else
strBoardSubs = strSubArray(0)
strCatSubs = strSubArray(1)
strForumSubs = strSubArray(2)
strTopicSubs = strSubArray(3)
end if
end If

if (Moderation = "Y" and Topic_Status > 1 and Topic_Author <> MemberID) then
Response.Write "<p class=""hfs c""><br />Viewing of this Topic is not permitted until it has been moderated.<br />Please try again later</p>" & _
"<p class=""hfs c""><a href=""JavaScript:history.go(-1)"">Go Back</a></p><br />"
Call WriteFooter
Response.end
else
Response.Write "<script language=""JavaScript"" type=""text/javascript"">" & _
"<!--" & _
"function jumpTo(s) {if (s.selectedIndex != 0) location.href = s.options[s.selectedIndex].value;return 1;}" & _
"// -->" & _
"</script>"

'## Forum_SQL
strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO"
strSql = strSql & ", M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY"
strSql = strSql & ", R.REPLY_ID, R.FORUM_ID, R.R_AUTHOR, R.TOPIC_ID, R.R_MESSAGE, R.R_LAST_EDIT"
strSql = strSql & ", R.R_LAST_EDITBY, R.R_SIG, R.R_STATUS, R.R_DATE"
if CanShowSignature = 1 then
strSql = strSql & ", M.M_SIG"
end if
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "REPLY R "
strSql3 = " WHERE M.MEMBER_ID = R.R_AUTHOR "
strSql3 = strSql3 & " AND R.TOPIC_ID = " & Topic_ID & " "
' DEM --> if not a Moderator, all unapproved posts should not be viewed.
if AdminAllowed = 0 then
strSql3 = strSql3 & " AND (R.R_STATUS < "
if Moderation = "Y" then
' Ignore unapproved/rejected posts
strSql3 = strSql3 & "2"
else
' Ignore any previously rejected topic
strSql3 = strSql3 & "3"
end if
strSql3 = strSql3 & " OR R.R_AUTHOR = " & MemberID & ")"
end if
strSql4 = " ORDER BY R.R_DATE ASC"

if strDBType = "mysql" then 'MySql specific code
if mypage > 1 then
intOffset = cLng((mypage-1) * strPageSize)
strSql5 = " LIMIT " & intOffset & ", " & strPageSize & " "
end if

'## Forum_SQL - Get the total pagecount
strSql1 = "SELECT COUNT(R.TOPIC_ID) AS REPLYCOUNT "

set rsCount = my_Conn.Execute(strSql1 & strSql2 & strSql3)
iPageTotal = rsCount(0).value
rsCount.close
set rsCount = nothing

if iPageTotal > 0 then
maxpages = (iPageTotal \ strPageSize )
if iPageTotal mod strPageSize <> 0 then
maxpages = maxpages + 1
end if
if iPageTotal < (strPageSize + 1) then
intGetRows = iPageTotal
elseif (mypage * strPageSize) > iPageTotal then
intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal)
else
intGetRows = strPageSize
end if
else
iPageTotal = 0
maxpages = 0
end if

if iPageTotal > 0 then
set rsReplies = Server.CreateObject("ADODB.Recordset")
rsReplies.Open strSql & strSql2 & strSql3 & strSql4 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
arrReplyData = rsReplies.GetRows(intGetRows)
iReplyCount = UBound(arrReplyData, 2)
rsReplies.Close
set rsReplies = nothing
else
iReplyCount = ""
end if

else 'end MySql specific code

set rsReplies = Server.CreateObject("ADODB.Recordset")
rsReplies.cachesize = strPageSize
rsReplies.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText

if not (rsReplies.EOF or rsReplies.BOF) then
rsReplies.pagesize = strPageSize
rsReplies.absolutepage = mypage '**
maxpages = cLng(rsReplies.pagecount)
if maxpages >= mypage then
arrReplyData = rsReplies.GetRows(strPageSize)
iReplyCount = UBound(arrReplyData, 2)
else
iReplyCount = ""
end if
else '## No replies found in DB
iReplyCount = ""
end if

rsReplies.Close
set rsReplies = nothing
end if

Response.Write "<table border=""0"" width=""100%"">" & _
"<tr>" & _
"<td class=""l nw"" width=""50%"">" & _
getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & _
getCurrentIcon(strIconBar,"","")
if Cat_Status <> 0 then
Response.Write getCurrentIcon(strIconFolderOpen,"","")
else
Response.Write getCurrentIcon(strIconFolderClosed,"","")
end if
Response.Write " <a href=""default.asp?cat_id=" & Cat_ID & """>" & ChkString(Cat_Name,"display") & "</a><br />" & _
getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","")
if ArchiveView = "true" then
Response.Write getCurrentIcon(strIconFolderArchived,"","")
else
if Forum_Status <> 0 and Cat_Status <> 0 then
Response.Write getCurrentIcon(strIconFolderOpen,"","")
else
Response.Write getCurrentIcon(strIconFolderClosed,"","")
end if
end if
Response.Write " <a href=""forum.asp?" & ArchiveLink & "forum_id=" & Forum_ID & """>" & ChkString(Forum_Subject,"display") & "</a><br />"
if ArchiveView = "true" then
Response.Write getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderArchived,"","") & " "
elseif Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 then
Response.Write getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " "
else
Response.Write getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderClosedTopic,"","") & " "
end if
if qsSearchTerms <> "" then
Response.Write SearchHiLite(ChkString(Topic_Subject,"title"))
else
Response.Write ChkString(Topic_Subject,"title")
end if
Response.Write "</td>" & _
"<td class=""c"" width=""50%"">"
call PostingOptions()
Response.Write "</td>" & _
"</tr>" & _
"</table>"
if maxpages > 1 then
Response.Write "<table class=""tc"" border=""0"" cellpadding=""0"" cellspacing=""1"" width=""100%"">" & _
"<tr>" & _
"<td class=""ffs r"" valign=""top"">"
if mypage > 1 then Response.Write "<a href=""topic.asp?" & ArchiveLink & "topic_id=" & Topic_ID & "&whichpage=" & mypage-1 & SearchLink & """ title=""Goto the Previous page in this Topic"">Previous Page</a>"
'if mypage > 1 then Response.Write "<a href=""javascript: onclick=document.PageNum1.whichpage.value=" & mypage-1 & ";document.PageNum1.submit();"" title=""Goto the Previous page in this Topic"">Previous Page</a>"
if mypage > 1 and mypage < maxpages then Response.Write " | "
if mypage < maxpages then Response.Write "<a href=""topic.asp?" & ArchiveLink & "topic_id=" & Topic_ID & "&whichpage=" & mypage+1 & SearchLink & """ title=""Goto the Next page in this Topic"">Next Page</a>"
'if mypage < maxpages then Response.Write "<a href=""javascript: onclick=document.PageNum1.whichpage.value=" & mypage+1 & ";document.PageNum1.submit();"" title=""Goto the Next page in this Topic"">Next Page</a>"
Response.Write "</td>" & _
"</tr>" & _
"</table>"
end if
%></td></tr></table><%
Response.Write "<table class=""tc tbc"" border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""4"">" & _
"<tr class=""hcc"">" & _
"<td width=""" & strTopicWidthLeft & """ class=""hfc c"
if lcase(strTopicNoWrapLeft) = "1" then Response.Write " nw"
Response.Write """>Author</td>" & _
"<td width=""" & strTopicWidthRight & """ class=""hfc c"
if lcase(strTopicNoWrapRight) = "1" then Response.Write " nw"
Response.Write """>"
if strShowTopicNav = "1" then
Call Topic_nav()
else
Response.Write "Topic"
end if
Response.Write "</td>"
if (AdminAllowed = 1) then
if maxpages > 1 then
Call DropDownPaging(1)
Response.Write "<td class=""r nw"">"
call AdminOptions()
Response.Write "</td>"
else
Response.Write "<td class=""r nw"">"
call AdminOptions()
Response.Write "</td>"
end if
else
if maxpages > 1 then
Call DropDownPaging(1)
else
Response.Write "<td class=""r nw""> </td>"
end if
end if
Response.Write "</tr>"

if mypage = 1 then
Call GetFirst()
end if

'## Forum_SQL
strSql = "UPDATE " & strActivePrefix & "TOPICS "
strSql = strSql & " SET T_VIEW_COUNT = (T_VIEW_COUNT + 1) "
strSql = strSql & " WHERE (TOPIC_ID = " & Topic_ID & ")"

my_conn.Execute (strSql),,adCmdText + adExecuteNoRecords

if iReplyCount = "" then '## No replies found in DB
' Nothing
else
intI = 0

rM_NAME = 0
rM_RECEIVE_EMAIL = 1
rM_AIM = 2
rM_ICQ = 3
rM_MSN = 4
rM_YAHOO = 5
rM_TITLE = 6
rMEMBER_ID = 7
rM_HOMEPAGE = 8
rM_LEVEL = 9
rM_POSTS = 10
rM_COUNTRY = 11
rREPLY_ID = 12
rFORUM_ID = 13
rR_AUTHOR = 14
rTOPIC_ID = 15
rR_MESSAGE = 16
rR_LAST_EDIT = 17
rR_LAST_EDITBY = 18
rR_SIG = 19
rR_STATUS = 20
rR_DATE = 21
if CanShowSignature = 1 then
rM_SIG = 22
end if

for iForum = 0 to iReplyCount

Reply_MemberName = arrReplyData(rM_NAME, iForum)
Reply_MemberReceiveEmail = arrReplyData(rM_RECEIVE_EMAIL, iForum)
Reply_MemberAIM = arrReplyData(rM_AIM, iForum)
Reply_MemberICQ = arrReplyData(rM_ICQ, iForum)
Reply_MemberMSN = arrReplyData(rM_MSN, iForum)
Reply_MemberYAHOO = arrReplyData(rM_YAHOO, iForum)
Reply_MemberTitle = arrReplyData(rM_TITLE, iForum)
Reply_MemberID = arrReplyData(rMEMBER_ID, iForum)
Reply_MemberHomepage = arrReplyData(rM_HOMEPAGE, iForum)
Reply_MemberLevel = arrReplyData(rM_LEVEL, iForum)
Reply_MemberPosts = arrReplyData(rM_POSTS, iForum)
Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum)
Reply_ReplyID = arrReplyData(rREPLY_ID, iForum)
Reply_ForumID = arrReplyData(rFORUM_ID, iForum)
Reply_Author = arrReplyData(rR_AUTHOR, iForum)
Reply_TopicID = arrReplyData(rTOPIC_ID, iForum)
Reply_Content = arrReplyData(rR_MESSAGE, iForum)
Reply_LastEdit = arrReplyData(rR_LAST_EDIT, iForum)
Reply_LastEditBy = arrReplyData(rR_LAST_EDITBY, iForum)
Reply_Sig = arrReplyData(rR_SIG, iForum)
Reply_Status = arrReplyData(rR_STATUS, iForum)
Reply_Date = arrReplyData(rR_DATE, iForum)
if CanShowSignature = 1 then
Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum))
end if

if intI = 0 then
CColor = "fsacc"
else
CColor = "ffacc"
end if

Response.Write "<tr class=""" & CColor & """>" & _
"<td valign=""top"" width=""" & strTopicWidthLeft & """>" & _
"<p><span class=""ifl"">" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "</span><br />"
if strShowRank = 1 or strShowRank = 3 then
Response.Write "<span class=""iffc ffs"">" & ChkString(getMember_Level(Reply_MemberTitle, Reply_MemberLevel, Reply_MemberPosts),"display") & "</span><br />"
end if
if strShowRank = 2 or strShowRank = 3 then
Response.Write getStar_Level(Reply_MemberLevel, Reply_MemberPosts) & "<br />"
end if
Response.Write "</p>" & _
"<p class=""iffc ffs"
if lcase(strTopicNoWrapLeft) = "1" then Response.Write " nw"
response.write """>"
if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
Response.Write Reply_MemberCountry & "<br />"
end if
Response.Write Reply_MemberPosts & " Posts</p></td>" & _
"<td width=""" & strTopicWidthRight & """"
if (AdminAllowed = 1) and (maxpages > 1) then
Response.Write " colspan=""3"" "
else
Response.Write " colspan=""2"" "
end if
Response.Write "valign=""top""><a name=""" & Reply_ReplyID & """></a>" & _
"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & _
"<tr>" & _
"<td class=""iffc ffs"" style=""border:none;"" valign=""top"">"
' DEM --> Start of Code altered for moderation
if Reply_Status < 2 then
Response.Write getCurrentIcon(strIconPosticon,"","hspace=""3""") & "Posted - " & ChkDate(Reply_Date, " : " ,true) & ""
elseif Reply_Status = 2 then
Response.Write "NOT MODERATED!!!"
elseif Reply_Status = 3 then
Response.Write getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "ON HOLD"
end if
' DEM --> End of Code added for moderation.
Response.Write " " & profileLink(getCurrentIcon(strIconProfile,"Show Profile"," hspace=""6"""),Reply_MemberID)
if mLev > 2 or Reply_MemberReceiveEmail = "1" then
if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then
Response.Write " <a href=""JavaScript:openWindow('pop_mail.asp?id=" & Reply_MemberID & "')"">" & getCurrentIcon(strIconEmail,"Email Poster"," hspace=""6""") & "</a>"
end if
end if
if strHomepage = "1" then
if Reply_MemberHomepage <> " " then
Response.Write " <a href=""" & Reply_MemberHomepage & """ target=""_blank"">" & getCurrentIcon(strIconHomepage,"Visit " & ChkString(Reply_MemberName,"display") & "'s Homepage"," hspace=""6""") & "</a>"
end if
end if
if (AdminAllowed = 1 or Reply_MemberID = MemberID) then
if (Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0) or (AdminAllowed = 1) then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Edit&reply_id=" & Reply_ReplyID & "&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconEditTopic,"Edit Reply"," hspace=""6""") & "</a>"
end if
end if
if (strAIM = "1") then
if Trim(Reply_MemberAIM) <> "" then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=AIM&ID=" & Reply_MemberID & "')"">" & getCurrentIcon(strIconAIM,"Send " & ChkString(Reply_MemberName,"display") & " an AOL message"," hspace=""6""") & "</a>"
end if
end if
if strICQ = "1" then
if Trim(Reply_MemberICQ) <> "" then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ID=" & Reply_MemberID & "')"">" & getCurrentIcon(strIconICQ,"Send " & ChkString(Reply_MemberName,"display") & " an ICQ Message"," hspace=""6""") & "</a>"
end if
end if
if (strMSN = "1") then
if Trim(Reply_MemberMSN) <> "" then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=MSN&ID=" & Reply_MemberID & "')"">" & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Reply_MemberName,"display") & "'s MSN Messenger address"," hspace=""6""") & "</a>"
end if
end if
if strYAHOO = "1" then
if Trim(Reply_MemberYAHOO) <> "" then
Response.Write " <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Reply_MemberYAHOO, "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Reply_MemberName,"display") & " a Yahoo! Message"," hspace=""6""") & "</a>"
end if
end if
if ((Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status = 1) or (AdminAllowed = 1 and Topic_Status <= 1)) and ArchiveView = "" then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=ReplyQuote&reply_id=" & Reply_ReplyID & "&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"Reply with Quote"," hspace=""6""") & "</a>"
end if
if (strIPLogging = "1") then
if (AdminAllowed = 1) then
Response.Write " <a href=""JavaScript:openWindow('pop_viewip.asp?" & ArchiveLink & "mode=getIP&reply_id=" & Reply_ReplyID & "&forum_id=" & Forum_ID & "')"">" & getCurrentIcon(strIconIP,"View user's IP address"," hspace=""6""") & "</a>"
end if
end if
if (AdminAllowed = 1 or Reply_MemberID = MemberID) then
if (Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0) or (AdminAllowed = 1) then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?" & ArchiveLink & "mode=Reply&reply_id=" & Reply_ReplyID & "&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & "')"">" & getCurrentIcon(strIconDeleteReply,"Delete Reply"," hspace=""6""") & "</a>"
end if
' DEM --> Start of Code added for Full Moderation
if (AdminAllowed = 1 and Reply_Status > 1) then
ReplyString = "reply_id=" & Reply_ReplyID & "&cat_id=" & Cat_ID & "&forum_id=" & Forum_ID & "&topic_id=" & Topic_ID
Response.Write " <a href=""JavaScript:openWindow('pop_moderate.asp?" & ReplyString & "')"">" & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject this Reply"," hspace=""6""") & "</a>"
end if
' DEM --> End of Code added for Full Moderation
end if
Response.Write "<hr noshade=""noshade"" size=""1"" /></td>" & _
"</tr>" & _
"<tr>" & _
"<td class=""iffc"" style=""border:none;"" valign=""top""><span class=""ifl"" id=""msg"">"
if qsSearchTerms <> "" then
Response.Write SearchHiLite(formatStr(Reply_Content))
else
Response.Write formatStr(Reply_Content)
end if
Response.Write "</span id=""msg""></td>" & _
"</tr>"
if CanShowSignature = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" then
Response.Write "<tr>" & _
"<td class=""iffc ifl"" style=""border:none;"" valign=""bottom""><hr noshade=""noshade"" size=""1"" />" & formatStr(Reply_MemberSig) & "</td>" & _
"</tr>"
end if
if strEditedByDate = "1" and Reply_LastEditBy <> "" then
if Reply_LastEditBy <> Reply_Author then
Reply_LastEditByName = getMemberName(Reply_LastEditBy)
else
Reply_LastEditByName = chkString(Reply_MemberName,"display")
end if
Response.Write "<tr>" & _
"<td class=""ffs iffc"" style=""border:none;"" valign=""bottom""><hr noshade=""noshade"" size=""1"" class=""" & CColor & """ />" & _
"Edited by - " & Reply_LastEditByName & " on " & chkDate(Reply_LastEdit, " " ,true) & "</td>" & _
"</tr>"
end if
Response.Write "<tr>" & _
"<td class=""r"" style=""border:none;"" valign=""bottom"" height=""20""><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go to Top of Page","align=""right""") & "</a></td>" & _
"</tr>" & _
"</table>" & _
"</td>" & _
"</tr>"
intI = intI + 1
if intI = 2 then
intI = 0
end if
next
end if
Response.Write "<tr class=""hcc"">"
if maxpages > 1 then
Call DropDownPaging(2)
else
Response.Write "<td width=""" & strTopicWidthLeft & """ class=""hfc c"
if lcase(strTopicNoWrapLeft) = "1" then Response.Write " nw"
Response.Write """> </td>"
end if
Response.Write "<td width=""" & strTopicWidthRight & """ class=""hfc c"
if lcase(strTopicNoWrapRight) = "1" then Response.Write " nw"
'if maxpages > 1 and (AdminAllowed = 1) then Response.Write " colspan=""2"""
Response.Write """>"
if strShowTopicNav = "1" then
Call Topic_nav()
else
Response.Write "Topic"
end if
Response.Write "</td>"
if (AdminAllowed = 1) then
if maxpages > 1 then
Response.Write "<td class=""r nw""> </td>"
end if
Response.Write "<td class=""r nw"">"
call AdminOptions()
Response.Write "</td>"
else
Response.Write "<td class=""r nw""> </td>"
end if
Response.Write "</tr>" & _
"</table>"
if maxpages > 1 then
Response.Write "<table class=""tc"" border=""0"" cellpadding=""0"" cellspacing=""1"" width=""95%"">" & _
"<tr>" & _
"<td class=""ffs l"" valign=""top"">"
if mypage > 1 then Response.Write "<a href=""topic.asp?" & ArchiveLink & "topic_id=" & Topic_ID & "&whichpage=" & mypage-1 & SearchLink & """ title=""Goto the Previous page in this Topic"">Previous Page</a>"
'if mypage > 1 then Response.Write "<a href=""javascript: onclick=document.PageNum1.whichpage.value=" & mypage-1 & ";document.PageNum1.submit();"" title=""Goto the Previous page in this Topic"">Previous Page</a>")
if mypage > 1 and mypage < maxpages then Response.Write " | "
if mypage < maxpages then Response.Write "<a href=""topic.asp?" & ArchiveLink & "topic_id=" & Topic_ID & "&whichpage=" & mypage+1 & SearchLink & """ title=""Goto the Next page in this Topic"">Next Page</a>"
'if mypage < maxpages then Response.Write "<a href=""javascript: onclick=document.PageNum1.whichpage.value=" & mypage+1 & ";document.PageNum1.submit();"" title=""Goto the Next page in this Topic"">Next Page</a>")
Response.Write "</td>" & _
"</tr>" & _
"</table>"
end if
Response.Write "<table class=""tc"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""95%"">" & _
"<tr>" & _
"<td>" & _
"<table width=""100%"" border=""0"">" & _
"<tr>" & _
"<td class=""c"" valign=""top"" width=""50%"">"
Call PostingOptions()
Response.Write "</td>" & _
"<td class=""r nw"" valign=""top"" width=""50%"">"
%><!--#INCLUDE FILE="inc_jump_to.asp"--><%
Response.Write "</td>" & _
"</tr>" & _
"</table>"

if strShowQuickReply = "1" and strDBNTUserName <> "" and ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then
call QuickReply()
end if
Call WriteFooter
end if

sub GetFirst()
CColor = "ffcc"
Response.Write "<tr>" & _
"<td valign=""top"" width=""" & strTopicWidthLeft & """ class=""ffcc"">" & _
"<p class=""iffc"
if lcase(strTopicNoWrapLeft) = "1" then Response.Write " nw"
Response.Write """><span class=""ifl"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span><br />"
if strShowRank = 1 or strShowRank = 3 then
Response.Write "<span class=""ffs"">" & ChkString(getMember_Level(Member_Title, Member_Level, Member_Posts),"display") & "</span><br />"
end if
if strShowRank = 2 or strShowRank = 3 then
Response.Write getStar_Level(Member_Level, Member_Posts) & "<br />"
end if
Response.Write "</p>" & _
"<p class=""iffc ffs"
if lcase(strTopicNoWrapLeft) = "1" then Response.Write " nw"
Response.Write """>"
if strCountry = "1" and trim(Member_Country) <> "" then
Response.Write Member_Country & "<br />"
end if
Response.Write Member_Posts & " Posts</p></td>" & _
"<td width=""" & strTopicWidthRight & """ class=""ffcc"
if lcase(strTopicNoWrapRight) = "1" then Response.Write " nw"
if (AdminAllowed = 1) and (maxpages > 1) then
Response.Write """ colspan=""3"
else
Response.Write """ colspan=""2"
end if
Response.Write """ valign=""top"">" & _
"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & _
"<tr>" & _
"<td class=""iffc ffs"" style=""border:none;"" valign=""top"">"
if Topic_Status < 2 then
Response.Write getCurrentIcon(strIconPosticon,"","hspace=""3""") & "Posted - " & ChkDate(Topic_Date, " : " ,true)
elseif Topic_Status = 2 then
Response.Write "NOT MODERATED!!!"
elseif Topic_Status = 3 then
Response.Write getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "ON HOLD"
end if
Response.Write " " & profileLink(getCurrentIcon(strIconProfile,"Show Profile"," hspace=""6"""),TMember_ID)
if mLev > 2 or Member_ReceiveMail = "1" then
if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then
Response.Write " <a href=""JavaScript:openWindow('pop_mail.asp?id=" & TMember_ID & "')"">" & getCurrentIcon(strIconEmail,"Email Poster"," hspace=""6""") & "</a>"
end if
end if
if (strHomepage = "1") then
if Member_Homepage <> " " then
Response.Write " <a href=""" & Member_Homepage & """ target=""_blank"">" & getCurrentIcon(strIconHomepage,"Visit " & ChkString(Member_Name,"display") & "'s Homepage"," hspace=""6""") & "</a>"
end if
end if
if (AdminAllowed = 1 or TMember_ID = MemberID) then
if ((Cat_Status <> 0) and (Forum_Status <> 0) and (Topic_Status <> 0)) or (AdminAllowed = 1) then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=EditTopic&reply_id=" & Topic_ID & "&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconEditTopic,"Edit Topic"," hspace=""6""") & "</a>"
end if
end if
if (strAIM = "1") then
if Trim(Member_AIM) <> "" then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=AIM&ID=" & TMember_ID & "')"">" & getCurrentIcon(strIconAIM,"Send " & ChkString(Member_Name,"display") & " an AOL message"," hspace=""6""") & "</a>"
end if
end if
if (strICQ = "1") then
if Trim(Member_ICQ) <> "" then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ID=" & TMember_ID & "')"">" & getCurrentIcon(strIconICQ,"Send " & ChkString(Member_Name,"display") & " an ICQ Message"," hspace=""6""") & "</a>"
end if
end if
if (strMSN = "1") then
if Trim(Member_MSN) <> "" then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=MSN&ID=" & TMember_ID & "')"">" & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Member_Name,"display") & "'s MSN Messenger address"," hspace=""6""") & "</a>"
end if
end if
if (strYAHOO = "1") then
if Trim(Member_YAHOO) <> "" then
Response.Write " <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Member_YAHOO, "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Member_Name,"display") & " a Yahoo! Message"," hspace=""6""") & "</a>"
end if
end if
if ((Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status = 1) or (AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "" ) then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=TopicQuote&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"Reply with Quote"," hspace=""6""") & "</a>"
end if
if (strIPLogging = "1") then
if (AdminAllowed = 1) then
Response.Write " <a href=""JavaScript:openWindow('pop_viewip.asp?" & ArchiveLink & "mode=getIP&topic_id=" & TopicID & "&forum_id=" & Forum_ID & "')"">" & getCurrentIcon(strIconIP,"View user's IP address"," hspace=""6""") & "</a>"
end if
end if
if (AdminAllowed = 1) or (TMember_ID = MemberID and Topic_Replies < 1) then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?" & ArchiveLink & "mode=Topic&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & "&cat_id=" & Cat_ID & "')"">" & getCurrentIcon(strIconDeleteReply,"Delete Topic"," hspace=""6""") & "</a>"
end if
' DEM --> Start of Code added for Full Moderation
if (AdminAllowed = 1 and Topic_Status > 1) then
TopicString = "topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & "&cat_id=" & Cat_ID
Response.Write " <a href=""JavaScript:openWindow('pop_moderate.asp?" & TopicString & "')"">" & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject this Topic"," hspace=""6""") & "</a>"
End if
' End of Code added for Full Moderation
Response.Write "<hr noshade=""noshade"" size=""1"" /></td>" & _
"</tr>" & _
"<tr>" & _
"<td class=""iffc"" style=""border:none;"" valign=""top""><span class=""ifl"" id=""msg"">"
if qsSearchTerms <> "" then
Response.Write SearchHiLite(formatStr(Topic_Message))
else
Response.Write formatStr(Topic_Message)
end if
Response.Write "</span id=""msg""></td>" & _
"</tr>"
if CanShowSignature = 1 and Topic_Sig = 1 and Topic_MemberSig <> "" then
Response.Write "<tr>" & _
"<td class=""iffc"" style=""border:none;"" valign=""bottom""><hr noshade=""noshade"" size=""1"" /><span class=""ifl"">" & formatStr(Topic_MemberSig) & "</span></td>" & _
"</tr>"
end if
if strEditedByDate = "1" and Topic_LastEditBy <> "" then
if Topic_LastEditBy <> Topic_Author then
Topic_LastEditByName = getMemberName(Topic_LastEditBy)
else
Topic_LastEditByName = chkString(Member_Name,"display")
end if
Response.Write "<tr>" & _
"<td class=""ffs iffc"" style=""border:none;"" valign=""bottom""><hr noshade=""noshade"" size=""1"" class=""ffcc"" />" & _
"Edited by - " & Topic_LastEditByName & " on " & chkDate(Topic_LastEdit, " ", true) & _
"</td></tr>"
end if
Response.Write "</table>" & _
"</td>" & _
"</tr>"
End Sub


sub PostingOptions()
if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (strDBNTUserName = "") then
if ((Cat_Status = 1) and (Forum_Status = 1)) then
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Topic&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"","") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&forum_id=" & Forum_ID & """>New Topic</a> "
else
if (AdminAllowed = 1) then
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Topic&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconFolderLocked,"","") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&forum_id=" & Forum_ID & """>New Topic</a> "
else
Response.Write getCurrentIcon(strIconFolderLocked,"","") & " Forum Locked"
end if
end if
if ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"","") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Reply&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>Reply to Topic</a> "
else
if ((AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "") then
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """> "
' DEM --> Added if statement to show normal icon for unmoderated posts.
if Topic_Status = 1 and Cat_Status <> 0 and Forum_Status <> 0 then
Response.Write getCurrentIcon(strIconReplyTopic,"","") & "</a> "
else
Response.Write getCurrentIcon(strIconClosedTopic,"","") & "</a> "
end if
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>Reply to Topic</a> "
else
if Topic_Status = 0 then
Response.Write getCurrentIcon(strIconClosedTopic,"","") & " Topic Locked"
end if
end if
end if
if lcase(strEmail) = "1" and Topic_Status < 2 then
if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 and mLev > 0 then
if strSubscription > 0 and Cat_Subscription > 0 and Forum_Subscription > 0 then
if InArray(strTopicSubs, Topic_ID) then
Response.Write "<br />" & ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "Y")
elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) then
Response.Write "<br />" & ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "Y")
end if
end if
end if
if ((mlev <> 0) or (mlev = 0 and strLogonForMail <> "1")) and lcase(strShowSendToFriend) = "1" then
Response.Write "<br /><a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "topic.asp?topic_id=" & Topic_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","") & "</a> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "topic.asp?topic_id=" & Topic_ID & "')"">Send Topic to a Friend</a> "
end if
end if
if lcase(strShowPrinterFriendly) = "1" and Topic_Status < 2 then
Response.Write "<br /><a href=""JavaScript:openWindow5('pop_printer_friendly.asp?" & ArchiveLink & "topic_id=" & Topic_ID & "')"">" & getCurrentIcon(strIconPrint,"","") & "</a> <a href=""JavaScript:openWindow5('pop_printer_friendly.asp?" & ArchiveLink & "topic_id=" & Topic_ID & "')"">Printer Friendly</a> "
end if
end if
end sub

sub AdminOptions()
if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then
if (Cat_Status = 0) then
if (mlev = 4) then
Response.Write "<a href=""JavaScript:openWindow('pop_open.asp?mode=Category&cat_id=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Category","") & "</a> "
else
Response.Write getCurrentIcon(strIconFolderUnlocked,"Category Locked","")
end if
else
if (Forum_Status = 0) then
Response.Write "<a href=""JavaScript:openWindow('pop_open.asp?mode=Forum&forum_id=" & Forum_ID & "&cat_id=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Forum","") & "</a> "
else
if (Topic_Status <> 0) then
Response.Write "<a href=""JavaScript:openWindow('pop_lock.asp?mode=Topic&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & "&cat_id=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderLocked,"Lock Topic","") & "</a> "
else
Response.Write "<a href=""JavaScript:openWindow('pop_open.asp?mode=Topic&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & "&cat_id=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Topic","") & "</a> "
end if
end if
end if
if ((Cat_Status <> 0) and (Forum_Status <> 0) and (Topic_Status <> 0)) or (AdminAllowed = 1) then
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=EditTopic&reply_id=" & Topic_ID & "&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconFolderPencil,"Edit Topic","hspace=""0""") & "</a> "
end if
Response.Write "<a href=""JavaScript:openWindow('pop_delete.asp?" & ArchiveLink & "mode=Topic&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & "&cat_id=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderDelete,"Delete Topic","") & "</a> " & _
"<a href=""post.asp?" & ArchiveLink & "method=Topic&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"New Topic","") & "</a> "
if Topic_Status <= 1 and ArchiveView = "" then
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"Reply to Topic","") & "</a> "
end if
end if
' DEM --> Start of Code added for Full Moderation
if (AdminAllowed = 1 and CheckForUnModeratedPosts("TOPIC", Cat_ID, Forum_ID, Topic_ID) > 0) then
TopicString = "topic_id=" & Topic_ID & "&forum_id=" & Forum_ID & "&cat_id=" & Cat_ID & "&reply_id=X"
Response.Write "<a href=""JavaScript:openWindow('pop_moderate.asp?" & TopicString & "')"">" & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject all posts for this Topic","") & "</a> "
end if
' DEM --> End of Code added for Full Moderation
end sub

sub DropDownPaging(fnum)
if maxpages > 1 then
if mypage = "" then
pge = 1
else
pge = mypage
end if
scriptname = request.servervariables("script_name")
Response.Write "<form name=""PageNum" & fnum & """ action=""topic.asp"">" & _
"<td class=""hcc hfc nw"">"
if Archiveview = "true" then Response.Write "<input type=""hidden"" name=""ARCHIVE"" value=""" & ArchiveView & """ />"
Response.Write "<input type=""hidden"" name=""TOPIC_ID"" value=""" & Request("TOPIC_ID") & """ />" & _
"Page <select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">"
for counter = 1 to maxpages
if counter <> cLng(pge) then
Response.Write "<option value=""" & counter & """>" & counter & "</option>"
else
Response.Write "<option selected=""selected"" value=""" & counter & """>" & counter & "</option>"
end if
next
Response.Write "</select> of " & maxpages & ""
if qsSearchTerms <> "" then Response.Write "<input type=""hidden"" name=""SearchTerms"" value=""" & qsSearchTerms & """ />"
Response.Write "</td>" & _
"</form>"
end if
top = "0"
end sub

Sub Topic_nav()

if prevTopic = "" then
strSQL = "SELECT T_SUBJECT, TOPIC_ID "
strSql = strSql & "FROM " & strActivePrefix & "TOPICS "
strSql = strSql & "WHERE T_LAST_POST > '" & Topic_LastPost
strSql = strSql & "' AND FORUM_ID = " & Forum_ID
strSql = strSql & " AND T_STATUS < 2" ' Ignore unapproved/held posts
strSql = strSql & " ORDER BY T_LAST_POST;"

set rsPrevTopic = my_conn.Execute(TopSQL(strSql,1))

if rsPrevTopic.EOF then
prevTopic = getCurrentIcon(strIconBlank,"","align=""top"" hspace=""6""")
else
prevTopic = "<a href=""topic.asp?" & ArchiveLink & "topic_id=" & rsPrevTopic("TOPIC_ID") & """>" & getCurrentIcon(strIconGoLeft,"Previous Topic","align=""top"" hspace=""6""") & "</a>"
end if

rsPrevTopic.close
set rsPrevTopic = nothing
else
prevTopic = prevTopic
end if

if NextTopic = "" then
strSQL = "SELECT T_SUBJECT, TOPIC_ID "
strSql = strSql & "FROM " & strActivePrefix & "TOPICS "
strSql = strSql & "WHERE T_LAST_POST < '" & Topic_LastPost
strSql = strSql & "' AND FORUM_ID = " & Forum_ID
strSql = strSql & " AND T_STATUS < 2" ' Ignore unapproved/held posts
strSql = strSql & " ORDER BY T_LAST_POST DESC;"

set rsNextTopic = my_conn.Execute(TopSQL(strSql,1))

if rsNextTopic.EOF then
nextTopic = getCurrentIcon(strIconBlank,"","align=""top"" hspace=""6""")
else
nextTopic = "<a href=""topic.asp?" & ArchiveLink & "topic_id=" & rsNextTopic("TOPIC_ID") & """>" & getCurrentIcon(strIconGoRight,"Next Topic","align=""top"" hspace=""6""") & "</a>"
end if

rsNextTopic.close
set rsNextTopic = nothing
else
nextTopic = nextTopic
end if

Response.Write prevTopic & "<span class=""hfc""> Topic </span>" & nextTopic

end sub

function SearchHiLite(fStrMessage)
'function derived from HiLiTeR by 2eNetWorX
fArr = split(replace(qsSearchTerms,";",""), ",")
strBuffer = ""
for iPos = 1 to len(fStrMessage)
bChange = False
'Looks for html tags
if mid(fStrMessage, iPos, 1) = "<" then
bInHTML = True
end if
'Looks for End of html tags
if bInHTML = True then
if mid(fStrMessage, iPos, 1) = ">" then
bInHTML = False
end if
end if
if bInHTML <> True then
for i = 0 to UBound(fArr)
if fArr(i) <> "" then
if lcase(mid(fStrMessage, iPos, len(fArr(i)))) = lcase(fArr(i)) then
bChange = True
strBuffer = strBuffer & "<span class=""hlfc hlbc"" id=""hilite"">" & _
mid(fStrMessage, iPos, len(fArr(i))) & "</span id=""hilite"">"
iPos = iPos + len(fArr(i)) - 1
end if
end if
next
end if
if Not bChange then
strBuffer = strBuffer & mid(fStrMessage, iPos, 1)
end if
next
SearchHiLite = strBuffer
end function

Sub QuickReply()
intSigDefault = getSigDefault(MemberID)
Response.Write "<script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & _
"<form name=""PostTopic"" method=""post"" action=""post_info.asp"" onsubmit=""return validate();"">" & _
"<input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """ />" & _
"<input name=""Method_Type"" type=""hidden"" value=""Reply"" />" & _
"<input name=""TOPIC_ID"" type=""hidden"" value=""" & Topic_ID & """ />" & _
"<input name=""FORUM_ID"" type=""hidden"" value=""" & Forum_ID & """ /> " & _
"<input name=""CAT_ID"" type=""hidden"" value=""" & Cat_ID & """ />" & _
"<input name=""Refer"" type=""hidden"" value=""" & request.servervariables("SCRIPT_NAME") & "?" & chkString(Request.QueryString,"refer") & """ />" & _
"<input name=""UserName"" type=""hidden"" value=""" & strDBNTUserName & """ />" & _
"<input name=""Password"" type=""hidden"" value=""" & Request.Cookies(strUniqueID & "User")("Pword") & """ />" & _
"<table class=""putbc"" width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""2"">" & _
"<tr>" & _
"<td class=""hcc hfc nw"" valign=""top"" colspan=""2"">Quick Reply</td>" & _
"</tr>" & _
"<tr>" & _
"<td class=""fcc iffc r nw"" valign=""top""><span class=""ifl"">Message: </span><br />" & _
"<br />" & _
"<table border=""0"">" & _
"<tr>" & _
"<td class=""ffs iffc l nw"" style=""border:none"">"
if strAllowHTML = "1" then
Response.Write "* HTML is ON<br />"
else
Response.Write "* HTML is OFF<br />"
end if
if strAllowForumCode = "1" then
Response.Write "* <a href=""JavaScript:openWindow6('pop_forum_code.asp')"">Forum Code</a> is ON<br />"
else
Response.Write "* Forum Code is OFF<br />"
end if
if strSignatures = "1" then
Response.Write "<br /><input name=""Sig"" id=""Sig"" type=""checkbox"" value=""yes""" & chkCheckbox(intSigDefault,1,true) & " /><label for=""Sig"">Include Signature</label><br />"
end if
Response.Write "</td>" & _
"</tr>" & _
"</table>" & _
"</span></td>" & _
"<td class=""fcc"" width=""" & strTopicWidthRight & """><textarea name=""Message"" cols=""50"" rows=""6"" wrap=""virtual"" style=""width:100%""></textarea><br /></td>" & _
"</tr>" & _
"<tr>" & _
"<td class=""fcc hfc c nw"" colspan=""2""><input name=""Submit"" type=""submit"" value=""Submit Reply"" /> <input name=""Preview"" type=""button"" value=""Preview Reply"" onclick=""OpenPreview()"" />"
'Response.Write " <input name=""Reset"" type=""reset"" value=""Reset Form"" /></td>" & vbNewLine & _
Response.Write "</td>" & _
"</tr>" & _
"</table>" & _
"</form>" & _
"<br />"
end sub
%>

Regards

Mike
Go to Top of Page

-gary
Development Team Member

406 Posts
Posted - 16 September 2004 :  13:56:31  Show Profile
About line 559, right after "CColor = "ffacc" end if"
KawiForums.com
Go to Top of Page

thefreemason
Starting Member

27 Posts
Posted - 17 September 2004 :  12:19:36  Show Profile
We get this:
http://www.thefreemason.com/forum/topic1.asp?topic_id=2211

Any thoughts ?
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2085 Posts
Posted - 17 September 2004 :  18:02:23  Show Profile
As -gary stated you need to make the code up, but this should work for you: 
			if intI = 0 then 
				CColor = strAltForumCellColor
			else
				CColor = strForumCellColor
			end if

                        If iForum Mod 10 = 0 then 
                        Response.Write  "           <tr>" & vbNewLine & _ 
                                        "                <td colspan=""4"" bgcolor=""" & CColor & """ valign=""top"" align=""center"" width=""100%""><script language=""JavaScript"" src http://www.thefreemason.com/adserver/abm.asp?z=4""></script>" & vbNewLine

                        Response.Write  "               </td>" & vbNewLine & _ 
                                        "           </tr>" & vbNewLine 
                        end if  

			Response.Write	"              <tr>" & vbNewLine & _
					"                <td bgcolor=""" & CColor & """ valign=""top"" width=""" & strTopicWidthLeft & """"

All you need to do is look for the code in red and insert the code in green as you see it above. I know it works as I have tested it.

I trust this helps..
Cheers,

David Greening
Go to Top of Page

thefreemason
Starting Member

27 Posts
Posted - 21 September 2004 :  16:11:59  Show Profile
Thanks Guys...will give it a go

Mike
Go to Top of Page

thefreemason
Starting Member

27 Posts
Posted - 21 September 2004 :  16:22:18  Show Profile
I love you !..really helps thanks a lot both.
Go to Top of Page

thefreemason
Starting Member

27 Posts
Posted - 22 September 2004 :  14:14:52  Show Profile
ok....works great, only is there a way to stop the advert appearing at the top of each page (except page 1) as well as between 10 & 11th replies ?

Example
http://www.thefreemason.com/forum/topic1.asp?topic_id=2189&whichpage=2

Mike
Go to Top of Page

-gary
Development Team Member

406 Posts
Posted - 22 September 2004 :  14:25:48  Show Profile
Change the: "If iForum Mod 10 = 0" then to: "If iForum Mod 10 = 0 and iForum <> 0 then"
KawiForums.com
Go to Top of Page

thefreemason
Starting Member

27 Posts
Posted - 24 September 2004 :  07:55:16  Show Profile
Thanks guys.....really great help. That works a treat !

Mike
Go to Top of Page

stwilson
Junior Member

USA
385 Posts
Posted - 15 January 2005 :  21:05:57  Show Profile  Visit stwilson's Homepage
I just added this to my site today and wanted to thank those who contributed the code. Thanks. It worked like a charm!
Shannon
RidingArizona.com
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2085 Posts
Posted - 16 January 2005 :  04:21:55  Show Profile
I am glad I helped back then..
Cheers,

David Greening
Go to Top of Page

mama2000
Junior Member

Canada
100 Posts
Posted - 07 April 2005 :  13:05:59  Show Profile  Visit mama2000's Homepage
THANKS!! I waan't liking the ads below(pretty useless there) and above just looked crappy in my setup, so this is a perfect solution!
Kelly
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.55 seconds. Powered By: Snitz Forums 2000 Version 3.4.07