Panhandler
Average Member
USA
783 Posts |
Posted - 03 January 2004 : 16:33:26
|
Users with Norton Internet Security and certain firewalls can't get past the Policy.asp page. When they hit the "Agree" button, they get looped back to the Policy.asp page. The work-around that was previously given in these forums no longer works. This is what use to work:
Three files required modification: 1) inc_func_common.asp 2) policy.asp 3) register.asp
The old modifications looked like this (excerpted): 1) inc_func_common.asp Starting around line 40:
<% '############################################## '## Register Looping Mod '############################################## 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
sub CheckReferer(strMatchReferer, strRedirectTo) dim strReferer strReferer = lcase(Request.ServerVariables("HTTP_REFERER")) if InStr(strReferer, lcase(strMatchReferer)) = 0 then if Instr(lcase(Request.Form("REFERER_PATH")), lcase(strMatchReferer)) = 0 then Response.Redirect(strRedirectTo) Response.End end if end if end sub '############# End Register Mod #############################
'############################################## '## Post Formatting ## '##############################################
function chkQuoteOk(fString)
2) policy.asp Starting around line 104
" <form action=""register.asp?mode=Register"" id=""form1"" method=""post"" name=""form1"">"
'######################################### '## Register Looping Mod ## '######################################### '## Comment out next line '## " <input name=""Refer"" type=""hidden"" value=""" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _ '## Insert next three lines Response.Write vbNewLine & _ "<input name=""Refer"" type=""hidden"" value=""" & GetReferer() & """>" & vbNewLine & _ "<input name=""REFERER_PATH"" type=""hidden"" value=""" & strScriptName & """>" '####### End Looping Mod ################
Response.Write vbNewLine & _ " <input name=""Submit"" type=""Submit"" value=""Agree"">" & vbNewLine & _
3) register.asp Starting around line 55"
if strProhibitNewMembers <> "1" then if Request.QueryString("mode") <> "DoIt" and Request.QueryString("actkey") = "" then
'####################################### '## Registering Looping Mod ## '####################################### '## Comment out the next three lines: '## if InStr(Request.ServerVariables("HTTP_REFERER"), "policy.asp") = 0 then '## Response.Redirect("policy.asp") '## end if '## Insert two lines: Rem - Argument1 = Path to Match, Argument2 = Redirect Path Call CheckReferer("policy.asp", "default.asp") '#### End Mod #####
if strAuthType = "nt" and ChkAccountReg = "1" then Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Registration for this account is not necessary.</b></font></p>" & vbNewLine & _ " <table align=""center"">" & vbNewLine & _
The above code worked in Snitz 3.4.03 I've included a little of the code before the mods for reference. Believe me, I don't have a clue to what any of it means. I simply carefully followed the instructions provided here in the Snitz Community and it worked. Now it doesn't. I need help getting it to work again. Can anyone help? Thanks,
|
"5-in-1 Snitz Common Expansion Pack" - five popular mods packaged for easy install ". . .on a mote of dust, suspended in a sunbeam. . ." HarborClassifieds Support Snitz Forums
|
Edited by - ruirib on 03 January 2004 17:29:11 |
|