Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Find member post number.....(?)

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
Webbo Posted - 14 October 2012 : 15:56:08
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


11   L A T E S T    R E P L I E S    (Newest First)
Carefree Posted - 06 November 2012 : 03:11:40
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.
Etymon Posted - 05 November 2012 : 04:54:58
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.


Carefree Posted - 31 October 2012 : 10:18:19
Help yourself, Webbo. I'm glad it gave you a starting point.
Webbo Posted - 31 October 2012 : 02:24:51
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
Carefree Posted - 29 October 2012 : 06:18:48
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
%>
Carefree Posted - 16 October 2012 : 04:21:06
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.
HuwR Posted - 16 October 2012 : 02:22:31
it would show the 150th post of what remained after deletions?
Webbo Posted - 15 October 2012 : 17:19:35
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?
Carefree Posted - 15 October 2012 : 17:05:01
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.
HuwR Posted - 15 October 2012 : 11:12:28
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 ?
Carefree Posted - 15 October 2012 : 00:44:55
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
%>

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.27 seconds. Powered By: Snitz Forums 2000 Version 3.4.07