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)
 Minimum Number of Posts
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

leatherlips
Senior Member

USA
1838 Posts

Posted - 21 July 2009 :  14:01:34  Show Profile  Visit leatherlips's Homepage  Reply with Quote
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.

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 21 July 2009 :  16:38:33  Show Profile  Reply with Quote
This should do it. Post value will be in "intMPosts" when executed.

	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.


<%
	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:

%>
<!--#INCLUDE file="inc_minposts.asp" -->
<%

Edited by - Carefree on 22 July 2009 16:57:18
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 21 July 2009 :  18:07:11  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Thanks. I like the include idea.

I am currently getting this error:

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?

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 21 July 2009 :  19:10:01  Show Profile  Reply with Quote
Whoops, sorry. Typo deleted part of a line.

Fixed above.
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 21 July 2009 :  19:31:37  Show Profile  Visit leatherlips's Homepage  Reply with Quote
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?

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD

Edited by - leatherlips on 21 July 2009 19:31:54
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 22 July 2009 :  00:13:51  Show Profile  Reply with Quote
OK - I found the error and fixed it. Should be good to go.
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 22 July 2009 :  05:11:50  Show Profile  Reply with Quote
Rather than hitting the database again, you could use the chkUser function to pull the value of M_POSTS and assign it to a a variable which would be available in any page that includes inc_header.asp. Don't forget to dim your new variable outside of the function, as we do with MemberID in config.asp.


Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

Edited by - Shaggy on 22 July 2009 05:12:06
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 22 July 2009 :  09:53:24  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Carefree,

Now I am getting this text on top of the page I have added it to:

Insufficient posts to view this page. META HTTP-EQUIV="refresh" CONTENT="7; url="javascript:history.back()">Return to previous page.

It also has all of the normal content of the page displaying.

Shaggy,

I do not know how to do what you are asking. However, the page I am trying Carefree's code on does not have inc_header.asp in it. It instead has inc_header_short.asp. Perhaps that is why I am having a problem?

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 22 July 2009 :  10:25:37  Show Profile  Reply with Quote
Find the following on line 127 of config.asp and add the code in green:
Dim mLev, strLoginStatus, MemberID, strArchiveTablePrefix, intMemberPosts
Find the chkUser function on line 893 of inc_func_common.asp and add the code in green:
function chkUser(fName, fPassword, fAuthor)

	dim rsCheck
	dim strSql

	'## Forum_SQL
	strSql = "SELECT MEMBER_ID, M_LEVEL, M_NAME, M_PASSWORD, M_POSTS "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & ChkString(fName, "SQLString") & "' "
	if strAuthType="db" then	
		strSql = strSql & " AND M_PASSWORD = '" & ChkString(fPassword, "SQLString") &"'"
	End If
	strSql = strSql & " AND M_STATUS = " & 1
	Set rsCheck = my_Conn.Execute(strSql)
	if rsCheck.BOF or rsCheck.EOF or not(ChkQuoteOk(fName)) or not(ChkQuoteOk(fPassword)) then
		MemberID = -1
		intMemberPosts=0
		chkUser = 0 '##  Invalid Password
		if strDBNTUserName <> "" and chkCookie = 1 then
			Call ClearCookies()
			strDBNTUserName = ""
		end if		
	else
		MemberID = rsCheck("MEMBER_ID")
		intMemberPosts=clng(rsCheck("M_POSTS"))
		strDBNTUserName = rsCheck("M_NAME")
		if (rsCheck("MEMBER_ID") & "" = fAuthor & "") and (cLng(rsCheck("M_LEVEL")) <> 3) then 
			chkUser = 1 '## Author
		else
			select case cLng(rsCheck("M_LEVEL"))
				case 1
					chkUser = 2 '## Normal User
				case 2
					chkUser = 3 '## Moderator
				case 3
					chkUser = 4 '## Admin
				case else
					chkUser = cLng(rsCheck("M_LEVEL"))
			end select
		end if	
	end if

	rsCheck.close	
	set rsCheck = nothing

end function
The intMemberPosts variable will now be available to use on any page that includes config.asp and inc_header(_short).asp. If you're not including config.asp then be sure to dim intMemberPosts elsewhere in your script. If you're not including one of the inc_header.asp, you can still assign a value to the variable with a call to the chkUser function, assuming you are including inc_func_common.asp.


Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 22 July 2009 :  13:36:25  Show Profile  Reply with Quote
quote:
Originally posted by leatherlips

Carefree,

Now I am getting this text on top of the page I have added it to:

Insufficient posts to view this page. META HTTP-EQUIV="refresh" CONTENT="7; url="javascript:history.back()">Return to previous page.

