| Author |
 Topic  |
|
Carefree
Advanced Member
Philippines
4217 Posts |
 Posted - 16 September 2013 : 03:57:38
|
| In "log2.asp", you will also have to include the vars2 file. That's probably your issue. |
 |
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 16 September 2013 : 05:18:17
|
I did that but it's still not working right, Carefree.
Should "log_id" be changed to "log2_id"?
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 16 September 2013 : 06:53:51
|
| Not unless you changed the values in your "weblogs2.asp" file. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 16 September 2013 : 13:27:02
|
That worked! 
I've got the "Reply to Topic" and "New Topic" and "Send Topic to Friend" font in white (as that's my preference for this instead of the default link color) but for the life of me, I can't find "Subscribe to This Topic" to change that font to white. Could you tell me how to accomplish that, Carefree?
Here's my log2.asp in txt format.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
Edited by - MaGraham on 16 September 2013 18:25:23 |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 16 September 2013 : 17:53:10
|
Every place you have this:font color=""#FFFFFF"" & strDefaultFontColor & """" change it to say this:font color=""#FFFFFF""
The same for the places you have this:font color=""#FFFFFF"" & strHeadFontColor & """"
As for the subscription link, the reason you cannot find it is because it's created using a sub-routine from "inc_subscription.asp". To make it white, the simplest method would be to copy the sub to this file and rename it.
I made those changes in the following:
<%
'#################################################################################
'## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen
'##
'## 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 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 support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'---------- Marcelg: Weblog
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp"-->
<%
If NOT Request.QueryString("log2_id_id") = "" Then
Set my_Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.RecordSet")
Set objDict = CreateObject("Scripting.Dictionary")
my_Conn.Open strConnString
'## Forum_SQL
strsql = "SELECT FORUM_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & cLng(Request.QueryString("log2_id"))
Set objRec = my_conn.Execute(strSQL)
If not objRec.EOF Then
If (objRec("FORUM_ID")) - strWebLogsForum2 <> 0 Then
Response.Redirect "topic.asp?topic_id=" & cLng(Request.QueryString("log2_id"))
End If
objRec.Close
End If
Set objRec=Nothing
End If
%>
<!--#INCLUDE FILE="inc_moderation.asp" -->
<!--#INCLUDE FILE="inc_subscription.asp" -->
<!--#INCLUDE FILE="weblogvars2.asp" -->
<%
Set my_Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.RecordSet")
Set objDict = CreateObject("Scripting.Dictionary")
my_Conn.Open strConnString
strIcons = 1
'show signatures (1 = yes, 0 = no)
ShowSigs = 0
If mLev = 4 Then
AdminAllowed = 1
ForumChkSkipAllowed = 1
ElseIf mLev = 3 Then
If chkForumModerator(strWebLogsForum2, 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
Set objDict = Nothing
'If Request.QueryString("member") = "" Then
'thefilter = " TOP 50 "
'End If
'## Forum_SQL
strSQL = "SELECT " & thefilter & strTablePrefix & "TOPICS.TOPIC_ID, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_SUBJECT, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_VIEW_COUNT, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_MESSAGE, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_REPLIES, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_DATE, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_STATUS, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_MSGICON, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_LAST_POST, "
strSQL = strSQL & strTablePrefix & "TOPICS.CAT_ID, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.MEMBER_ID, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_NAME, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_TITLE, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_LEVEL, "
If strDisableAvatar <> "1" Then
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL, "
End If
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_POSTS "
strSQL = strSQL & "FROM " & strTablePrefix & "TOPICS, "
strSQL = strSQL & strTablePrefix & "FORUM, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS "
strSQL = strSQL & "WHERE "
If Request.QueryString("member") <> "" Then
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & cLng(Request.QueryString("member")) & " AND "
End If
If Request.QueryString("log2_id") <> "" Then
strSQL = strSQL & strTablePrefix & "TOPICS.TOPIC_ID = " & cLng(Request.Querystring("log2_id")) & " AND "
End If
strSQL = strSQL & strTablePrefix & "TOPICS.FORUM_ID = " & strTablePrefix & "FORUM.FORUM_ID AND "
strSQL = strSQL & strTablePrefix & "FORUM.FORUM_ID = " & strWebLogsForum2 & " AND "
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID AND " & strTablePrefix & "TOPICS.T_STATUS < 2 AND " & strTablePrefix & "TOPICS.T_STATUS > 0 "
strSQL = strSQL & "ORDER BY " & strTablePrefix & "TOPICS.TOPIC_ID DESC;"
set objRec = my_Conn.Execute(strSql)
DTString = " weblogs "
If NOT objRec.EOF Then
If Request.QueryString("member") <> "" or Request.QueryString("log2_id") <> "" Then
DTString = " <a href=""log2.asp?member=" & objRec("MEMBER_ID") & """><font color=""#ffffff"">" & objRec("M_NAME") & "'s Blog</font></a>"
End If
Else
DTString = " Nothing found !"
End If
If Request.QueryString("member") <> "" AND Request.QueryString("log2_id") = "" Then
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""5"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """><a href=""post.asp?method=Topic&Forum_ID=" & strWebLogsForum2 & """>" & "<font color=""#FFFFFF"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img alt=""Add New Blog Entry"" src=""images\icon_new_blog_entry_red.png"" align=""right"" valign=""middle"" border=""0"" ></a><font color=""#FFFFFF"" face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strSidebarDelimiter & " " & DTString & " " & strSidebarDelimiter & "</b></font> <a href=""weblogs2.asp""><font color=""#FFFFFF"" face=""" & strDefaultFontFace & """ size=""3"" & strFooterFontSize & """"><center>All Weblogs</center><b>" & strSidebarDelimiter & " " & strSidebarDelimiter & "</b></a> " & vbNewLine & _
" </tr></table>" & vbNewLine
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
Else
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""5"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """><a href=""post.asp?method=Topic&Forum_ID=" & strWebLogsForum2 & """>" & "<font color=""#FFFFFF"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img alt=""Add New Blog Entry"" src=""images\icon_new_blog_entry_red.png"" align=""right"" valign=""middle"" border=""0"" ></a><font color=""#FFFFFF"" face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strSidebarDelimiter & " " & DTString & " " & strSidebarDelimiter & "</b></font> <a href=""weblogs2.asp"">" & "<font color=""#FFFFFF"" face=""arial"" & strDefaultFontFace & """" size=""5"" & strFooterFontSize & """" align=""center"" valign=""middle"" ><center><b>BACK TO ALL MEMBERS' BLOGS</b></center><b>" & strSidebarDelimiter & "</b></a> " & vbNewLine & _
" </tr></table>" & vbNewLine
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
End If
If Request.QueryString("log2_id") = "" Then
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""10"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%""><table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""1"" border=""0"" width=""100%"">" & vbNewLine
Else
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""10"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine
End If
counter = 1
While NOT objRec.EOF
If counter > 1 Then Response.Write ""
counter = counter + 1
T_Subject = objRec("T_SUBJECT")
T_View_Count = objRec("T_VIEW_COUNT")
T_Author = objRec("T_AUTHOR")
MEMBER_ID = objRec("MEMBER_ID")
M_NAME = objRec("M_NAME")
M_TITLE = objRec("M_TITLE")
M_LEVEL = objRec("M_LEVEL")
M_POSTS = objRec("M_POSTS")
T_Message = objRec("T_MESSAGE")
T_REPLIES = objRec("T_REPLIES")
T_DATE = objRec("T_DATE")
TOPIC_ID = objRec("TOPIC_ID")
T_LAST_POST = objRec("T_LAST_POST")
If strDisableAvatar <> "1" Then
Member_Avatar = objRec("M_AVATAR_URL")
End If
Topic_MsgIcon = objRec("T_MSGICON")
CAT_ID = objRec("CAT_ID")
T_STATUS = objRec("T_STATUS")
Response.Write " <tr>" & vbNewLine
If Request.QueryString("log2_id") = "" Then
If DateToStr(strForumTimeAdjust) - T_DATE > 1000000 Then
Response.Write " <td width=""70%""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> " & left(ChkDate1(T_DATE),5) & " " & vbnewline
Else
Response.Write " <td width=""70%""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> " & left(ChkTime1(T_DATE),6) & " " & vbnewline
End If
If Request.QueryString("member") = "" Then
Response.Write " <a href=""log2.asp?log2_id=" & TOPIC_ID & """>" & T_Subject & "</a></td><td></font><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(objRec("M_NAME"),"display") & "</font></td>"
Else
Response.Write " <a href=""log2.asp?log2_id=" & TOPIC_ID & """>" & T_Subject & "</a></td><td></font></td>"
End If
If T_REPLIES <> 1 Then
Response.Write " <td><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & T_REPLIES & " " & strSMReplies & ""
Else
Response.Write " <td><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & T_REPLIES & " " & strSMReply & ""
End If
Response.Write "</font></td></tr>"
Else
If strDisableAvatar <> "1" Then
If Member_Avatar = strImageURL & "noavatar.gif" or Member_Avatar = " " Then
' Do Nothing
Else
' Response.Write "<img src=""" & Member_Avatar & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """>"
Response.Write "<td bgcolor=""" & strForumCellColor & """ cellpadding=""5"" valign=""top""><a href=""pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & """><img src=""" & Member_Avatar & """ border=""" & intAvatarBorder & """></a></td>"
End If
End If
Response.Write " <td width=""100%"" colspan=""2"" bgcolor=""" & strHeadCellColor & """ valign=""middle"">" & _
" <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & T_Subject & "</font></b>" & _
" <br><font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>This message was posted by " & vbNewline
If strUseExtendedProfile Then
Response.Write " <a href=""pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & """>" & vbNewLine
Else
Response.Write " <a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & "')"">" & vbNewLine
End If
Response.Write " </font><font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & ChkString(objRec("M_NAME"),"display") & "</a></font>" & vbNewLine & _
" <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>on " & chkDate1(T_DATE) & " at " & left(ChkTime1(T_DATE),6) & "</font>" & vbNewLine & _
" <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>.:.</b> " & (T_View_Count + 1) & "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> times viewed " & vbNewline
If T_REPLIES = 0 Then
Response.Write "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>." & strSidebarDelimiter & ".</b>" & strSMMNoReplies & vbNewLine
Else
If T_REPLIES = 1 Then
Response.Write "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>." & strSidebarDelimiter & ".</b> There is " & T_REPLIES & " reply to this post" & vbNewLine
Else
Response.Write "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>." & strSidebarDelimiter & ".</b> There are " & T_REPLIES & " replies to this post" & vbNewLine
End If
End If
If T_Author = getMemberID(strDBNTUserName) or AdminAllowed = 1 Then
Response.Write "<table valign=""middle"" float=""right"" align=""right"" cellspacing=""1"" cellpadding=""1"" border=""0"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <tr><td bgcolor=""" & strForumCellColor & """ cellpadding=""0"" align=""center"" valign=""middle"">" & vbNewLine
call AdminOptions
Response.Write "</td></tr></table>"
End If
T_Message = FormatStr(Trim(T_MESSAGE))
Response.Write " " & vbNewLine & _
" </td>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ cellpadding=""0"" align=""center"" valign=""top"">" & getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","align=""absmiddle"" hspace=""0""") & "</td>" & vbNewline & _
" <td colspan=""2"" bgcolor=""" & strForumCellColor & """ height=""" & strCategoryCellHeight & """>" & VBNewline & _
"<font color=""" & strDefaulFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & "<span class=""spnMessageText"" id=""msg"">" & FormatStr(Trim(T_MESSAGE)) & "</span id=""msg"">" & vbNewLine & vbNewline
If T_STATUS <> 0 Then
If T_REPLIES > 0 and Request.QueryString("log2_id") = "" Then
Response.Write " <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""log2.asp?log2_id=" & TOPIC_ID & """>" & "<font color=""#FFFFFF"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a> | <a href=""post.asp?method=Reply&topic_id=" & TOPIC_ID & "&FORUM_ID=" & strWebLogsForum2 & """>" & "<font color=""#FFFFFF"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReplyText & "</a>" & vbNewLine
Else
Response.Write " <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""post.asp?method=Reply&topic_id=" & TOPIC_ID & "&FORUM_ID=" & strWebLogsForum2 & """>" & "<font color=""#FFFFFF"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReplyText & "</a>" & vbNewLine
End If
Else
If T_REPLIES > 0 and Request.QueryString("log2_id") = "" Then
Response.Write " <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""log2.asp?log2_id=" & TOPIC_ID & """>" & "<font color=""#FFFFFF"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a>" & vbNewLine
End If
End If
Response.Write " </font></td></tr></table>" & vbNewLine
'place your adcode here
If request.querystring("log2_id") <> "" and strEnableAdsInWeblogs = "Yes" Then
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"--><a name="replies"></a>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="inc_468x60.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
Else
%>
<a name="replies"></a>
<%
End If
'end of adcode
'---------- Forum_SQL
strSql = "UPDATE " & strTablePrefix & "TOPICS "
strSql = strSql & " SET T_VIEW_COUNT = (T_VIEW_COUNT + 1) "
strSql = strSql & " WHERE (TOPIC_ID = " & TOPIC_ID & ")"
my_conn.Execute (strSql),,adCmdText + adExecuteNoRecords
End If
objRec.MoveNext()
Wend
If request.querystring("log2_id")<> "" and T_REPLIES <> 0 Then
Topic_ID = cLng(Request.QueryString("log2_id"))
Dim ArchiveView, ArchiveLink, CColor
Dim vPercent(100)
Dim vAnswers(15)
Dim vCount(15)
Dim mpoll, nMaxValue, nMaxWidth
Dim nTotal, nTotal2, nThisVal
If request("ARCHIVE") = "true" Then
strActivePrefix = strTablePrefix & "A_"
ArchiveView = "true"
ArchiveLink = "ARCHIVE=true&"
Else
strActivePrefix = strTablePrefix
ArchiveView = ""
ArchiveLink = ""
End If
If mlev >= 3 Then
intCol = 4
Else
intCol = 3
End If
Response.Write " <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
" Function ChangePage(fnum){" & vbNewLine & _
" If (fnum == 1) {" & vbNewLine & _
" document.PageNum1.submit();" & vbNewLine & _
" }" & vbNewLine & _
" Else {" & vbNewLine & _
" document.PageNum2.submit();" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" </script>" & vbNewLine
mypage = request("whichpage")
If ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) Then mypage = 1
mypage = cLng(mypage)
If Request("SearchTerms") <> "" Then
SearchLink = "&SearchTerms=" & Request("SearchTerms")
Else
SearchLink = ""
End If
If strSignatures = "1" and strDSignatures = "1" Then
If ViewSig(MemberID) <> "0" Then
CanShowSignature = 1 AND ShowSigs = 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_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_AVATAR_URL" & _
", T.T_DATE, T.T_SUBJECT, T.T_AUTHOR, T.TOPIC_ID, T.T_STATUS, T.T_ISPOLL, T.T_POLLSTATUS, 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.F_POLLS, F.FORUM_ID, F.F_SUBSCRIPTION, F.F_SUBJECT, F.F_MODERATION, T.T_MSGICON, T.T_MESSAGE"
If CanShowSignature = 1 AND ShowSigs = 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_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")
Member_Avatar = rsTopic("M_AVATAR_URL")
Topic_Date = rsTopic("T_DATE")
Topic_Subject = rsTopic("T_SUBJECT")
Topic_Author = rsTopic("T_AUTHOR")
TopicID = rsTopic("TOPIC_ID")
T_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_MsgIcon = rsTopic("T_MSGICON")
Topic_Message = rsTopic("T_MESSAGE")
If CanShowSignature = 1 AND ShowSigs = 1 Then
Topic_MemberSig = trim(rsTopic("M_SIG"))
End If
IsPoll = rsTopic("T_ISPOLL")
Forum_Polls = rsTopic("F_POLLS")
Poll_Status = rsTopic("T_POLLSTATUS")
If IsPoll = 1 Then
strSql = "SELECT P.P_LASTVOTE, P.P_WHOVOTES"
For i = 1 To 15
strSql = strSql & ", P.ANSWER" & CStr(i)
strSql = strSql & ", P.COUNT" & CStr(i)
Next
strSql = strSql & " FROM " & strTablePrefix & "POLLS P"
strSql = strSql & " WHERE P.TOPIC_ID = " & Topic_ID
set rsPoll = Server.CreateObject("ADODB.Recordset")
rsPoll.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If not(rsPoll.EOF) or not(rsPoll.BOF) Then
Last_Vote = rsPoll("P_LASTVOTE")
strWhoVotes = rsPoll("P_WHOVOTES")
For nCount = 1 to 15
'Loop through answer and count fields For the poll
'and store them in arrays
vAnswers(nCount) = rsPoll("ANSWER" & CStr(nCount))
vCount(nCount) = rsPoll("COUNT" & CStr(nCount))
Next
End If
rsPoll.Close
set rsPoll = nothing
End If
If IsPoll = 1 Then
pollLink = "poll=1&"
Else
pollLink = ""
End If
'dateHolder = strtodate(rsTopic("T_EVENT_DATE"))
'IsEvent = rsTopic("T_ISEVENT")
End If
rsTopic.close
set rsTopic = nothing
If recTopicCount = "" Then
If ArchiveView <> "true" Then
Response.Redirect("topic.asp?ARCHIVE=true&" & Request.QueryString)
Else
Response.Redirect("forums.asp")
End If
End If
If IsPoll = 1 Then
'Check to see If user has voted
Voted = GetVote(Topic_ID)
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("log2.asp?" & strwhichpage & "log2_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
'---------- Forum_SQL
strSql = "SELECT M.M_NAME, M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_AVATAR_URL"
strSql = strSql & ", M.M_PMRECEIVE"
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, R.R_MSGICON"
If CanShowSignature = 1 AND ShowSigs = 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
'sidebarmod
Response.Write "<table border=""0"" cellspacing=""5"" cellpadding=""0"" bgcolor=""" & strPageBGColor & """ width=""100%"">" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
If maxpages > 1 Then
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""1"" width=""80%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""right"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
If mypage > 1 Then Response.Write("<a href=""log2.asp?" & ArchiveLink & "log2_id=" & Topic_ID & "&whichpage=" & mypage-1 & SearchLink & "#replies"" title=""Go to previous page""" & dWStatus("Go to previous page") & ">Previous page</a>")
If mypage > 1 and mypage < maxpages Then Response.Write(" | ")
If mypage < maxpages Then Response.Write("<a href=""log2.asp?" & ArchiveLink & "log2_id=" & Topic_ID & "&whichpage=" & mypage+1 & SearchLink & "#replies"" title=""Go to Next page""" & dWStatus("Go to Next page") & ">Next page</a>")
Response.Write "</td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
End If
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""80%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine
If maxpages > 1 Then
Call DropDownPaging(1)
Else
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthLeft & """"
If lcase(strTopicNoWrapLeft) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """></font></b></td>" & vbNewLine
End If
Response.Write " <td align=""right"" height=""100%"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthRight & """"
If lcase(strTopicNoWrapRight) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine & _
"</font></b>" & vbNewLine
If (AdminAllowed = 1) Then
' Response.Write " <td align=""right"" bgcolor=""" & strHeadCellColor & """ nowrap>" & vbNewLine
call AdminOptions()
' Response.Write " </td>" & vbNewLine
Else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font>" & vbNewLine
End If
Response.Write " </td></tr>" & vbNewLine
' ---------- 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_TITLE = 1
rMEMBER_ID = 2
rM_HOMEPAGE = 3
rM_LEVEL = 4
rM_POSTS = 5
rM_COUNTRY = 6
rM_Avatar = 7
rM_PMRECEIVE = 8
rREPLY_ID = 9
rFORUM_ID = 10
rR_AUTHOR = 11
rTOPIC_ID = 12
rR_MESSAGE = 13
rR_LAST_EDIT = 14
rR_LAST_EDITBY = 15
rR_SIG = 16
rR_STATUS = 17
rR_DATE = 18
rR_MSGICON = 19
If CanShowSignature = 1 AND ShowSigs = 1 Then
rM_SIG = 20
End If
For iForum = 0 to iReplyCount
Reply_MemberName = arrReplyData(rM_NAME, 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_MemberAvatar = arrReplyData(rM_Avatar, iForum)
Reply_MemberPMReceive = arrReplyData(rM_PMRECEIVE, 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)
Reply_MsgIcon = arrReplyData(rR_MSGICON, iForum)
If CanShowSignature = 1 AND ShowSigs = 1 Then
Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum))
End If
If intI = 0 Then
CColor = strAltForumCellColor
Else
CColor = strForumCellColor
End If
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ valign=""top"" width=""" & strTopicWidthLeft & """"
If lcase(strTopicNoWrapLeft) = "1" Then Response.Write(" nowrap")
Response.Write ">" & vbNewLine & _
" <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><span class=""spnMessageText"">" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "</span></b></font><br />" & vbNewLine
If strShowRank = 1 or strShowRank = 3 Then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & ChkString(getMember_Level(Reply_MemberTitle, Reply_MemberLevel, Reply_MemberPosts),"display") & "</small></font><br />" & vbNewLine
End If
If strShowRank = 2 or strShowRank = 3 Then
If strUseAdminFiveStars = "1" Then
Response.Write " " & getStar_LevelAdmin5Stars(Reply_MemberLevel, Reply_MemberPosts) & "<br />" & vbNewLine
Else
Response.Write " " & getStar_Level(Reply_MemberLevel, Reply_MemberPosts) & "<br />" & vbNewLine
End If
End If
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
'---------- Crash: Show Avatar
If strDisableAvatar <> "1" Then
If Reply_MemberAvatar = strImageURL & "noavatar.gif" or Reply_MemberAvatar = " " Then
'Do Nothing
Else
' Response.Write "<img src=""" & Reply_MemberAvatar & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """>"
Response.Write "<img align=""center"" src=""" & Reply_MemberAvatar & """ border=""" & intAvatarBorder & """>"
End If
End If
'Response.Write " </p>" & vbNewLine
'Response.Write " <p>" & vbNewLine
Response.Write " <td valign=""top"" bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"
If lcase(strTopicNoWrapRight) = "1" Then Response.Write(" nowrap")
If (AdminAllowed = 1) and (maxpages > 1) Then
Response.Write (" colspan=""2"" ")
Else
Response.Write (" colspan=""2"" ")
End If
Response.Write "><a name=""" & Reply_ReplyID & """></a>" & vbNewLine & _
" <table width=""100%"" height=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine
If CanShowSignature = 1 AND ShowSigs = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" Then
Response.Write " <td colspan=""2"" valign=""top"" width=""100%"" height=""100%"">"
Else
Response.Write " <td colspan=""1"" valign=""top"" width=""100%"" height=""100%"">"
End If
' DEM --> Start of Code altered For moderation
If Reply_Status < 2 Then
If strUseMessageIcons = "1" Then
If strUseBugForm = "1" and Reply_ForumID = cInt(intBugFormForum) Then
Response.Write " " & getCurrentIcon(strIconBug,"Bug Report","align=""absmiddle"" hspace=""0""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Posted " & left(chkDate(Reply_Date, "", false),5) & "/" & right(chkDate(Reply_Date, "", false),2) & " @ " & left(right(chkDate(Reply_Date, "" ,true),8),5) & "</font>" & vbNewline
Else
Response.Write " " & getCurrentIcon(getCurrentMsgIcon(Reply_MsgIcon),"","align=""absmiddle"" hspace=""0""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Posted " & left(chkDate(Reply_Date, "", false),5) & "/" & right(chkDate(Reply_Date, "", false),2) & " @ " & left(right(chkDate(Reply_Date, "" ,true),8),5) & "</font>" & vbNewline
End If
Else
Response.Write " " & getCurrentIcon(strIconPosticon,"","align=""absmiddle"" hspace=""0""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Posted " & left(chkDate(Reply_Date, "", false),5) & "/" & right(chkDate(Reply_Date, "", false),2) & " @ " & left(right(chkDate(Reply_Date, "" ,true),8),5) & "</font>" & vbNewline
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
If Reply_LastEditBy <> Reply_Author Then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
"(Edited by " & Reply_LastEditByName & " " & left(chkDate(Reply_LastEdit, "", false),5) & "/" & right(chkDate(Reply_LastEdit, "", false),2) & " @ " & left(right(chkDate(Reply_LastEdit, "" ,true),8),5) & ")</font>" & vbNewLine
Else
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
"(Edited " & left(chkDate(Reply_LastEdit, "", false),5) & "/" & right(chkDate(Reply_LastEdit, "", false),2) & " @ " & left(right(chkDate(Reply_LastEdit, "" ,true),8),5) & ")</font>" & vbNewLine
End If
End If
ElseIf Reply_Status = 2 Then
Response.Write " <font color=""red"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>NOT MODERATED</b></font>" & vbNewline
ElseIf Reply_Status = 3 Then
Response.Write " " & getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "<font color=""red"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>ON HOLD</b></font>" & vbNewline
End If
' DEM --> End of Code added For moderation.
If mlev > 2 Then
Response.Write " " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""0"""),Reply_MemberID) & vbNewLine
End If
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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If mlev > 1 and Reply_MemberPMReceive = "1" Then
Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & Reply_MemberName & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & Reply_MemberName & " a Private Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If (AdminAllowed = 1 or Reply_MemberID = MemberID) Then
If (Cat_Status <> 0 and Forum_Status <> 0 and T_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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If ((Cat_Status <> 0 and Forum_Status <> 0 and T_STATUS = 1) or (AdminAllowed = 1 and T_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(strIconReplyQuote,"Reply with Quote","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
If (strIPLogging = "1") Then
If (AdminAllowed = 1 and MemberID = intAdminMemberID) 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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If (AdminAllowed = 1 or Reply_MemberID = MemberID) Then
If (Cat_Status <> 0 and Forum_Status <> 0 and T_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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
Response.Write " <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine
If CanShowSignature = 1 AND ShowSigs = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" Then
Response.Write " <td valign=""top"" colspan=""2"" width=""100%"" height=""70"">"
Else
Response.Write " <td valign=""top"" colspan=""1"" width=""100%"" height=""70"">"
End If
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"" id=""msg"">"
If Request.QueryString("SearchTerms") <> "" Then
Response.Write SearchHiLite(formatStr(Reply_Content))
Else
Response.Write formatStr(Reply_Content)
End If
Response.Write "</span id=""msg""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
If CanShowSignature = 1 AND ShowSigs = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" Then
Response.Write " " & vbNewLine & _
" <td colspan=""2"" width=""100%""valign=""bottom""><hr noshade size=""" & strFooterFontSize & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText"">" & formatStr(Reply_MemberSig) & "</span></font></td>" & vbNewLine & _
" " & vbNewLine
End If
Response.Write " " & vbNewLine & _
" <td valign=""bottom"" align=""right"" height=""""><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Back to top","align=""right""") & "</a></td>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
intI = 1-intI
Next
End If
Response.Write " <tr>" & vbNewLine
If maxpages > 1 Then
Call DropDownPaging(2)
Else
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthLeft & """"
If lcase(strTopicNoWrapLeft) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """></font></b></td>" & vbNewLine
End If
Response.Write " <td align=""right"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthRight & """"
If lcase(strTopicNoWrapRight) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine & _
"</font></b>" & vbNewLine
If (AdminAllowed = 1) Then
'Response.Write " <td align=""right"" bgcolor=""" & strHeadCellColor & """ nowrap>" & vbNewLine
call AdminOptions()
'Response.Write "</td>" & vbNewLine
Else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font>" & vbNewLine
End If
Response.Write " </td></tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td colspan=""" & intCol & """ align=""center"" bgcolor=""" & strCategoryCellColor & """ width=""100%"" height=""" & strCategoryCellHeight & """>" & vbNewLine
Call PostingOptions()
Response.Write " </td>"& vbNewLine &_
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
If maxpages > 1 Then
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""1"" width=""80%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
If mypage > 1 Then Response.Write("<a href=""log2.asp?" & ArchiveLink & "log2_id=" & Topic_ID & "&whichpage=" & mypage-1 & SearchLink & "#replies"" title=""Go to previous page""" & dWStatus("Go to previous page") & ">Previous page</a>")
If mypage > 1 and mypage < maxpages Then Response.Write(" | ")
If mypage < maxpages Then Response.Write("<a href=""log2.asp?" & ArchiveLink & "log2_id=" & Topic_ID & "&whichpage=" & mypage+1 & SearchLink & "#replies"" title=""Go to Next page""" & dWStatus("Go to Next page") & ">Next page</a>")
Response.Write "</td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
End If
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""99%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <table width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""right"" valign=""top"" width=""50%"" nowrap>" & vbNewLine
End If
'google adsense
If T_REPLIES > 4 and strEnableAdsInWeblogs = "Yes" and request.querystring("log2_id") <> "" Then
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="inc_468x60.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
End If
'end of adsense
If request.querystring("log2_id")<> "" and mlev > 0 Then
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
call QuickReply()
End If
Response.Write "</table>" & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td valign=""top"" width=""0%"">" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table><br>" & vbNewLine
WriteFooter
Sub QuickReply()
If T_STATUS <> 0 Then
intSigDefault = getSigDefault(MemberID)
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <form name=""PostTopic"" method=""post"" action=""post_info.asp"" onSubmit=""return validate();"">" & vbNewLine & _
" <form name=""PostTopic"" method=""post"" action=""post_info.asp"" onSubmit=""document.PostTopic.Submit.disabled=true;document.PostTopic.Submit.value='Submit Reply';"">" & vbNewLine & _
" <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine & _
" <input name=""Method_Type"" type=""hidden"" value=""Reply"">" & vbNewLine & _
" <input name=""TOPIC_ID"" type=""hidden"" value=""" & Topic_ID & """>" & vbNewLine & _
" <input name=""FORUM_ID"" type=""hidden"" value=""" & Forum_ID & """> " & vbNewLine & _
" <input name=""CAT_ID"" type=""hidden"" value=""" & Cat_ID & """>" & vbNewLine & _
" <input name=""Refer"" type=""hidden"" value=""" & request.servervariables("SCRIPT_NAME") & "?" & replace(Request.QueryString,"#","#") & """>" & vbNewLine & _
" <input name=""UserName"" type=""hidden"" value=""" & strDBNTUserName & """>" & vbNewLine & _
" <input name=""Password"" type=""hidden"" value=""" & Request.Cookies(strUniqueID & "User")("Pword") & """>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ noWrap vAlign=""middle"" height=""" & strCategoryCellHeight & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """> <b>"& strSMMReplyText &"</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ noWrap vAlign=""top"" align=""right""><table border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine
If strAllowHTML = "1" Then
Response.Write " HTML is on<br />" & vbNewLine
Else
Response.Write " HTML is off<br />" & vbNewLine
End If
If strAllowForumCode = "1" Then
Response.Write " <a href=""JavaScript:openWindow6('pop_forum_code.asp')"">Forum Code</a> is on<br />" & vbNewLine
Else
Response.Write " Forum Code is off<br />" & vbNewLine
End If
If strIcons = "1" and strShowSmiliesTable = "1" Then
Response.Write " <a href=""JavaScript:openWindow6('pop_new_smiles.asp')"">show smilies</a><br />" & vbNewLine
End If
If strSignatures = "1" Then
Response.Write " <br /><input name=""Sig"" type=""checkbox"" value=""yes""" & chkCheckbox(intSigDefault,1,true) & ">Use signature<br />" & vbNewLine
End If
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </span></font></td>" & vbNewLine & _
" <td width=""" & strTopicWidthRight & """ bgColor=""" & strForumCellColor & """><textarea class=""gmltxtarea"" name=""Message"" cols=""50"" rows=""6"" wrap=""FILE"" style=""width:100%""></textarea><br /></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ noWrap align=""center"" colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><input class=""gmlBtn2"" name=""Submit"" type=""submit"" value=""Post!""> <input class=""gmlBtn2"" name=""Preview"" type=""button"" value=""preview"" onclick=""OpenPreview()""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </form>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine & _
"<script language=""JavaScript"" type=""text/javascript"" src=""inc_keydown.js""></script>"
Else
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
" <table width=""50%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine &_
" <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ noWrap vAlign=""top"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" Deleted!</font></td></tr>" & VBNewline &_
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
End If
End Sub
Sub PostingOptions()
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
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,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """><font color=""#ffffff"">Add New Blog</font></a>" & vbNewLine
If strUsePolls = "1" Then
If strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) Then
Response.Write "<font size=""2"">|</font> <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconPoll,"New Poll","align=""absmiddle""") & "</a> <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """><font color=""#ffffff"">New Poll</font></a>" & vbNewLine
End If
End If
End If
If ((Cat_Status = 1) and (Forum_Status = 1) and (T_STATUS = 1)) and ArchiveView = "" Then
Response.Write " <font size=""2""></font> <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """><font color=""#ffffff"">Reply</font></a>" & vbNewLine
Else
If ((AdminAllowed = 1 and T_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 T_STATUS = 1 and Cat_Status <> 0 and Forum_Status <> 0 Then
Response.Write getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> "
Else
Response.Write "<font size=""2"">|</font> " & getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & "</a> "
End If
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>Reply to Topic</a>" & vbNewLine
Else
If T_STATUS = 0 Then
Response.Write "<font size=""2"">|</font> " & getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & " Topic Locked" & vbNewline
End If
End If
End If
If lcase(strEmail) = "1" and T_STATUS < 2 Then
If Cat_Status <> 0 and Forum_Status <> 0 and T_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 " <font size=""2"">|</font> " & ShowSubLink2 ("U", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
ElseIf strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) Then
Response.Write " <font size=""2"">|</font> " & ShowSubLink2 ("S", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
End If
End If
End If
If ((mlev <> 0) or (mlev = 0 and strLogonForMail <> "1")) and lcase(strShowSendToFriend) = "1" Then
If strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) Then
Response.Write " <font size=""2"">|</font> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log2.asp?log2_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log2.asp?log2_id=" & Topic_ID & "')""><font color=""#ffffff"">Send Blog Link to a Friend</font></a>" & vbNewLine
Else
Response.Write " <font size=""2"">|</font> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log2.asp?log2_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log2.asp?log2_id=" & Topic_ID & "')""><font color=""#ffffff"">Send Blog Link to a Friend</a></font>" & vbNewLine
End If
End If
End If
End If
Response.Write " </font>"
End Sub
Sub AdminOptions()
If mlev <> 0 Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
If (AdminAllowed = 1) or (T_Author = getMemberID(strDBNTUserName)) or (lcase(strNoCookies) = "1") Then
If (AdminAllowed = 1) Then
If (T_Status <> 0) Then
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWebLogsForum2 & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderLocked,"Lock Topic","") & "</a>" & vbNewLine
Else
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWebLogsForum2 & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Topic","") & "</a>" & vbNewLine
End If
End If
If T_Status <> 0 or (AdminAllowed = 1) Then
Response.Write " <a href=""post.asp?" & ArchiveLink & pollLink & "method=EditTopic&REPLY_ID=" & Topic_ID & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWebLogsForum2 & """>" & getCurrentIcon(strIconFolderPencil,"Edit Topic","hspace=""0""") & "</a>" & vbNewLine
End If
If (AdminAllowed = 1) Then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?" & ArchiveLink & pollLink & "mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWebLogsForum2 & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderDelete,"Delete Topic","") & "</a>" & vbNewLine
End If
End If
Response.Write "</font>"
End If
end sub
Function SearchHiLite(fStrMessage)
'Function derived from HiLiTeR by 2eNetWorX
fArr = split(replace(Request.QueryString("SearchTerms"),";",""), ",")
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=""spnSearchHighlight"" 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 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=""log2.asp#replies"">" & vbNewLine)
Response.Write(" <td align=""right"" bgcolor=""" & strHeadCellColor & """ nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine)
If Archiveview = "true" Then Response.Write(" <input type=""hidden"" name=""ARCHIVE"" value=""" & ArchiveView & """>" & vbNewLine)
Response.Write(" <input type=""hidden"" name=""log2_id"" value=""" & Request("log2_id") & """>" & vbNewLine)
Response.Write(" <b># </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
For counter = 1 to maxpages
If counter <> cLng(pge) Then
Response.Write " <option value=""" & counter & """>" & counter & "</option>" & vbNewLine
Else
Response.Write " <option selected value=""" & counter & """>" & counter & "</option>" & vbNewLine
End If
Next
Response.Write(" </select><b> /" & maxpages & "</b>" & vbNewLine)
If Request.QueryString("SearchTerms") <> "" Then Response.Write(" <input type=""hidden"" name=""SearchTerms"" value=""" & Request.QueryString("SearchTerms") & """>" & vbNewLine)
Response.Write(" </font></td>" & vbNewLine)
Response.Write(" </form>" & vbNewLine)
End If
top = "0"
End Sub
Function DateToStr(dtDateTime)
If not isDate(strForumTimeAdjust) Then
strForumTimeAdjust = strToDate(strForumTimeAdjust)
End If
DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) & ""
End Function
Function chkTime1(tTime)
Dim fTime
fTime = tTime
If fTime = "" Then
Exit Function
End If
'## Local Time Display
fTime = DateToStr(DateAdd("n", intForumBias -intLocalBias -DayLightSave + intForumDaylAdjust, strToDate(fTime)))
'## Local Time Display
If strTimeType = 12 Then
If cint(Mid(fTime, 9,2)) > 12 Then
chkTime1 = chkTime1 & " " & _
(cint(Mid(fTime, 9,2)) -12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
ElseIf cint(Mid(fTime, 9,2)) = 12 Then
chkTime1 = chkTime1 & " " & _
cint(Mid(fTime, 9,2)) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
ElseIf cint(Mid(fTime, 9,2)) = 0 Then
chkTime1 = chkTime1 & " " & _
(cint(Mid(fTime, 9,2)) +12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
Else
chkTime1 = chkTime1 & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
End If
Else
chkTime1 = chkTime1 & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2)
End If
End Function
Function chkDate1(tDate)
Dim fdate
fdate = tdate
If fDate = "" Then
Exit Function
End If
' If IsDate(fDate) Then
'## Local Time Display
fDate = DateToStr(DateAdd("n", intForumBias -intLocalBias - DayLightSave + intForumDaylAdjust, strToDate(fDate)))
'## Local Time Display
Select Case strDateType
Case "dmy"
chkDate1 = Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,1,4)
Case "mdy"
chkDate1 = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
Case "ymd"
chkDate1 = Mid(fDate,1,4) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2)
Case "ydm"
chkDate1 =Mid(fDate,1,4) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2)
Case "dmmy"
chkDate1 = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,1,4)
Case "mmdy"
chkDate1 = Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
Case "ymmd"
chkDate1 = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2)
Case "ydmm"
chkDate1 = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1)
Case "dmmmy"
chkDate1 = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,1,4)
Case "mmmdy"
chkDate1 = Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
Case "ymmmd"
chkDate1 = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2)
Case "ydmmm"
chkDate1 = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0)
Case Else
chkDate1 = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
End Select
' End If
End Function
Function ShowSubLink2 (SubOption, CatID, ForumID, TopicID, ShowText)
Dim DefaultFont
DefaultFont = "<font color=""#ffffff"" face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
' -- Declare variables...
Dim StandardLinkInfo, LinkText, LinkIcon, LinkLevel, LinkParam
if Instr(Request.ServerVariables("SCRIPT_NAME"),"post.asp") then
' -- Only show the checkboxes on the post page...
if SubOption = "S" then
ShowSubLink2 = "<input type=""checkbox"" name=""Tnotify"" value=""1"" />Check here to subscribe to this topic."
else
ShowSubLink2 = "<input type=""checkbox"" name=""Tnotify"" value=""0"" />Check here to unsubscribe from this topic."
end if
else
' -- Standard Link
StandardLinkInfo = "<a href=""Javascript:"
if SubOption = "U" then
StandardLinkInfo = StandardLinkInfo & "unsub_confirm"
else
StandardLinkInfo = StandardLinkInfo & "openWindow"
end if
StandardLinkInfo = StandardLinkInfo & "('pop_subscription.asp?SUBSCRIBE=" & SubOption & "&MEMBER_ID=" & MemberID & "&LEVEL="
' -- Get appropriate text and icon to display
LinkParam = ""
if CatID = 0 then
LinkLevel = "BOARD"
else
LinkParam = "&CAT_ID=" & CatID
if ForumID = 0 then
LinkLevel = "CAT"
else
LinkParam = LinkParam & "&FORUM_ID=" & ForumID
if TopicID = 0 then
LinkLevel = "FORUM"
else
LinkLevel = "TOPIC" : LinkParam = LinkParam & "&TOPIC_ID=" & TopicID
end if
end if
end if
if SubOption = "U" then
LinkIcon = strIconUnsubscribe
select case LinkLevel
case "BOARD" : LinkText = "Unsubscribe from this board"
case "CAT" : LinkText = "Unsubscribe from this category"
case "FORUM" : LinkText = "Unsubscribe from this forum"
case "TOPIC" : LinkText = "Unsubscribe from this topic"
end select
else
LinkIcon = strIconSubscribe
select case LinkLevel
case "BOARD" : LinkText = "Subscribe to this board"
case "CAT" : LinkText = "Subscribe to this category"
case "FORUM" : LinkText = "Subscribe to this forum"
case "TOPIC" : LinkText = "Subscribe to this topic"
end select
end if
ShowSubLink2 = StandardLinkInfo & LinkLevel & LinkParam & "')"">" & getCurrentIcon(LinkIcon, LinkText,"align=""absmiddle""" & dwStatus(LinkText)) & "</a>"
if ShowText <> "N" then
ShowSubLink2 = ShowSubLink2 & " " & StandardLinkInfo & LinkLevel & LinkParam & "')""" & dwStatus(LinkText) & ">" & DefaultFont & LinkText & "</font></a>"
end if
end if
end function
%>
|
Edited by - Carefree on 16 September 2013 18:09:11 |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 16 September 2013 : 18:19:07
|
quote:
Originally posted by Carefree
As for the subscription link, the reason you cannot find it is because it's created using a sub-routine from "inc_subscription.asp".
Well, no wonder I couldn't find it! (lol)
You're incredible, Carefree! Thank you so much for all of your time with this! It's PERFECT!!
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 16 September 2013 : 19:34:36
|
| LOL - you'll get used to the programming methods. It makes sense to put often used routines into Functions or Subs rather than repeating them within the programs. It streamlines the code, makes the pages smaller and faster-loading, and makes changing the routines much easier - only have to do it once. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 28 September 2013 : 00:38:09
|
Does anyone know why the link generated when I created the "Blog2" forum will only open the "forum" and not the "weblogs2.asp" when it's clicked on?
It all works fine but I have to create a second link for the "weblogs2.asp" file in order for it to do so.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 28 September 2013 : 01:51:42
|
Probably you didn't make the required change to "forum.asp" for it to recognize the second weblog forum. You will need to add something like this (below the original weblog modification):
|
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 28 September 2013 : 03:12:29
|
I added what you suggested, Carefree, so that area of forum.asp now looks like this below.
if NOT Request.QueryString("FORUM_ID") = "" then
if Request.QueryString("FORUM_ID") - strWeblogsForum = 0 and mlev <> 4 then
Response.Redirect "weblogs.asp"
end if
If Request("FORUM_ID") = strWeblogsForum2 and mLev < 4 then
Response.Redirect "weblogs2.asp"
End If
end if
Dim ArchiveView
However; nothing changed.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 28 September 2013 : 04:04:29
|
Assuming that you included "weblogvars2.asp" in "config.asp", it should work unless you're logged in as admin. To make it apply to everyone, eliminate the comparisons with mLev=4 like this:
|
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 28 September 2013 : 10:07:32
|
quote:
Originally posted by Carefree
Assuming that you included "weblogvars2.asp" in "config.asp", it should work unless you're logged in as admin.
That was it; I had neglected to add "weblogvars2.asp" to config.asp.
But then, of course, I had to remove " dim strWeblogsForum2" from "weblogvars2.asp".
It works PERFECT now!
Thank you so much, Carefree! You are so very appreciated!
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 14 October 2013 : 16:16:08
|
quote:
Originally posted by Carefree
Every place you have this:font color=""#FFFFFF"" & strDefaultFontColor & """" change it to say this:font color=""#FFFFFF""
The same for the places you have this:font color=""#FFFFFF"" & strHeadFontColor & """"
As for the subscription link, the reason you cannot find it is because it's created using a sub-routine from "inc_subscription.asp". To make it white, the simplest method would be to copy the sub to this file and rename it.
I made those changes in the following:
Carefree, I thought I did all of the changes you listed above for the other file "log.asp" but the "Subscribe to Topic" is still not "white." The changes you did above worked PERFECT for log2.asp. Can you help me with the log.asp, too?
Here's my log.asp that's a bit different from my log2.asp above.
<%
'#################################################################################
'## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen
'##
'## 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 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 support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'---------- Marcelg: Weblog
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp"-->
<%
If NOT Request.QueryString("log_id") = "" Then
Set my_Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.RecordSet")
Set objDict = CreateObject("Scripting.Dictionary")
my_Conn.Open strConnString
'## Forum_SQL
strsql = "SELECT FORUM_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & cLng(Request.QueryString("log_id"))
Set objRec = my_conn.Execute(strSQL)
If not objRec.EOF Then
If (objRec("FORUM_ID")) - strWeblogsForum <> 0 Then
Response.Redirect "topic.asp?topic_id=" & cLng(Request.QueryString("log_id"))
End If
objRec.Close
End If
Set objRec=Nothing
End If
%>
<!--#INCLUDE FILE="inc_moderation.asp" -->
<!--#INCLUDE FILE="inc_subscription.asp" -->
<%
Set my_Conn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.RecordSet")
Set objDict = CreateObject("Scripting.Dictionary")
my_Conn.Open strConnString
strIcons = 1
'show signatures (1 = yes, 0 = no)
ShowSigs = 0
If mLev = 4 Then
AdminAllowed = 1
ForumChkSkipAllowed = 1
ElseIf mLev = 3 Then
If chkForumModerator(strWeblogsForum, 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
Set objDict = Nothing
'If Request.QueryString("member") = "" Then
'thefilter = " TOP 50 "
'End If
'## Forum_SQL
strSQL = "SELECT " & thefilter & strTablePrefix & "TOPICS.TOPIC_ID, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_SUBJECT, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_VIEW_COUNT, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_MESSAGE, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_REPLIES, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_DATE, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_STATUS, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_MSGICON, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_LAST_POST, "
strSQL = strSQL & strTablePrefix & "TOPICS.CAT_ID, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.MEMBER_ID, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_NAME, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_TITLE, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_LEVEL, "
If strDisableAvatar <> "1" Then
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL, "
End If
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_POSTS "
strSQL = strSQL & "FROM " & strTablePrefix & "TOPICS, "
strSQL = strSQL & strTablePrefix & "FORUM, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS "
strSQL = strSQL & "WHERE "
If Request.QueryString("member") <> "" Then
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & cLng(Request.QueryString("member")) & " AND "
End If
If Request.QueryString("log_id") <> "" Then
strSQL = strSQL & strTablePrefix & "TOPICS.TOPIC_ID = " & cLng(Request.Querystring("log_id")) & " AND "
End If
strSQL = strSQL & strTablePrefix & "TOPICS.FORUM_ID = " & strTablePrefix & "FORUM.FORUM_ID AND "
strSQL = strSQL & strTablePrefix & "FORUM.FORUM_ID = " & strWeblogsForum & " AND "
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID AND " & strTablePrefix & "TOPICS.T_STATUS < 2 AND " & strTablePrefix & "TOPICS.T_STATUS > 0 "
strSQL = strSQL & "ORDER BY " & strTablePrefix & "TOPICS.TOPIC_ID DESC;"
set objRec = my_Conn.Execute(strSql)
DTString = " weblogs "
If NOT objRec.EOF Then
If Request.QueryString("member") <> "" or Request.QueryString("log_id") <> "" Then
DTString = " <a href=""log.asp?member=" & objRec("MEMBER_ID") & """><font color=""#ffffff"">" & objRec("M_NAME") & "'s Status</font></a>"
End If
Else
DTString = " Done!"
End If
If Request.QueryString("member") <> "" AND Request.QueryString("log_id") = "" Then
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""5"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """><a href=""post.asp?method=Topic&Forum_ID=" & strWeblogsForum & """>" & "<font color=""#FFFFFF"" & face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img alt=""Add New Status Update Entry"" src=""images\icon_new_blog_entry.png"" align=""right"" valign=""middle"" border=""0"" ></a><font color=""#FFFFFF"" & face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strSidebarDelimiter & " " & DTString & " " & strSidebarDelimiter & "</b></font> <a href=""weblogs.asp""><font color=""#FFFFFF"" & face=""" & strDefaultFontFace & """ size=""3"" & strFooterFontSize & """"><center>All Status Updates</center><b>" & strSidebarDelimiter & " " & strSidebarDelimiter & "</b></a> " & vbNewLine & _
" </tr></table>" & vbNewLine
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
Else
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""5"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """><a href=""post.asp?method=Topic&Forum_ID=" & strWeblogsForum & """>" & "<font color=""#FFFFFF"" & face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img alt=""Add New Status Update Entry"" src=""images\icon_new_blog_entry.png"" align=""right"" valign=""middle"" border=""0"" ></a><font color=""#FFFFFF"" & face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strSidebarDelimiter & " " & DTString & " " & strSidebarDelimiter & "</b></font> <a href=""weblogs.asp"">" & "<font color=""#FFFFFF"" & """" face=""arial"" & strDefaultFontFace & """" size=""5"" & strFooterFontSize & """" align=""center"" valign=""middle"" ><center><b>ALL MEMBERS' STATUS UPDATES</b></center><b>" & strSidebarDelimiter & "</b></a> " & vbNewLine & _
" </tr></table>" & vbNewLine
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
End If
If Request.QueryString("log_id") = "" Then
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""10"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%""><table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""1"" border=""0"" width=""100%"">" & vbNewLine
Else
Response.Write "<table align=""center"" colspan=""2"" cellspacing=""1"" cellpadding=""10"" border=""0"" bgcolor=""" & strTableBorderColor & """ width=""100%"">" & vbNewLine
End If
counter = 1
While NOT objRec.EOF
If counter > 1 Then Response.Write ""
counter = counter + 1
T_Subject = objRec("T_SUBJECT")
T_View_Count = objRec("T_VIEW_COUNT")
T_Author = objRec("T_AUTHOR")
MEMBER_ID = objRec("MEMBER_ID")
M_NAME = objRec("M_NAME")
M_TITLE = objRec("M_TITLE")
M_LEVEL = objRec("M_LEVEL")
M_POSTS = objRec("M_POSTS")
T_Message = objRec("T_MESSAGE")
T_REPLIES = objRec("T_REPLIES")
T_DATE = objRec("T_DATE")
TOPIC_ID = objRec("TOPIC_ID")
T_LAST_POST = objRec("T_LAST_POST")
If strDisableAvatar <> "1" Then
Member_Avatar = objRec("M_AVATAR_URL")
End If
Topic_MsgIcon = objRec("T_MSGICON")
CAT_ID = objRec("CAT_ID")
T_STATUS = objRec("T_STATUS")
Response.Write " <tr>" & vbNewLine
If Request.QueryString("log_id") = "" Then
If DateToStr(strForumTimeAdjust) - T_DATE > 1000000 Then
Response.Write " <td width=""70%""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> " & left(ChkDate1(T_DATE),5) & " " & vbnewline
Else
Response.Write " <td width=""70%""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> " & left(ChkTime1(T_DATE),6) & " " & vbnewline
End If
If Request.QueryString("member") = "" Then
Response.Write " <a href=""log.asp?log_id=" & TOPIC_ID & """>" & T_Subject & "</a></td><td></font><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(objRec("M_NAME"),"display") & "</font></td>"
Else
Response.Write " <a href=""log.asp?log_id=" & TOPIC_ID & """>" & T_Subject & "</a></td><td></font></td>"
End If
If T_REPLIES <> 1 Then
Response.Write " <td><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & T_REPLIES & " " & strSMReplies & ""
Else
Response.Write " <td><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & T_REPLIES & " " & strSMReply & ""
End If
Response.Write "</font></td></tr>"
Else
If strDisableAvatar <> "1" Then
If Member_Avatar = strImageURL & "noavatar.gif" or Member_Avatar = " " Then
' Do Nothing
Else
' Response.Write "<img src=""" & Member_Avatar & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """>"
Response.Write "<td bgcolor=""" & strForumCellColor & """ cellpadding=""5"" valign=""top""><a href=""pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & """><img src=""" & Member_Avatar & """ border=""" & intAvatarBorder & """></a></td>"
End If
End If
Response.Write " <td width=""100%"" colspan=""2"" bgcolor=""" & strHeadCellColor & """ valign=""middle"">" & _
" <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & T_Subject & "</font></b>" & _
" <br><font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>This message was posted by " & vbNewline
If strUseExtendedProfile Then
Response.Write " <a href=""pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & """>" & vbNewLine
Else
Response.Write " <a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & "')"">" & vbNewLine
End If
Response.Write " </font><font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & ChkString(objRec("M_NAME"),"display") & "</a></font>" & vbNewLine & _
" <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>on " & chkDate1(T_DATE) & " at " & left(ChkTime1(T_DATE),6) & "</font>" & vbNewLine & _
" <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>.:.</b> " & (T_View_Count + 1) & "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> times viewed " & vbNewline
If T_REPLIES = 0 Then
Response.Write "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>." & strSidebarDelimiter & ".</b>" & strSMMNoReplies & vbNewLine
Else
If T_REPLIES = 1 Then
Response.Write "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>." & strSidebarDelimiter & ".</b> There is " & T_REPLIES & " reply to this post" & vbNewLine
Else
Response.Write "<font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>." & strSidebarDelimiter & ".</b> There are " & T_REPLIES & " replies to this post" & vbNewLine
End If
End If
If T_Author = getMemberID(strDBNTUserName) or AdminAllowed = 1 Then
Response.Write "<table valign=""middle"" float=""right"" align=""right"" cellspacing=""1"" cellpadding=""1"" border=""0"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <tr><td bgcolor=""" & strForumCellColor & """ cellpadding=""0"" align=""center"" valign=""middle"">" & vbNewLine
call AdminOptions
Response.Write "</td></tr></table>"
End If
T_Message = FormatStr(Trim(T_MESSAGE))
Response.Write " " & vbNewLine & _
" </td>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ cellpadding=""0"" align=""center"" valign=""top"">" & getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","align=""absmiddle"" hspace=""0""") & "</td>" & vbNewline & _
" <td colspan=""2"" bgcolor=""" & strForumCellColor & """ height=""" & strCategoryCellHeight & """>" & VBNewline & _
"<font color=""" & strDefaulFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & "<span class=""spnMessageText"" id=""msg"">" & FormatStr(Trim(T_MESSAGE)) & "</span id=""msg"">" & vbNewLine & vbNewline
If T_STATUS <> 0 Then
If T_REPLIES > 0 and Request.QueryString("log_id") = "" Then
Response.Write " <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""log.asp?log_id=" & TOPIC_ID & """>" & "<font color=""#FFFFFF"" & face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a> | <a href=""post.asp?method=Reply&topic_id=" & TOPIC_ID & "&FORUM_ID=" & strWeblogsForum & """>" & "<font color=""#FFFFFF"" & face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReplyText & "</a>" & vbNewLine
Else
Response.Write " <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""post.asp?method=Reply&topic_id=" & TOPIC_ID & "&FORUM_ID=" & strWeblogsForum & """>" & "<font color=""#FFFFFF"" & face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReplyText & "</a>" & vbNewLine
End If
Else
If T_REPLIES > 0 and Request.QueryString("log_id") = "" Then
Response.Write " <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""log.asp?log_id=" & TOPIC_ID & """>" & "<font color=""#FFFFFF"" & face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a>" & vbNewLine
End If
End If
Response.Write " </font></td></tr></table>" & vbNewLine
'place your adcode here
If request.querystring("log_id") <> "" and strEnableAdsInWeblogs = "Yes" Then
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"--><a name="replies"></a>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="inc_468x60.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
Else
%>
<a name="replies"></a>
<%
End If
'end of adcode
'---------- Forum_SQL
strSql = "UPDATE " & strTablePrefix & "TOPICS "
strSql = strSql & " SET T_VIEW_COUNT = (T_VIEW_COUNT + 1) "
strSql = strSql & " WHERE (TOPIC_ID = " & TOPIC_ID & ")"
my_conn.Execute (strSql),,adCmdText + adExecuteNoRecords
End If
objRec.MoveNext()
Wend
If request.querystring("log_id")<> "" and T_REPLIES <> 0 Then
Topic_ID = cLng(Request.QueryString("log_id"))
Dim ArchiveView, ArchiveLink, CColor
Dim vPercent(100)
Dim vAnswers(15)
Dim vCount(15)
Dim mpoll, nMaxValue, nMaxWidth
Dim nTotal, nTotal2, nThisVal
If request("ARCHIVE") = "true" Then
strActivePrefix = strTablePrefix & "A_"
ArchiveView = "true"
ArchiveLink = "ARCHIVE=true&"
Else
strActivePrefix = strTablePrefix
ArchiveView = ""
ArchiveLink = ""
End If
If mlev >= 3 Then
intCol = 4
Else
intCol = 3
End If
Response.Write " <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
" Function ChangePage(fnum){" & vbNewLine & _
" If (fnum == 1) {" & vbNewLine & _
" document.PageNum1.submit();" & vbNewLine & _
" }" & vbNewLine & _
" Else {" & vbNewLine & _
" document.PageNum2.submit();" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" </script>" & vbNewLine
mypage = request("whichpage")
If ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) Then mypage = 1
mypage = cLng(mypage)
If Request("SearchTerms") <> "" Then
SearchLink = "&SearchTerms=" & Request("SearchTerms")
Else
SearchLink = ""
End If
If strSignatures = "1" and strDSignatures = "1" Then
If ViewSig(MemberID) <> "0" Then
CanShowSignature = 1 AND ShowSigs = 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_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_AVATAR_URL" & _
", T.T_DATE, T.T_SUBJECT, T.T_AUTHOR, T.TOPIC_ID, T.T_STATUS, T.T_ISPOLL, T.T_POLLSTATUS, 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.F_POLLS, F.FORUM_ID, F.F_SUBSCRIPTION, F.F_SUBJECT, F.F_MODERATION, T.T_MSGICON, T.T_MESSAGE"
If CanShowSignature = 1 AND ShowSigs = 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_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")
Member_Avatar = rsTopic("M_AVATAR_URL")
Topic_Date = rsTopic("T_DATE")
Topic_Subject = rsTopic("T_SUBJECT")
Topic_Author = rsTopic("T_AUTHOR")
TopicID = rsTopic("TOPIC_ID")
T_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_MsgIcon = rsTopic("T_MSGICON")
Topic_Message = rsTopic("T_MESSAGE")
If CanShowSignature = 1 AND ShowSigs = 1 Then
Topic_MemberSig = trim(rsTopic("M_SIG"))
End If
IsPoll = rsTopic("T_ISPOLL")
Forum_Polls = rsTopic("F_POLLS")
Poll_Status = rsTopic("T_POLLSTATUS")
If IsPoll = 1 Then
strSql = "SELECT P.P_LASTVOTE, P.P_WHOVOTES"
For i = 1 To 15
strSql = strSql & ", P.ANSWER" & CStr(i)
strSql = strSql & ", P.COUNT" & CStr(i)
Next
strSql = strSql & " FROM " & strTablePrefix & "POLLS P"
strSql = strSql & " WHERE P.TOPIC_ID = " & Topic_ID
set rsPoll = Server.CreateObject("ADODB.Recordset")
rsPoll.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If not(rsPoll.EOF) or not(rsPoll.BOF) Then
Last_Vote = rsPoll("P_LASTVOTE")
strWhoVotes = rsPoll("P_WHOVOTES")
For nCount = 1 to 15
'Loop through answer and count fields For the poll
'and store them in arrays
vAnswers(nCount) = rsPoll("ANSWER" & CStr(nCount))
vCount(nCount) = rsPoll("COUNT" & CStr(nCount))
Next
End If
rsPoll.Close
set rsPoll = nothing
End If
If IsPoll = 1 Then
pollLink = "poll=1&"
Else
pollLink = ""
End If
'dateHolder = strtodate(rsTopic("T_EVENT_DATE"))
'IsEvent = rsTopic("T_ISEVENT")
End If
rsTopic.close
set rsTopic = nothing
If recTopicCount = "" Then
If ArchiveView <> "true" Then
Response.Redirect("topic.asp?ARCHIVE=true&" & Request.QueryString)
Else
Response.Redirect("forums.asp")
End If
End If
If IsPoll = 1 Then
'Check to see If user has voted
Voted = GetVote(Topic_ID)
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("log.asp?" & strwhichpage & "log_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
'---------- Forum_SQL
strSql = "SELECT M.M_NAME, M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_AVATAR_URL"
strSql = strSql & ", M.M_PMRECEIVE"
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, R.R_MSGICON"
If CanShowSignature = 1 AND ShowSigs = 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
'sidebarmod
Response.Write "<table border=""0"" cellspacing=""5"" cellpadding=""0"" bgcolor=""" & strPageBGColor & """ width=""100%"">" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
If maxpages > 1 Then
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""1"" width=""80%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""right"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
If mypage > 1 Then Response.Write("<a href=""log.asp?" & ArchiveLink & "log_id=" & Topic_ID & "&whichpage=" & mypage-1 & SearchLink & "#replies"" title=""Go to previous page""" & dWStatus("Go to previous page") & ">Previous page</a>")
If mypage > 1 and mypage < maxpages Then Response.Write(" | ")
If mypage < maxpages Then Response.Write("<a href=""log.asp?" & ArchiveLink & "log_id=" & Topic_ID & "&whichpage=" & mypage+1 & SearchLink & "#replies"" title=""Go to Next page""" & dWStatus("Go to Next page") & ">Next page</a>")
Response.Write "</td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
End If
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""80%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine
If maxpages > 1 Then
Call DropDownPaging(1)
Else
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthLeft & """"
If lcase(strTopicNoWrapLeft) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """></font></b></td>" & vbNewLine
End If
Response.Write " <td align=""right"" height=""100%"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthRight & """"
If lcase(strTopicNoWrapRight) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine & _
"</font></b>" & vbNewLine
If (AdminAllowed = 1) Then
' Response.Write " <td align=""right"" bgcolor=""" & strHeadCellColor & """ nowrap>" & vbNewLine
call AdminOptions()
' Response.Write " </td>" & vbNewLine
Else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font>" & vbNewLine
End If
Response.Write " </td></tr>" & vbNewLine
' ---------- 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_TITLE = 1
rMEMBER_ID = 2
rM_HOMEPAGE = 3
rM_LEVEL = 4
rM_POSTS = 5
rM_COUNTRY = 6
rM_Avatar = 7
rM_PMRECEIVE = 8
rREPLY_ID = 9
rFORUM_ID = 10
rR_AUTHOR = 11
rTOPIC_ID = 12
rR_MESSAGE = 13
rR_LAST_EDIT = 14
rR_LAST_EDITBY = 15
rR_SIG = 16
rR_STATUS = 17
rR_DATE = 18
rR_MSGICON = 19
If CanShowSignature = 1 AND ShowSigs = 1 Then
rM_SIG = 20
End If
For iForum = 0 to iReplyCount
Reply_MemberName = arrReplyData(rM_NAME, 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_MemberAvatar = arrReplyData(rM_Avatar, iForum)
Reply_MemberPMReceive = arrReplyData(rM_PMRECEIVE, 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)
Reply_MsgIcon = arrReplyData(rR_MSGICON, iForum)
If CanShowSignature = 1 AND ShowSigs = 1 Then
Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum))
End If
If intI = 0 Then
CColor = strAltForumCellColor
Else
CColor = strForumCellColor
End If
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ valign=""top"" width=""" & strTopicWidthLeft & """"
If lcase(strTopicNoWrapLeft) = "1" Then Response.Write(" nowrap")
Response.Write ">" & vbNewLine & _
" <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><span class=""spnMessageText"">" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "</span></b></font><br />" & vbNewLine
If strShowRank = 1 or strShowRank = 3 Then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & ChkString(getMember_Level(Reply_MemberTitle, Reply_MemberLevel, Reply_MemberPosts),"display") & "</small></font><br />" & vbNewLine
End If
If strShowRank = 2 or strShowRank = 3 Then
If strUseAdminFiveStars = "1" Then
Response.Write " " & getStar_LevelAdmin5Stars(Reply_MemberLevel, Reply_MemberPosts) & "<br />" & vbNewLine
Else
Response.Write " " & getStar_Level(Reply_MemberLevel, Reply_MemberPosts) & "<br />" & vbNewLine
End If
End If
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
'---------- Crash: Show Avatar
If strDisableAvatar <> "1" Then
If Reply_MemberAvatar = strImageURL & "noavatar.gif" or Reply_MemberAvatar = " " Then
'Do Nothing
Else
' Response.Write "<img src=""" & Reply_MemberAvatar & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """>"
Response.Write "<img align=""center"" src=""" & Reply_MemberAvatar & """ border=""" & intAvatarBorder & """>"
End If
End If
'Response.Write " </p>" & vbNewLine
'Response.Write " <p>" & vbNewLine
Response.Write " <td valign=""top"" bgcolor=""" & CColor & """ height=""100%"" width=""" & strTopicWidthRight & """"
If lcase(strTopicNoWrapRight) = "1" Then Response.Write(" nowrap")
If (AdminAllowed = 1) and (maxpages > 1) Then
Response.Write (" colspan=""2"" ")
Else
Response.Write (" colspan=""2"" ")
End If
Response.Write "><a name=""" & Reply_ReplyID & """></a>" & vbNewLine & _
" <table width=""100%"" height=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine
If CanShowSignature = 1 AND ShowSigs = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" Then
Response.Write " <td colspan=""2"" valign=""top"" width=""100%"" height=""100%"">"
Else
Response.Write " <td colspan=""1"" valign=""top"" width=""100%"" height=""100%"">"
End If
' DEM --> Start of Code altered For moderation
If Reply_Status < 2 Then
If strUseMessageIcons = "1" Then
If strUseBugForm = "1" and Reply_ForumID = cInt(intBugFormForum) Then
Response.Write " " & getCurrentIcon(strIconBug,"Bug Report","align=""absmiddle"" hspace=""0""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Posted " & left(chkDate(Reply_Date, "", false),5) & "/" & right(chkDate(Reply_Date, "", false),2) & " @ " & left(right(chkDate(Reply_Date, "" ,true),8),5) & "</font>" & vbNewline
Else
Response.Write " " & getCurrentIcon(getCurrentMsgIcon(Reply_MsgIcon),"","align=""absmiddle"" hspace=""0""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Posted " & left(chkDate(Reply_Date, "", false),5) & "/" & right(chkDate(Reply_Date, "", false),2) & " @ " & left(right(chkDate(Reply_Date, "" ,true),8),5) & "</font>" & vbNewline
End If
Else
Response.Write " " & getCurrentIcon(strIconPosticon,"","align=""absmiddle"" hspace=""0""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Posted " & left(chkDate(Reply_Date, "", false),5) & "/" & right(chkDate(Reply_Date, "", false),2) & " @ " & left(right(chkDate(Reply_Date, "" ,true),8),5) & "</font>" & vbNewline
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
If Reply_LastEditBy <> Reply_Author Then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
"(Edited by " & Reply_LastEditByName & " " & left(chkDate(Reply_LastEdit, "", false),5) & "/" & right(chkDate(Reply_LastEdit, "", false),2) & " @ " & left(right(chkDate(Reply_LastEdit, "" ,true),8),5) & ")</font>" & vbNewLine
Else
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
"(Edited " & left(chkDate(Reply_LastEdit, "", false),5) & "/" & right(chkDate(Reply_LastEdit, "", false),2) & " @ " & left(right(chkDate(Reply_LastEdit, "" ,true),8),5) & ")</font>" & vbNewLine
End If
End If
ElseIf Reply_Status = 2 Then
Response.Write " <font color=""red"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>NOT MODERATED</b></font>" & vbNewline
ElseIf Reply_Status = 3 Then
Response.Write " " & getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "<font color=""red"" face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>ON HOLD</b></font>" & vbNewline
End If
' DEM --> End of Code added For moderation.
If mlev > 2 Then
Response.Write " " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""0"""),Reply_MemberID) & vbNewLine
End If
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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If mlev > 1 and Reply_MemberPMReceive = "1" Then
Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & Reply_MemberName & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & Reply_MemberName & " a Private Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If (AdminAllowed = 1 or Reply_MemberID = MemberID) Then
If (Cat_Status <> 0 and Forum_Status <> 0 and T_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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If ((Cat_Status <> 0 and Forum_Status <> 0 and T_STATUS = 1) or (AdminAllowed = 1 and T_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(strIconReplyQuote,"Reply with Quote","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
If (strIPLogging = "1") Then
If (AdminAllowed = 1 and MemberID = intAdminMemberID) 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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
If (AdminAllowed = 1 or Reply_MemberID = MemberID) Then
If (Cat_Status <> 0 and Forum_Status <> 0 and T_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","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
End If
End If
Response.Write " <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine
If CanShowSignature = 1 AND ShowSigs = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" Then
Response.Write " <td valign=""top"" colspan=""2"" width=""100%"" height=""70"">"
Else
Response.Write " <td valign=""top"" colspan=""1"" width=""100%"" height=""70"">"
End If
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"" id=""msg"">"
If Request.QueryString("SearchTerms") <> "" Then
Response.Write SearchHiLite(formatStr(Reply_Content))
Else
Response.Write formatStr(Reply_Content)
End If
Response.Write "</span id=""msg""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
If CanShowSignature = 1 AND ShowSigs = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" Then
Response.Write " " & vbNewLine & _
" <td colspan=""2"" width=""100%""valign=""bottom""><hr noshade size=""" & strFooterFontSize & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText"">" & formatStr(Reply_MemberSig) & "</span></font></td>" & vbNewLine & _
" " & vbNewLine
End If
Response.Write " " & vbNewLine & _
" <td valign=""bottom"" align=""right"" height=""""><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Back to top","align=""right""") & "</a></td>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
intI = 1-intI
Next
End If
Response.Write " <tr>" & vbNewLine
If maxpages > 1 Then
Call DropDownPaging(2)
Else
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthLeft & """"
If lcase(strTopicNoWrapLeft) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """></font></b></td>" & vbNewLine
End If
Response.Write " <td align=""right"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthRight & """"
If lcase(strTopicNoWrapRight) = "1" Then Response.Write(" nowrap")
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine & _
"</font></b>" & vbNewLine
If (AdminAllowed = 1) Then
'Response.Write " <td align=""right"" bgcolor=""" & strHeadCellColor & """ nowrap>" & vbNewLine
call AdminOptions()
'Response.Write "</td>" & vbNewLine
Else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font>" & vbNewLine
End If
Response.Write " </td></tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td colspan=""" & intCol & """ align=""center"" bgcolor=""" & strCategoryCellColor & """ width=""100%"" height=""" & strCategoryCellHeight & """>" & vbNewLine
Call PostingOptions()
Response.Write " </td>"& vbNewLine &_
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
If maxpages > 1 Then
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""1"" width=""80%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
If mypage > 1 Then Response.Write("<a href=""log.asp?" & ArchiveLink & "log_id=" & Topic_ID & "&whichpage=" & mypage-1 & SearchLink & "#replies"" title=""Go to previous page""" & dWStatus("Go to previous page") & ">Previous page</a>")
If mypage > 1 and mypage < maxpages Then Response.Write(" | ")
If mypage < maxpages Then Response.Write("<a href=""log.asp?" & ArchiveLink & "log_id=" & Topic_ID & "&whichpage=" & mypage+1 & SearchLink & "#replies"" title=""Go to Next page""" & dWStatus("Go to Next page") & ">Next page</a>")
Response.Write "</td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
End If
Response.Write "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""99%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <table width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""right"" valign=""top"" width=""50%"" nowrap>" & vbNewLine
End If
'google adsense
If T_REPLIES > 4 and strEnableAdsInWeblogs = "Yes" and request.querystring("log_id") <> "" Then
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="inc_468x60.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
End If
'end of adsense
If request.querystring("log_id")<> "" and mlev > 0 Then
%>
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<!--#INCLUDE FILE="include/inc_spacer.asp"-->
<%
call QuickReply()
End If
Response.Write "</table>" & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td valign=""top"" width=""0%"">" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table><br>" & vbNewLine
WriteFooter
Sub QuickReply()
If T_STATUS <> 0 Then
intSigDefault = getSigDefault(MemberID)
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <form name=""PostTopic"" method=""post"" action=""post_info.asp"" onSubmit=""return validate();"">" & vbNewLine & _
" <form name=""PostTopic"" method=""post"" action=""post_info.asp"" onSubmit=""document.PostTopic.Submit.disabled=true;document.PostTopic.Submit.value='Submit Reply';"">" & vbNewLine & _
" <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine & _
" <input name=""Method_Type"" type=""hidden"" value=""Reply"">" & vbNewLine & _
" <input name=""TOPIC_ID"" type=""hidden"" value=""" & Topic_ID & """>" & vbNewLine & _
" <input name=""FORUM_ID"" type=""hidden"" value=""" & Forum_ID & """> " & vbNewLine & _
" <input name=""CAT_ID"" type=""hidden"" value=""" & Cat_ID & """>" & vbNewLine & _
" <input name=""Refer"" type=""hidden"" value=""" & request.servervariables("SCRIPT_NAME") & "?" & replace(Request.QueryString,"#","#") & """>" & vbNewLine & _
" <input name=""UserName"" type=""hidden"" value=""" & strDBNTUserName & """>" & vbNewLine & _
" <input name=""Password"" type=""hidden"" value=""" & Request.Cookies(strUniqueID & "User")("Pword") & """>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ noWrap vAlign=""middle"" height=""" & strCategoryCellHeight & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """> <b>"& strSMMReplyText &"</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ noWrap vAlign=""top"" align=""right""><table border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine
If strAllowHTML = "1" Then
Response.Write " HTML is on<br />" & vbNewLine
Else
Response.Write " HTML is off<br />" & vbNewLine
End If
If strAllowForumCode = "1" Then
Response.Write " <a href=""JavaScript:openWindow6('pop_forum_code.asp')"">Forum Code</a> is on<br />" & vbNewLine
Else
Response.Write " Forum Code is off<br />" & vbNewLine
End If
If strIcons = "1" and strShowSmiliesTable = "1" Then
Response.Write " <a href=""JavaScript:openWindow6('pop_new_smiles.asp')"">show smilies</a><br />" & vbNewLine
End If
If strSignatures = "1" Then
Response.Write " <br /><input name=""Sig"" type=""checkbox"" value=""yes""" & chkCheckbox(intSigDefault,1,true) & ">Use signature<br />" & vbNewLine
End If
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </span></font></td>" & vbNewLine & _
" <td width=""" & strTopicWidthRight & """ bgColor=""" & strForumCellColor & """><textarea class=""gmltxtarea"" name=""Message"" cols=""50"" rows=""6"" wrap=""FILE"" style=""width:100%""></textarea><br /></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ noWrap align=""center"" colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><input class=""gmlBtn2"" name=""Submit"" type=""submit"" value=""Post!""> <input class=""gmlBtn2"" name=""Preview"" type=""button"" value=""preview"" onclick=""OpenPreview()""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </form>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine & _
"<script language=""JavaScript"" type=""text/javascript"" src=""inc_keydown.js""></script>"
Else
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
" <table width=""50%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine &_
" <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ noWrap vAlign=""top"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" Success!</font></td></tr>" & VBNewline &_
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
End If
End Sub
Sub PostingOptions()
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
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,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """><font color=""#ffffff"">Update your status</font></a>" & vbNewLine
If strUsePolls = "1" Then
If strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) Then
Response.Write "<font size=""2"">|</font> <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconPoll,"New Poll","align=""absmiddle""") & "</a> <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """><font color=""#ffffff"">New Poll</font></a>" & vbNewLine
End If
End If
End If
If ((Cat_Status = 1) and (Forum_Status = 1) and (T_STATUS = 1)) and ArchiveView = "" Then
Response.Write " <font size=""2""></font> <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """><font color=""#ffffff"">Leave a comment</font></a>" & vbNewLine
Else
If ((AdminAllowed = 1 and T_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 T_STATUS = 1 and Cat_Status <> 0 and Forum_Status <> 0 Then
Response.Write getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> "
Else
Response.Write "<font size=""2"">|</font> " & getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & "</a> "
End If
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>Leave a comment</a>" & vbNewLine
Else
If T_STATUS = 0 Then
Response.Write "<font size=""2"">|</font> " & getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & " Topic Locked" & vbNewline
End If
End If
End If
If lcase(strEmail) = "1" and T_STATUS < 2 Then
If Cat_Status <> 0 and Forum_Status <> 0 and T_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 " <font size=""2"">|</font> " & ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
ElseIf strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) Then
Response.Write " <font size=""2"">|</font> " & ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "Y") & vbNewLine
End If
End If
End If
If ((mlev <> 0) or (mlev = 0 and strLogonForMail <> "1")) and lcase(strShowSendToFriend) = "1" Then
If strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) Then
Response.Write " <font size=""2"">|</font> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & Topic_ID & "')""><font color=""#ffffff"">Send this to a friend</font></a>" & vbNewLine
Else
Response.Write " <font size=""2"">|</font> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & Topic_ID & "')""><font color=""#ffffff"">Send this to a friend</font></a>" & vbNewLine
End If
End If
End If
End If
Response.Write " </font>"
End Sub
Sub AdminOptions()
If mlev <> 0 Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
If (AdminAllowed = 1) or (T_Author = getMemberID(strDBNTUserName)) or (lcase(strNoCookies) = "1") Then
If (AdminAllowed = 1) Then
If (T_Status <> 0) Then
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWeblogsForum & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderLocked,"Lock Topic","") & "</a>" & vbNewLine
Else
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWeblogsForum & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Topic","") & "</a>" & vbNewLine
End If
End If
If T_Status <> 0 or (AdminAllowed = 1) Then
Response.Write " <a href=""post.asp?" & ArchiveLink & pollLink & "method=EditTopic&REPLY_ID=" & Topic_ID & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWeblogsForum & """>" & getCurrentIcon(strIconFolderPencil,"Edit Topic","hspace=""0""") & "</a>" & vbNewLine
End If
If (AdminAllowed = 1) Then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?" & ArchiveLink & pollLink & "mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & strWeblogsForum & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderDelete,"Delete Topic","") & "</a>" & vbNewLine
End If
End If
Response.Write "</font>"
End If
end sub
Function SearchHiLite(fStrMessage)
'Function derived from HiLiTeR by 2eNetWorX
fArr = split(replace(Request.QueryString("SearchTerms"),";",""), ",")
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=""spnSearchHighlight"" 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 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=""log.asp#replies"">" & vbNewLine)
Response.Write(" <td align=""right"" bgcolor=""" & strHeadCellColor & """ nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine)
If Archiveview = "true" Then Response.Write(" <input type=""hidden"" name=""ARCHIVE"" value=""" & ArchiveView & """>" & vbNewLine)
Response.Write(" <input type=""hidden"" name=""log_id"" value=""" & Request("log_id") & """>" & vbNewLine)
Response.Write(" <b># </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
For counter = 1 to maxpages
If counter <> cLng(pge) Then
Response.Write " <option value=""" & counter & """>" & counter & "</option>" & vbNewLine
Else
Response.Write " <option selected value=""" & counter & """>" & counter & "</option>" & vbNewLine
End If
Next
Response.Write(" </select><b> /" & maxpages & "</b>" & vbNewLine)
If Request.QueryString("SearchTerms") <> "" Then Response.Write(" <input type=""hidden"" name=""SearchTerms"" value=""" & Request.QueryString("SearchTerms") & """>" & vbNewLine)
Response.Write(" </font></td>" & vbNewLine)
Response.Write(" </form>" & vbNewLine)
End If
top = "0"
End Sub
Function DateToStr(dtDateTime)
If not isDate(strForumTimeAdjust) Then
strForumTimeAdjust = strToDate(strForumTimeAdjust)
End If
DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) & ""
End Function
Function chkTime1(tTime)
Dim fTime
fTime = tTime
If fTime = "" Then
Exit Function
End If
'## Local Time Display
fTime = DateToStr(DateAdd("n", intForumBias -intLocalBias -DayLightSave + intForumDaylAdjust, strToDate(fTime)))
'## Local Time Display
If strTimeType = 12 Then
If cint(Mid(fTime, 9,2)) > 12 Then
chkTime1 = chkTime1 & " " & _
(cint(Mid(fTime, 9,2)) -12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
ElseIf cint(Mid(fTime, 9,2)) = 12 Then
chkTime1 = chkTime1 & " " & _
cint(Mid(fTime, 9,2)) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
ElseIf cint(Mid(fTime, 9,2)) = 0 Then
chkTime1 = chkTime1 & " " & _
(cint(Mid(fTime, 9,2)) +12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
Else
chkTime1 = chkTime1 & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
End If
Else
chkTime1 = chkTime1 & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2)
End If
End Function
Function chkDate1(tDate)
Dim fdate
fdate = tdate
If fDate = "" Then
Exit Function
End If
' If IsDate(fDate) Then
'## Local Time Display
fDate = DateToStr(DateAdd("n", intForumBias -intLocalBias - DayLightSave + intForumDaylAdjust, strToDate(fDate)))
'## Local Time Display
Select Case strDateType
Case "dmy"
chkDate1 = Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,1,4)
Case "mdy"
chkDate1 = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
Case "ymd"
chkDate1 = Mid(fDate,1,4) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2)
Case "ydm"
chkDate1 =Mid(fDate,1,4) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2)
Case "dmmy"
chkDate1 = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,1,4)
Case "mmdy"
chkDate1 = Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
Case "ymmd"
chkDate1 = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2)
Case "ydmm"
chkDate1 = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1)
Case "dmmmy"
chkDate1 = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,1,4)
Case "mmmdy"
chkDate1 = Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
Case "ymmmd"
chkDate1 = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2)
Case "ydmmm"
chkDate1 = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0)
Case Else
chkDate1 = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
End Select
' End If
End Function
Function ShowSubLink2 (SubOption, CatID, ForumID, TopicID, ShowText)
Dim DefaultFont
DefaultFont = "<font color=""#ffffff"" face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
' -- Declare variables...
Dim StandardLinkInfo, LinkText, LinkIcon, LinkLevel, LinkParam
if Instr(Request.ServerVariables("SCRIPT_NAME"),"post.asp") then
' -- Only show the checkboxes on the post page...
if SubOption = "S" then
ShowSubLink2 = "<input type=""checkbox"" name=""Tnotify"" value=""1"" />Check here to subscribe to this topic."
else
ShowSubLink2 = "<input type=""checkbox"" name=""Tnotify"" value=""0"" />Check here to unsubscribe from this topic."
end if
else
' -- Standard Link
StandardLinkInfo = "<a href=""Javascript:"
if SubOption = "U" then
StandardLinkInfo = StandardLinkInfo & "unsub_confirm"
else
StandardLinkInfo = StandardLinkInfo & "openWindow"
end if
StandardLinkInfo = StandardLinkInfo & "('pop_subscription.asp?SUBSCRIBE=" & SubOption & "&MEMBER_ID=" & MemberID & "&LEVEL="
' -- Get appropriate text and icon to display
LinkParam = ""
if CatID = 0 then
LinkLevel = "BOARD"
else
LinkParam = "&CAT_ID=" & CatID
if ForumID = 0 then
LinkLevel = "CAT"
else
LinkParam = LinkParam & "&FORUM_ID=" & ForumID
if TopicID = 0 then
LinkLevel = "FORUM"
else
LinkLevel = "TOPIC" : LinkParam = LinkParam & "&TOPIC_ID=" & TopicID
end if
end if
end if
if SubOption = "U" then
LinkIcon = strIconUnsubscribe
select case LinkLevel
case "BOARD" : LinkText = "Unsubscribe from this board"
case "CAT" : LinkText = "Unsubscribe from this category"
case "FORUM" : LinkText = "Unsubscribe from this forum"
case "TOPIC" : LinkText = "Unsubscribe from this topic"
end select
else
LinkIcon = strIconSubscribe
select case LinkLevel
case "BOARD" : LinkText = "Subscribe to this board"
case "CAT" : LinkText = "Subscribe to this category"
case "FORUM" : LinkText = "Subscribe to this forum"
case "TOPIC" : LinkText = "Subscribe to this topic"
end select
end if
ShowSubLink2 = StandardLinkInfo & LinkLevel & LinkParam & "')"">" & getCurrentIcon(LinkIcon, LinkText,"align=""absmiddle""" & dwStatus(LinkText)) & "</a>"
if ShowText <> "N" then
ShowSubLink2 = ShowSubLink2 & " " & StandardLinkInfo & LinkLevel & LinkParam & "')""" & dwStatus(LinkText) & ">" & DefaultFont & LinkText & "</font></a>"
end if
end if
end function
%>
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4217 Posts |
Posted - 14 October 2013 : 18:37:56
|
| Lines 1054 & 1056, you need to change showsublink to showsublink2 |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 15 October 2013 : 15:55:51
|
That's what it needed! Works PERFECT! 
Thank you so much, Carefree!
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Topic |
|
|
|
