Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 Searching "Private Messages" & "Attachments" Mods!		  New Topic
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

Michael_
Starting Member

Germany
13 Posts
Posted - 20 August 2014 :  19:59:46  Show Profile  Reply with Quote
Hi There,

I want to create a small Forum but i need two Mods.

"Private Messages Mod" and "Attachments Mod".
The Site "Snitzbitz" seems to be Down.

Does anyone still have these Mods and will "Snitzbitz"
come back on?

lg
Michael_

Michael_
Starting Member

Germany
13 Posts
Posted - 20 August 2014 :  20:33:11  Show Profile
Hi,

Also is there a "Top 5" / "last 5 Threads" Mod ?
And can you display the last Thread on the Index and not only the Date when the last posting was?

AND:

Where can i set the "Posting Permissions" for Usergroups?
(If they can Post Threads, Postings usw...

And can you Set them Specifically for individual forums?

Hope someone can help me ;)
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts
Posted - 21 August 2014 :  09:14:59  Show Profile  Visit AnonJr's Homepage
Davio's working on the issues with Snitzbitz - you can keep tabs here: http://forum.snitz.com/forum/topic.asp?TOPIC_ID=70792
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 21 August 2014 :  19:54:32  Show Profile
Let's break this down a bit. First, SnitzBitz is back online.

quote:
Also is there a "Top 5" / "last 5 Threads" Mod ?
And can you display the last Thread on the Index and not only the Date when the last posting was?


Try the "Active Users" mod.

