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

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Weblog Mod Doesn't Display Properly		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

MaGraham
Senior Member

USA
1297 Posts
Posted - 31 July 2012 :  04:58:53  Show Profile  Reply with Quote
I have installed the "Weblog Mod" and it works but it sure doesn't display correctly. I have played around with it and simply can not determine what to change to make it display properly.

Here's a screen shot of what I am seeing after a couple of blogs were posted.



I need for all of the text to be white, too, but couldn't determine how to accomplish that either.
Any help would be greatly 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 - 31 July 2012 :  05:29:03  Show Profile

Here are my files for this mod if someone has time to look at them I would greatly appreciate it.

Here is my inc_spacer.asp file:

<table width="100% cellpadding="0" cellspacing="1"><tr><td><img src="<%= strImageURL %>spacer.gif" width="1" height="3" border="0" alt=""></td></tr>
<tr><td></td></td></tr></table>


log.asp in txt format

I had to remove the first few lines of the weblogs.txt before it would display in IE when the link was clicked on.

weblogs.asp in txt format

weblogvars.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 31 July 2012 05:29:33
Go to Top of Page

MarcelG
Retired Support Moderator

Netherlands
2625 Posts
Posted - 31 July 2012 :  08:28:51  Show Profile  Visit MarcelG's Homepage
I think I wrote that mod a couple of years ago...let me see....
I do notice a couple of strange occurences of this in your weblogs.asp file:
""#ffffff"" & strCategoryFontColor & ""

I don't think those #ffffff's should be there.
Did you add those?

Are you using a CSS based Snitz ? The colors are set through the variables, such as strCategoryFontColor.
If those are present, it all should work.
portfolio - linkshrinker - oxle - twitter
Edited by - MarcelG on 31 July 2012 08:29:59
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 31 July 2012 :  17:16:13  Show Profile


Yes; I added the #ffffff in an effort to change the text color with the strCategoryFontColor there since I am not using CSS.

I redid the mod just now and removed all of those and nothing changed. I edited the above uploaded files to reflect my changes if you'd care to look at those again.

This is a screen shot of what it looks like when I click to read a blog:





So, you can see it works; it's just not displaying properly.


Here are the changes I made to the mod in order to get it to work.


I received this error:


Microsoft VBScript runtime error '800a01f9'

Invalid or unqualified reference

/tfp/forum.asp, line 39


Per the mod I placed this below in the forum.asp:

if NOT Request.QueryString("FORUM_ID") = "" then
if .QueryString("FORUM_ID") - strWeblogsForum = 0 and mlev <> 4 then
Response.Redirect "weblogs.asp"
end if
end if


Because of that error, I replaced that with this:

if NOT Request.QueryString("FORUM_ID") = "" then
if Request.QueryString("FORUM_ID") - strWeblogsForum = 0 and mlev <> 4 then
Response.Redirect "weblogs.asp"
end if
end if


I replaced all references in log.asp to "VIRTUAL" with "FILE" because it wasn't able to find the include files without those changes.



I also added the following to inc_function_common.asp:



function getMemberID(fUser_Name)
'BugFixed searching for deleted members
'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & ChkString(fUser_Name, "SQLString") & "'"

Set rsGetMemberID = Server.CreateObject("ADODB.Recordset")
rsGetMemberID.open strSql, my_Conn

if not rsGetMemberID.eof then
getMemberID = rsGetMemberID("MEMBER_ID")
else
getMemberID = 0
end if

rsGetMemberID.close
set rsGetMemberID = nothing
end function


To me, it appears that since I use the Header Cell Image instead of just color, that might be what is causing it to display improperly. If you conclude that as well, is there a way around it because I want to continue to use the Header Cell Image. I would also like the text to display as white in that area as well if you could help with that, too.

"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 31 July 2012 17:20:04
Go to Top of Page

MarcelG
Retired Support Moderator

Netherlands
2625 Posts
Posted - 01 August 2012 :  04:12:06  Show Profile  Visit MarcelG's Homepage
What exactly is not working properly?
I see the text in white (which you want), and I see the background image in the cell.
It's tiled, but that's the way it works for your code.
The height of the cell is larger than normal, but that's exactly it's intended to be with the weblogs mod.
So, in short my question is: what would you exactly want to see?
portfolio - linkshrinker - oxle - twitter
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 01 August 2012 :  05:53:27  Show Profile

I really don't mean to seem so picky. I was just wondering if the Header Cell Image had to be tiled like it is.

If you will look at the header of the blog in the graphic below "All Active Weblogs" you see that it's not tiled. Couldn't the blog do the same with the member's username, etc. on one line like the "All Active Weblogs" is displayed? Obviously, I PhotoShoped this below so you could see what I was talking about.





All of the text isn't white. You can't see the "Last Entry" info because the text is dark. I couldn't determine how to make that display as white.

Must the blogs fit so tightly together? I would think there could be just a bit of white-space between them.

