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: MOD Implementation
 Active Users Mod and Show User Browser etc		  New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 5

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 29 April 2008 :  07:13:58  Show Profile
Edited by - Andy Humm on 29 April 2008 11:23:16
Go to Top of Page

cadfhs
New Member

United Kingdom
77 Posts
Posted - 30 April 2008 :  12:47:52  Show Profile  Visit cadfhs's Homepage
A big thank you to all who looked and worked on this. It is working a treat.<
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 30 April 2008 :  14:28:42  Show Profile
Following on from the above, after installing the function fUserAgent(ua) you may notice a percentage of the visitors to your forum, are bots/crawlers etc. A special file that should stop compliant robots from crawling your website. Download Robot.txt<
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 30 April 2008 :  17:04:25  Show Profile
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 30 April 2008 :  18:28:12  Show Profile
Thank you for that
But the additional close bracket after "Search Robot" needs to be removed - its right near the end of the function.

strSystem = "Search Robot")
ElseIf instr(UAgent, "UbiCrawler") OR instr(UAgent, "ZyBorg") Then
strSystem = "Search Robot"
Else
strSystem = "Unknown"
End If
GetOS = strSystem
fUserAgent = GetOS & "<br/>" & GetBrowser
End Function
<
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 30 April 2008 :  20:31:30  Show Profile
Good catch. I think this one is done.<
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 30 April 2008 :  20:43:34  Show Profile  Visit leatherlips's Homepage
Would it be possible for you to link to a txt copy of this? Copying and pasting it does not keep the formatting. It become all run together.

Thanks.<
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 - 30 April 2008 :  21:06:47  Show Profile
Sure thing.

http://98.25.191.199/function.txt<
Edited by - Carefree on 30 May 2008 21:29:18
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 30 April 2008 :  21:11:06  Show Profile  Visit leatherlips's Homepage
Thanks!

I found an error - Near the bottom where it says:

ElseIf instr(UAgent, "Lycos") OR instr(UAgent, "MSNbot")

I had to change the part in red to lowercase msn. Otherwise it said it was Unknown. By changing it to msn it now will say Search Robot.<
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 30 April 2008 21:56:35
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts
Posted - 01 May 2008 :  04:50:53  Show Profile
Another good spot too!

Tip: Quote: "Would it be possible for you to link to a txt copy of this? Copying and pasting it does not keep the formatting. It become all run together."
If the code is not too long, I tend to put the code inside the [scrollcode][code]...... code here...... then close by the [ / code ] [ / scrollcode ] tags .
Spaces put in tags to stop them activating here.

<
Edited by - Andy Humm on 01 May 2008 04:58:22
Go to Top of Page

cadfhs
New Member

United Kingdom
77 Posts
Posted - 07 May 2008 :  14:54:18  Show Profile  Visit cadfhs's Homepage
Thanks for the updates.
Noticed that it says that I am using IE6 although I am actually using IE7.

There isn't a version number for Firefox, I thought that on one version of this MOD there used to be.<
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 07 May 2008 :  15:08:06  Show Profile  Visit leatherlips's Homepage
Mine shows me as having IE7. I'm not sure why yours is reporting wrong. You can visit my forum and see if it is reporting correctly. You can log in with demo/demo.<
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 - 07 May 2008 :  23:23:13  Show Profile
quote:
Originally posted by cadfhs

Thanks for the updates.
Noticed that it says that I am using IE6 although I am actually using IE7.

There isn't a version number for Firefox, I thought that on one version of this MOD there used to be.


Firefox does things a little differently. Inserting this routine immediately after the detection of Firefox as a browser will give you the version number:

		for x = 1 to len(strUserAgent)-8
			if mid(strUserAgent,x,8)="Firefox/" then 
				strBrowser = "Firefox " & mid(strUserAgent,x+8,3)
			end if
		next
<
Edited by - Carefree on 08 May 2008 12:20:22
Go to Top of Page

campinmom03
Junior Member

USA
190 Posts
Posted - 08 May 2008 :  09:32:05  Show Profile
quote:
originally posted by Carefree Here's the entire routine with corrections and the Firefox version detection:


This is the error I received when using the routine as posted above.

Any help would be appreciated.

Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/active_users.asp, line 356

next

<
Have a great day!
Terry
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts
Posted - 08 May 2008 :  10:13:22  Show Profile  Visit AnonJr's Homepage
There's a missing "End If" in this portion of the code:

		for x = 1 to len(strUserAgent)-8
			if mid(strUserAgent,x,8)="Firefox/" then 
				strBrowser = "Firefox " & mid(strUserAgent,x+8,3)
		next
<
Go to Top of Page
Page: of 5 Previous Topic Topic Next Topic  
Previous Page | Next Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.21 seconds. Powered By: Snitz Forums 2000 Version 3.4.07