quote:
Where can i set the "Posting Permissions" for Usergroups?
(If they can Post Threads, Postings usw...

And can you Set them Specifically for individual forums?

The Usergroups mod does not have "posting permissions" for forums, it simply allows you to group members and turn access to forums on/off as a group (rather than having to add/delete individual members). You can set them specifically within the forum edit function or from the Usergroups admin page. There are a lot of sub-mods to the Usergroups mod which add additional capabilities (e.g., group emailing, limiting access based upon age, confining misbehaving members to a single forum until their behavior is corrected, allowing members to join/quit specified groups without administrator intervention, etc.).
Go to Top of Page

Michael_
Starting Member

Germany
13 Posts
Posted - 22 August 2014 :  13:38:42  Show Profile
Hi,

What exactly does the "Active Users" Mod do? I cant find a description...
Is it REALLY a Mod that puts a "Last 5 postings" box on the index page of the Forum?

----

Usergroups Mod is nice but i dont want that the Users dont can visit the Forums, they just should only can "read"
in these forums, dont post... Is there ANY Mod or option i can make this happen?
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 22 August 2014 :  16:45:11  Show Profile
SnitzBitz.com seems to be working fine now.

You should find the items that you are after at:

Private Messages (but I am sure that there is a more up to date one somewhere else): http://www.snitzbitz.com/mods/details.asp?Version=All&mid=62

Here are 2 different file attachment mods:
Mikes File Attachment: http://www.snitzbitz.com/mods/details.asp?Version=All&mid=67
Proders File Attachment: http://www.snitzbitz.com/mods/details.asp?Version=All&mid=199


The "Syndicate Mod" may do what you want with the last 5 postings, but it depends on what you mean by "index page": http://www.snitzbitz.com/mods/details.asp?Version=All&mid=195

And last but not least, here is the Usergroups Mod: http://www.snitzbitz.com/mods/details.asp?Version=All&mid=270

They all come with instructions, but if you have issues search in the Help: MOD Implementation area for a solution and if there is none, post a question and someone will help.
Cheers,

David Greening
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 23 August 2014 :  03:28:12  Show Profile
quote:
Originally posted by Michael_

Hi,

Usergroups Mod is nice but i dont want that the Users dont can visit the Forums, they just should only can "read"
in these forums, dont post... Is there ANY Mod or option i can make this happen?

I don't think so, but it wouldn't be difficult to write such a mod. Do you want it for a particular forum or do you want to be able to specify multiple forums for this condition?

As for the Active Users mod, no, it has a separate page which opens displaying only the topics which have had activity since your last visit (or specified date range). If you want a mod simply to add a table of the last five topics with activity, that would be easy enough.
Edited by - Carefree on 23 August 2014 03:29:40
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 23 August 2014 :  03:32:16  Show Profile
quote:
Originally posted by Classicmotorcycling
...The "Syndicate Mod" may do what you want with the last 5 postings....


No, the syndicate mod works similarly to an RSS feed type application. I think he's looking for something to add the last five topics to the "default.asp" page.
Go to Top of Page

Michael_
Starting Member

Germany
13 Posts
Posted - 25 August 2014 :  10:54:48  Show Profile
quote:
I don't think so, but it wouldn't be difficult to write such a mod. Do you want it for a particular forum or do you want to be able to specify multiple forums for this condition?


I need it for more then 1 forum.
If its easy, can you please do a MOD?

----

So is there really no "last 5 posts" MOD for the Index?
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 25 August 2014 :  12:11:07  Show Profile
Yes, I can write it. I do not believe there is a "last five topics" mod but writing it would be even simpler, so I'll do that one first for you. My memory is horrible, so I'll leave myself a note here to check for forum access before including the topic just in case I forget while writing it.

Last 5 Topics:


In "default.asp", look for the following lines (appx 289-293):

Response.Write	"        </tr>" & vbNewline & _
		"        <tr>" & vbNewline & _
		"          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
		"            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline & _
		"              <tr>" & vbNewline & _

Change them to say:

'	##	Last 5 Topics	Below
Response.Write	"				</tr>" & vbNewLine & _
	"			</table>" & vbNewLine & _
	"			<table align=""center"" border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewline& _
	"				<tr>" & vbNewline & _
	"					<td colspan=""20"" align=""center"" bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
	"						<table align=""center"" border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline& _
	"							<tr>" & vbNewline & _
	"								<td align=""center""colspan=""7"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHeadFontColor & """>Last 5 Topics</font></b>" & vbNewline& _
	"								</td>" & vbNewLine & _
	"							</tr>" & vbNewLine & _
	"							<tr>" & vbNewline & _
	"								<td align=""center"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></b></td>" & vbNewLine& _
	"								<td align=""center"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Topic</font></b></td>" & vbNewLine& _
	"								<td align=""center"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Author</font></b></td>" & vbNewLine & _
	"								<td align=""center"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Replies</font></b></td>" & vbNewLine& _
	"								<td align=""center"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Read</font></b></td>" & vbNewLine & _
	"								<td align=""center"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Last Post</font></b></td>" & vbNewLine
If mLev	> 0 or lcase(strNoCookies) = "1" Then
	Response.Write	"								<td align=""center"" bgcolor=""" & strCategoryCellColor & """ nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></td>" & vbNewLine
End If
Response.Write	"							</tr>"	&	vbNewLine
strSql = "SELECT * FROM " & strTablePrefix & "TOPICS ORDER BY T_LAST_POST DESC"
Set rs=my_Conn.Execute(strSql)
If not rs.EOF Then
	rs.MoveFirst
	intI=0:intT=0
	Do while not rs.EOF
		If intI=0 Then CColor = strForumCellColor Else CColor = strAltForumCellColor
		If intT=5 Then Exit Do
		Topic_Status=rs("T_STATUS")
		strSql = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & rs("T_AUTHOR")
		Set rsLM=my_Conn.Execute(strSql)
		If not rsLM.EOF	Then
			strTAuthor=rsLM("M_NAME")
			rsLM.Close
		End If
		Set rsLM = Nothing
		intAM=0
		intPF=0
		strSql = "SELECT F_PRIVATEFORUMS FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & rs("FORUM_ID") & " AND F_PRIVATEFORUMS > 0"
		Set rsPF=my_Conn.Execute(strSql)
		If not rsPF.EOF	Then
			intPF=rsPF("F_PRIVATEFORUMS")
			rsPF.Close
		Else
			intAM=1
		End If
		Set rsPF = Nothing
		If intPF > 0 Then
			strSql = "SELECT * FROM " & strTablePrefix & "ALLOWED_MEMBERS WHERE FORUM_ID=" & rs("FORUM_ID") & " AND MEMBER_ID=" & MemberID
			Set rsAM=my_Conn.Execute(strSql)
			If not rsAM.EOF	Then
				intAM=1
				rsAM.Close
			End If
			Set rsAM = Nothing
		End If
		If intAM = 1 Then
			Response.Write	"							<tr>" & vbNewLine & _
				"								<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""middle""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & rs("TOPIC_ID") & """>"
			If Topic_Status <> 0 Then
				If Topic_Sticky and strStickyTopic = "1" Then
					If rs("T_LAST_POST") > Session(strCookieURL & "last_here_date") Then
						Response.Write	getCurrentIcon(strIconFolderNewSticky,"New Sticky Topic","hspace=""0""")
					Else
						Response.Write	getCurrentIcon(strIconFolderSticky,"Sticky Topic","hspace=""0""")
					End If
				Else
					If Topic_Status = 2 Then
						UnApprovedFound = "Y"
						Response.Write	getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""")
					Elseif rs("T_STATUS") = 3 Then
						HeldFound = "Y"
						Response.Write	getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""")
					Else
						If (CheckForUnModeratedPosts(rs("T_AUTHOR"), rs("Cat_ID"), rs("FORUM_ID"), rs("TOPIC_ID")) > 0) Then
							Response.Write	ChkIsNew1()
						Else
							Response.Write ChkIsNew2(rs("T_LAST_POST"))
						End If
					End If
				End If
			Else
				If ArchiveView <> "true" Then
					strAltText = "Topic Locked"
				End If
				If ArchiveView = "true" Then
					Response.Write	getCurrentIcon(strIconFolderArchived,"Archived Topic","hspace=""0""")
				Elseif rs("T_LAST_POST") > Session(strCookieURL & "last_here_date") Then
					If rs("T_STICKY") and strStickyTopic = "1" Then
						Response.Write	getCurrentIcon(strIconFolderNewStickyLocked,strAltText,"hspace=""0""")
					Else
						Response.Write	getCurrentIcon(strIconFolderNewLocked,strAltText,"hspace=""0""")
					End If
				Else
					If rs("T_STICKY") and strStickyTopic = "1" Then
						Response.Write	getCurrentIcon(strIconFolderStickyLocked,strAltText,"hspace=""0""")
					Else
						Response.Write	getCurrentIcon(strIconFolderLocked,strAltText,"hspace=""0""")
					End If
				End If
			End If
			Response.Write	"</a></td>" & vbNewLine & _
				"								<td bgcolor=""" & CColor & """ valign=""middle"" align=""left"">" & vbNewLine & _
				"								<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>"
			If rs("T_STICKY") and strStickyTopic = "1" Then Response.Write("Sticky: ")
			Response.Write	"<span class=""spnMessageText""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & rs("TOPIC_ID") & """>" & ChkString(rs("T_SUBJECT"),"title") & "</a></span> </font>" & vbNewLine & _
				"								</td>" & vbNewLine & _
				"								<td bgcolor=""" & CColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"">" & profileLink(chkString(strTAuthor,"display"),rs("T_AUTHOR")) & "</span></font></td>" & vbNewLine & _
				"								<td bgcolor=""" & CColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & rs("T_REPLIES") & "</font></td>" & vbNewLine & _
				"								<td bgcolor=""" & CColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & rs("T_VIEW_COUNT") & "</font></td>" & vbNewLine
			If IsNull(strTAuthor) Then
				strLastAuthor = ""
			Else
				strLastAuthor = "<br />by: <span class=""spnMessageText"">" & profileLink(ChkString(strTAuthor, "display"),rs("T_AUTHOR")) & "</span>"
				if strJumpLastPost = "1" Then strLastAuthor = strLastAuthor & " " & DoLastPostLink(true)
			End If
			Response.Write	"								<td bgcolor=""" & CColor & """ valign=""middle"" align=""center"" nowrap><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """><b>" & ChkDate(rs("T_LAST_POST"),"</b> ",true) & strLastAuthor & "</font></td>" & vbNewLine
			If mlev > 0 or (lcase(strNoCookies) = "1") Then
				Response.Write	"								<td bgcolor=""" & CColor & """ valign=""middle"" align=""center"" nowrap> " & vbNewLine
			End If
			Response.Write	"								</td>" & vbNewLine & _
				"							</tr>" & vbNewLine
			intT=intT+1
			intI=1-intI
		End If
		rs.MoveNext
	Loop
	rs.Close
End If
Set rs = Nothing
Response.Write	"							</td>" & vbNewLine & _
	"						</tr>" & vbNewLine & _
	"					</table>" & vbNewLine & _
	"				</td>" & vbNewLine & _
	"			</tr>" & vbNewLine & _
	"		</table><br />" & vbNewLine & _
	"		<table align=""center"" border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewline& _
	"			<tr>" & vbNewline & _
	"				<td colspan=""20"" align=""center"" bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
	"					<table align=""center"" border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""3"">" & vbNewline& _
	"						<tr>" & vbNewLine
'	##	Last 5 Topics Above


Start the next line with "Response.Write"

Next, look for the following line (appx 42):

<!--#INCLUDE FILE="inc_subscription.asp" -->

After that, insert this:

<!--#INCLUDE FILE="inc_func_chknew.asp" -->
Edited by - Carefree on 01 September 2014 18:55:13
Go to Top of Page

Michael_
Starting Member

Germany
13 Posts
Posted - 26 August 2014 :  02:17:44  Show Profile
Hi,

It does not work:

quote:
Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'ChkIsNew2'

/edm24/default.asp, line 372


I only get This error...
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 26 August 2014 :  06:29:46  Show Profile
Sorry, change that line to say:
								Response.Write ChkIsNew2(rs("T_LAST_POST"))
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 26 August 2014 :  07:14:42  Show Profile
Back to your posting permissions issue. Have you tried simply locking the forum(s) in question? Then you can still post/reply but users cannot.
Go to Top of Page

Michael_
Starting Member

Germany
13 Posts
Posted - 27 August 2014 :  03:58:57  Show Profile
Hi,

Now it works but it does not look right:
http://abload.de/img/tempafoub.png
Go to Top of Page

Michael_
Starting Member

Germany
13 Posts
Posted - 27 August 2014 :  04:00:04  Show Profile
PS: I will test this with closing Forums, i didnt thought about this yet. Thanks for the Idea ;)
Edited by - Michael_ on 27 August 2014 04:00:50
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 27 August 2014 :  10:35:01  Show Profile
quote:
Originally posted by Michael_

Hi,

Now it works but it does not look right:
http://abload.de/img/tempafoub.png

Post a link to a .txt copy of your "default.asp" and I'll adjust it for you.
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next Page
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.31 seconds. Powered By: Snitz Forums 2000 Version 3.4.07