It also has all of the normal content of the page displaying.

Shaggy,

I do not know how to do what you are asking. However, the page I am trying Carefree's code on does not have inc_header.asp in it. It instead has inc_header_short.asp. Perhaps that is why I am having a problem?



Or simply add an opening bracket ( < ) before the two META HTTP bits.
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 22 July 2009 :  15:29:07  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Carefree,

Now it is displaying the message but it still also shows the real page.

Maybe this will help.

Here is the page I am trying to get this to work on...

<%
'#################################################################################
'## Snitz Forums 2000 v3.4.04
'#################################################################################
'## Copyright (C) 2000-04 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## 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 the 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 the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
'#
'# proeder's file attachment V1.2 for Snitz Forums - Support can be obtained from
'# http://demoforum.sharepointing.com
'# Author: Philipp Roeder (post@proeder.com)
'#
'#################################################################################
%>

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE file="inc_func_common.asp" -->
<!--#INCLUDE file="inc_header_short.asp" -->

<%

if strDBNTUserName <> "" then
    
    if Request("Method_Type") = "Write_Configuration" then 
      
   Err_Msg = Request.QueryString("Err_Msg")

   if Err_Msg <> "" then

Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>There Was A Problem With Your Details</font></p>" & vbNewline & _
      "<table bgColor=""" & strHeadCellColor & """ align=""center"" border=""0"">" & vbNewline & _
      " <tr>" & vbNewline & _
      "   <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & vbNewline & _
      "     <ul>" & vbNewline & _
      "" & Err_Msg &"" & vbNewline & _
      "     </ul>" & vbNewline & _
      "   </font>" & vbNewline & _
      "     </td>" & vbNewline & _
      " </tr>" & vbNewline & _
      "  <tr>" & vbNewline & _
      "   <td align=""center"">" & vbNewline & _
      "   <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""#"" onclick=""javascript:history.go(-1)"">Go Back To Enter Data</a></font>" & vbNewline & _
      "   </td>" & vbNewline & _
      "  </tr>" & vbNewline & _
      "</table>" & vbNewline
   end if
  else 
   
   '##### check max file size
   
   strSQL = "SELECT UPLOAD_VALUE FROM " & strTablePrefix & "UPSIZE WHERE UPLOAD_VAR = 'STRUPLOADFILESIZE'"
   set rsSize = my_Conn.Execute (strSQL)
   strAllowedSize = rsSize("UPLOAD_VALUE")
   
      if bytecount < strAllowedSize then
         AllowSize = true
      else
         AllowSize = false
      end if
   
   rsSize.close
   set rsSize = nothing
   
   If strAllowedSize < 1024 Then
         strAllowedSize = Round(strAllowedSize,2) & " Bytes"
   ElseIf strAllowedSize < 1048576 Then
         strAllowedSize = Round(strAllowedSize/1024,2) & " KB"
   Else
         strAllowedSize = Round(strAllowedSize/1048576,2) & " MB"
   End If
%>
<!--#INCLUDE file="inc_minposts.asp" -->
<%
Response.Write "<script language=""javascript"" src=""uploadprogressbar.js""></script>"

Response.Write "      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
               "        <tr>" & vbNewLine & _
               "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
               "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strHeadCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & strForumTitle & "</b></font></td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strCategoryCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Add attachment to topic</b></font></td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strForumCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><br>You may upload any of the following file extensions:</font>" & vbNewLine

Call AllowedExtensions()

Response.Write " <br><br></td>" &vbNewLine & _
               "  <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strForumCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><br>The maximum allowed file size is " & strAllowedSize & ".</font><br><br></td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "  <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strForumCellColor & """ align=""center""><br><FORM METHOD=""Post"" ENCTYPE=""multipart/form-data"" ACTION=""outputFile.asp"">" & vbNewLine & _
               "<INPUT TYPE=""file"" NAME=""blob"" size=""40"">" & vbNewLine & _
               "<input type=""hidden"" name=""memberName"" value=""" & strDBNTUserName & """>" & vbNewLine & _
               "<br><br><INPUT TYPE=""submit"" NAME=""Enter"" value=""Upload and Insert File in Post"" onclick=""value='Upload in Progress. Please wait...'; javascript:bar1.showBar()"" ></FORM>" & vbNewLine & _
               "  <script type=""text/javascript"">var bar1= createBar(300,15,'white',1,'black','blue',85,7,3,"""");bar1.hideBar();</script></td>" & vbNewLine & _
               "              </tr>" & vbNewLine