And lastly, my forum is private and no visitors are allowed unless they register. . .so, can the blogs be private instead of public? I tried to set them as private but then nothing would display.
"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 01 August 2012 06:00:38
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 01 August 2012 :  21:43:53  Show Profile
Instead of putting

quote:
""#ffffff"" & strCategoryFontColor & ""


Simply put font color=""#FFFFFF"" and discard the rest.
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 02 August 2012 :  18:23:35  Show Profile


Thank you, Carefree!

I created another, larger, Header Cell Image so it wouldn't have to be tiled and also a custom blog button/icon, so I suppose I can live with its appearance now. :)




However; I still can't figure out how to make the "Last Entry" info text white nor the member's name when in log.asp after clicking on a member's name to see a list of his/her blog entries as shown in the screen shot below.





I would also like for the "All Weblogs," when in log.asp, (see graphic above) to be a larger size text and centered if that's not too much to ask of someone.

Thank you both so much for your precious time in replying!



"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
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 03 August 2012 :  03:47:52  Show Profile
Not sure which version of this you're running. Here's a version which will make the links display in white, etc.


<%
'#################################################################################
'## 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 (objRec("FORUM_ID")) - strWeblogsForum <> 0 then
	Response.Redirect "topic.asp?topic_id=" & cLng(Request.QueryString("log_id"))
	end if
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 style=""color:white;"" href=""log.asp?member=" & objRec("MEMBER_ID") & """>" & objRec("M_NAME") & "'s weblog</a>"
end if
else
DTString = " Nothing 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
	   			Response.Write "    <td align=""center"" bgcolor=""" & strHeadCellColor & """><a style=""color:white;"" 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 style=""color:white;"" href=""weblogs.asp""><font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>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
			    Response.Write "    <td align=""center"" bgcolor=""" & strHeadCellColor & """><a style=""color:white;"" 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 style=""color:white;"" href=""log.asp"">" & "<font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>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
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 style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" href=""pop_profile.asp?mode=display&id=" & objRec("T_AUTHOR") & """>" & vbNewLine
			else
			Response.Write "      <a style=""color:white;"" 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 			
			Response.Write "      <font color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>on " & chkDate1(T_DATE) & " at " & left(ChkTime1(T_DATE),6) & "</font>" & vbNewLine
	Response.Write "<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
				Response.Write  "   <td bgcolor=""" & strForumCellColor & """ cellpadding=""0"" align=""center"" valign=""top"">" & getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","align=""absmiddle"" hspace=""0""") & "</td>" & vbNewline
		response.write "    <td colspan=""2"" bgcolor=""" & strForumCellColor & """ height=""" & strCategoryCellHeight & """>" & VBNewline
	Response.Write "<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 style=""color:white;"" href=""log.asp?log_id=" & TOPIC_ID & """>" & "<font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strSMMReadRepliesText & "</a>   |   <a style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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 VIRTUAL="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
		Response.Write	"  <tr>" & vbNewLine & _
				"    <td align=""right"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
		if mypage > 1 then Response.Write("<a style=""color:white;"" 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 style=""color:white;"" 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
	Response.Write	"</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 style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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 
			Response.Write	"                      <td valign=""bottom"" align=""right"" height=""""><a style=""color:white;"" href=""#top"">" & getCurrentIcon(strIconGoUp,"Back to top","align=""right""") & "</a></td>" & vbNewLine
			Response.Write  "                    </table>" & vbNewLine & _
					"                </td>" & vbNewLine & _
					"              </tr>" & vbNewLine
			intI  = intI + 1
			if intI = 2 then 
				intI = 0
			end if
		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
		'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 style=""color:white;"" 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 style=""color:white;"" 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
	Response.Write	"  <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 VIRTUAL="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>"
	

											
Response.Write "          </td>" & vbNewLine & _
	"        </tr>" & vbNewLine & _
	"      </table>" & vbNewLine & _
	"    </td>" & vbNewLine & _
	"    <td valign=""top"" width=""0%"">" & vbNewLine

Response.Write "    </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 & _
Response.Write "              <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 style=""color:white;"" 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 style=""color:white;"" 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
	Response.Write "<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 & _
			" dit onderwerp is afgesloten!</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 style=""color:white;"" href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"","align=""absmiddle""") & "</a> <a style=""color:white;"" 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:white;"" href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconPoll,"New Poll","align=""absmiddle""") & "</a> <a style=""color:white;"" href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """>New Poll</a>" & vbNewLine
				end if
			end if
		else
		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:white;"" href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> <a style=""color:white;"" 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:white;"" 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 style=""color:white;"" 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:white;"" href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a style=""color:white;"" 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:white;"" href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "log.asp?log_id=" & TOPIC_ID & "')"">" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & "</a> <a style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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 style=""color:white;"" 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
%>
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 07 August 2012 :  17:32:26  Show Profile  Visit Webbo's Homepage
Is there a link to download this mod ?
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 07 August 2012 :  22:17:19  Show Profile
Look here:

http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=56875
Edited by - Carefree on 08 August 2012 00:06:50
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.97 seconds. Powered By: Snitz Forums 2000 Version 3.4.07