<% @ Language=VBScript codepage=1255 %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2003 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 '** '**************************************************************************************** 'Set the response buffer to true as we maybe redirecting and setting a cookie Response.Buffer = True Dim intForumID Dim strMode 'read in the mode of the page strMode = Request.QueryString("TP") %> אימות הרשמה <% 'Release server objects Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>
<% If strMode = "UPD" OR strMode = "DEL" Then Response.Write(strTxtEditProfile) Else Response.Write(strTxtRegisterNewUser) %>
 <% = strMainForumName %><% = strNavSpacer %><% If strMode = "UPD" OR strMode = "DEL" Then Response.Write(strTxtEditProfile) Else Response.Write(strTxtRegisterNewUser) %>


<% 'If this is a re-activation then tell the member If strMode = "REACT" Then Response.Write(strTxtYourEmailAddressHasBeenChanged) 'Else member updating profile ElseIf strMode = "UPD" Then Response.Write("" & strTxtYourProfileHasBeenUpdated & "" & _ vbCrLf & "

" & strTxtYouCanAccessCP & "" & strTxtMemberCPMenu & "") 'Else if the admin has deleted the member disply the delete msg ElseIf strMode = "DEL" Then Response.Write(strTxtTheMemberHasBeenDleted) 'Else welcome the new member ElseIf strMode = "ACT" Then Response.Write("" & strTxtThankYouForRegistering & " " & strMainForumName & "") 'Else welcome new user Else Response.Write("" & strTxtThankYouForRegistering & " " & strMainForumName & "" & _ vbCrLf & "

" & strTxtYouCanAccessCP & "" & strTxtMemberCPMenu & "") End If 'If this is a re-activation then tell the member If strMode = "REACT" Then Response.Write(vbCrLf & "

" & strTxtYouShouldReceiveAReactivateEmail & "") 'Else welcome the new member ElseIf strMode = "ACT" Then Response.Write(vbCrLf & "

" & strTxtYouShouldReceiveAnEmail & "") End If %>

<% = strTxtReturnToDiscussionForum %>

<% 'If this person needs to activate the account If strMode = "REACT" OR strMode = "ACT" Then %>

<% = strTxtIfErrorActvatingMembership & " " & " " & "מנהל הפורום" & " או בטלפון 054-4574602." %>
<% 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("Hebrew Translate By Web Wiz Hebrew Forums
Hebrew Version " & strHebrewVersion & "

") Response.Write("Powered by Web Wiz Forums version " & strVersion & "") Else Response.Write("Hebrew Translate By Web Wiz Hebrew Forums
Hebrew Version " & strHebrewVersion & "

") Response.Write("") End If Response.Write("
Copyright ©2001-2003 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 & "
" %>