Notification When There's a Reply to a Weblog

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/70422?pagenum=1
05 November 2025, 16:44

Topic

MaGraham
Notification When There's a Reply to a Weblog
26 January 2013, 17:42



Members would love to receive a notification when someone posts a reply to their blog (weblog). Would that take a lot of coding?

 

Replies ...

Carefree
26 January 2013, 19:55


Which blog mod are you using?
MaGraham
26 January 2013, 20:56


Originally posted by Carefree
Which blog mod are you using?

Oh my! I didn't know there would be a test! (lol)

I have it named "Snitz Weblog by Oxle v2." In the instruction file it's titled "MarcelG’s Weblogs."
Carefree
27 January 2013, 10:08


This uses the standard files for posting. All the members need to do is to subscribe to the weblog topic.
MaGraham
27 January 2013, 13:24


Originally posted by Carefree
This uses the standard files for posting. All the members need to do is to subscribe to the weblog topic.
Well, I am red-faced over this! Silly me forgot to turn the subscriptions on for the blogs! blush
Oh my!
Thank you so much, Carefree!
MaGraham
27 January 2013, 13:39



Hmmm, that option is only displaying after someone does a reply. The "Reply to Topic" option, where the "Subscribe to Topic" option is normally displayed near, isn't displaying until after someone does a reply. Only the "Post a Reply" (like the "Quick Reply" is displayed if/when that option for posts is turned on) is displaying at the bottom of a blog until after someone does a reply.

Any ideas?
Carefree
27 January 2013, 19:49


Is the behavior the same for all forums or just for this one?
MaGraham
28 January 2013, 03:10




Originally posted by Carefree
Is the behavior the same for all forums or just for this one?
It's just with the blogs, Carefree.
And like I said, after a reply to a blog has been made the "Subscribe to Topic" option appears. Prior to the reply, the only option is to type something and the "Post" and "Preview" buttons are displayed.
Here's a screen shot of what is displayed just below a blog. The only option at the top of a blog is to start a new blog.
[IMG]http://i1301.photobucket.com/albums/ag108/MaGrahamX9/blog_no_options_zpsb8ed370d.png[/IMG]
Carefree
28 January 2013, 04:17


I haven't installed this, but it looks like the issue.
"log.asp"
Code:

Look for the following lines (appx 259-264):

	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=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a>   |   <a href=""post.asp?method=Reply&topic_id=" & TOPIC_ID & "&FORUM_ID=" & strWeblogsForum & """>" & "<font color=""" & strDefaultFontColor & """ 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=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReplyText & "</a>" & vbNewLine
			end if
		ELSE

Change them to say:

	IF T_STATUS <> 0 then
		IF Request.QueryString("log_id") = "" then
			Response.Write "  <hr color=""" & strTableBorderColor & """ size=""1""></font><center><a href=""log.asp?log_id=" & TOPIC_ID & """>" & "<font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a>   |   <a href=""post.asp?method=Reply&topic_id=" & TOPIC_ID & "&FORUM_ID=" & strWeblogsForum & """>" & "<font color=""" & strDefaultFontColor & """ 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=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReplyText & "</a>" & vbNewLine
		end if
	ELSE
MaGraham
28 January 2013, 04:45




Arrrgh!! My entire domain is down right now!

I hope someone asks me about this hosting company before they make the same mistake I did by using them!
I Soooo wish I was already moved and ready to open the new site!!
I'll have to come back to this, Carefree. I'll let you know when I get to it.
THANK YOU!
MaGraham
28 January 2013, 21:37


Carefree, I probably should have shown you a screen shot of the way it's supposed to be displayed even before a reply is made. I'll do that now.

This first image has an arrow pointing to the changes made my your coding in your reply. You can compare it to the image in my previous post if you need to.

[IMG]http://i1301.photobucket.com/albums/ag108/MaGrahamX9/blog_still_not_correct_zps6ae36410.png[/IMG]


This second image shows the way it's displayed after a reply has been made but like I said, it's supposed to be displayed like this even before a reply is made to a blog. It used to display like this just below a blog but perhaps a mod I did has it messed up in some way. That's the only thing I can think of that could have caused it. As you can see, I had to highlight two of the links since the text was too dark to be seen.

[IMG]http://i1301.photobucket.com/albums/ag108/MaGrahamX9/blog_displays_correctly_zpsfb350b90.png[/IMG]
Carefree
29 January 2013, 01:27


OK

Look for the following lines (appx 725-726):

Code:

 	if iReplyCount = "" then  '---------- No replies found in DB
		' Nothing

