Find member post number.....(?) - Postet den (1308 Views)
Webbo
Average Member
Webbo
Innlegg: 982
982
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


   
 Sidestørrelse 
Postet den
Carefree
Advanced Member
Carefree
Innlegg: 4224
4224
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.
Code:

<%
'###############################################################################
'##
'##	          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
%>
Sist redigert av
Postet den
HuwR
Forum Admin
HuwR
Innlegg: 20611
20611
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 | Snitz .NET Core running on Raspberry Pi

Postet den
Carefree
Advanced Member
Carefree
Innlegg: 4224
4224
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.
Postet den
Webbo
Average Member
Webbo
Innlegg: 982
982
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?
Postet den
HuwR
Forum Admin
HuwR
Innlegg: 20611
20611
it would show the 150th post of what remained after deletions?

MVC .net dev/test site | Snitz .NET Core running on Raspberry Pi

Postet den
Carefree
Advanced Member
Carefree
Innlegg: 4224
4224
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.
Postet den
Carefree
Advanced Member
Carefree
Innlegg: 4224
4224
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.
Code:

<%
'###############################################################################
'##
'##	          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
%>
Postet den
Webbo
Average Member
Webbo
Innlegg: 982
982
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 bigsmile
Postet den
Carefree
Advanced Member
Carefree
Innlegg: 4224
4224
Help yourself, Webbo. I'm glad it gave you a starting point.
Postet den
Etymon
Advanced Member
Etymon
Innlegg: 2396
2396
1) Create a table (and related code) that tracks that sort of thing.
Code:

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. smile

Sist redigert av
Du må legge inn en melding