'               "  <tr>" & vbNewLine & _
'               "                <td bgcolor=""" & strForumCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>You may select a previously uploaded file from your upload directory as well:</font></td>" & vbNewLine & _
'               "              </tr>" & vbNewLine & _
'               "  <tr>" & vbNewLine & _
'               "                <td><input name=""PreviousFile"" type=""button"" value=""Reuse File"" onclick=""JavaScript:window.location=('myfiles.asp?InsertFile=select');""></td>" & vbNewLine & _
'               "              </tr>" & vbNewLine & _
Response.Write "              </table>" & vbNewLine & _
               "              </td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "              </table>" & vbNewLine

  end if
else
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>You must be logged on to see this page!</font></p>" & vbNewline
end if 

function AllowedExtensions()
'##### check allowed extensions
   Dim bolExtFound, arrExt, rsExt, iExt
   
   strSQL = "SELECT EXTENSION FROM FORUM_CONFIG_EXTENSION"
   set rsExt = my_Conn.Execute (strSQL)
   
   If Not rsExt.EOF Then
      arrExt = rsExt.GetRows()
      bolExtFound = True
   Else
           bolExtFound = False
   End If

   rsExt.close
   set rsExt = nothing
   
   If bolExtFound Then
      For iExt = 0 to ubound(arrExt, 2)
        iExtension = arrExt(0, iExt)
        response.write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & iExtension & "  </font>"
      next
   else
      response.write "<br><p align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>There are no extensions defined yet. Please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forum.</font></p>"
   end if
   
   'erase arrExt
end function

Response.Write " <center><br><form><input type=button value=""Close Window"" onClick=""javascript:window.close();""></form></center>" & vbNewLine

%>

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 22 July 2009 :  16:53:14  Show Profile  Reply with Quote
OK. Here you go.

<%
	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
%>


Now, here's your code fixed to not display the page.


<%
'#################################################################################
'## Snitz Forums 2000 v3.4.04
'#################################################################################
'## Copyright (C) 2000-04 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## 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 the 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 the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
'#
'# proeder's file attachment V1.2 for Snitz Forums - Support can be obtained from
'# http://demoforum.sharepointing.com
'# Author: Philipp Roeder (post@proeder.com)
'#
'#################################################################################
%>

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE file="inc_func_common.asp" -->
<!--#INCLUDE file="inc_header_short.asp" -->
<!--#INCLUDE file="inc_minposts.asp" -->

<%

if strDBNTUserName <> "" then
    
    if Request("Method_Type") = "Write_Configuration" then 
      
   Err_Msg = Request.QueryString("Err_Msg")

   if Err_Msg <> "" then

Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>There Was A Problem With Your Details</font></p>" & vbNewline & _
      "<table bgColor=""" & strHeadCellColor & """ align=""center"" border=""0"">" & vbNewline & _
      " <tr>" & vbNewline & _
      "   <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & vbNewline & _
      "     <ul>" & vbNewline & _
      "" & Err_Msg &"" & vbNewline & _
      "     </ul>" & vbNewline & _
      "   </font>" & vbNewline & _
      "     </td>" & vbNewline & _
      " </tr>" & vbNewline & _
      "  <tr>" & vbNewline & _
      "   <td align=""center"">" & vbNewline & _
      "   <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""#"" onclick=""javascript:history.go(-1)"">Go Back To Enter Data</a></font>" & vbNewline & _
      "   </td>" & vbNewline & _
      "  </tr>" & vbNewline & _
      "</table>" & vbNewline
   end if
  else 
   
   '##### check max file size
   
   strSQL = "SELECT UPLOAD_VALUE FROM " & strTablePrefix & "UPSIZE WHERE UPLOAD_VAR = 'STRUPLOADFILESIZE'"
   set rsSize = my_Conn.Execute (strSQL)
   strAllowedSize = rsSize("UPLOAD_VALUE")
   
      if bytecount < strAllowedSize then
         AllowSize = true
      else
         AllowSize = false
      end if
   
   rsSize.close
   set rsSize = nothing
   
   If strAllowedSize < 1024 Then
         strAllowedSize = Round(strAllowedSize,2) & " Bytes"
   ElseIf strAllowedSize < 1048576 Then
         strAllowedSize = Round(strAllowedSize/1024,2) & " KB"
   Else
         strAllowedSize = Round(strAllowedSize/1048576,2) & " MB"
   End If
Response.Write "<script language=""javascript"" src=""uploadprogressbar.js""></script>"

Response.Write "      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
               "        <tr>" & vbNewLine & _
               "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
               "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strHeadCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & strForumTitle & "</b></font></td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strCategoryCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Add attachment to topic</b></font></td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strForumCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><br>You may upload any of the following file extensions:</font>" & vbNewLine

Call AllowedExtensions()

Response.Write " <br><br></td>" &vbNewLine & _
               "  <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strForumCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><br>The maximum allowed file size is " & strAllowedSize & ".</font><br><br></td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "  <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strForumCellColor & """ align=""center""><br><FORM METHOD=""Post"" ENCTYPE=""multipart/form-data"" ACTION=""outputFile.asp"">" & vbNewLine & _
               "<INPUT TYPE=""file"" NAME=""blob"" size=""40"">" & vbNewLine & _
               "<input type=""hidden"" name=""memberName"" value=""" & strDBNTUserName & """>" & vbNewLine & _
               "<br><br><INPUT TYPE=""submit"" NAME=""Enter"" value=""Upload and Insert File in Post"" onclick=""value='Upload in Progress. Please wait...'; javascript:bar1.showBar()"" ></FORM>" & vbNewLine & _
               "  <script type=""text/javascript"">var bar1= createBar(300,15,'white',1,'black','blue',85,7,3,"""");bar1.hideBar();</script></td>" & vbNewLine & _
               "              </tr>" & vbNewLine