After them, insert this:
Code:

		Response.Write	"                   <tr>" & vbNewLine & _
			"                 <td colspan=""" & intCol & """ align=""center"" bgcolor=""" & strCategoryCellColor & """ width=""100%"" height=""" & strCategoryCellHeight & """>" & vbNewLine
		Call PostingOptions()
		Response.Write	"         </td>"& vbNewLine &_        			                  
			"               </tr>" & vbNewLine
MaGraham
29 January 2013, 02:10



These are the lines you directed me to and this is how the lines around it look.

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
Call PostingOptions() Else
intI = 0
rM_NAME = 0


But nothing changed after I added your line, Carefree.
MaGraham
29 January 2013, 02:12




Should I have removed what I added earlier?

Carefree
29 January 2013, 05:16


Try the above. Yes, you can remove the earlier change.
MaGraham
29 January 2013, 07:02


It may be a bit later when I do this, Carefree, but I will let you know when I do.
Thank you so much!
MaGraham
29 January 2013, 16:54



PERFECT! It looks just like it should now!
Thank you so much, Carefree!
Carefree
29 January 2013, 19:19


For anyone interested, there was a bit more involved in fixing this. Here's what the file looks like now:

Code:

<%
'#################################################################################
'## 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
	strsql = "SELECT FORUM_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & cLng(Request.QueryString("log_id"))
	Set objRec = my_Conn.Execute(strSQL)
	If (objRec("FORUM_ID")) - strWeblogsForum <> 0 Then
'		Response.Redirect "topic.asp?topic_id=" & cLng(Request.QueryString("log_id"))
	End If
End If
Dim T_Status
%>
<!--#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
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 = "&nbsp <a href=""log.asp?member=" & objRec("MEMBER_ID") & """>" & objRec("M_NAME") & "'s weblog</a>"
	End If
Else
	DTString = "&nbspNothing found !"
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=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img alt=""post an entry in your weblog"" src=""images\addnews.gif"" align=""right"" valign=""middle""  border=""0"" ></a><font color=""" & strHeadFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strSidebarDelimiter & " " & DTString & " " & strSidebarDelimiter & "</b></font> <a href=""weblogs.asp""><font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>all weblogs <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=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><img alt=""post an entry in your weblog"" src=""images\addnews.gif"" align=""right"" valign=""middle""  border=""0"" ></a><font color=""" & strHeadFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strSidebarDelimiter & " " & DTString & " " & strSidebarDelimiter & "</b></font> <a href=""log.asp"">" & "<font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>all weblogs <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
Do 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 "<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 & _
			"	<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=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a>   |   <a href=""post.asp?method=Reply&topic_id=" & TOPIC_ID & "&FORUM_ID=" & strWeblogsFORUM & """>" & "<font color=""" & strDefaultFontColor & """ 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=""" & strDefaultFontColor & """ 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="include/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
		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()
Loop
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 > 2 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
	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
					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
	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	"forum.asp"
		End If
	End If
	If IsPoll = 1 Then
		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 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 & " "
		If AdminAllowed = 0 Then
			strSql3 = strSql3 & "AND (R_STATUS < "
			If Moderation = "Y" Then
				strSql3 = strSql3 & "2 "
			Else
				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 & "&"
				rsReplies.Close
			Else
				strwhichpage = ""
			End If
			Set rsReplies = Nothing
		End If
		Response.Redirect("log.asp?" & strwhichpage & "log_id=" & Topic_ID & "#" & LastPostReplyID & "")
		Response.End
	End If
	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
	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 & " "
	If AdminAllowed = 0 Then
		strSql3 = strSql3 & " AND (R.R_STATUS < "
		If Moderation = "Y" Then
			strSql3 = strSql3 & "2"
		Else
			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
		If mypage > 1 Then
			intOffSet = cLng((mypage-1) * strPageSize)
			strSql5 = " LIMIT " & intOffSet & ", " & strPageSize & " "
		End If
		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
		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
			iReplyCount = ""
		End If
		rsReplies.Close
		Set rsReplies = Nothing
	End If
	Response.Write	"<table border=""0"" cellspacing=""5"" cellpadding=""0"" bgcolor=""" & strPageBGColor & """ width=""95%"">" & 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=""95%"">" & 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)
	End If
	If iReplyCount > 0 Then
		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"-->
			<%
			If strDisableAvatar <> "1" Then
				If Reply_MemberAvatar = strImageURL & "noavatar.gif" or Reply_MemberAvatar = " " Then
					'	Do Nothing
				Else
					Response.Write "<img align=""center"" src=""" & Reply_MemberAvatar & """ border=""" & intAvatarBorder & """>"
				End If
			End If
			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
			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
			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(strIconReplyTopic,"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
	Response.Write	"</font></b>" & vbNewLine
	If (AdminAllowed = 1) Then
		Call AdminOptions()
	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=""95%"">" & vbNewLine & _
		"  <tr>" & vbNewLine & _
		"    <td>" & vbNewLine & _
		"      <table width=""100%"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"  <td align=""right"" valign=""top"" width=""50%"" nowrap>" & vbNewLine
Else
	Response.Write	"<table border=""0"" cellspacing=""0"" cellpadding=""0"" bgcolor=""" & strPageBGColor & """ width=""95%"">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td colspan=""" & intCol & """ align=""center"" bgcolor=""" & strHeadCellColor & """ width=""100%"">" & vbNewLine
	Call PostingOptions()
	Response.Write	"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine & _
		"<table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""95%"" bgColor=""" & strPageBGColor & """>" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td>" & vbNewLine & _
		"			<table width=""100%"" border=""1"" bgColor=""" & strTableBorderColor & """ cellpadding=""0"" cellspacing=""0"">" & 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="include/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>" & vbNewLine & _
	"          </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 align=""center"" bgColor=""" & strHeadCellColor & """ noWrap vAlign=""middle"" height=""" & strCategoryCellHeight & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><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=""VIRTUAL"" 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"">" & vbNewLine & _
			"										<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strFORUMFontColor & """>This topic is locked!" & vbNewLine & _
			"										</font>" & vbNewLine & _
			"									</td>" & vbNewLine & _
			"								</tr>" & VBNewline &_
			"							</table>" & vbNewLine & _
			"						</td>" & vbNewLine & _
			"					</tr>" & vbNewLine & _
			"				</table><br />" & vbNewLine
	End If
