Find member post number.....(?)
Snitz™ Forums 2000https://forum.snitz.com/forumTopic/Posts/70326?pagenum=1
05 November 2025, 08:46
Topic
Webbo
Find member post number.....(?)
14 October 2012, 15:56
Find member post number.....(?)
14 October 2012, 15:56
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
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
Replies ...
Carefree
15 October 2012, 00:44
15 October 2012, 00:44
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.
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
%>
HuwR
15 October 2012, 11:12
15 October 2012, 11:12
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
15 October 2012, 17:05
15 October 2012, 17:05
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.
Webbo
15 October 2012, 17:19
15 October 2012, 17:19
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?
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?
HuwR
16 October 2012, 02:22
16 October 2012, 02:22
it would show the 150th post of what remained after deletions?
Carefree
16 October 2012, 04:21
16 October 2012, 04:21
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.
Carefree
29 October 2012, 06:18
29 October 2012, 06:18
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
%>
Webbo
31 October 2012, 02:24
31 October 2012, 02:24
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
Now look what you've started
Carefree
31 October 2012, 10:18
31 October 2012, 10:18
Help yourself, Webbo. I'm glad it gave you a starting point.
Etymon
05 November 2012, 04:54
05 November 2012, 04:54
1) Create a table (and related code) that tracks that sort of thing.
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.
Code:
MemberID TopicID ReplyID PostID
23915 70326 4005333 27672) 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
06 November 2012, 03:11
06 November 2012, 03:11
Originally posted by EtymonThat 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.
1) Create a table (and related code) that tracks that sort of thing.Code:or ...MemberID TopicID ReplyID PostID 23915 70326 4005333 2767
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.