Snitz Forums 2000

Snitz Forums 2000

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/O Code)

How to do a redirect?

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:

UserName:

Password:

Format Mode:

Format:

Message:

* HTML is OFF
* Forum Code is ON

Smilies

[quote][i]Originally posted by Astralis[/i]
[br]I've been using the following referal to do a modded redirect without problems (v. 3.4.03):
[code]
"<input name=""Refer"" type=""hidden"" value=""" &  Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _[/code]

But, the following code from (v. 3.4.04) is causing a problem:
[code]
"<input name=""Refer"" type=""hidden"" value=""" & GetReferer() & """>" & vbNewLine & _[/code]
This is the function:
[code]function GetReferer()
    Dim strReferer
    strReferer = lcase(Request.ServerVariables("HTTP_REFERER"))
    if strReferer = "" then 
     strReferer = "default.asp"
    elseif (Left(strReferer, len(strForumURL)) <> lcase(strForumURL)) then
     strReferer = "default.asp"
    end if
    GetReferer = strReferer
end function[/code]
This is my REFERER:
[code]http://www.site.com/forum/post.asp?method=Topic&FORUM_ID=27&artid=1927&ref=
http://www.site.com/site/article.asp?id%3D1927 (I split this so it will fit on the page)[/code]
I understand that the function was added for security reasons and I'd like to keep that, but I'm not sure how to do it with my modified referer.  Any advice?

<
[/quote]

Check here to include your profile signature.

T O P I C R E V I E W
Astralis	Posted - 23 September 2005 : 19:51:55 I've been using the following referal to do a modded redirect without problems (v. 3.4.03): "<input name=""Refer"" type=""hidden"" value=""" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _ But, the following code from (v. 3.4.04) is causing a problem: "<input name=""Refer"" type=""hidden"" value=""" & GetReferer() & """>" & vbNewLine & _ This is the function: function GetReferer() Dim strReferer strReferer = lcase(Request.ServerVariables("HTTP_REFERER")) if strReferer = "" then strReferer = "default.asp" elseif (Left(strReferer, len(strForumURL)) <> lcase(strForumURL)) then strReferer = "default.asp" end if GetReferer = strReferer end function This is my REFERER: http://www.site.com/forum/post.asp?method=Topic&FORUM_ID=27&artid=1927&ref= http://www.site.com/site/article.asp?id%3D1927 (I split this so it will fit on the page) I understand that the function was added for security reasons and I'd like to keep that, but I'm not sure how to do it with my modified referer. Any advice? <
1 L A T E S T R E P L I E S (Newest First)
Podge	Posted - 24 September 2005 : 08:28:58 Not entirely sure what the problem is. I understand it to be that the referer you posted is "internal" and that strReferer should be set to default.asp in such cases? This line looks correct elseif (Left(strReferer, len(strForumURL)) <> lcase(strForumURL)) then unless strForumURL is not what you think it is Can you response.write strForumURL and strReferer ? <

Snitz Forums 2000

This page was generated in 0.06 seconds.