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/Code)
 Display what page your on in Title Bar		  New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 3

samyot
Junior Member

Canada
242 Posts
Posted - 01 November 2001 :  10:49:57  Show Profile  Visit samyot's Homepage  Send samyot a Yahoo! Message
That got rid of the error but the title doesn't change

Sylvain Amyot
FORUM:http://support.mytechsupport.ca
HOME:http://mytechsupport.ca
Go to Top of Page

GauravBhabu
Advanced Member

4288 Posts
Posted - 01 November 2001 :  11:11:14  Show Profile
Try this way

strTempScript = strTempScript(Ubound(strTempScript))

GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.
Go to Top of Page

Azaniah
Senior Member

United Kingdom
1004 Posts
Posted - 01 November 2001 :  11:12:49  Show Profile  Visit Azaniah's Homepage
lol, what is it with me and this MOD?

OK,

Should that not be,

strTempScript = Split(sTempScriptName, "/") ??

Even so I'm back to the does nothing routine when I did these changes.

CHeers Az

-------
Eagles fly!, but weasels don't get sucked into jet engines.
Go to Top of Page

Roland
Advanced Member

Netherlands
9335 Posts
Posted - 01 November 2001 :  11:21:47  Show Profile
Okay, problem:
I undid the changes made after this topic's original post and made the changes in inc_top.asp and inc_activeusers.asp
However, nothing happens anymore. No matter where I go, I only see the standard title.

I already uploaded the TXT files:
http://frutzle.121hosts.net/inc_activeusers.txt
http://frutzle.121hosts.net/inc_top.txt

If anyone is willing to take a look and tell me what I did wrong, it'd be highly apreciated

Roland


http://www.frutzle.com
Go to Top of Page

GauravBhabu
Advanced Member

4288 Posts
Posted - 01 November 2001 :  11:29:34  Show Profile
Function GetNewTitle(strTempScriptName)
Dim StrTempScript
Dim strNewTitle
arrTempScript = Split(strTempScriptName, "/")
strTempScript = arrTempScript(Ubound(arrTempScript))

GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.

Edited by - gauravBhabu on 01 November 2001 11:36:53
Go to Top of Page

Azaniah
Senior Member

United Kingdom
1004 Posts
Posted - 01 November 2001 :  11:42:22  Show Profile  Visit Azaniah's Homepage
Thanks again...

(man I feel so thick sometimes)

Az

-------
Eagles fly!, but weasels don't get sucked into jet engines.
Go to Top of Page

GauravBhabu
Advanced Member

4288 Posts
Posted - 01 November 2001 :  11:51:52  Show Profile
Frutzle, I looked at your site. I see the title changing except for the forum pages.

Though this is not required, because I have it working okay.
But Try this

Find this in inc_activeusers.asp

iOnlinePathLen = InStrRev(strOnlinePathInfo,"/",-1)
strOnlinePageName = lcase(Right(strOnlinePathInfo,(len(strOnlinePathInfo)-iOnlinePathLen)))

Replace as below

strScriptName = request.servervariables("script_name")
arrTempScript = Split(strScriptName, "/")
strOnlinePageName  = arrTempScript(Ubound(arrTempScript))
strOnlinePageName  = lcase(strOnlinePageName)


GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.
Go to Top of Page

samyot
Junior Member

Canada
242 Posts
Posted - 01 November 2001 :  11:56:25  Show Profile  Visit samyot's Homepage  Send samyot a Yahoo! Message
quote:

Function GetNewTitle(strTempScriptName)
Dim StrTempScript
Dim strNewTitle
arrTempScript = Split(strTempScriptName, "/")
strTempScript = arrTempScript(Ubound(arrTempScript))

GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.

Edited by - gauravBhabu on 01 November 2001 11:36:53


Thanks, that did it!

Sylvain Amyot
FORUM:http://support.mytechsupport.ca
HOME:http://mytechsupport.ca
Go to Top of Page

Da_Stimulator
DEV Team Forum Moderator

USA
3373 Posts
Posted - 01 November 2001 :  12:39:37  Show Profile  Send Da_Stimulator an AOL message  Send Da_Stimulator a Yahoo! Message
Main post updated


