<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2004 Bruce Corkhill All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** You should have received a copy of the License along with this program; '** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom. '** '** '** No official support is available for this program but you may post support questions at: - '** http://www.webwizguide.info/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** info@webwizguide.info '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** Response.Buffer = True 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" 'Dimension variables Dim intForumID Dim strReturnPage Dim blnLoggedInOK Dim strReferer 'Holds the page to return to 'Initilise variables blnLoggedInOK = True 'read in the forum ID number If isNumeric(Request.QueryString("FID")) Then intForumID = CInt(Request.QueryString("FID")) Else intForumID = 0 End If 'Logged in cookie test If strLoggedInUserCode = "" Then blnLoggedInOK = False If InStr(1, strLoggedInUserCode, "LOGGED-OFF", 1) Then blnLoggedInOK = False 'Get the forum page to return to If blnLoggedInOK = False Then strReturnPage = "login_user.asp?" & removeAllTags(Request.QueryString) ElseIf Request.QueryString("M") = "Unsubscribe" Then strReturnPage = "email_notify.asp?" & removeAllTags(Request.QueryString) 'Redirect the user back to the forum they have just come from ElseIf intForumID > 0 Then strReturnPage = "forum_topics.asp?" & removeAllTags(Request.QueryString) 'Return to forum homepage Else strReturnPage = "default.asp" End If %> Login User <% If blnLoggedInOK AND blnActiveMember = True Then Response.Write("") %>
<% = strTxtLoginUser %>
 <% = strMainForumName %><% = strNavSpacer %><% = strTxtLoginUser %>


<% 'Display heading text If blnLoggedInOK = False Then Response.Write(strTxtUn) Response.Write(strTxtSuccessfulLogin) %>

<% 'Reset Server Objects Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing 'If the account has not been activated have a link to resend activation email If InStr(1, strLoggedInUserCode, "N0act", vbTextCompare) = False AND blnEmailActivation AND blnLoggedInUserEmail AND blnActiveMember = False Then Response.Write("" & strTxtForumMembershipNotAct & "

" & strTxtToActivateYourForumMem & "

" & strTxtResendActivationEmail & "


" & strTxtReturnToDiscussionForum & "") 'If the member is suspened then tell them so ElseIf InStr(1, strLoggedInUserCode, "N0act", vbTextCompare) AND blnActiveMember = False Then Response.Write("" & strTxtForumMemberSuspended & "

" & strTxtReturnToDiscussionForum & "") 'If this is a successful login then display some text ElseIf blnLoggedInOK = True Then Response.Write("" & strTxtSuccessfulLoginReturnToForum & "

" & strTxtReturnToDiscussionForum & "") 'Display that the login was not successful Else Response.Write("" & strTxtUnSuccessfulLoginText & "") Response.Write vbCrLf & "

" & strTxtUnSuccessfulLoginReTry & "" End If %>





<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Powered by Web Wiz Forums version " & strVersion & "") Else Response.Write("") End If Response.Write("
Copyright ©2001-2004 Web Wiz Guide") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** 'Display the process time If blnShowProcessTime Then Response.Write "

" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 4) & " " & strTxtSeconds & "" %>