Guess it was faster than I thought. Leatherlips, try this....
Replace the block of code in post.asp with this....
'#### [Require Login to Post - NJP addon] ##############################################
if mLev = 0 then
Err_Msg = "<li>You must be logged in before you can post to the forums." & _
" <ul><li>If you are a registered member and already have a valid userID and password, please wait 10 seconds to be re-directed to the login page.</li>" & _
" <li>Otherwise click on the register link below to obtain your very own UserID and Password. Registration is Free.</li></ul></li>" & vbNewLine
Response.Write "<p align=""center"" style=""margin-top:20px; margin-bottom:15px;""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Is A Problem!</font></p>" & vbNewLine & _
"<table align=""center"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
if Request.QueryString <> "" then
Response.Write " <br /><a href=""login.asp?target=" & lcase(scriptname(ubound(scriptname))) & "?" & Request.QueryString & """><acronym title=""Login Here or Wait to re-directed to the Login Page..."">Login Here</acronym></a> or Wait for Automatic Redirection to Login Page<br />" & vbNewLine & _
"<meta http-equiv=""Refresh"" content=""10; URL=login.asp?target=" & lcase(scriptname(ubound(scriptname))) & "?" & Request.QueryString & """>" & vbNewLine
else
Response.Write " <br /><a href=""login.asp?target=" & lcase(scriptname(ubound(scriptname))) & """><acronym title=""Login Here or Wait to re-directed to the Login Page..."">Login Here</acronym></a> or Wait for Automatic Redirection to Login Page<br />" & vbNewLine & _
"<meta http-equiv=""Refresh"" content=""10; URL=login.asp?target=" & lcase(scriptname(ubound(scriptname))) & """>" & vbNewLine
end if
Response.Write " <br /><a href=""policy.asp""" & dWStatus("Register to post to our forum...") & " tabindex=""-1""><acronym title=""Register to post to our forum..."">Register Here</acronym></a> if You Don't Have a UserID and Password<br />" & vbNewline & _
" <br /><a href=""JavaScript:history.go(-1)"">Cancel</a> and Return to Previous Page<br />" & vbNewline & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table><br /><br />" & vbNewLine
WriteFooter
Response.End
end if
'#### [/Require Login to Post - NJP addon] ##############################################
That should do it, gives you the link to short circuit the redirection wait time.
cheers,
Nat
Topic Locked
Posted - 01 April 2006 : 13:52:07