'               "  <tr>" & vbNewLine & _
'               "                <td bgcolor=""" & strForumCellColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>You may select a previously uploaded file from your upload directory as well:</font></td>" & vbNewLine & _
'               "              </tr>" & vbNewLine & _
'               "  <tr>" & vbNewLine & _
'               "                <td><input name=""PreviousFile"" type=""button"" value=""Reuse File"" onclick=""JavaScript:window.location=('myfiles.asp?InsertFile=select');""></td>" & vbNewLine & _
'               "              </tr>" & vbNewLine & _
Response.Write "              </table>" & vbNewLine & _
               "              </td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "              </table>" & vbNewLine

  end if
else
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>You must be logged on to see this page!</font></p>" & vbNewline
end if 

function AllowedExtensions()
'##### check allowed extensions
   Dim bolExtFound, arrExt, rsExt, iExt
   
   strSQL = "SELECT EXTENSION FROM FORUM_CONFIG_EXTENSION"
   set rsExt = my_Conn.Execute (strSQL)
   
   If Not rsExt.EOF Then
      arrExt = rsExt.GetRows()
      bolExtFound = True
   Else
           bolExtFound = False
   End If

   rsExt.close
   set rsExt = nothing
   
   If bolExtFound Then
      For iExt = 0 to ubound(arrExt, 2)
        iExtension = arrExt(0, iExt)
        response.write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & iExtension & "  </font>"
      next
   else
      response.write "<br><p align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>There are no extensions defined yet. Please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forum.</font></p>"
   end if
   
   'erase arrExt
end function

Response.Write " <center><br><form><input type=button value=""Close Window"" onClick=""javascript:window.close();""></form></center>" & vbNewLine

%>

Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 22 July 2009 :  18:50:27  Show Profile  Visit leatherlips's Homepage  Reply with Quote
It is starting to work great now! You're awesome!

I have a couple more questions.

Just for my information, because I don't completly understand your code. But what is the section in red for? It seems to copy the section in green.

<%
	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
%>


Also, before adding your code, the page also checked to be sure you were logged in before you could see it. Now it does not check for that. Can it still be tweaked to do that? Line 140 of your revised pop_upload_new.asp page is where part of the section is.

So to sum up, for this page I want it to:

1. Check if they are logged in, if not, they can't see the page.
2. If they are logged in, check to see if they have the minimum number of posts, if not, they can't see the page.
3. If they are logged in and have the required number of minimum posts, then they can see the page.

So far numbers 2 and 3 work. Now for number 1.

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 23 July 2009 :  03:12:22  Show Profile  Reply with Quote
The section in red is required to handle those people who aren't logged in. If someone isn't logged in, then the check for their account (where M.MEMBER_ID = " & MemberID) will hit an end-of-file and they'll get the same message.

Thus, no change should be required. However, make sure those "end if" commands are not on the same lines as the "Response.End" commands.
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 04 April 2014 :  02:24:22  Show Profile  Reply with Quote
I completely redid this package for the modular Snitz that I'm working on. Instead of having to include the file on each page you want controlled, the included page is called from "inc_header" and "inc_header_short". You simply add/delete/edit the page names to be controlled from an admin console page. You can also change the minimum number of posts there.

The include page also has an override function for the forum admininistrator/administrators/moderators, depending on the option chosen from the admin console. Just need to fix the onclick function for the radio buttons, it's being a mite stubborn. That's resolved and it's up on SnitzBitz.

Edited by - Carefree on 04 April 2014 09:06:43
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.33 seconds. Powered By: Snitz Forums 2000 Version 3.4.07