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

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Find member post number.....(?)		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Webbo
Average Member

United Kingdom
982 Posts
Posted - 14 October 2012 :  15:56:08  Show Profile  Visit Webbo's Homepage  Reply with Quote
Is it possible to create a page where a member can put in their name and enter a number relevant to their post count to find that particular post?

Eg:

Member name [Bill] (member's name)
Post No. [1] (Search criteria where 1 is the number of the post that they are searching for)

Result to show either the post within the thread or a link to the thread where the post was made

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 15 October 2012 :  00:44:55  Show Profile  Reply with Quote
Yes, that wouldn't be difficult. The problem would be in remembering which post number to check LOL. I'll write it for you later today.

Here you go. This is untested, but it should work.


<%
'###############################################################################
'##
'##	          Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##	          Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.	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 an 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:
'##
'##           Free Software Foundation, Inc.
'##           59 Temple Place, Suite 330
'##           Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##           http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##           manderson@snitz.com
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_subscription.asp" -->
<!--#INCLUDE FILE="inc_moderation.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<%
Response.Write	"	<table border=""0"" width=""100%"">" & vbNewLine & _
	"		<tr>" & vbNewLine & _
	"			<td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
	"			" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
	"			" & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Topic By ID<br /></font></td>" & vbNewLine & _
	"		</tr>" & vbNewLine & _
	"	</table><br />" & vbNewLine
strSqlC = "SELECT COUNT(TOPIC_ID) AS CNT FROM " & strTablePrefix & "TOPICS WHERE T_AUTHOR=" & MEMBERID
Set rsCnt=my_Conn.Execute(strSqlC)
If not rsCnt.EOF Then
	intCount=rsCnt("CNT")
	rsCnt.Close
End If
Set rsCnt=Nothing
If not isNull(Request.Form("topic_number")) and Request.Form("topic_number")>"" Then
	If isNumeric(Request.Form("topic_number")) Then
		strSql = "SELECT * FROM " & strTablePrefix & "TOPICS WHERE T_AUTHOR="&MEMBERID &" ORDER BY TOPIC_ID ASC"
		Set rsTopics=my_Conn.Execute(strSql)
		If not (rsTopics.BOF or rsTopics.EOF) Then
			rsTopics.MoveFirst
			If cInt(Request.Form("topic_number")) > intCount Then
				Response.Write	"<table align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """ border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine & _
					"	<tr valign=""middle"">" & vbNewLine & _
					"		<td align=""center"" width=""100%"" bgColor=""" & strHeadCellColor & """>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize+1 & """ color=""" & strHeadFontColor & """><b>Topic by ID</b>" & vbNewLine & _
					"			</font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"	<tr valign=""middle"">" & vbNewLine & _
					"		<td align=""center"" width=""100%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & intCount & " total topics.  Topic not found.  Go <a href=""JavaScript:history.go(-1)"">back</a> to correct...." & vbNewLine & _
					"			</font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"</table>" & vbNewLine
				WriteFooter
				Response.End
			End If
			For i = 1 to Request.Form("topic_number")-1
				rsTopics.MoveNext
			Next
			Response.Write	"<table align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """ border=""1"" cellpadding=""4"" cellspacing=""1"">" & vbNewLine & _
				"	<tr valign=""middle"">" & vbNewLine & _
				"		<td align=""center"" colspan=""2"" width=""100%"" bgColor=""" & strHeadCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize+1 & """ color=""" & strHeadFontColor & """><b>Topic by ID</b>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr valign=""top"">" & vbNewLine & _
				"		<td align=""right"" width=""20%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>Date: </b>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td align=""left"" width=""80%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & strtoDate(rsTopics("T_DATE")) & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr valign=""top"">" & vbNewLine & _
				"		<td align=""right"" width=""20%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>ID: <br />Title: </b>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td align=""left"" width=""80%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & rsTopics("TOPIC_ID") & "<br /><a href=""topic.asp?TOPIC_ID=" & rsTopics("TOPIC_ID") & """>" & rsTopics("T_Subject") & "</a>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr valign=""top"">" & vbNewLine & _
				"		<td align=""right"" width=""20%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>Content: </b>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td align=""left"" width=""80%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & formatStr(rsTopics("T_Message")) & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
			If rsTopics("T_Replies") > "0" Then
				strSQLR="SELECT * FROM " & strTablePrefix & "REPLY WHERE TOPIC_ID=" & rsTopics("Topic_ID") & " ORDER BY REPLY_ID ASC"
				Set rsReply=my_Conn.Execute(strSQLR)
				If not rsReply.EOF Then
					rsReply.MoveFirst
					intI=0
					Do while not rsReply.EOF
						If intI=0 Then CColor=strAltForumCellColor Else CColor=strForumFirstCellColor
						strSqlM="SELECT * FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & rsReply("R_AUTHOR")
						Set rsMember=my_Conn.Execute(strSqlM)
						If not rsMember.EOF Then
							strName=rsMember("M_NAME")
							intID=rsMember("MEMBER_ID")
							rsMember.Close
						End If
						Set rsMember = Nothing
						Response.Write	"	<tr valign=""top"" bgColor=""" & CColor & """>" & vbNewLine & _
							"		<td align=""right"" width=""20%"">" & vbNewLine & _
							"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b><a href=""topic.asp?TOPIC_ID="&rsTopics("TOPIC_ID")&"#"&rsReply("REPLY_ID")&""">Reply ID " & rsReply("REPLY_ID") & "</a>: </b>" & vbNewLine & _
							"			</font>" & vbNewLine & _
							"		</td>" & vbNewLine & _
							"		<td align=""left"" width=""80%"">" & vbNewLine & _
							"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
							"				Date:  " & strtoDate(rsReply("R_DATE")) & "<br />Author:  <span class=""spnMessageText"">" & profileLink(ChkString(strName,"display"),intID) & "</span><br />" & vbNewLine & _
							"				Text:  " & formatStr(rsReply("R_MESSAGE")) & "<br /><hr>" & vbNewLine & _
							"			</font>" & vbNewLine & _
							"		</td>" & vbNewLine & _
							"	</tr>" & vbNewLine
						rsReply.MoveNext
						intI=1-intI
					Loop
					rsReply.Close
				End If
				Set rsReply=Nothing
			End If
			Response.Write	"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
			rsTopics.Close
		End If		
		Set rsTopics=Nothing
	End If
Else
	Response.Write	"<form action=""topicbyid.asp"" method=""post"">" & vbNewLine & _
		"	<table align=""center"" width=""100%"" bgColor=""transparent"" border=""1"" cellpadding=""4"" cellspacing=""1"">" & vbNewLine & _
		"		<tr valign=""middle"">" & vbNewLine & _
		"			<td align=""center"" colspan=""2"" width=""100%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"				<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize+1 & """ color=""" & strForumFontColor & """><b>Topic by ID</b><br /><font size=""" & strDefaultFontSize & """><small>This will display any post <b>(of <font color=""" & strHiLiteFontColor & """>"&intCount&"</font> total posts)</b> made by you, in order from oldest to newest.</small></font>" & vbNewLine & _
		"				</font>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"		<tr valign=""middle"">" & vbNewLine & _
		"			<td align=""right"" width=""50%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"				<font face=""" & strDefaultFontFace & """ size=""" & strForumerFontSize & """ color=""" & strForumFontColor & """><b>Topic Number: </b>" & vbNewLine & _
		"				</font>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"			<td align=""left"" width=""50%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"				<font face=""" & strDefaultFontFace & """ size=""" & strForumerFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
		"					<input type=""text"" size=""20"" maxlength=""10"" name=""topic_number"" id=""topic_number"" />" & vbNewLine & _
		"				</font>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"	<table align=""center"" width=""100%"" bgColor=""transparent"" border=""0"" cellpadding=""0"" cellspacing=""1"">" & vbNewLine & _
		"		<tr valign=""top"">" & vbNewLine & _
		"			<td align=""center"" colspan=""2"" width=""100%"" bgColor=""transparent"">" & vbNewLine & _
		"				<input name=""Submit"" type=""submit"" value=""Submit"">" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"</form>" & vbNewLine
	WriteFooter
End If
%>
Edited by - Carefree on 15 October 2012 07:03:12
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20595 Posts
Posted - 15 October 2012 :  11:12:28  Show Profile  Visit HuwR's Homepage  Reply with Quote
The only problem here is that your post count may not actually match the number of posts in the database, when a post is deleted the members post count is not changed so you could have a post count of 300 but there are only 200 of your posts in the database so the two values would not match, so what is your 150th post ?
MVC .net dev/test site | MVC .net running on Raspberry Pi
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 15 October 2012 :  17:05:01  Show Profile  Reply with Quote
Took that into consideration - it's only going to count/display existing posts. So if a post is deleted, the member's count is likely to be off.
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 15 October 2012 :  17:19:35  Show Profile  Visit Webbo's Homepage  Reply with Quote
Hi Carefree, that works well finding the Topics that a member has started by number, however is it possible to modify it so that it finds Posts by number?

Good point HuwR. Would a search then return an error because the post could not be found or do you mean that it would show the 150th post of what remained after deletions?
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20595 Posts
Posted - 16 October 2012 :  02:22:31  Show Profile  Visit HuwR's Homepage  Reply with Quote
it would show the 150th post of what remained after deletions?
MVC .net dev/test site | MVC .net running on Raspberry Pi
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 16 October 2012 :  04:21:06  Show Profile  Reply with Quote
Yes - or since I didn't include replies, 150th topic. In order to include replies in order, the routines have to be rewritten to sort the dates from both tables.
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 29 October 2012 :  06:18:48  Show Profile  Reply with Quote
Here's one which is based upon replies only. There are a couple of little enhancements to the topic version above. The post/reply requested is shown in the hilite font color and links to replies on subsequent pages will jump directly to them.


<%
'###############################################################################
'##
'##	          Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##	          Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.	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 an 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:
'##
'##           Free Software Foundation, Inc.
'##           59 Temple Place, Suite 330
'##           Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##           http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##           manderson@snitz.com
'##
'###############################################################################
'##
'##           postbyid.asp
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_subscription.asp" -->
<!--#INCLUDE FILE="inc_moderation.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<%
Response.Write	"	<table border=""0"" width=""100%"">" & vbNewLine & _
	"		<tr>" & vbNewLine & _
	"			<td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
	"			" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
	"			" & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Post By ID<br /></font></td>" & vbNewLine & _
	"		</tr>" & vbNewLine & _
	"	</table><br />" & vbNewLine
strSqlC = "SELECT COUNT(REPLY_ID) AS CNT FROM " & strTablePrefix & "REPLY WHERE R_AUTHOR=" & MEMBERID
Set rsCnt=my_Conn.Execute(strSqlC)
If not rsCnt.EOF Then
	intCount=rsCnt("CNT")
	rsCnt.Close
End If
Set rsCnt=Nothing
If not isNull(Request.Form("post_number")) and Request.Form("post_number")>"" Then
	If isNumeric(Request.Form("post_number")) Then
		intPosted=Request.Form("post_number")
		strSql = "SELECT * FROM " & strTablePrefix & "REPLY WHERE R_AUTHOR="&MEMBERID &" ORDER BY REPLY_ID ASC"
		Set rsPosts=my_Conn.Execute(strSql)
		If not (rsPosts.BOF or rsPosts.EOF) Then
			rsPosts.MoveFirst
			If cInt(intPosted) > intCount Then
				Response.Write	"<table align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """ border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine & _
					"	<tr valign=""middle"">" & vbNewLine & _
					"		<td align=""center"" width=""100%"" bgColor=""" & strHeadCellColor & """>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize+1 & """ color=""" & strHeadFontColor & """><b>Post by ID</b>" & vbNewLine & _
					"			</font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"	<tr valign=""middle"">" & vbNewLine & _
					"		<td align=""center"" width=""100%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & intCount & " total posts.  Post not found.  Go <a href=""JavaScript:history.go(-1)"">back</a> to correct...." & vbNewLine & _
					"			</font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"</table>" & vbNewLine
				WriteFooter
				Response.End
			End If
			For i = 1 to intPosted-1
				rsPosts.MoveNext
			Next
			intRepCount=rsPosts("REPLY_ID")
			strSql="SELECT * FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & rsPosts("Topic_ID")
			Set rsTopic=my_Conn.Execute(strSql)
			If not rsTopic.EOF Then
				strTopic=rsTopic("T_SUBJECT")
				intAuthor=rsTopic("T_AUTHOR")
				strDated=strtoDate(rsTopic("T_DATE"))
				strMessage=rsTopic("T_MESSAGE")
				rsTopic.Close
			End If
			Set rsTopic = Nothing
			Response.Write	"<table align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """ border=""1"" cellpadding=""4"" cellspacing=""1"">" & vbNewLine & _
				"	<tr valign=""middle"">" & vbNewLine & _
				"		<td align=""center"" colspan=""2"" width=""100%"" bgColor=""" & strHeadCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize+1 & """ color=""" & strHeadFontColor & """><b>Post by ID</b><br />Post " & intPosted & " shown in <font color=""" & strHiliteFontColor & """>" & strHiliteFontColor & "</font>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr valign=""top"">" & vbNewLine & _
				"		<td align=""right"" width=""20%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>Date: </b>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td align=""left"" width=""80%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & strDated & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr valign=""top"">" & vbNewLine & _
				"		<td align=""right"" width=""20%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>ID: <br />Title: </b>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td align=""left"" width=""80%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & rsPosts("REPLY_ID") & "<br /><a href=""topic.asp?TOPIC_ID=" & rsPosts("Topic_ID") & """>" & strTopic & "</a>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr valign=""top"">" & vbNewLine & _
				"		<td align=""right"" width=""20%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>Content: </b>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td align=""left"" width=""80%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & formatStr(strMessage) & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
			strSQLR="SELECT * FROM " & strTablePrefix & "REPLY WHERE TOPIC_ID=" & rsPosts("Topic_ID") & " ORDER BY REPLY_ID ASC"
			Set rsReply=my_Conn.Execute(strSQLR)
			If not rsReply.EOF Then
				rsReply.MoveFirst
				intI=0
				Do while not rsReply.EOF
					intRepAdd=intRepAdd+1
					If intRepAdd > cInt(strPageSize) Then
						intPages=int(intRepAdd/cInt(strPageSize))+1
					Else
						intPages=0
					End If
					intReps=rsReply("REPLY_ID")
					If intI=0 Then CColor=strAltForumCellColor Else CColor=strForumFirstCellColor
					If intReps=intRepCount Then FColor=strHiLiteFontColor Else FColor = strForumFontColor
					strSqlM="SELECT * FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & rsReply("R_AUTHOR")
					Set rsMember=my_Conn.Execute(strSqlM)
					If not rsMember.EOF Then
						strName=rsMember("M_NAME")
						intID=rsMember("MEMBER_ID")
						rsMember.Close
					End If
					Set rsMember = Nothing
					Response.Write	"	<tr valign=""top"" bgColor=""" & CColor & """>" & vbNewLine & _
						"		<td align=""right"" width=""20%"">" & vbNewLine & _
						"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & FColor & """><b><a style=""color:"&FColor&""" href=""topic.asp?TOPIC_ID="&rsPosts("TOPIC_ID")
					If intPages > 0 Then Response.Write	"&whichpage="&cStr(intPages)
					Response.Write	"#"&rsReply("REPLY_ID")&""">Reply ID " & rsReply("REPLY_ID") & "</a>: </b>" & vbNewLine & _
						"			</font>" & vbNewLine & _
						"		</td>" & vbNewLine & _
						"		<td align=""left"" width=""80%"">" & vbNewLine & _
						"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & FColor & """>" & vbNewLine & _
						"				Date:  " & strtoDate(rsReply("R_DATE")) & "<br />Author:  <span class=""spnMessageText"">" & profileLink(ChkString(strName,"display"),intID) & "</span><br />" & vbNewLine & _
						"			</font>" & vbNewLine & _
						"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & FColor & """>" & vbNewLine & _
						"				Text:  " & formatStr(rsReply("R_MESSAGE")) & "<br /><hr>" & vbNewLine & _
						"			</font>" & vbNewLine & _
						"		</td>" & vbNewLine & _
						"	</tr>" & vbNewLine
					rsReply.MoveNext
					intI=1-intI
				Loop
				rsReply.Close
			End If
			Set rsReply=Nothing
			Response.Write	"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
			rsPosts.Close
		End If		
		Set rsPosts=Nothing
	End If
Else
	Response.Write	"<form action=""postbyid.asp"" method=""post"">" & vbNewLine & _
		"	<table align=""center"" width=""100%"" bgColor=""transparent"" border=""1"" cellpadding=""4"" cellspacing=""1"">" & vbNewLine & _
		"		<tr valign=""middle"">" & vbNewLine & _
		"			<td align=""center"" colspan=""2"" width=""100%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"				<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize+1 & """ color=""" & strForumFontColor & """><b>Post by ID</b><br /><font size=""" & strDefaultFontSize & """><small>This will display any post <b>(of <font color=""" & strHiLiteFontColor & """>"&intCount&"</font> total posts)</b> made by you, in order from oldest to newest.</small></font>" & vbNewLine & _
		"				</font>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"		<tr valign=""middle"">" & vbNewLine & _
		"			<td align=""right"" width=""50%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"				<font face=""" & strDefaultFontFace & """ size=""" & strForumerFontSize & """ color=""" & strForumFontColor & """><b>Post Number: </b>" & vbNewLine & _
		"				</font>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"			<td align=""left"" width=""50%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"				<font face=""" & strDefaultFontFace & """ size=""" & strForumerFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
		"					<input type=""text"" size=""20"" maxlength=""10"" name=""post_number"" id=""post_number"" />" & vbNewLine & _
		"				</font>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"	<table align=""center"" width=""100%"" bgColor=""transparent"" border=""0"" cellpadding=""0"" cellspacing=""1"">" & vbNewLine & _
		"		<tr valign=""top"">" & vbNewLine & _
		"			<td align=""center"" colspan=""2"" width=""100%"" bgColor=""transparent"">" & vbNewLine & _
		"				<input name=""Submit"" type=""submit"" value=""Submit"">" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"</form>" & vbNewLine
	WriteFooter
End If
%>
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 31 October 2012 :  02:24:51  Show Profile  Visit Webbo's Homepage  Reply with Quote
Thanks Carefree, it works well with non archived posts but a definate starting point.
I'll have a look at it later to add an additional search for archived replies, perhaps even combining the topics version as well


Now look what you've started
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 31 October 2012 :  10:18:19  Show Profile  Reply with Quote
Help yourself, Webbo. I'm glad it gave you a starting point.
Go to Top of Page

Etymon
Advanced Member

United States
2393 Posts
Posted - 05 November 2012 :  04:54:58  Show Profile  Visit Etymon's Homepage  Reply with Quote
1) Create a table (and related code) that tracks that sort of thing.


MemberID    TopicID     ReplyID     PostID
  23915      70326      4005333      2767

or ...

2) Add related code and a column to each of the the topics and reply tables (such as PostID) that tracks the post # of the post author.


Edited by - Etymon on 05 November 2012 05:05:39
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 06 November 2012 :  03:11:40  Show Profile  Reply with Quote
quote:
Originally posted by Etymon

1) Create a table (and related code) that tracks that sort of thing.


MemberID    TopicID     ReplyID     PostID
  23915      70326      4005333      2767

or ...

2) Add related code and a column to each of the the topics and reply tables (such as PostID) that tracks the post # of the post author.
That would work, but would be a pain to calculate all the topics & replies in chronological order for each member if the board has been active for any length of time.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.66 seconds. Powered By: Snitz Forums 2000 Version 3.4.07