The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Is there a general way to apply some code to a page that first requires a member to have a minimum number of posts before they can see it?
For example, say I have a page that I only want viewed if you made a minimum of 10 posts. If you had less than 10 you would see something like:
"You must have made at least 10 posts to see this page."
If they had 10 or more posts they would instead see the pages normal contents.
If there is not a general "one size fits all" code for this to apply to a page then I'll re-ask the question here for the specific page I have in mind.
For example, say I have a page that I only want viewed if you made a minimum of 10 posts. If you had less than 10 you would see something like:
"You must have made at least 10 posts to see this page."
If they had 10 or more posts they would instead see the pages normal contents.
If there is not a general "one size fits all" code for this to apply to a page then I'll re-ask the question here for the specific page I have in mind.
Posted
This should do it. Post value will be in "intMPosts" when executed.
To avoid adding all the lines to each page, you can turn this into an include by modifying it as follows and saving it as "inc_minposts.asp". Then to use it, you'd simply have to add an include statement where you want it checked.
Include statement:
Code:
intMPosts=0
set my_Conn=Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strSql = "SELECT M_POSTS FROM " & strMemberTablePrefix & "MEMBERS M WHERE M.MEMBER_ID = " & MemberID
set rs = my_Conn.Execute(strSql)
if not rs.BOF and not rs.EOF then
intMPosts = rs("M_POSTS")
if intMPosts < 10 then
Response.Write "Insufficient posts to view this page." & vbNewLine & _
"<a href=""javascript:void(setTimeout('history.go(-1)', 0))"">Return to previous page.</a>"
WriteFooter
Response.End
end if
else
Response.Write "Insufficient posts to view this page." & vbNewLine & _
"<a href=""javascript:void(setTimeout('history.go(-1)', 0))"">Return to previous page.</a>"
WriteFooter
Response.End
end if
To avoid adding all the lines to each page, you can turn this into an include by modifying it as follows and saving it as "inc_minposts.asp". Then to use it, you'd simply have to add an include statement where you want it checked.
Code:
<%
intMPosts=0
set my_Conn=Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strSql = "SELECT M_POSTS FROM " & strMemberTablePrefix & "MEMBERS M WHERE M.MEMBER_ID = " & MemberID
set rs = my_Conn.Execute(strSql)
if not rs.BOF and not rs.EOF then
intMPosts = rs("M_POSTS")
if intMPosts < 10 then
Response.Write "Insufficient posts to view this page." & vbNewLine & _
"<a href=""javascript:void(setTimeout('history.go(-1)', 0))"">Return to previous page.</a>"
WriteFooter
Response.End
end if
else
Response.Write "Insufficient posts to view this page." & vbNewLine & _
"<a href=""javascript:void(setTimeout('history.go(-1)', 0))"">Return to previous page.</a>"
WriteFooter
Response.End
end if
%>
Include statement:
Code:
%>
<!--#INCLUDE file="inc_minposts.asp" -->
<%
Posted
Thanks. I like the include idea.
I am currently getting this error:
The page I put this on is a pop up page. Does your code require another include of another fourm page?
I am currently getting this error:
Code:
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/forumtest/inc_minposts.asp, line 3
strSql = strSql & " set rs = my_Conn.Execute (strSql)
-----------------------------------------------------^The page I put this on is a pop up page. Does your code require another include of another fourm page?
Posted
Whoops, sorry. Typo deleted part of a line.
Fixed above.
Fixed above.
Posted
No more error. But the page can still be seen. I am testing it on a demo account with 8 posts. Is there something else I need to have on the page?
Posted
OK - I found the error and fixed it. Should be good to go.
