| Author |
 Topic  |
|
|
KelleN
Starting Member
28 Posts |
 Posted - 16 July 2003 : 22:28:01
|
I've looked all over the forum. I can't seem to find out how to change the title of the forum default categories. For example, if you go to my forum, http://www.jmconsultingllc.com/aspforum and look at the default forum name and category from Snitz Forum 2000 to my custom name?
I click on edit forum, and try to change the name, and it's programed into a drop box.
Any ideas?
Btw, I checked the box for icons, but I don't see them there when I post a message.
thanks for your help |
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
|
|
hayleypink
Junior Member
Haiti
145 Posts |
Posted - 17 July 2003 : 07:14:51
|
| Make sure you are logged in as Admin/Moderator....I just had a look and cant see any forums...just create a forum. |
 |
|
|
KelleN
Starting Member
28 Posts |
Posted - 17 July 2003 : 08:26:35
|
I was logged in as Admin, but I didn't see any pencil that would allow me to delete the snitz forum. I couldn't delete in it the Group Categories Config either.
TIA
OH! I'm getting a black background in the forum w/ an error:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'recForumCount'
/aspforum/default.asp, line 409
Any ideas?
TIA
KelleN |
|
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
|
|
KelleN
Starting Member
28 Posts |
Posted - 17 July 2003 : 09:53:45
|
Does it still look like that. I installed windows 2000 SP4 and had to reboot the servers. My apologies if you were there and it wasn't operational.  |
|
|
|
hayleypink
Junior Member
Haiti
145 Posts |
Posted - 17 July 2003 : 10:28:35
|
| looks like you are fine now you have started a new forum called general |
|
|
|
KelleN
Starting Member
28 Posts |
Posted - 17 July 2003 : 21:05:30
|
Hi Hayley and All.
Thank you for responding. I am still completely brand spanking new at this. I still don't have a clue how to modify the category name from Snitz 2000 forum to something else, this is the one when you first installed snitz, it had the testing forum in it. I can't seem to delete it or change it.
2nd. Hayley, love the look of your forum (as it's the 3rd I've seen, snitz, mine and now yours). I would like to advance in the next few days to upgrading a) the colour b) adding an active users, total users online, highest users online, like on the forum.snitz.com page. and c) I love that Event's Calander on the bottom of Hayley's Forum.
Thanks,
KelleN |
|
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
|
|
KelleN
Starting Member
28 Posts |
Posted - 19 July 2003 : 15:10:21
|
Hi,
I was able to delete it from within the Admin mode. For some reason, it wasn't showing me the options to delete it before today.
2 Questions:
1) How can I get an ASP script that adds:<b> Active Users on Site: XX |Today's Visitors: XX | Total Visited Users: XXXX </b>
2) How can I add my site links to the existing Forum Header Links?
TIA
KelleN
www.jmconsultingllc.com || www.jmconsultingllc.com/aspforum |
|
|
|
Nikkol
Forum Moderator
USA
6907 Posts |
|
|
KelleN
Starting Member
28 Posts |
Posted - 19 July 2003 : 17:27:50
|
I've searched and read dozens of posts from my query of "Active Users Mod/script" and I've yet to find one.
I've been to the Snitz add on's page, didn't see one there either.
I currently use one that references to this asp code on my site, but it keep track of what I want, and I'm too inexperienced to modify it to what I would like. Here's the reference asp page script:
<%
Sub LogActiveUser
Dim strActiveUserList
Dim intUserStart, intUserEnd
Dim strUser
Dim strDate
strActiveUserList = Application("ActiveUserList")
If Instr(1, strActiveUserList, Session.SessionID) > 0 Then
Application.Lock
intUserStart = Instr(1, strActiveUserList, Session.SessionID)
intUserEnd = Instr(intUserStart, strActiveUserList, "|")
strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart)
strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now())
Application("ActiveUserList") = strActiveUserList
Application.UnLock
Else
Application.Lock
Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1
Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|"
Application.UnLock
End If
End Sub
Sub ActiveUserCleanup
Dim ix
Dim intUsers
Dim strActiveUserList
Dim aActiveUsers
Dim intActiveUserCleanupTime
Dim intActiveUserTimeout
intActiveUserCleanupTime = 1 'In minutes, how often should the ActiveUserList be cleaned up.
intActiveUserTimeout = 20 'In minutes, how long before a User is considered Inactive and is deleted from ActiveUserList
If Application("ActiveUserList") = "" Then Exit Sub
If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then
Application.Lock
Application("ActiveUsersLastCleanup") = Now()
Application.Unlock
intUsers = 0
strActiveUserList = Application("ActiveUserList")
strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1)
aActiveUsers = Split(strActiveUserList, "|")
For ix = 0 To UBound(aActiveUsers)
If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then
aActiveUsers(ix) = "XXXX"
Else
intUsers = intUsers + 1
End If
Next
strActiveUserList = Join(aActiveUsers, "|") & "|"
strActiveUserList = Replace(strActiveUserList, "XXXX|", "")
Application.Lock
Application("ActiveUserList") = strActiveUserList
Application("ActiveUsers") = intUsers
Application.UnLock
End If
End Sub
%> |
|
|
|
Nikkol
Forum Moderator
USA
6907 Posts |
|
|
KelleN
Starting Member
28 Posts |
Posted - 19 July 2003 : 17:41:56
|
LOL.
I didn't do that. Now when you searched this, did you actually include the commas between your words? i.e., active,users,mod? I put in spaces, then searched w/ quotes. But I didn't specify which forum, just general.
Thanks Nikkol.
KelleN |
|
|
|
Nikkol
Forum Moderator
USA
6907 Posts |
|
|
KelleN
Starting Member
28 Posts |
Posted - 19 July 2003 : 19:04:30
|
Thanks for your wonderful help!
KelleN
www.jmconsultingllc.com |
|
|
| |
Topic |
|
Topic Locked
