Snitz Forums 2000 - Redirect after Logon to New Page

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Redirect after Logon to New Page

New Topic

Topic Locked

Printer Friendly

Author

Topic

StephenD
Senior Member

Australia
1044 Posts

Posted - 18 May 2005 : 01:39:17

I want to change the login function so that if you login you will be redirected to a custom page.

I can put a Response.redirect("app_status.asp") in the Case Login code before the Response.End but it bypasses the "Logged on Successfully Message". I need that Message displayed as it is too quick otherwise.

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 18 May 2005 : 05:03:22

Find the following on line 307 of inc_header.asp and change the highlighted code to the desired URI:

Response.Write	"<meta http-equiv=""Refresh"" content=""2; URL=" & strReferer & """>" & vbNewLine & _
				"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strReferer & """>Back To Forum</font></a></p>" & vbNewLine & _

Note that this will redirect people to your custom page whether login was successful or not, if you do not want people redirected to this page if login fails, you'll need to copy the existing code from lines 307 & 308 and paste if before the else and the end if in the if statement immediately preceeding them then make the above changes to the second instance of the code (in the else part of the statement).

Also, find the following on line 75 of login.asp and replace the code in green with your URI:

Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href="""
if strTarget = "" then
	Response.Write	"default.asp"
else
	Response.Write	strTarget
end if
Response.Write	""">Click here to Continue</a></font></p>" & vbNewLine

Response.Write	"      <meta http-equiv=""Refresh"" content=""2; URL="
if strTarget = "" then
	Response.Write	"default.asp"
else
	Response.Write	strTarget
end if
Response.Write	""">" & vbNewline & _
		"      <br />" & vbNewLine

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 18 May 2005 05:05:19

StephenD
Senior Member

Australia
1044 Posts

Posted - 18 May 2005 : 08:25:11

Thanks Shaggy. I got it working great now on login.asp. Still got trouble with inc_header refreshing the current page and not redirecting to my custom page. I'll post up my inc_header file a bit later if I can.

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 18 May 2005 : 08:29:07

Cool, I'll have a look at it for you

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.”

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.38 seconds.