---------------
-Da_Stimulator
Go to Top of Page

GauravBhabu
Advanced Member

4288 Posts
Posted - 01 November 2001 :  12:39:41  Show Profile
quote:

Function GetNewTitle(sTempScriptName)
Dim StrTempScript
Dim strNewTitle
strTempScript = Split(strTempScriptName, "/")
strTempScript = strTempScript(Ubound(strTempScript))
strTempScript = lcase(strTempScript)




Stim, Above will still give an error. You need to keep it like as below:

Function GetNewTitle(strTempScriptName)
Dim StrTempScript
Dim strNewTitle
arrTempScript = Split(strTempScriptName, "/")
strTempScript = arrTempScript(Ubound(arrTempScript))
strTempScript = lcase(strTempScript)



GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.

Edited by - gauravBhabu on 01 November 2001 12:43:28
Go to Top of Page

Da_Stimulator
DEV Team Forum Moderator

USA
3373 Posts
Posted - 01 November 2001 :  12:44:26  Show Profile  Send Da_Stimulator an AOL message  Send Da_Stimulator a Yahoo! Message
updated

---------------
-Da_Stimulator
Go to Top of Page

GauravBhabu
Advanced Member

4288 Posts
Posted - 01 November 2001 :  12:47:49  Show Profile
Stim, You still Missed one:

quote:

Function GetNewTitle(sTempScriptName)
Dim StrTempScript
Dim strNewTitle
arrTempScript = Split(strTempScriptName, "/")
strTempScript = arrTempScript(Ubound(arrTempScript))
strTempScript = lcase(strTempScript)



should be:

strTempScriptName

GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.
Go to Top of Page

Da_Stimulator
DEV Team Forum Moderator

USA
3373 Posts
Posted - 01 November 2001 :  12:51:47  Show Profile  Send Da_Stimulator an AOL message  Send Da_Stimulator a Yahoo! Message
updated, thx

---------------
-Da_Stimulator
Go to Top of Page

Roland
Advanced Member

Netherlands
9335 Posts
Posted - 01 November 2001 :  14:02:58  Show Profile
quote:

Frutzle, I looked at your site. I see the title changing except for the forum pages.

Though this is not required, because I have it working okay.
But Try this

Find this in inc_activeusers.asp

iOnlinePathLen = InStrRev(strOnlinePathInfo,"/",-1)
strOnlinePageName = lcase(Right(strOnlinePathInfo,(len(strOnlinePathInfo)-iOnlinePathLen)))

Replace as below

strScriptName = request.servervariables("script_name")
arrTempScript = Split(strScriptName, "/")
strOnlinePageName  = arrTempScript(Ubound(arrTempScript))
strOnlinePageName  = lcase(strOnlinePageName)


GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.


I hadn't uploaded the files so they'd work on the site. I only put two text files online. The title changing was done with Stim's code and I did it yesterday so it wasn't perfect yet.

The problem is that I've removed Stim's codes and inserted yours but now nothing happens anymore. I don't get any errors but the titles don't change either. That's why I uploaded those text files

I really don't get it. What did I do wrong.

Two more questions:
1- What is the real difference between the way your codes work and Stim's codes?
2- How come that even though this topic has like 30 replies it doesn't get a flaming icon?

Thanks,
Roland
Go to Top of Page

GauravBhabu
Advanced Member

4288 Posts
Posted - 01 November 2001 :  14:41:35  Show Profile
Both have same concept and approach. Since Active Users Mod already have that functionality It just needed the statements for changing the title.

Using Stim's concept you do not need to add the Title changing statements to Active Users Mod.

However this is what you did wrong:

inc_top.asp




strScriptName = request.servervariables("script_name")
%><!--#INCLUDE FILE="inc_activeusers.asp" --><%
Response.Write	"<html>" & vbNewline & vbNewline & _
				"<head>" & vbNewline & _
				"<title>" & strForumTitle & "</title>" & vbNewline


You missed the ASP Tags

GauravBhabu
There is only one miracle...That is LIFE! | It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.
Go to Top of Page
Page: of 3 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.16 seconds. Powered By: Snitz Forums 2000 Version 3.4.07