End Sub


Sub PostingOptions()
	Response.Write	"          <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
	If (mLev > 0) or (lCase(strNoCookies) = "1") or (strDBNTUserName = "") Then
		If ((Cat_Status = 1) and (Forum_Status = 1)) Then
			Response.Write	"          <a style=""color:" & strCategoryFontColor & ";"" href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & FORUM_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"","align=""absmiddle""") & "</a> <a style=""color:" & strCategoryFontColor & ";"" href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & FORUM_ID & """>New Topic</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 style=""color:" & strCategoryFontColor & ";"" href=""post.asp?poll=1&method=Topic&FORUM_ID=" & FORUM_ID & """>" & getCurrentIcon(strIconPoll,"New Poll","align=""absmiddle""") & "</a> <a style=""color:" & strCategoryFontColor & ";"" href=""post.asp?poll=1&method=Topic&FORUM_ID=" & FORUM_ID & """>New Poll</a>" & vbNewLine
				End If
			End If
		Else
			If AdminAllowed = 1 Then
				Response.Write	"          <a style=""color:" & strCategoryFontColor & ";"" href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & "</a> <a style=""color:" & strCategoryFontColor & ";"" href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a>" & vbNewLine
			Else
				Response.Write	"          " & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & " Locked" & vbNewLine
			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 style=""color:" & strCategoryFontColor & ";"" href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & FORUM_ID & """>" & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> <a style=""color:" & strCategoryFontColor & ";"" href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & FORUM_ID & """>Reply to Topic</a>" & vbNewLine
		Else
			If ((AdminAllowed = 1 and T_Status <= 1) and ArchiveView = "")  Then
				Response.Write	"          <a style=""color:" & strCategoryFontColor & ";"" href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & FORUM_ID & """>"
				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""") & " "
				End If
				Response.Write	"<a style=""color:" & strCategoryFontColor & ";"" 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> " & 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 style=""color:" & strCategoryFontColor & ";"" href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strFORUMURL & "log.asp?log_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a style=""color:" & strCategoryFontColor & ";"" href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strFORUMURL & "log.asp?log_id=" & Topic_ID & "')"">Send Topic to a Friend</a>" & vbNewLine
				Else
					Response.Write	"          <font size=""2"">|</font> <a style=""color:" & strCategoryFontColor & ";"" href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strFORUMURL & "log.asp?log_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a style=""color:" & strCategoryFontColor & ";"" href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strFORUMURL & "log.asp?log_id=" & Topic_ID & "')"">Send Topic to a Friend</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)
	fArr = split(replace(Request.QueryString("SearchTerms"),";",""), ",")
	strBuffer = ""
	For iPos = 1 to len(fStrMessage)
		bChange = False
		If mid(fStrMessage, iPos, 1) = "<" Then
			bInHTML = True
		End If
		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 & _
			"                <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 & _
			"                <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 & _
			"                </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
	fTime = DateToStr(DateAdd("n", intFORUMBias -intLocalBias -DayLightSave + intFORUMDaylAdjust, strToDate(fTime)))
	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
	fDate = DateToStr(DateAdd("n", intFORUMBias -intLocalBias - DayLightSave + intFORUMDaylAdjust, strToDate(fDate)))
	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 Function
%>
© 2000-2021 Snitz™ Communications