<% @ 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 email ever!
'**
'** For correspondence or non support questions contact: -
'** info@webwizguide.info
'**
'** or at: -
'**
'** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom
'**
'****************************************************************************************
'New from version WebWizHeb 1.2 and 1.21
'---------------------------------------------------------------------------------
Const strTxtToday = "היום"
Const strTxtTwoDaysAgo = "שלשום"
Const strTxtYouLastVisited = "ביקרת בפעם האחרונה"
Const strTxtViewTopic = "צפייה באשכול"
Const strTxtInTopics = "ב"
Const strTxtLastPostMade = "תגובה אחרונה פורסמה"
Const strTxtProfileOf = "הצג את כרטיס החבר של %f"
Const strTxtHomePageOf = "בקר בדף הבית של %f"
'Global
'---------------------------------------------------------------------------------
Const strTxtWelcome = "ברוך הבא"
Const strTxtAllForums = "כל הפורומים"
Const strTxtTopics = "נושאים"
Const strTxtPosts = "הודעות"
Const strTxtLastPost = "תגובה אחרונה"
Const strTxtPostPreview = "תצוגה מקדימה של התגובה"
Const strTxtAt = "בשעה"
Const strTxtBy = "על ידי"
Const strTxtOn = "על"
Const strTxtProfile = "פרופיל"
Const strTxtSearch = "חיפוש"
Const strTxtQuote = "ציטוט"
Const strTxtVisit = "בקר"
Const strTxtView = "הראה"
Const strTxtHome = "בית"
Const strTxtHomepage = "דף בית"
Const strTxtEdit = "עריכה"
Const strTxtDelete = "מחיקה"
Const strTxtEditProfile = "עריכת פרופיל"
Const strTxtLogOff = "התנתקות"
Const strTxtRegister = "הרשמה"
Const strTxtLogin = "התחברות"
Const strTxtMembersList = "הצגת רשימה של חברי הפורום"
Const strTxtForumLocked = "פורום נעול"
Const strTxtSearchTheForum = "חיפוש בפורום"
Const strTxtPostReply = "שליחת תגובה"
Const strTxtNewTopic = "שליחת נושא חדש"
Const strTxtCloseWindow = "סגירת החלון"
Const strTxtNoForums = "אין פורומים פעילים"
Const strTxtReturnToDiscussionForum = "חזור לפורום"
Const strTxtMustBeRegistered = "את/ה חייב/ת להירשם בכדי להשתמש בפורום זה."
Const strClickHereIfNotRegistered = "לחץ/י כאן אם אינך משתמש/ת רשום"
Const strTxtResetForm = "איפוס הטופס"
Const strTxtClearForm = "ניקוי הטופס"
Const strTxtYes = "כן"
Const strTxtNo = "לא"
Const strTxtForumLockedByAdmim = "מצטערים, אפשרות זאת בוטלה. פורום זה ננעל על ידי המנהל הכללי של הפורום."
Const strTxtRequiredFields = "שדות חובה"
Const strTxtForumJump = "קפיצה לפורום"
Const strTxtSelectForum = "בחירת פורום"
'Global Error
'---------------------------------------------------------------------------------
Const strTxtErrorDisplayLine = "_______________________________________________________________"
Const strTxtErrorDisplayLine1 = "הטופס לא נשלח בשל בעיה (או בעיות) בטופס."
Const strTxtErrorDisplayLine2 = "אנא תקן/י את הבעיות ושלח/י את הטופס מחדש"
Const strTxtErrorDisplayLine3 = "השדות הנוכחיים צריכים לתוקן: -"
Const strResetFormConfirm = "האם את/ה בטוח/ה שברצונך לנקות את הטופס?"
'default.asp
'---------------------------------------------------------------------------------
Const strTxtCookies = "Cookies ו - Java Script חייבים להיות מופעלים לשם שימוש בפורום זה"
Const strTxtForum = "פורום"
Const strTxtLatestForumPosts = "התגובות האחרונות בפורום"
Const strTxtForumStatistics = "סטטיסטיקות הפורום"
Const strTxtNoForumPostMade = "אין תגובות בפורום"
Const strTxtThereAre = "יש"
Const strTxtPostsIn = "תגובות ב"
Const strTxtTopicsIn = "נושאים ב"
Const strTxtLastPostOn = "תגובה אחרונה ב"
Const strTxtLastPostBy = "הודעה אחרונה על ידי"
Const strTxtForumMembers = "חברים בפורום"
Const strTxtTheNewestForumMember = "חבר הפורום החדש ביותר הוא"
'forum_topics.asp
'---------------------------------------------------------------------------------
Const strTxtThreadStarter = "כותב הנושא"
Const strTxtReplies = "תגובות"
Const strTxtViews = "צפיות"
Const strTxtDeleteTopicAlert = "האם את/ה בטוח/ה שברצונך למחוק נושא זה?"
Const strTxtDeleteTopic = "מחיקת נושא"
Const strTxtNextTopic = "נושא הבא"
Const strTxtLastTopic = "נושא אחרון"
Const strTxtShowTopics = "הראה נושאים"
Const strTxtNoTopicsToDisplay = "לא נכתבו הודעות חדשות בפורום זה כבר"
Const strTxtAll = "הכל"
Const strTxtLastWeek = "מהשבוע האחרון"
Const strTxtLastTwoWeeks = "מהשבועיים האחרונים"
Const strTxtLastMonth = "מהחודש האחרון"
Const strTxtLastTwoMonths = "משני החודשים האחרונים"
Const strTxtLastSixMonths = "משישה החודשים האחרונים"
Const strTxtLastYear = "מהשנה האחרונה"
'forum_posts.asp
'---------------------------------------------------------------------------------
Const strTxtLocation = "מדינה"
Const strTxtJoined = "הצטרף / הצטרפה"
Const strTxtForumAdministrator = "מנהל כללי"
Const strTxtForumModerator = "מנהל הפורום"
Const strTxtDeletePostAlert = "האם את/ה בטוח/ה שברצונך למחוק נושא זה?"
Const strTxtEditPost = "עריכת תגובה"
Const strTxtDeletePost = "מחיקת תגובה"
Const strTxtSearchForPosts = "חפש הודעות אחרות של"
Const strTxtSubjectFolder = "נושא"
Const strTxtPrintVersion = "גרסת הדפסה"
Const strTxtEmailTopic = "שליחת נושא זה ב- E-Mail"
Const strTxtSorryNoReply = "מצטערים, אינך יכול/ה להגיב לנושא זה."
Const strTxtForumMembershipSespended = "חברותך בפורום אינה הופעלה עדיין!"
Const strTxtThisForumIsLocked = "פורום זה ננעל על ידי המנהל הכללי."
Const strTxtPostAReplyRegister = "אם ברצונך להגיב לנושא זה עליך קודם"
Const strTxtNeedToRegister = "אם אינך רשום/ה כבר עליך"
Const strTxtSmRegister = "להרשם"
Const strTxtSmLoginH = "להתחבר"
Const strTxtNoThreads = "לא נמצאו תגובות במאגר הנתונים אשר קשורים לנושא זה."
Const strTxtNotGiven = "לא הוזן"
Const strTxtNoMessageError = "הודעה \t\t- הזן הודעה בכדי לשלוח"
'search_form.asp
'---------------------------------------------------------------------------------
Const strTxtSearchFormError = "חפש את\t- הזן טקסט כדי לחפשו"
'search.asp
'---------------------------------------------------------------------------------
Const strTxtSearchResults = "תוצאות החיפוש"
Const strTxtYourSearchFor = "חיפושך עבור"
Const strTxtHasFound = "מצא"
Const strTxtResults = "תוצאות"
Const strTxtNoSearchResults = "מצטערים, אך החיפוש לא מצא תוצאות העונות לבקשתך."
Const strTxtClickHereToRefineSearch = "לחץ/י כאן בכדי לחפש שנית"
Const strTxtSearchFor = "חיפוש עבור"
Const strTxtSearchIn = "חיפוש לפי"
Const strTxtSearchOn = "חיפוש ב"
Const strTxtAllWords = "כל המילים"
Const strTxtAnyWords = "כל מילה"
Const strTxtPhrase = "משפט"
Const strTxtTopicSubject = "נושא"
Const strTxtMessageBody = "גוף ההודעה"
Const strTxtAuthor = "כותב"
Const strTxtSearchForum = "חיפוש בפורום"
Const strTxtSortResultsBy = "סידור תוצאות לפי"
Const strTxtLastPostTime = "זמן תגובה אחרון"
Const strTxtTopicStartDate = "זמן כתיבת הנושא"
Const strTxtSubjectAlphabetically = "סדר אלפאבתי"
Const strTxtNumberViews = "מספר צפיות"
Const strTxtStartSearch = "חיפוש"
'printer_friendly_posts.asp
'---------------------------------------------------------------------------------
Const strTxtPrintPage = "הדפסת העמוד"
Const strTxtPrintedFrom = "הודפס מ"
Const strTxtForumName = "שם הפורום"
Const strTxtForumDiscription = "תיאור הפורום"
Const strTxtURL = "URL"
Const strTxtPrintedDate = "הודפס בתאריך"
Const strTxtTopic = "נושא"
Const strTxtPostedBy = "נכתב על ידי"
Const strTxtDatePosted = "נכתב בתאריך"
'emoticons.asp
'---------------------------------------------------------------------------------
Const strTxtEmoticonSmilies = "סמיילים"
Const strTxtClickOnEmoticonToAdd = "לחיצה על הסמיילי תוסיף אותו למכתבך."
'login.asp
'---------------------------------------------------------------------------------
Const strTxtSorryUsernamePasswordIncorrect = "מצטערים, אך שם המשתמש או הסיסמא שהוזנו אינם נכונים."
Const strTxtPleaseTryAgain = "אנא נסה/י שנית"
Const strTxtUsername = "שם משתמש"
Const strTxtPassword = "סיסמא"
Const strTxtLoginUser = "התחברות"
Const strTxtClickHereForgottenPass = "לחץ/י כאן אם שכחת את סיסמתך"
Const strTxtErrorUsername = "שם משתמש \t- הכנס/י את שם המשתמש שלך בפורום"
Const strTxtErrorPassword = "סיסמא \t- הכנס/י את סיסמתך בפורום"
'forgotten_password.asp
'---------------------------------------------------------------------------------
Const strTxtForgottenPassword = "הזכרת סיסמא"
Const strTxtNoRecordOfUsername = "שם משתמש זה לא נמצא במאגר הנתונים."
Const strTxtNoEmailAddressInProfile = "לצערנו, הפרופיל שאיתו נרשמת אינו מכיל כתובת דואר אלקטרוני. סיסמתך החדשה לא תוכל להישלח אליך."
Const strTxtReregisterForForum = "תאלץ/י להירשם מחדש כדי להשתמש בפורום, או בכדי ליצור קשר עם המנהל."
Const strTxtPasswordEmailToYou = "סיסמתך נשלחה לכתובת הדואר האלקטרוני שנתונה בפרופילך."
Const strTxtPleaseEnterYourUsername = "אנא הכנס/י את שם המשתמש שלך בתיבה למטה. לאחר מכן סיסמתך תישלח לכתובת הדואר האלקטרוני שנתונה בפרופילך."
Const strTxtValidEmailRequired = "אם בפרופילך לא מוזנת כתובת דואר אלקטרוני פעילה, תאלץ/י להירשם מחדש"
Const strTxtEmailPassword = "שליחת סיסמא"
Const strTxtEmailPasswordRequest = "נשלחה בקשה לשלוח את סיסמת הפורום אליך, "
Const strTxtEmailPasswordRequest2 = "סיסמתך החדשה היא: -"
Const strTxtEmailPasswordRequest3 = "כדי לעבור אל הפורום לחץ/י על הלינק למטה: -"
'forum_password_form.asp
'---------------------------------------------------------------------------------
Const strTxtForumLogin = "התחברות לפורום"
Const strTxtErrorEnterPassword = "סיסמא \t- הכנס/י את סיסמך בכדי להשתמש בפורום"
Const strTxtPasswordRequiredForForum = "פורום זה הוא פורום פרטי ודורש סיסמא בכדי להיכנס אליו."
Const strTxtForumPasswordIncorrect = "הסיסמא שהוזנה אינה נכונה"
Const strTxtAutoLogin = "התחברות אוטומטית"
Const strTxtLoginToForum = "התחברות לפורום"
'profile.asp
'---------------------------------------------------------------------------------
Const strTxtNoUserProfileFound = "אף פרופיל לא נמצא לשם משתמש שהוקש."
Const strTxtRegisteredToViewProfile = "בכדי לראות את הפרופילים עליך להירשם."
Const strTxtMemberNo = "מספר משתמש"
Const strTxtEmail = "כתובת דואר אלקטרוני"
Const strTxtPrivate = "פרטי"
'post_message_form.asp
'---------------------------------------------------------------------------------
Const strTxtPostNewTopic = "כתיבת תגובה חדשה"
Const strTxtErrorTopicSubject = "נושא \t\t- הכנסת נושא להודעה"
Const strTxtForumMemberSuspended = "מצטערים, אפשרות זו מבוטלת כל עוד הרשמך לפורום אינה הופעלה!"
'edit_post.asp
'---------------------------------------------------------------------------------
Const strTxtNoPermissionToEditPost = "אין לך את ההרשאות לעריכת הודעה זו."
Const strTxtReturnForumTopic = "חזרה לנושא"
'email_topic.asp
'---------------------------------------------------------------------------------
Const strTxtEmailTopicToFriend = "שליחת נושא זה לחבר באמצעות הדואר האלקטרוני"
Const strTxtFriendSentEmail = "הנושא נשלח לחברך/תך באמצעות הדואר האלקטרוני"
Const strTxtFriendsName = "שם החבר/ה"
Const strTxtFriendsEmail = "כתובת הדואר האלקטרוני של החבר/ה"
Const strTxtYourName = "שמך"
Const strTxtYourEmail = "כתובת הדואר האלקטרוני שלך"
Const strTxtSendEmail = "שליחת דואר אלקטרוני"
Const strTxtMessage = "הודעה"
Const strTxtEmailFriendMessage = "חשבתי שאולי תהיה/תהיי מעוניין בהודעה מפורום"
Const strTxtFrom = "מאת"
Const strTxtErrorFrinedsName = "שם החבר/ה \t- הזן את שם חברך/תך"
Const strTxtErrorFriendsEmail = "כתובת הדואר האלקטרוני של החבר/ה \t- אנא הזן כתובת דואר אלקטרוני אמיתית של חברך/תך"
Const strTxtErrorYourName = "שמך \t- הזן/י את שמך"
Const strTxtErrorYourEmail = "כתובת הדואר האלקטרוני שלך \t- אנא הזן/י כתובת דואר אלקטרוני אמיתית"
Const strTxtErrorEmailMessage = "הודעה \t- אנא הזן/י הודעה שתישלח לחבר"
'members.asp
'---------------------------------------------------------------------------------
Const strTxtForumMembersList = "חברי פורום"
Const strTxtMemberSearch = "חיפוש חבר/ה"
Const strTxtForumMembersOn = "חברי הפורום ב"
Const strTxtPageYouAerOnPage = "עמודים. את/ה בעמוד מספר"
Const strTxtYourSearchMembersFound = "חיפושך לחברי הפורום מצא"
Const strTxtMatches = "תוצאות"
'---/WWHF 1.21\
Const strTxtGenMembers = "בפורום mem חברים רשומים. סה""כ page עמודים. את/ה בעמוד מספר curpage"
'---/WWHF 1.21\
Const strTxtUsernameAlphabetically = "שם משתמש בסדר אלפאבתי"
Const strTxtNewForumMembersFirst = "חברי פורום חדשים קודם"
Const strTxtOldForumMembersFirst = "חברי פורום ישנים קודם"
Const strTxtLocationAlphabetically = "מיקום בסדר אלפאבתי"
Const strTxtRegistered = "רשומים"
Const strTxtSend = "שליחה"
Const strTxtPrivateEmail = "דואר אלקטרוני פרטי"
Const strTxtNext = "הבא"
Const strTxtPrevious = "הקודם"
Const strTxtPage = "עמוד"
Const strTxtErrorMemberSerach = "חיפוש חברים\t- הזן שם של חבר/ה בפורום כדי לחפש עבור"
'message_form.asp
'---------------------------------------------------------------------------------
Const strTxtTextFormat = "סגנון הטקסט"
Const strTxtPreviewPost = "תצוגה מקדימה"
Const strTxtMode = "מצב"
Const strTxtPrompt = "פקודה"
Const strTxtBasic = "בסיס"
Const strTxtAddEmailLink = "הוסף קישור לדואר אלקטרוני"
Const strTxtList = "רשימה"
Const strTxtCentre = "מרכז"
Const strTxtEnterBoldText = "הזן/י את הטקסט שברצונך שייראה מודגש."
Const strTxtEnterItalicText = "הזן/י את הטקסט שברצונך שייראה נטוי"
Const strTxtEnterUnderlineText = "הזן/י את הטקסט שברצונך שייראה עם קו תחתון"
Const strTxtEnterCentredText = "הזן/י את הטקסט שברצונך שיהיה מרוכז לאמצע"
Const strTxtEnterHyperlinkText = "הזן/י את הטקסט שיוצג על המסך ויצביע לקישור"
Const strTxtEnterHeperlinkURL = "הזן/י את כתובת האינטרנט אליה יפנה הקישור"
Const strTxtEnterEmailText = "הזן/י את הטקסט שיוצג כקישור לדואר אלקטרוני"
Const strTxtEnterEmailMailto = "הזן/י את כתובת הדואר האלקטרוני שברצונך לקשר אליה"
Const strTxtEnterImageURL = "הזן/י את הכתובת באינטרנט של התמונה"
Const strTxtEnterTypeOfList = "סוג הרשימה"
Const strTxtEnterEnter = "הזנה"
Const strTxtEnterNumOrBlankList = "בשביל ממוספר או השאר/י ריק בשביל מנוקד"
Const strTxtEnterListError = "שגיאה! אנא הזן/י"
Const strEnterLeaveBlankForEndList = "רשום פריט או השאר ריק כדי לסיים רשימה"
'IE_message_form.asp
'---------------------------------------------------------------------------------
Const strTxtCut = "גזירה"
Const strTxtCopy = "העתקה"
Const strTxtPaste = "הדבקה"
Const strTxtBold = "הדגשה"
Const strTxtItalic = "הטייה"
Const strTxtUnderline = "קו תחתון"
Const strTxtLeftJustify = "ישר לשמאל"
Const strTxtCentrejustify = "ישר למרכז"
Const strTxtRightJustify = "ישר לימין"
Const strTxtUnorderedList = "רשימה"
Const strTxtOutdent = "הגדלת כניסה"
Const strTxtIndent = "הקטנת כניסה"
Const strTxtAddHyperlink = "הוספת קישור"
Const strTxtAddImage = "הוספת תמונה"
Const strTxtJavaScriptEnabled = "JavaScript חייב להיות מופעל בכדי לכתוב הודעה בפורום זה!"
Const strTxtShowSignature = "הצגת חתימה"
Const strTxtEmailNotify = "הודע בדואר אלקטרוני כאשר נכתבות תגובות"
Const strTxtUpdatePost = "עידכון הודעה"
Const strTxtFontColour = "צבע"
'register.asp
'---------------------------------------------------------------------------------
Const strTxtRegisterNewUser = "רישום משתמש חדש"
Const strTxtProfileUsernameLong = "זה השם אשר יוצג כאשר תשתמש/י בפורום"
Const strTxtRetypePassword = "הקש/הקישי סיסמא שנית"
Const strTxtProfileEmailLong = "הזנת כתובת דואר אלקטרוני אינה חובה, אך מומלצת אם ברצונך לקבל הודעות לדואר אלקטרוני כאשר מגיבים להודעותיך או כאשר סיסמתך אבדה לך"
Const strTxtShowHideEmail = "הצגת כתובת הדואר האלקטרוני שלי"
Const strTxtShowHideEmailLong = "הצגת או הסתרת כתובת הדואר האלקטרוני אשר משמשת למניעת שאר חברי הפורום לראות אותה"
Const strTxtSelectCountry = "בחירת מדינה"
Const strTxtProfileAutoLogin = "חיבור אוטומטי בכל פעם שתכנס/י לפורום"
Const strTxtSignature = "חתימה"
Const strTxtSignatureLong = "הזנת חתימה שתופיע בכל הודעה שתכתוב/תכתבי"
Const strTxtErrorUsernameChar = "שם משתמש \t- שם המשתמש חייב להיות באורך של לפחות 4 תווים "
Const strTxtErrorPasswordChar = "סיסמא \t- הסיסמא חייבת להיות באורך של לפחות 4 תווים"
Const strTxtErrorPasswordNoMatch = "שגיאת סיסמא\t- הסיסמאות שהוכנסו לא תואמות"
Const strTxtErrorValidEmail = "דואר אלקטרוני\t\t- הזן/י כתובת דואר אלקטרוני חוקית"
Const strTxtErrorValidEmailLong = "אם אין ברצונך להכניס כתובת דואר אלקטרוני השאר/י את התיבה ריקה"
Const strTxtErrorNoEmailToShow = "אין באפשרותך להחלוק את כתובת הדואר האלקטרוני שלך אם לא הכנסת אותה!"
Const strTxtErrorSignatureToLong = "חתימה \t- חתימתך כוללת יותר מדי תווים."
Const strTxtUpdateProfile = "עידכון פרופיל"
Const strTxtUsrenameGone = "מצטערים אך שם המשתמש שנבחר תפוס.\n\nאנא בחר/י שם משתמש אחר"
Const strTxtEmailThankYouForRegistering = "תודה שנרשמת לפורום של "
Const strTxtEmailYouCanNowUseTheForumAt = "פרטי החשבון נמצאים מתחת, ועכשיו כאשר נרשמת באפשרותך לכתוב הודעות ולהגיד להודעות קיימות בפורום"
Const strTxtEmailForumAt = "ב"
Const strTxtEmailToThe = "של"
'register_new_user.inc
'---------------------------------------------------------------------------------
Const strTxtEmailAMeesageHasBeenPosted = "הודעה חדשה נכתבה בפורום ב"
Const strTxtEmailClickOnLinkBelowToView = "בכדי לצפות בהודעה לחץ/י על הלינק מתחת"
Const strTxtEmailAMeesageHasBeenPostedOnForumNum = "הודעה נכתבה בפורום מספר"
'registration_rules.asp
'---------------------------------------------------------------------------------
Const strTxtForumRulesAndPolicies = "חוקי הפורום"
Const srtTxtAccept = "מסכים/ה"
Const strTxtCancel = "לא מסכים/ה"
'New from version 6
'---------------------------------------------------------------------------------
Const strTxtHi = "שלום"
Const strTxtForumPostNotifi = "הודעה על הודעות חדשות"
Const strTxtInterestingForumPostOn = "הודעת פורום מעניינת ב"
Const strTxtForumLostPasswordRequest = "החזרת סיסמא שאבדה"
Const strTxtLockForum = "נעילת פורומים"
Const strTxtLockForumAlert = "האם את/ה בטוח/ה שברצונך לנעול פורום זה?"
Const strTxtUnLockForumAlert = "האם את/ה בטוח/ה שברצונך לפתוח פורום זה?"
Const strTxtLockedTopic = "נעילת נושא"
Const strTxtUnLockTopic = "פתיחת נושא"
Const strTxtTopicLocked = "נושא נעול"
Const strTxtUnForumLocked = "פתיחת פורום"
Const strTxtThisTopicIsLocked = "נושא זה נעול."
Const strTxtThatYouAskedKeepAnEyeOn = "שביקשת לשים עליו עין."
Const strTxtTheTopicIsNowDeleted = "הנושא נמחק."
Const strTxtOf = "של"
Const strTxtTheTimeNowIs = "התאריך היום הוא"
Const strTxtYouLastVisitedOn = "ביקרת בפעם האחרונה בתאריך"
Const strTxtSendMsg = "שליחת הודעה פרטית"
Const strTxtSendPrivateMessage = "שליחת הודעה פרטית"
Const strTxtActiveUsers = "משתמשים פעילים"
Const strTxtGuestsAnd = "אורח(ים) ו-"
Const strTxtMembers = "משתמש(ים)"
Const strTxtPreview = "הצגה"
Const strTxtThereIsNothingToPreview = "אין מה להציג"
Const strTxtEnterTextYouWouldLikeIn = "הזן/י את הטקסט שאותו את/ה רוצה ב"
Const strTxtEmailAddressAlreadyUsed = "כתובת הדואר האלקטרוני שהוזנה כבר בשימוש על ידי משתמש רשום אחר."
Const strTxtIP = "IP"
Const strTxtIPLogged = "IP רשוּם"
Const strTxtPages = "עמודים"
Const strTxtCharacterCount = "ספירת תווים"
Const strTxtAdmin = "ניהול"
Const strTxtType = "קבוצה"
Const strTxtActive = "פעיל"
Const strTxtGuest = "אורח/ת"
Const strTxtAccountStatus = "מצב החשבון"
Const strTxtNotActive = "לא פעיל"
Const strTxtEmailRequiredForActvation = "דרוש לשם קבלת דואר אלקטרוני לשם הפעלת החברות בפורום"
Const strTxtToActivateYourMembershipFor = "כדי להפעיל את חשבונך במועדון,"
Const strTxtForumClickOnTheLinkBelow = "עליך ללחוץ פעם אחת על הלינק למטה."
Const strTxtForumAdmin = "ניהול פורום"
Const strTxtViewLastPost = "צפייה בתגובה האחרונה"
Const strTxtSelectAvatar = "בחירת סמל אישי"
Const strTxtAvatar = "סמל אישי"
Const strTxtSelectAvatarDetails = "זה סמל קטן אשר יוצג מימין לכל הודעותיך. באפשרותך לבחור אחד מהגלריה או אחד לפי בחירתך, בתנאי שתקיש את כתובתו הנכונה (חייב להיות"
Const strTxtPixels = " פיקסלים)."
Const strTxtForumCodesInSignature = "- ניתן להשתמש בקודי הפורום בחתימתך"
Const strTxtHighPriorityPost = "הכרזה"
Const strTxtHighPriorityPostLocked = "הכרזה נעולה"
Const strTxtHotTopicNewReplies = "נושא חם [תגובות חדשות]"
Const strTxtHotTopic = "נושא חם [ללא תגובות חדשות]"
Const strTxtOpenTopic = "נושא [ללא תגובות חדשות]"
Const strTxtOpenTopicNewReplies = "נושא [תגובות חדשות]"
Const strTxtPinnedTopic = "נושא דביק"
Const strTxtOpenForum = "פורום פתוח [ללא הודעות חדשות]"
Const strTxtOpenForumNewReplies = "פורום פתוח [הודעות חדשות]"
Const strTxtReadOnly = "לקריאה בלבד [ללא תגובות חדשות]"
Const strTxtReadOnlyNewReplies = "לקריאה בלבד [תגובות חדשות]"
Const strTxtPasswordRequired = "דרושה סיסמא"
Const strTxtNoAccess = "אין גישה"
Const strTxtFont = "גופן"
Const strTxtSize = "גודל"
Const strTxtForumCodes = "קודי הפורום"
Const strTxtPriority = "דביק"
Const strTxtNormal = "נושא רגיל"
Const strTxtTopAllForums = "הכרזה (בכל הפורומים)"
Const strTopThisForum = "הכרזה (פורום זה)"
Const strTxtMarkAllPostsAsRead = "סימון כל הנושאים כנושאים שנקראו"
Const strTxtDeleteCookiesSetByThisForum = "מחיקת עוגיות שנוצרו על ידי פורום זה"
'forum_codes
'---------------------------------------------------------------------------------
Const strTxtYouCanUseForumCodesToFormatText = "ניתן להשתמש בקודי הפורום הבאים בכדי לעצב את הטקסט"
Const strTxtTypedForumCode = "קוד הפורום שהוקלד"
Const strTxtConvetedCode = "קוד מומר"
Const strTxtTextFormating = "עיצוב טקסט"
Const strTxtImagesAndLinks = "תמונות ולינקים"
Const strTxtFontTypes = "סוגי גופנים"
Const strTxtFontSizes ="גודלי הגופן"
Const strTxtFontColours ="צבעי הגופן"
Const strTxtEmoticons = "סמיילים"
Const strTxtFontSize = "גודל הגופן"
Const strTxtMyLink = "הקישור שלי"
Const strTxtMyEmail = "כתובת הדואר האלקטרוני שלי"
'insufficient_permission.asp
'---------------------------------------------------------------------------------
Const strTxtAccessDenied = "גישה נדחתה"
Const strTxtInsufficientPermison = "מצטערים, רק משתמשים עם הרשאות מיוחדות יכולים לגשת לדף זה."
'activate.asp
'---------------------------------------------------------------------------------
Const strTxtYourForumMemIsNowActive = "תודה שנרשמת.
חברות הפורום שלך כעת פעילה."
Const strTxtErrorWithActvation = "התרחשה בעיה בעת הפעלת החשבון שלך.
אנא צור קשר "
'register_mail_confirm.asp
'---------------------------------------------------------------------------------
Const strTxtYouShouldReceiveAnEmail = "הינך אמור/ה לקבל דואר אלקטרוני ב- 15 הדקות הקרובות. לחץ/י על הקישור בדואר אלקטרוני כדי להפעיל את חברותך בפורום."
Const strTxtThankYouForRegistering = "תודה שנרשמת לפורום"
Const strTxtIfErrorActvatingMembership = "אם את/ה נתקל/ת בבעיות בהפעלת חשבון המשתמש שלך אנא צור/צרי קשר עם"
'active_users.asp
'---------------------------------------------------------------------------------
Const strTxtActiveForumUsers = "משתמשי פורום פעילים"
Const strTxtAddMToActiveUsersList = "הוספה לרשימת המשתמשים הפעילים"
Const strTxtLoggedIn = "מחובר/ת"
Const strTxtLastActive = "פעילות אחרונה"
Const strTxtBrowser = "דפדפן"
Const strTxtOS = "מערכת הפעלה"
Const strTxtMinutes = "דקות"
Const strTxtAnnoymous = "אנונימי/ת"
'New from version 7.7
'---------------------------------------------------------------------------------
Const strTxtOnlineStatus = "משתמש"
Const strTxtOffLine = "מנותק/ת"
'not_posted.asp
'---------------------------------------------------------------------------------
Const strTxtMessageNotPosted = "ההודעה לא נשלחה"
Const strTxtDoublePostingIsNotPermitted = "כתיבה כפולה של הודעות אינה מורשה; הודעתך כבר נשלחה."
Const strTxtSpammingIsNotPermitted = "הודעות זבל (Spam) לא מורשות בפורום זה!"
Const strTxtYouHaveExceededNumOfPostAllowed = "עלית על המספר ההודעות המותר בזמן מסוים.
אנא נסה/י שנית מאוחר יותר."
Const strTxtYourMessageNoValidSubjectHeading = "הודעתך לא מכילה כותרת ו\או את גוף ההודעה."
'active_topics.asp
'---------------------------------------------------------------------------------
Const strTxtActiveTopics = "נושאים פעילים"
Const strTxtLastVisitOn = "הביקור האחרון אשר התקיים ב"
Const strTxtLastFifteenMinutes = " ה-15 דקות האחרונות"
Const strTxtLastThirtyMinutes = "ה-30 הדקות האחרונות"
Const strTxtLastFortyFiveMinutes = "ה-45 הדקות האחרונות"
Const strTxtLastHour = "השעה האחרונה"
Const strTxtLastTwoHours = "השעתיים האחרונות"
Const strTxtYesterday = "אתמול"
Const strTxtShowActiveTopicsSince = "הצגת נושאים פעילים מאז"
Const strTxtNoActiveTopicsSince = "לא נמצאו נושאים פעילים מאז"
Const strTxtToDisplay = "להצגה"
Const strTxtThereAreCurrently = "ישנם כרגע"
'pm_check.inc
'---------------------------------------------------------------------------------
Const strTxtNewPMsClickToGoNowToPM = "הודעה/ות פרטית/יות חדשה/ות הגיעה/ו.\n\nלחיצה על Ok תוביל להודעות הפרטיות שלך."
'display_forum_topics.inc
'---------------------------------------------------------------------------------
Const strTxtFewYears = "מספר שנים"
Const strTxtWeek = "שבוע"
Const strTxtTwoWeeks = "שבועיים"
Const strTxtMonth = "חודש"
Const strTxtTwoMonths = "חודשיים"
Const strTxtSixMonths = "חצי שנה"
Const strTxtYear = "שנה"
'Colours
'---------------------------------------------------------------------------------
Const strTxtBlack = "שחור"
Const strTxtWhite = "לבן"
Const strTxtBlue = "כחול"
Const strTxtRed = "אדום"
Const strTxtGreen = "ירוק"
Const strTxtYellow = "צהוב"
Const strTxtOrange = "כתום"
Const strTxtBrown = "חום"
Const strTxtMagenta = "ארגמן"
Const strTxtCyan = "כחול ירקרק"
Const strTxtLimeGreen = "ירוק בהיר"
Const strTxtHasBeenSentTo = "נשלח אל"
Const strTxtCharactersInYourSignatureToLong = "תווים בחתימך, עליך לקצר אותם לפחות מ- 200"
Const strTxtSorryYourSearchFoundNoMembers = "מערכת חיפוש המשתמש לא מצאה חבר פורום שמתאים לבקשתך"
Const strTxtCahngeOfEmailReactivateAccount = "במקרה של שינוי כתובת הדואר האלקטרוני, יישלח לשם דואר אלקטרוני לשם הפעלה מחדש של החשבון"
Const strTxtAddToBuddyList = "הוספה לרשימת חברים"
'register_mail_confirm.asp
'---------------------------------------------------------------------------------
Const strTxtYourEmailAddressHasBeenChanged = "כתובת הדואר האלקטרוני שלך שונתה, תאלץ/י להפעיל מחדש את חברות הפורום שלך לפני שתוכל/י להשתמש בפורום שנית."
Const strTxtYouShouldReceiveAReactivateEmail = "הינך אמור/ה לקבל דואר אלקטרוני ב-15 הדקות הקרובות. לחצ/י על הקישור שיישלח בתוך הדואר האלקטרוני בכדי להפעיל את חברות הפורום שלך מחדש."
'Preview signature window
'---------------------------------------------------------------------------------
Const strTxtSignaturePreview = "תצוגה מקדימה של חתימה"
Const strTxtPostedMessage = "ההודעה נשלחה"
'New from version 7
'---------------------------------------------------------------------------------
Const strTxtMemberlist = "רשימת משתמשים"
Const strTxtForums = "פורום(ים)"
Const strTxtOurUserHavePosted = "חברי הפורום שלחו"
Const strTxtInTotalThereAre = "בסיכום הכללי יש"
Const strTxtOnLine = "אונליין"
Const strTxtWeHave = "יש לנו"
Const strTxtActivateAccount = "הפעלת חשבון"
Const strTxtSorryYouDoNotHavePermissionToPostInTisForum = "מצטערים, אין לך את ההרשאות המתאימות בכדי לשלוח הודעות חדשות בפורום זה"
Const strTxtSorryYouDoNotHavePerimssionToReplyToPostsInThisForum = "מצטערים, אין לך את ההרשאות המתאימות כדי להגיב להודעות בפורום זה"
Const strTxtSorryYouDoNotHavePerimssionToReplyIPBanned = "מצטערים, אין באפשרותך להגיב להודעות, כתובת ה- IP או הטווח שבו אתה נמצא חסומים. אנא צור/צרי קשר עם המנהל הכללי, אם הינך מרגיש/ה שזוהי טעות."
Const strTxtLoginSm = "התחברות"
Const strTxtYourProfileHasBeenUpdated = "פרופילך עודכן."
Const strTxtPosted = "נשלח בתאריך:"
Const strTxtBackToTop = "חזרה לתחילת העמוד"
Const strTxtNewPassword = "סיסמא חדשה"
Const strTxtRetypeNewPassword = "הקלד/י שנית סיסמא חדשה"
Const strTxtRegards = "ברכותינו"
Const strTxtClickTheLinkBelowToUnsubscribe = "בשביל לבטל את את ההרשמה לנושא זה, לחץ/י על הלינק למטה."
Const strTxtPostsPerDay = "הודעות ליום"
Const strTxtGroup = "קבוצה"
Const strTxtLastVisit = "ביקור אחרון "
Const strTxtPrivateMessage = "הודעות פרטיות"
Const strTxtSorryFunctionNotPermiitedIPBanned = "מצטערים, אין באפשרותך להשתמש באפשרות זו, כתובת ה- IP או הטווח שבו אתה נמצא חסומים. אנא צור/צרי קשר עם המנהל הכללי, אם את/ה מרגיש/ה שזוהי טעות."
Const strTxtEmailAddressBlocked = "מצטערים, כתובת הדואר האלקטרוני שהוכנסה ו/או השרת של כתובת דואר אלקטרוני זו, נחסמו על ידי המנהל הכללי"
Const strTxtTopicAdmin = "ניהול נושא"
Const strTxtMovePost = "העברת תגובה"
Const strTxtPrevTopic = "נושא קודם"
Const strTxtTheMemberHasBeenDleted = "המשתמש נמחק."
Const strTxtThisPageWasGeneratedIn = "העמוד הזה נוצר וחושב תוך"
Const strTxtSeconds = "שניות."
Const strTxtEditBy = "נערך על ידי"
Const strTxtWrote = "כתב"
Const strTxtEnable = "אפשר שימוש ב-"
Const strTxtToFormatPosts = "בכדי לכתוב את הודעותיך"
Const strTxtFlashFilesImages = "קבצי או תמונות Flash"
Const strTxtSessionIDErrorCheckCookiesAreEnabled = "שגיאת אבטחת התרחשה בעת ההזדהות. אנא ודא/י שכל אפשרויות ה- Cookies מופעלות, ושאינך משתמש בגירסה ישנה של הדף."
Const strTxtName = "שם"
Const strTxtModerators = "מנהלים"
Const strTxtMore = "עוד..."
Const strTxtNewRegSuspendedCheckBackLater = "מצטערים, אך ההרשמה לפורום זה כרגע מושעה. אנא חיזרו מאוחר יותר.."
Const strTxtMoved = " הועבר: "
Const strTxtNoNameError = "שם \t\t- הזן/י את שמך"
Const strTxtHelp = "עזרה"
'PM system
'---------------------------------------------------------------------------------
Const strTxtPrivateMessenger = "הודעות פרטיות"
Const strTxtUnreadMessage = "הודעות שלא נקראו"
Const strTxtReadMessage = "הודעות שנקראו"
Const strTxtNew = "חדשות"
Const strTxtYouHave = "יש לך"
Const strTxtNewMsgsInYourInbox = "הודעה(ות) חדשות בהודעות הנכנסות"
Const strTxtNoneSelected = "לא נבחר"
Const strTxtAddBuddy = "הוספת חבר"
'active_topics.asp
'---------------------------------------------------------------------------------
Const strTxtSelectMember = "בחירת משתמש"
Const strTxtSelect = "בחירה"
Const strTxtNoMatchesFound = "לא נמצאו התאמות"
'active_topics.asp
'---------------------------------------------------------------------------------
Const strTxtLastFourHours = "4 השעות האחרונות"
Const strTxtLastSixHours = "6 השעות האחרונות"
Const strTxtLastEightHours = "8 השעות האחרונות"
Const strTxtLastTwelveHours = "12 השעות האחרונות"
Const strTxtLastSixteenHours = "16 השעות האחרונות"
'permissions
'---------------------------------------------------------------------------------
Const strTxtYou = ""
Const strTxtCan = "הינך יכול/ה"
Const strTxtCannot = "אינך יכול/ה"
Const strTxtpostNewTopicsInThisForum = "לשלוח נושאים חדשים בפורום זה"
Const strTxtReplyToTopicsInThisForum = "להגיב לנושאים בפורום זה"
Const strTxtEditYourPostsInThisForum = "לערוך את הודעותיך ותגובותיך בפורום זה"
Const strTxtDeleteYourPostsInThisForum = "למחוק את הודעותיך ותגוביך בפורום זה"
Const strTxtCreatePollsInThisForum = "לצור סקרים בפורום זה"
Const strTxtVoteInPOllsInThisForum = "להצביע בסקרים בפורום זה"
'register.asp
'---------------------------------------------------------------------------------
Const strTxtRegistrationDetails = "פרטי הרשמה"
Const strTxtProfileInformation = "מידע לפרופיל"
Const strTxtForumPreferences = "הגדרות הפורום"
Const strTxtICQNumber = "מספר ICQ"
Const strTxtAIMAddress = "כתובת AIM"
Const strTxtMSNMessenger = "MSN Messenger"
Const strTxtYahooMessenger = "Yahoo Messenger"
Const strTxtOccupation = "עיסוק"
Const strTxtInterests = "תחומי עניין"
Const strTxtDateOfBirth = "תאריך לידה"
Const strTxtNotifyMeOfReplies = "התראה על תגובות שנכתבות"
Const strTxtSendsAnEmailWhenSomeoneRepliesToATopicYouHavePostedIn = "שולח אליך דואר אלקטרוני כאשר מישהו מגיב לנושא שכתבת אותו ו/או בו. אפשרות זאת ניתנת לשינוי."
Const strTxtNotifyMeOfPrivateMessages = "התראה בדואר אלקטרוני כאשר מתקבלת הודעה פרטית חדשה"
Const strTxtAlwaysAttachMySignature = "צירוף תמידי של חתימתי להודעותיי"
Const strTxtEnableTheWindowsIEWYSIWYGPostEditor = "אפשר שימוש בעורך WYSIWYG לכתיבת הודעות (לבעלי IE גרסה 5 ומעלה)"
Const strTxtTimezone = "הבדל זמן בין השעה שלך לשעת הפורום"
Const strTxtPresentServerTimeIs = "תאריך הפורום הנוכחי היא: "
Const strTxtDateFormat = "צורת תאריך"
Const strTxtDayMonthYear = "יום/חודש/שנה"
Const strTxtMonthDayYear = "חודש/יום/שנה"
Const strTxtYearMonthDay = "שנה/חודש/יום"
Const strTxtYearDayMonth = "שנה/יום/חודש"
Const strTxtHours = "שעות"
Const strTxtDay = "יום"
Const strTxtCMonth = "חודש"
Const strTxtCYear = "שנה"
Const strTxtRealName = "שם אמיתי"
Const strTxtMemberTitle = "תיאור משתמש"
'Polls
'---------------------------------------------------------------------------------
Const strTxtCreateNewPoll = "יצירת סקר חדש"
Const strTxtPollQuestion = "שאלת הסקר"
Const strTxtPollChoice = "תשובה"
Const strTxtErrorPollQuestion = "שאלת הסקר \t- הזן/י שאלה לסקר זה"
Const strTxtErrorPollChoice = "תשובה לסקר \t- הזן/י לפחות שתי בחירות שישמשו כתשובות לסקר זה"
Const strTxtSorryYouDoNotHavePermissionToCreatePollsForum = "מצטערים, אין לך את ההרשאות המתאימות ליצירת סקרים בפורום זה"
Const strTxtAllowMultipleVotes = "איפשור הצבעות מרובות בסקר זה"
Const strTxtMakePollOnlyNoReplies = "יצירת סקר בלבד (ללא אפשרות לכתיבת תגובות)"
Const strTxtYourNoValidPoll = "הסקר שנכתב אינו מכיל שאלה ו/או תשובות."
Const strTxtPoll = "סקר:"
Const strTxtVote = "בחירה"
Const strTxtVotes = "הצבעות"
Const strTxtCastMyVote = "שליחת בחירתי"
Const strTxtPollStatistics = "אחוזי ההצבעה"
Const strTxtThisTopicIsClosedNoNewVotesAccepted = "נושא זה נעול, אין אפשרות להצביע"
Const strTxtYouHaveAlreadyVotedInThisPoll = "כבר הצבעת בסקר זה"
Const strsTxYouCanNotNotVoteInThisPoll = "אין באפשרותך להצביע בסקר זה"
Const strTxtThankYouForCastingYourVote = "תודה שהצבעת בסקר זה."
Const strTxtYouDidNotSelectAChoiceForYourVote = "הצבעתך לא נקלטה.\n\n לא סימנת את בחירתך בסקר."
Const strTxtThisIsAPollOnlyYouCanNotReply = "הודעה זו הינה סקר בלבד, אין באפשרותך לשלוח תגובה."
'Email Notify
'---------------------------------------------------------------------------------
Const strTxtWatchThisTopic = "התראה על תגובות חדשות לנושא זה"
Const strTxtUn = "אי-"
Const strTxtWatchThisForum = "התראה על הודעות חדשות בפורום זה"
Const strTxtYouAreNowBeNotifiedOfPostsInThisForum = "מעכשיו את/ה תעודכן/י באמצעות דואר אלקטרוני על כל ההודעות והתגובות החדשות בפורום זה.\n\nבכדי להסיר את עצמך מעידכונים לפורום לזה לחץ/י על הלינק \'אי-התראה על הודעות חדשות בפורום זה\' שממוקם בתחתית העמוד."
Const strTxtYouAreNowNOTBeNotifiedOfPostsInThisForum = "מעכשיו לא תעודכנן/י באמצעות דואר אלקטרוני על הודעות חדשות בפורום זה.\n\nבכדי להתעדכן מחדש על פורום זה לחץ/י על הלינק \'התראה על הודעות חדשות בפורום זה\' שממוקם בתחתית העמוד."
Const strTxtYouWillNowBeNotifiedOfAllReplies = "מעכשיו תעודכן/י באמצעות דואר אלקטרוני על כל התגובות החדשות בנושא זה.\n\nבכדי להסיר את עצמך מעידכונים לנושא זה לחץ/י על הלינק \'אי-התראה תגובות חדשות לנושא זה\' שממוקם בתחתית העמוד."
Const strTxtYouWillNowNOTBeNotifiedOfAllReplies ="מעכשיו לא תעודכן/י באמצעות דואר אלקטרוני על תגובות חדשות בנושא זה.\n\nבכדי להתעדכן מחדש לחץ/י על הלינק \'התראה על תגובות חדשות לנושא זה\' שממוקם בתחתית העמוד."
'email_messenger.asp
'---------------------------------------------------------------------------------
Const strTxtEmailMessenger = "שליחת דואר אלקטרוני"
Const strTxtRecipient = "נמען"
Const strTxtNoHTMLorForumCodeInEmailBody = "אנא ציין/י שהדואר האלקטרוני נשלח כטקסט בלבד (לא כ- Html או בקוד הפורום).
כתובת הדואר האלקטרוני לתגובה תקבע ככתובת הדואר האלקטרוני שנתונה בפרופיל שלך."
Const strTxtYourEmailHasBeenSentTo = "הדואר האלקטרוני נשלח אל"
Const strTxtYouCanNotEmail = "את/ה לא יכול/ה לשלוח"
Const strTxtYouDontHaveAValidEmailAddr = "אין לך כתובת דואר אלקטרוני חוקית בפרופיל."
Const strTxtTheyHaveChoosenToHideThierEmailAddr = "הם בחרו לא להציג את כתובת הדואר האלקטרוני שלהם."
Const strTxtTheyDontHaveAValidEmailAddr = "אין להם כתובת דואר אלקטרוני חוקית בפרופיל."
Const strTxtSendACopyOfThisEmailToMyself = "שליחת העתק מדואר אלקטרוני זה לכתובת הדואר האלקטרוני שלי"
Const strTxtTheFollowingEmailHasBeenSentToYouBy = "הדואר האלקטרוני הנתון נשלח אליך על ידי"
Const strTxtFromYourAccountOnThe = "מחשבונך אל ה-"
Const strTxtIfThisMessageIsAbusive = "אם הודעה זו הינה דואר זבל [Spam] או שהינך מוצא/ת בה פוגעת, אנא צור/צרי קשר עם המנהל הכללי של הפורום בכתובת הבאה"
Const strTxtIncludeThisEmailAndTheFollowing = "כלול את הדואר האלקטרוני הזה והמצורף"
Const strTxtReplyToEmailSetTo = "אנא ציין שכתובת המשוב לדואר אלקטרוני זה נקבעה לכך ש"
Const strTxtMessageSent = "ההודעה נשלחה"
'Uploads
'---------------------------------------------------------------------------------
Const strTxtImageUpload = "העלאת תמונה"
Const strTxtFileUpload = "העלאת קובץ"
Const strTxtAvatarUpload = "העלאת סמל אישי"
Const strTxtUpload = "העלאה"
Const strTxtSelectTheImageYouWishToUpload = "בחר/י את התמונה שברצונך להעלות"
Const strTxtImagesMustBeOfTheType = "התמונה חייב להיות מסוג"
Const strTxtAndHaveMaximumFileSizeOf = "ולא לעלות על הגודל של"
Const strTxtImageOfTheWrongFileType = "התמונה שהועלתה הינה מסוג קובץ לא נכון"
Const strTxtImageFileSizeToLarge = "הגודל של התמונה שהועלתה עובר את ה-"
Const strTxtMaximumFileSizeMustBe = "גודל הקובץ המקסימלי חייב להיות"
Const strTxtFile = "קובץ"
Const strTxtSelectTheFileYouWishToUpload = "בחר/י את הקובץ שברצונך להעלות"
Const strTxtFilesMustBeOfTheType = "הקבצים חייבים להיות מסוג"
Const strTxtFileOfTheWrongFileType = "הקובץ הועלה עם סיומת קובץ לא נכונה"
Const strTxtFileSizeToLarge = "גודל הקובץ גדול מ-"
Const strTxtImage = "תמונה"
Const strTxtSelectImageMessageError = "תמונה \t- בחר/י תמונה להעלאה"
Const strTxtSelectFileMessageError = "קובץ \t- בחר/י קובץ להעלאה"
Const strTxtPleaseWaitWhileFileIsUploaded = "אנא המתן/י בסבלנות בעת שהקובץ מועלת לשרת."
Const strTxtPleaseWaitWhileImageIsUploaded = "אנא המתן/יני בסבלנות בעת שהתמונה מועלת לשרת."
'forum_closed.asp
'---------------------------------------------------------------------------------
Const strTxtForumClosed = "מערכת הפורומים סגורה"
Const strTxtSorryTheForumsAreClosedForMaintenance = "מצטערים, מערכת הפורומים סגורה לצורך תחזוקה. אנא חזור/חזרי שנית מאוחר יותר."
'report_post.asp
'---------------------------------------------------------------------------------
Const strTxtReportPost = "דיווח על הודעה"
Const strTxtSendReport = "שליחת דיווח"
Const strTxtProblemWithPost = "הבעיה שנמצאה בהודעה"
Const strTxtPleaseStateProblemWithPost = "אנא ציין/י למטה את הסיבה שבגללה דיווחת על נושא זה. עותק של הנושא יישלח למנהלי הפורום ו/או למנהלים הכלליים, בכדי שהם יוכלו לטפל בנושא מיידית."
Const strTxtTheFollowingReportSubmittedBy = "הדיווח הנדון נשלח על ידי"
Const strTxtWhoHasTheFollowingIssue = "אשר יש לו את הבעיה הבאה עם הנושא"
Const strTxtToViewThePostClickTheLink = "כדי להציג את ההודעה לחץ/י על הלינק למטה"
Const strTxtIssueWithPostOn = "נושא עם הודעה"
Const strTxtYourReportEmailHasBeenSent = "הדיווח שלך נשלח למנהלי הפורום ו/או למנהלים הכלליים, כדי שהם יוכלו לטפל בנושא מיידית."
'New from version 7.5
'---------------------------------------------------------------------------------
Const strTxtImportantTopics = "נושאים חשובים"
Const strTxtQuickLogin = "התחברות מהירה"
Const strTxtThisTopicWasStarted = "הנושא נכתב ב: "
Const strTxtResendActivationEmail = "שליחה מחדש של הפעלת חשבון לדואר האלקטרוני"
Const strTxtNoOfStars = "מספר כוכבים"
Const strTxtOnLine2 = "אונליין"
Const strTxtIeSpellNotDetected = "ieSpell לא אותר במחשבך, לחץ אישור כדי לגשת לעמוד ההורדה."
Const strTxtstrTxtOrderedList = "רשימה מסודרת"
Const strTxtTextColour = "צבע טקסט"
Const strTxtstrSpellCheck = "בדיקת איות"
Const strTxtCode = "קוד"
Const strTxtCodeandFixedWidthData = "קוד ומידע רוחב מתוקן"
Const strTxtQuoting = "מצטט"
Const strTxtMyCodeData = "הקוד שלי או המידע רוחב המתוקן"
Const strTxtQuotedMessage = "הודעה מצוטטת"
Const strTxtWithUsername = "עם שם משתמש"
Const strTxtOK = "אישור"
Const strTxtGo = "הלאה"
Const strTxtDataBasedOnActiveUsersInTheLastXMinutes = "המידע הזה מבוסס על המשתמשים שהיו פעילים בעשר הדקות האחרונות"
Const strTxtSoftwareVersion = "גירסת תוכנה"
Const strTxtForumMembershipNotAct = "חברות הפורום שלך עוד לא הופעלה!"
Const strTxtMustBeRegisteredToPost = "מצטערים, עליך להיות משתמש רשום בשביל לכתוב בפורום זה."
Const strTxtSettings = "הגדרות"
Const strTxtMemberCPMenu = "לוח בקרה למשתמש"
Const strTxtYouCanAccessCP = "ניתן לגשת לרכיבי הפורום ולשנות את העדפות חברות המשתמש דרך הפורום שלך, ומשם ל"
Const strTxtEditMembersSettings = "עריכת הגדרות הפורום של משתמשים אלו"
Const strTxtSecurityCodeConfirmation = "קוד אימות אבטחה (דרוש)"
Const strTxtUniqueSecurityCode = "קוד אבטחה CAPTCHA"
Const strTxtEnterCAPTCHAcode = "אנא הזן את הקוד בדיוק כפי שהוא נראה בתמונה. חובה לאפשר cookies בדפדפן על מנת להמשיך."
Const strTxtErrorSecurityCode = "קוד אבטחה \t- אנא הזן את הקוד בדיוק כפי שהוא נראה בתמונה"
Const strTxtSecurityCodeDidNotMatch = "מצטערים, קוד האבטחה שהוזן אינו תואם למה שהוצג.n\nקוד אבטחה חדש חושב."
'login_user_test.asp
'---------------------------------------------------------------------------------
Const strTxtSuccessfulLogin = "התחברות מוצלחת"
Const strTxtSuccessfulLoginReturnToForum = "ההתחברות התקיימה בהצלחה, אנא המתן בזמן שאתה מועבר חזרה לפורום."
Const strTxtUnSuccessfulLoginText = "ההתחברות לא הצליחה בשל בעיית עוגיה.
אנא ודא כי כל העוגיות מאופשרות בדפדפן האינטרנט שלך לאתר זה."
Const strTxtUnSuccessfulLoginReTry = "לחץ כאן כדי לחזור ולנסות להתחבר לפורום."
Const strTxtToActivateYourForumMem = "לשם הפעלת חברותך בפורום לחץ על הקישור שקיבלת בדואר האלקטרוני לאחר ההרשמה לפורום."
'email_notify_subscriptions.asp
'---------------------------------------------------------------------------------
Const strTxtEmailNotificationSubscriptions = "התראות דואר אלקטרוני"
Const strTxtSelectForumErrorMsg = "בחירת פורום\t- בחר את הפורום שברצונך לקבל התראות דואר אלקטרוני עליו"
Const strTxtYouHaveNoSubToEmailNotify = "אין לך התראות רשומות"
Const strTxtThatYouHaveSubscribedTo = "שהינך רשום לקבלת התראות בדואר האלקטרוני על כתיבת הודעות חדשות בהם"
Const strTxtUnsusbribe = "הסרת התראות"
Const strTxtAreYouWantToUnsubscribe = "האם אתה בטוח שברצונך להסיר את התראות הדואר האלקטרוני מה-"
'RTE editor
'---------------------------------------------------------------------------------
Const strTxtFontStyle = "סוג פונט"
Const strTxtBackgroundColour = "צבע רקע"
Const strTxtUndo = "ביטול"
Const strTxtRedo = "ביצוע שוב"
Const strTxtJustify = "יישור מלא"
Const strTxtToggleHTMLView = "החלף לתצוגת HTML"
Const strTxtAboutRichTextEditor = "על עורך הטקסט העשיר"
Const strTxtImageURL = "קישור לתמונה"
Const strTxtAlternativeText = "טקסט אלטרנטיבי"
Const strTxtLayout = "שכבה"
Const strTxtAlignment = "יישור"
Const strTxtBorder = "גבול"
Const strTxtSpacing = "רווחים"
Const strTxtHorizontal = "מאוזן"
Const strTxtVertical = "אנכי"
Const strTxtRows = "מספר שורות"
Const strTxtColumns = "מספר טורים"
Const strTxtWidth = "רוחב"
Const strTxtCellPad = "פד תאים"
Const strTxtCellSpace = "רווח לתאים"
Const strTxtInsertTable = "הזנת טבלה"
'Hebrew (Web Wiz Herbrew Forums) Edition Text
'---------------------------------------------------------------------------------
Const StrTxtForumTopics = "נושאים רגילים"
'New from version 7.51
'---------------------------------------------------------------------------------
Const strTxtSubscribeToForum = "Subscribe to Email Notification of New Posts"
Const strTxtSelectForumToSubscribeTo = "Select Forum to Subscribe to"
'New from version 7.7
'---------------------------------------------------------------------------------
'Const strTxtOnlineStatus = "מחובר"
'Const strTxtOffLine = "מנותק"
'New from version 7.8
'---------------------------------------------------------------------------------
Const strTxtConfirmOldPass = "אימות סיסמא ישנה"
Const strTxtConformOldPassNotMatching = "אימות הסיסמא הישנה לא תואמת את מה שקיים במערכת למשתמש זה.\n\nאם ברצונך לשנות את סיסמתך, אנא הכנס את סיסמתך הישנה."
'New from version 8.0
'---------------------------------------------------------------------------------
Const strTxtSub = "תת"
Const strTxtHidden = "מוסתר"
Const strTxtShowPost = "Show Post"
Const strTxtHidePost = "Hide Post"
Const strTxtAreYouSureYouWantToHidePost = "Are you sure you want to hide this post?"
Const strTxtModeratedPost = "Moderated Post"
Const strTxtYouArePostingModeratedForum = "You are posting in a moderated forum."
Const strTxtBeforePostDisplayedAuthorised = "Before your post will be displayed in the forum it will first need to be authorised by a Forum Administrator or Moderator."
Const strTxtHiddenTopics = "Hidden Topics"
Const strTxtVerifiedBy = "Verified By"
%>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Guide - Web Wiz Forums
'**
'** Copyright 2001-2005 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
'**
'****************************************************************************************
'Dimesion variables
Dim strHeaderAds 'Holds the ads in the header
Dim strFooterAds 'Holds the ads in the footer
'You can chnage the following to change the colours of the ads
'**************************************
Const strAdBorderColour = "CCCCFF"
Const strAdBackgroundColour = "FFFFFF"
Const strAdLinkColour = "0000FF"
Const strAdURLcolour = "0000FF"
Const strAdTextColour = "000000"
'**************************************
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'strHeaderAds = ("" & _
'vbCrLf & "
")
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
strHeaderAds=""
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'strFooterAds = ("" & _
'vbCrLf & "
")
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
strFooterAds=""
%>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Guide - Web Wiz Forums
'**
'** Copyright 2001-2005 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 timeout of the forum
Server.ScriptTimeout = 90
Session.Timeout = 20
'Set the date time format to your own if you are getting a CDATE error
'Session.LCID = 1033
Dim adoCon 'Database Connection Variable Object
Dim strCon 'Holds the string to connect to the db
Dim rsCommon 'Holds the configuartion recordset
Dim strSQL 'Holds the SQL query for the database
Dim lngLoggedInUserID 'Holds a logged in users ID number
Dim strLoggedInUsername 'Holds a logged in users username
Dim intGroupID 'Holds the group ID number the member is a group of
Dim strWebsiteName 'Holds the website name
Dim strMainForumName 'Holds the forum name
Dim strForumPath 'Holds the virtual path to the forum
Dim strForumEmailAddress 'Holds the forum e-mail address
Dim blnTextLinks 'Set to true if you want text links instead of the powered by logo
Dim blnRTEEditor 'Set to true if the Rich Text Editor(RTE) is enabled
Dim blnEmail 'Boolean set to true if e-mail is on
Dim strMailComponent 'Email coponent the forum useses
Dim strOutgoingMailServer 'Forums incomming mail server
Dim strLoggedInUserCode 'Holds the user code of the user
Dim blnLCode 'set to true
Dim blnAdmin 'set to true if the user is a forum admininstrator (Group ID 1)
Dim blnModerator 'Set to true if the user is a forum moderator
Dim blnGuest 'set to true for the Guest account (Group ID 2)
Dim blnActiveMember 'Set to false if the member is no longer allowed to post messages on the forum
Dim blnLoggedInUserEmail 'Set to true if the user has entered there e-mail
Dim blnLoggedInUserSignature 'set to true if the user has enetered a signature
Dim intTopicPerPage 'Holds the number of topics to show on each page
Dim strTitleImage 'Holds the path and name for the title image for the forum
Dim blnEmoticons 'Set to true if emoticons are turned on
Dim strDatabaseDateFunction 'Holds a different date function for Access or SQL server
Dim strDatabaseType 'Holds the type of database used
Dim blnGuestPost 'Set to true if guests can post
Dim blnAvatar 'Set to true if the forum can use avatars
Dim blnEmailActivation 'Set to true if the e-mail activation is turned on
Dim blnSendPost 'Set to true if post is sent with e-mail notification
Dim intNumHotViews 'Holds the number of how many views a topic has before it becomes a hot topic
Dim intNumHotReplies 'Holds the number of replies before a topic becomes a hot topic
Dim blnPrivateMessages 'Set to true if private messages are allowed
Dim intNumPrivateMessages 'Holds the number of private messages allowed by each user
Dim intThreadsPerPage 'Holds the number of threads shown per page
Dim strDbPathAndName 'Holds the path and name of the database
Dim intSpamTimeLimitSeconds 'Holds the number of secounds between posts
Dim intSpamTimeLimitMinutes 'Holds the number of minutes the user can post five posts in
Dim strDateFormat 'Holds the users date format
Dim strTimeOffSet 'Holds the users time offset in + or -
Dim intTimeOffSet 'Holds the users time offset
Dim blnReplyNotify 'Set to true if the user wants to be notified of replies to posts
Dim blnAttachSignature 'Set to true if the user always wants there signature attached
Dim blnWYSIWYGEditor 'Set to true if the user wants to use the IE WYSIWYG post editor
Dim intMaxPollChoices 'Holds the maximum allowed number of poll choices
Dim blnEmailMessenger 'Set to true if the email system is on
Dim blnActiveUsers 'Set to true if active users is enabled
Dim blnForumClosed 'Set to true of the forum is cloded for maintence
Dim blnShowEditUser 'Set to true if we are to show the username and time a post is edited
Dim blnShowProcessTime 'Set to true if we are to show how long the page took to be processed on the server
Dim dblStartTime 'Holds the start time for the page process
Dim blnClosedForumPage 'Set to true if we are looking at the closed forum page
Dim blnFlashFiles 'Set to true if Flash support is enabled
Dim strWebsiteURL 'Holds the URL to the sites homepage
Dim blnShowMod 'Set to true if mod groups are shown on the main forum page
Dim blnAvatarUploadEnabled 'Set to true if avatars are enabled
Dim blnRegistrationSuspeneded 'Set to true if new registrations are suspended
Dim strLoggedInUserEmail 'Holds the logged in users email address
Dim strImageTypes 'Holds the types of images allowed in the forum
Dim blnLongRegForm 'Set to true if the reg form is to be the long version
Dim blnLongSecurityCode 'Set to true if the security code feature is required when logging in
Dim blnUseApplicationVariables 'Set to true if application varibles are used
'These are used for forum permissions
Dim blnRead
Dim blnPost
Dim blnReply
Dim blnEdit
Dim blnDelete
Dim blnPriority
Dim blnPollCreate
Dim blnVote
Dim blnAttachments
Dim blnImageUpload
'Initialise variables
Const strVersion = "7.96"
Const strHebVersion = "1.25"
Const strRTEversion = "1.2c"
lngLoggedInUserID = 0
strLoggedInUsername = strTxtGuest
blnActiveMember = true
blnLoggedInUserEmail = false
blnLoggedInUserSignature = false
intGroupID = 2
lngLoggedInUserID = 2
blnAdmin = false
blnModerator = false
blnGuest = true
intTimeOffSet = 0
strTimeOffSet = "+"
blnWYSIWYGEditor = true
blnLongRegForm = true
blnLongSecurityCode = true
'Database Type
strDatabaseType = "Access"
'strDatabaseType = "SQLServer"
'Set up the database table name prefix and stored procedure prefix
'(This is useful if you are running multiple forums from one database)
' - make sure you also change this in the msSQL_server_setup.asp file if setting up an ms SQL server database)
Const strDbTable = "tbl"
Const strDbProc = "wwfSp"
'Set up the forum cookie name
'(This is useful if you run multiple copies of Web Wiz Forums on the same site so that cookies don't interfer with each other)
Const strCookieName = "WWF"
'Set if application variables are used for forum configuration
'This will make your forum run faster as there are less hits on the database, but if you are using free web hosting or
'are on a server where you share your application oject with others then you will need to set this to false
blnUseApplicationVariables = true
'Set Encrypted passwords (ignore unless you don't wish to use Encrypted passwords in your forum)
'This will make your forum unsecure from hackers if you disable this!!!!!
'This can NOT be changed once your forum is in use!!!
'If you do disable Encrypted Passwords - You will also need to directly edit the database to type in the admin password to the Password field in the tblAuthor table at record position 1 also edit both common.asp files to change this variable
Const blnEncryptedPasswords = true 'True = Encrypted Passwords Enabled - Flase = Encrypted Passwords Disabled
'Create database connection
'Create a connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'If this is access set the access driver
If strDatabaseType = "Access" Then
'--------------------- Set the path and name of the database --------------------------------------------------------------------------------
'Virtual path to database
strDbPathAndName = Server.MapPath("admin/database/wwForum.mdb") 'This is the path of the database from this files location on the server
'Physical path to database
'strDbPathAndName = "" 'Use this if you use the physical server path, eg:- C:\Inetpub\private\wwForum.mdb
'BRINKSTER USERS (Web Wiz Forums only works with free Brinkster accounts, not for the paid accounts)
'Brinkster users remove the ' single quote mark from infront of the line below and replace USERNAME with your Brinkster uersname
'strDbPathAndName = Server.MapPath("/USERNAME/db/wwForum.mdb")
'PLEASE NOTE: - For extra security it is highly recommended you change the name of the database, wwForum.mdb, to another name and then
'replace the wwForum.mdb found above with the name you changed the forum database to.
'---------------------------------------------------------------------------------------------------------------------------------------------
'------------- If you are having problems with the script then try using a diffrent driver or DSN by editing the lines below --------------
'Generic MS Access Database connection info and driver (if this driver does not work then comment it out and use one of the alternative faster JET OLE DB drivers)
'strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strDbPathAndName
'Alternative drivers faster than the generic one above
'strCon = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & strDbPathAndName 'This one is if you convert the database to Access 97
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\hosting\doatar\access_db\astrologuy_Forum.mdb" 'This one is for Access 2000/2002
'If you wish to use DSN then comment out the driver above and uncomment the line below (DSN is slower than the above drivers)
'strCon = "DSN=DSN_NAME" 'Place the DSN where you see DSN_NAME
'---------------------------------------------------------------------------------------------------------------------------------------------
'The now() function is used in Access for dates
strDatabaseDateFunction = "Now()"
'Else set the MS SQL server stuff
Else
%><%
'****************************************************************************************
'** Copyleft Notice
'**
'** Web Wiz Guide - Web Wiz Forums
'**
'** Copyleft 2001-2004 Bruce Corkhill All lefts 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 copyleft 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 copyleft 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
'**
'****************************************************************************************
Dim strSQLServerName 'Holds the name of the SQL Server
Dim strSQLDBUserName 'Holds the user name (for SQL Server Authentication)
Dim strSQLDBPassword 'Holds the password (for SQL Server Authentication)
Dim strSQLDBName 'Holds name of a database on the server
'------------- The Driver Below is if you are using SQL Server (Do Not Use Unless you know and have an SQL Server) ---------------------------
'Enter the details of your SQL server below
strSQLServerName = "" 'Holds the name of the SQL Server
strSQLDBUserName = "" 'Holds the user name (for SQL Server Authentication)
strSQLDBPassword = "" 'Holds the password (for SQL Server Authentication)
strSQLDBName = "" 'Holds name of a database on the server
'Please note the forum has been optimised for the SQL OLE DB Driver using another driver
'or system DSN to connect to the SQL Server database will course errors in the forum and
'drastically reduce the performance of the forum!
'The SQLOLEDB driver offers the highest performance at this time for connecting to SQL Server databases from within ASP.
'MS SQL Server OLE Driver (If you change this string make sure you also change it in the msSQL_server_setup.asp file when creating the database)
strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
'---------------------------------------------------------------------------------------------------------------------------------------------
%><%
'The GetDate() function is used in SQL Server
strDatabaseDateFunction = "GetDate()"
End If
'Set the connection string to the database
adoCon.connectionstring = strCon
'Set an active connection to the Connection object
adoCon.Open
'Intialise the main ADO recordset object
Set rsCommon = Server.CreateObject("ADODB.Recordset")
'Read in the Forum configuration
If isEmpty(Application("blnConfigurationSet")) OR isNull(Application("blnConfigurationSet")) OR Application("blnConfigurationSet") = false OR blnUseApplicationVariables = false Then
'Initialise the SQL variable with an SQL statement to get the configuration details from the database
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "SelectConfiguration"
Else
strSQL = "SELECT TOP 1 " & strDbTable & "Configuration.* From " & strDbTable & "Configuration;"
End If
'Query the database
rsCommon.Open strSQL, adoCon
'If there is config deatils in the recordset then read them in
If NOT rsCommon.EOF Then
'read in the configuration details from the recordset
strWebsiteName = rsCommon("website_name")
strMainForumName = rsCommon("forum_name")
strWebsiteURL = rsCommon("website_path")
strForumPath = rsCommon("forum_path")
strMailComponent = rsCommon("mail_component")
strOutgoingMailServer = rsCommon("mail_server")
strForumEmailAddress = rsCommon("forum_email_address")
blnLCode = CBool(rsCommon("L_Code"))
blnEmail = CBool(rsCommon("email_notify"))
blnTextLinks = rsCommon("Text_link")
blnRTEEditor = CBool(rsCommon("IE_editor"))
intTopicPerPage = CInt(rsCommon("Topics_per_page"))
strTitleImage = rsCommon("Title_image")
blnEmoticons = CBool(rsCommon("Emoticons"))
blnAvatar = CBool(rsCommon("Avatar"))
blnEmailActivation = CBool(rsCommon("Email_activate"))
intNumHotViews = CInt(rsCommon("Hot_views"))
intNumHotReplies = CInt(rsCommon("Hot_replies"))
blnSendPost = CBool(rsCommon("Email_post"))
blnPrivateMessages = CBool(rsCommon("Private_msg"))
intNumPrivateMessages = CInt(rsCommon("No_of_priavte_msg"))
intThreadsPerPage = CInt(rsCommon("Threads_per_page"))
intSpamTimeLimitSeconds = CInt(rsCommon("Spam_seconds"))
intSpamTimeLimitMinutes = CInt(rsCommon("Spam_minutes"))
intMaxPollChoices = CInt(rsCommon("Vote_choices"))
blnEmailMessenger = CBool(rsCommon("Email_sys"))
blnActiveUsers = CBool(rsCommon("Active_users"))
blnForumClosed = CBool(rsCommon("Forums_closed"))
blnShowEditUser = CBool(rsCommon("Show_edit"))
blnShowProcessTime = CBool(rsCommon("Process_time"))
blnFlashFiles = CBool(rsCommon("Flash"))
blnShowMod = CBool(rsCommon("Show_mod"))
blnAvatarUploadEnabled = CBool(rsCommon("Upload_avatar"))
blnRegistrationSuspeneded = CBool(rsCommon("Reg_closed"))
strImageTypes = rsCommon("Upload_img_types")
'If we are using application level variables the configuration into the application level variables
If blnUseApplicationVariables Then
'Lock the application so only one user updates it at a time
Application.Lock
'read in the configuration details from the recordset
Application("strWebsiteName") = strWebsiteName
Application("strMainForumName") = strMainForumName
Application("strWebsiteURL") = strWebsiteURL
Application("strForumPath") = strForumPath
Application("strMailComponent") = strMailComponent
Application("strOutgoingMailServer") = strOutgoingMailServer
Application("strForumEmailAddress") = strForumEmailAddress
Application("blnLCode") = CBool(blnLCode)
Application("blnEmail") = CBool(blnEmail)
Application("blnTextLinks") = blnTextLinks
Application("blnRTEEditor") = CBool(blnRTEEditor)
Application("intTopicPerPage") = CInt(intTopicPerPage)
Application("strTitleImage") = strTitleImage
Application("blnEmoticons") = CBool(blnEmoticons)
Application("blnAvatar") = CBool(blnAvatar)
Application("blnEmailActivation") = CBool(blnEmailActivation)
Application("intNumHotViews") = CInt(intNumHotViews)
Application("intNumHotReplies") = CInt(intNumHotReplies)
Application("blnSendPost") = CBool(blnSendPost)
Application("blnPrivateMessages") = CBool(blnPrivateMessages)
Application("intNumPrivateMessages") = CInt(intNumPrivateMessages)
Application("intThreadsPerPage") = CInt(intThreadsPerPage)
Application("intSpamTimeLimitSeconds") = CInt(intSpamTimeLimitSeconds)
Application("intSpamTimeLimitMinutes") = CInt(intSpamTimeLimitMinutes)
Application("intMaxPollChoices") = CInt(intMaxPollChoices)
Application("blnEmailMessenger") = CBool(blnEmailMessenger)
Application("blnActiveUsers") = CBool(blnActiveUsers)
Application("blnForumClosed") = CBool(blnForumClosed)
Application("blnShowEditUser") = CBool(blnShowEditUser)
Application("blnShowProcessTime") = CBool(blnShowProcessTime)
Application("blnFlashFiles") = CBool(blnFlashFiles)
Application("blnShowMod") = CBool(blnShowMod)
Application("blnAvatarUploadEnabled") = CBool(blnAvatarUploadEnabled)
Application("blnRegistrationSuspeneded") = CBool(blnRegistrationSuspeneded)
Application("strImageTypes") = strImageTypes
'Set the configuartion set application variable to true
Application("blnConfigurationSet") = True
'Unlock the application
Application.UnLock
End If
End If
'Close the recordset
rsCommon.Close
'If we are using application level variables for the forum configuration then load in the variables from the application variables.
ElseIf blnUseApplicationVariables Then
'read in the configuration details from the application varaibales
strWebsiteName = Application("strWebsiteName")
strMainForumName = Application("strMainForumName")
strWebsiteURL = Application("strWebsiteURL")
strForumPath = Application("strForumPath")
strMailComponent = Application("strMailComponent")
strOutgoingMailServer = Application("strOutgoingMailServer")
strForumEmailAddress = Application("strForumEmailAddress")
blnLCode = CBool(Application("blnLCode"))
blnEmail = CBool(Application("blnEmail"))
blnTextLinks = Application("blnTextLinks")
blnRTEEditor = CBool(Application("blnRTEEditor"))
intTopicPerPage = CInt(Application("intTopicPerPage"))
strTitleImage = Application("strTitleImage")
blnEmoticons = CBool(Application("blnEmoticons"))
blnAvatar = CBool(Application("blnAvatar"))
blnEmailActivation = CBool(Application("blnEmailActivation"))
intNumHotViews = CInt(Application("intNumHotViews"))
intNumHotReplies = CInt(Application("intNumHotReplies"))
blnSendPost = CBool(Application("blnSendPost"))
blnPrivateMessages = CBool(Application("blnPrivateMessages"))
intNumPrivateMessages = CInt(Application("intNumPrivateMessages"))
intThreadsPerPage = CInt(Application("intThreadsPerPage"))
intSpamTimeLimitSeconds = CInt(Application("intSpamTimeLimitSeconds"))
intSpamTimeLimitMinutes = CInt(Application("intSpamTimeLimitMinutes"))
intMaxPollChoices = CInt(Application("intMaxPollChoices"))
blnEmailMessenger = CBool(Application("blnEmailMessenger"))
blnActiveUsers = CBool(Application("blnActiveUsers"))
blnForumClosed = CBool(Application("blnForumClosed"))
blnShowEditUser = CBool(Application("blnShowEditUser"))
blnShowProcessTime = CBool(Application("blnShowProcessTime"))
blnFlashFiles = CBool(Application("blnFlashFiles"))
blnShowMod = CBool(Application("blnShowMod"))
blnAvatarUploadEnabled = CBool(Application("blnAvatarUploadEnabled"))
blnRegistrationSuspeneded = CBool(Application("blnRegistrationSuspeneded"))
strImageTypes = Application("strImageTypes")
End If
'If the forums are closed redirect to the forums closed page
If blnForumClosed AND blnClosedForumPage = False Then
'Reset server objects
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
'Redirect to the forum closed page
Response.Redirect("forum_closed.asp")
End If
'Initalise the process start time
If blnShowProcessTime Then dblStartTime = Timer()
'Set a cookie with the last date/time the user used the forum to calculate if there any new posts
'If the date/time the user was last here is 20 minutes since the last visit then set the session variable to the users last date they were here
If Session("dtmLastVisit") = "" AND IsDate(Request.Cookies(strCookieName & "LV")("LV")) Then
Session("dtmLastVisit") = CDate(Request.Cookies(strCookieName & "LV")("LV"))
Response.Cookies(strCookieName & "LV")("LV") = internationalDateTime()
Response.Cookies(strCookieName & "LV").Expires = DateAdd("yyyy", 1, Now())
'If the last entry date is not alreay set set it to now
ElseIf Session("dtmLastVisit") = "" Then
Session("dtmLastVisit") = Now()
End If
'If the cookie is older than 5 mintues set a new one
If IsDate(Request.Cookies(strCookieName & "LV")("LV")) Then
If CDate(Request.Cookies(strCookieName & "LV")("LV")) < DateAdd("n", -5, Now()) Then
Response.Cookies(strCookieName & "LV")("LV") = internationalDateTime()
Response.Cookies(strCookieName & "LV").Expires = DateAdd("yyyy", 1, Now())
End If
'If there is no date in the cookie or it is empty then set the date to now()
Else
Response.Cookies(strCookieName & "LV")("LV") = internationalDateTime()
Response.Cookies(strCookieName & "LV").Expires = DateAdd("yyyy", 1, Now())
End If
'If someone has placed the default.asp in the path to the forum then remove it as it's not needed
strForumPath = Replace(strForumPath, "default.asp", "")
'Read in users ID number from the cookie
strLoggedInUserCode = Trim(Mid(Request.Cookies(strCookieName)("UID"), 1, 44))
'If a cookie exsists on the users system then read in there username from the database
If strLoggedInUserCode <> "" Then
'Make the usercode SQL safe
strLoggedInUserCode = formatSQLInput(strLoggedInUserCode)
'Initalise the strSQL variable with an SQL statement to query the database
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "ChkUserID @strUserID = '" & strLoggedInUserCode & "'"
Else
strSQL = "SELECT " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.Group_ID, " & strDbTable & "Author.Active, " & strDbTable & "Author.Signature, " & strDbTable & "Author.Author_email, " & strDbTable & "Author.Date_format, " & strDbTable & "Author.Time_offset, " & strDbTable & "Author.Time_offset_hours, " & strDbTable & "Author.Reply_notify, " & strDbTable & "Author.Attach_signature, " & strDbTable & "Author.Rich_editor, " & strDbTable & "Author.Last_visit "
strSQL = strSQL & "FROM " & strDbTable & "Author "
strSQL = strSQL & "WHERE " & strDbTable & "Author.User_code = '" & strLoggedInUserCode & "';"
End If
'Query the database
rsCommon.Open strSQL, adoCon
'If the database has returned a record then run next bit
If NOT rsCommon.EOF Then
'Read in the users details from the recordset
strLoggedInUsername = rsCommon("Username")
intGroupID = rsCommon("Group_ID")
lngLoggedInUserID = CLng(rsCommon("Author_ID"))
blnActiveMember = CBool(rsCommon("Active"))
strDateFormat = rsCommon("Date_format")
strTimeOffSet = rsCommon("Time_offset")
intTimeOffSet = CInt(rsCommon("Time_offset_hours"))
blnReplyNotify = CBool(rsCommon("Reply_notify"))
blnAttachSignature = CBool(rsCommon("Attach_signature"))
blnWYSIWYGEditor = CBool(rsCommon("Rich_editor"))
strLoggedInUserEmail = rsCommon("Author_Email")
If rsCommon("Signature") <> Trim("") Then blnLoggedInUserSignature = True
'See if the user has entered an email address
If strLoggedInUserEmail <> Trim("") Then blnLoggedInUserEmail = True
'Read in the Last Visit Date for the user from the db if we haven't already
If Session("ViRead") = "" Then
If isDate(rsCommon("Last_visit")) Then Session("dtmLastVisit") = CDate(rsCommon("Last_visit"))
Session("ViRead") = True
End If
'Check that there is a last visit date in the db or we will get an error
If isDate(rsCommon("Last_visit")) Then
'If the Last Visit date in the db is older than 5 minutes for the user then update it
If CDate(rsCommon("Last_visit")) < DateAdd("n", -5, Now()) Then
'Initilse sql statement
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "UpdateLasVisit @lngUserID = " & lngLoggedInUserID
Else
strSQL = "UPDATE " & strDbTable & "Author SET " & strDbTable & "Author.Last_visit = Now() WHERE " & strDbTable & "Author.Author_ID=" & lngLoggedInUserID & ";"
End If
'Write to database
adoCon.Execute(strSQL)
End If
'Else there is no date already in db for the last time this visitor came to the site so update db
Else
'Initilse sql statement
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "UpdateLasVisit @lngUserID = " & lngLoggedInUserID
Else
strSQL = "UPDATE " & strDbTable & "Author SET " & strDbTable & "Author.Last_visit=Now() WHERE " & strDbTable & "Author.Author_ID=" & lngLoggedInUserID & ";"
End If
'Write to database
adoCon.Execute(strSQL)
End If
'If the members account is not active then set there group to 2 (Guest Group)
If blnActiveMember = False Then intGroupID = 2
'Set the Guest boolean to false
blnGuest = False
End If
'Clean up
rsCommon.Close
End If
'Make sure the main admin account remains active and full access rights and in the admin group
If lngLoggedInUserID = 1 Then
intGroupID = 1
blnActiveMember = True
End If
'If in the admin group set the admin boolean to true
If intGroupID = 1 Then blnAdmin = True
'If active users is on update the table
If blnActiveUsers Then
%><%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Guide - Web Wiz Forums
'**
'** Copyright 2001-2005 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
'**
'****************************************************************************************
'Array dimension lookup table
' 0 = IP
' 1 = Author ID
' 2 = Username
' 3 = Login Time
' 4 = Last Active Time
' 5 = OS
' 6 = Browser
' 7 = Hids user details
'Dimension variables
Dim strIPAddress 'Holds the uesrs IP address to keep track of em with
Dim strOS 'Holds the users OS
Dim strBrowserUserType 'Holds the users browser type
Dim blnHideActiveUser 'Holds if the user wants to be shown in the active users list
Dim saryActiveUsers 'Holds the active users array
Dim intArrayPass 'Holds array iteration possition
Dim blnIPFound 'Set to true if the users IP is found
Dim intActiveUserArrayPos 'Holds the possition in the array the user is found
Dim intActiveUsersDblArrayPos 'Holds the array position if the user is found more than once in the array
'******************************************
'*** Initialise variables ***
'******************************************
'Initialise variables
blnIPFound = False
'Get the users IP address
strIPAddress = getIP()
'Get the uesrs web browser
strBrowserUserType = BrowserType()
'Get the OS type
strOS = OSType()
'Get if the user wants to be shown in the active users list
If Request.Cookies(strCookieName)("NS") = "1" Then
blnHideActiveUser = 1
Else
blnHideActiveUser = 0
End If
'******************************************
'*** Initialise array ***
'******************************************
'Initialise the array from the application veriable
If IsArray(Application("saryAppActiveUsers")) Then
'Place the application level active users array into a temporary dynaimic array
saryActiveUsers = Application("saryAppActiveUsers")
'Else Initialise the an empty array
Else
ReDim saryActiveUsers(7,1)
End If
'******************************************
'*** Get users array position ***
'******************************************
'Iterate through the array to see if the user is already in the array
For intArrayPass = 1 To UBound(saryActiveUsers, 2)
'Check the IP address
If saryActiveUsers(0, intArrayPass) = strIPAddress Then
intActiveUserArrayPos = intArrayPass
blnIPFound = True
'Else check a logged in member is not a double entry
ElseIf saryActiveUsers(1, intArrayPass) = lngLoggedInUserID AND saryActiveUsers(1, intArrayPass) <> 2 Then
intActiveUsersDblArrayPos = intArrayPass
End If
Next
'******************************************
'*** Update users array position ***
'******************************************
'If the user is found in the array update the array position
If blnIPFound Then
saryActiveUsers(1, intActiveUserArrayPos) = lngLoggedInUserID
saryActiveUsers(2, intActiveUserArrayPos) = strLoggedInUsername
saryActiveUsers(4, intActiveUserArrayPos) = internationalDateTime()
saryActiveUsers(7, intActiveUserArrayPos) = blnHideActiveUser
'******************************************
'*** Add new user to array ***
'******************************************
'Else the user is not in the array so create a new array psition
Else
'Get the uesrs web browser
strBrowserUserType = BrowserType()
'Get the OS type
strOS = OSType()
'ReDimesion the array
ReDim Preserve saryActiveUsers(7, UBound(saryActiveUsers, 2) + 1)
'Update the new array position which will be the last one
saryActiveUsers(0, UBound(saryActiveUsers, 2)) = strIPAddress
saryActiveUsers(1, UBound(saryActiveUsers, 2)) = lngLoggedInUserID
saryActiveUsers(2, UBound(saryActiveUsers, 2)) = strLoggedInUsername
saryActiveUsers(3, UBound(saryActiveUsers, 2)) = internationalDateTime()
saryActiveUsers(4, UBound(saryActiveUsers, 2)) = internationalDateTime()
saryActiveUsers(5, UBound(saryActiveUsers, 2)) = strOS
saryActiveUsers(6, UBound(saryActiveUsers, 2)) = strBrowserUserType
saryActiveUsers(7, UBound(saryActiveUsers, 2)) = blnHideActiveUser
End If
'******************************************
'*** Remove unactive users ***
'******************************************
'Iterate through the array to remove old entires and double entries
For intArrayPass = 1 To UBound(saryActiveUsers, 2)
'Check the IP address and last active time less than 10 minutes
If CDate(saryActiveUsers(4, intArrayPass)) < DateAdd("n", -10, Now()) OR intActiveUsersDblArrayPos = intArrayPass Then
'Swap this array postion with the last in the array
saryActiveUsers(0, intArrayPass) = saryActiveUsers(0, UBound(saryActiveUsers, 2))
saryActiveUsers(1, intArrayPass) = saryActiveUsers(1, UBound(saryActiveUsers, 2))
saryActiveUsers(2, intArrayPass) = saryActiveUsers(2, UBound(saryActiveUsers, 2))
saryActiveUsers(3, intArrayPass) = saryActiveUsers(3, UBound(saryActiveUsers, 2))
saryActiveUsers(4, intArrayPass) = saryActiveUsers(4, UBound(saryActiveUsers, 2))
saryActiveUsers(5, intArrayPass) = saryActiveUsers(5, UBound(saryActiveUsers, 2))
saryActiveUsers(6, intArrayPass) = saryActiveUsers(6, UBound(saryActiveUsers, 2))
saryActiveUsers(7, intArrayPass) = saryActiveUsers(7, UBound(saryActiveUsers, 2))
'Remove the last array position as it is no-longer needed
ReDim Preserve saryActiveUsers(7, UBound(saryActiveUsers, 2) - 1)
'Exit for loop to prevent errors
Exit For
End If
Next
'******************************************
'*** Update application level array ***
'******************************************
'Update the application level variable holding the active users array
'Lock the application so that no other user can try and update the application level variable at the same time
Application.Lock
'Update the application level variable
Application("saryAppActiveUsers") = saryActiveUsers
'Unlock the application
Application.UnLock
%><%
End If
%>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Guide - Web Wiz Forums
'**
'** Copyright 2001-2005 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
'**
'****************************************************************************************
'******************************************
'*** Create Usercode *****
'******************************************
Private Function userCode(ByVal strUsername)
'Randomise the system timer
Randomize Timer
'Calculate a code for the user
strUserCode = strUsername & hexValue(10)
'Make the usercode SQL safe
strUserCode = formatSQLInput(strUserCode)
'Replace double quote with single in this intance
strUserCode = Replace(strUserCode, "''", "'", 1, -1, 1)
'Return the function
userCode = strUserCode
End Function
'******************************************
'*** Random Hex Generator ****
'******************************************
Private Function hexValue(ByVal intHexLength)
Dim intLoopCounter
Dim strHexValue
'Randomise the system timer
Randomize Timer()
'Generate a hex value
For intLoopCounter = 1 to intHexLength
'Genreate a radom decimal value form 0 to 15
intHexLength = CInt(Rnd * 1000) Mod 16
'Turn the number into a hex value
Select Case intHexLength
Case 1
strHexValue = "1"
Case 2
strHexValue = "2"
Case 3
strHexValue = "3"
Case 4
strHexValue = "4"
Case 5
strHexValue = "5"
Case 6
strHexValue = "6"
Case 7
strHexValue = "7"
Case 8
strHexValue = "8"
Case 9
strHexValue = "9"
Case 10
strHexValue = "A"
Case 11
strHexValue = "B"
Case 12
strHexValue = "C"
Case 13
strHexValue = "D"
Case 14
strHexValue = "E"
Case 15
strHexValue = "F"
Case Else
strHexValue = "Z"
End Select
'Place the hex value into the return string
hexValue = hexValue & strHexValue
Next
End Function
'********************************************
'*** Rich Text Compatible Browser type *****
'********************************************
Private Function RTEenabled()
Dim strUserAgent 'Holds info on the users browser
'Get the users HTTP user agent (web browser)
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
'*************************************
'***** Windows Internet Explorer *****
'*************************************
'See if the user agent is IE on Winows and not Opera trying to look like IE
If InStr(1, strUserAgent, "MSIE", 1) > 0 AND InStr(1, strUserAgent, "Win", 1) > 0 AND InStr(1, strUserAgent, "Opera", 1) = 0 Then
'Now we know this is Windows IE we need to see if the version number is 5
If Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "MSIE", 1)+5), 1)) = "5" Then
RTEenabled = "winIE5"
'Now we know this is Windows IE we need to see if the version number is above 5
ElseIf CInt(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "MSIE", 1)+5), 1))) => 6 Then
RTEenabled = "winIE"
'Else the IE version is below 5 so return na
Else
RTEenabled = "false"
End If
'****************************
'***** Mozilla Firebird *****
'****************************
'See if this is a version of Mozilla Firebird that supports Rich Text Editing under it's Midas API
ElseIf inStr(1, strUserAgent, "Firebird", 1) Then
'Now we know this is Mozilla Firebird we need to see if the version 0.6.1 or above; relase date is above 2003/07/28
If CLng(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "Gecko/", 1)+6), 8))) => 20030728 Then
RTEenabled = "Gecko"
'Else the Mozilla Firebird version is below 1.5 so return false
Else
RTEenabled = "false"
End If
'**********************************************
'***** Mozilla Firefox/Seamonkey/Netscape *****
'**********************************************
'See if this is a version of Mozilla/Netscape that supports Rich Text Editing under it's Midas API
ElseIf inStr(1, strUserAgent, "Gecko", 1) > 0 AND inStr(1, strUserAgent, "Firebird", 1) = 0 AND isNumeric(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "Gecko/", 1)+6), 8))) Then
'Now we know this is Mozilla/Netscape we need to see if the version number is above 1.3 or above; relase date is above 2003/03/12
If CLng(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "Gecko/", 1)+6), 8))) => 20030312 Then
RTEenabled = "Gecko"
'Else the Mozilla version is below 1.3 or below 7.1 of Netscape so return false
Else
RTEenabled = "false"
End If
'***********************************
'***** Non RTE Enabled Browser *****
'***********************************
'Else this is a browser that does not support Rich Text Editing
Else
'RTEenabled - false
RTEenabled = "false"
End If
End Function
'******************************************
'*** Get Web Browser Details *****
'******************************************
Private Function BrowserType()
Dim strUserAgent 'Holds info on the users browser and os
Dim strBrowserUserType 'Holds the users browser type
'Get the users HTTP user agent (web browser)
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
'Get the uesrs web browser
'Opera
If InStr(1, strUserAgent, "Opera 1", 1) > 0 Then
strBrowserUserType = "Opera 1"
ElseIf InStr(1, strUserAgent, "Opera 2", 1) > 0 Then
strBrowserUserType = "Opera 2"
ElseIf InStr(1, strUserAgent, "Opera 3", 1) > 0 Then
strBrowserUserType = "Opera 3"
ElseIf InStr(1, strUserAgent, "Opera 4", 1) > 0 Then
strBrowserUserType = "Opera 4"
ElseIf InStr(1, strUserAgent, "Opera 5", 1) > 0 Then
strBrowserUserType = "Opera 5"
ElseIf InStr(1, strUserAgent, "Opera 6", 1) > 0 Then
strBrowserUserType = "Opera 6"
ElseIf InStr(1, strUserAgent, "Opera 7", 1) > 0 Then
strBrowserUserType = "Opera 7"
ElseIf InStr(1, strUserAgent, "Opera 8", 1) > 0 Then
strBrowserUserType = "Opera 8"
ElseIf InStr(1, strUserAgent, "Opera", 1) > 0 Then
strBrowserUserType = "Opera"
'AOL
ElseIf inStr(1, strUserAgent, "AOL 3", 1) > 0 Then
strBrowserUserType = "AOL 3"
ElseIf inStr(1, strUserAgent, "AOL 4", 1) > 0 Then
strBrowserUserType = "AOL 4"
ElseIf inStr(1, strUserAgent, "AOL 5", 1) > 0 Then
strBrowserUserType = "AOL 5"
ElseIf inStr(1, strUserAgent, "AOL 6", 1) > 0 Then
strBrowserUserType = "AOL 6"
ElseIf inStr(1, strUserAgent, "AOL 7", 1) > 0 Then
strBrowserUserType = "AOL 7"
ElseIf inStr(1, strUserAgent, "AOL 8", 1) > 0 Then
strBrowserUserType = "AOL 8"
ElseIf inStr(1, strUserAgent, "AOL 9", 1) > 0 Then
strBrowserUserType = "AOL 9"
ElseIf inStr(1, strUserAgent, "AOL", 1) > 0 Then
strBrowserUserType = "AOL"
'Konqueror
ElseIf inStr(1, strUserAgent, "Konqueror", 1) > 0 Then
strBrowserUserType = "Konqueror"
'EudoraWeb
ElseIf inStr(1, strUserAgent, "EudoraWeb", 1) > 0 Then
strBrowserUserType = "EudoraWeb"
'Dreamcast
ElseIf inStr(1, strUserAgent, "Dreamcast", 1) > 0 Then
strBrowserUserType = "Dreamcast"
'Safari
ElseIf inStr(1, strUserAgent, "Safari", 1) > 0 Then
strBrowserUserType = "Safari"
'Lynx
ElseIf inStr(1, strUserAgent, "Lynx", 1) > 0 Then
strBrowserUserType = "Lynx"
'ICE
ElseIf inStr(1, strUserAgent, "ICE", 1) > 0 Then
strBrowserUserType = "ICE"
'iCab
ElseIf inStr(1, strUserAgent, "iCab", 1) > 0 Then
strBrowserUserType = "iCab"
'HotJava
ElseIf inStr(1, strUserAgent, "Sun", 1) > 0 AND inStr(1, strUserAgent, "Mozilla/3", 1) > 0 Then
strBrowserUserType = "HotJava"
'Galeon
ElseIf inStr(1, strUserAgent, "Galeon", 1) > 0 Then
strBrowserUserType = "Galeon"
'Epiphany
ElseIf inStr(1, strUserAgent, "Epiphany", 1) > 0 Then
strBrowserUserType = "Epiphany"
'DocZilla
ElseIf inStr(1, strUserAgent, "DocZilla", 1) > 0 Then
strBrowserUserType = "DocZilla"
'Camino
ElseIf inStr(1, strUserAgent, "Chimera", 1) > 0 OR inStr(1, strUserAgent, "Camino", 1) > 0 Then
strBrowserUserType = "Camino"
'Dillo
ElseIf inStr(1, strUserAgent, "Dillo", 1) > 0 Then
strBrowserUserType = "Dillo"
'amaya
ElseIf inStr(1, strUserAgent, "amaya", 1) > 0 Then
strBrowserUserType = "Amaya"
'NetCaptor
ElseIf inStr(1, strUserAgent, "NetCaptor", 1) > 0 Then
strBrowserUserType = "NetCaptor"
'LookSmart search engine robot
ElseIf inStr(1, strUserAgent, "ZyBorg", 1) > 0 Then
strBrowserUserType = "LookSmart"
'Googlebot search engine robot
ElseIf inStr(1, strUserAgent, "Googlebot", 1) > 0 Then
strBrowserUserType = "Googlebot"
'MSN search engine robot
ElseIf inStr(1, strUserAgent, "msnbot", 1) > 0 Then
strBrowserUserType = "MSN"
'inktomi search engine robot
ElseIf inStr(1, strUserAgent, "slurp", 1) > 0 Then
strBrowserUserType = "Inktomi"
'AltaVista search engine robot
ElseIf inStr(1, strUserAgent, "Scooter", 1) > 0 Then
strBrowserUserType = "AltaVista"
'DMOZ search engine robot
ElseIf inStr(1, strUserAgent, "Robozilla", 1) > 0 Then
strBrowserUserType = "DMOZ"
'Ask Jeeves search engine robot
ElseIf inStr(1, strUserAgent, "Ask Jeeves", 1) > 0 OR inStr(1, strUserAgent, "Ask+Jeeves", 1) > 0 Then
strBrowserUserType = "Ask Jeeves"
'Lycos search engine robot
ElseIf inStr(1, strUserAgent, "lycos", 1) > 0 Then
strBrowserUserType = "Lycos"
'Excite search engine robot
ElseIf inStr(1, strUserAgent, "ArchitextSpider", 1) > 0 Then
strBrowserUserType = "Excite"
'Northernlight search engine robot
ElseIf inStr(1, strUserAgent, "Gulliver", 1) > 0 Then
strBrowserUserType = "Northernlight"
'AllTheWeb search engine robot
ElseIf inStr(1, strUserAgent, "crawler@fast", 1) > 0 Then
strBrowserUserType = "AllTheWeb"
'Turnitin search engine robot
ElseIf inStr(1, strUserAgent, "TurnitinBot", 1) > 0 Then
strBrowserUserType = "Turnitin"
'InternetSeer search engine robot
ElseIf inStr(1, strUserAgent, "internetseer", 1) > 0 Then
strBrowserUserType = "InternetSeer"
'NameProtect Inc. search engine robot
ElseIf inStr(1, strUserAgent, "nameprotect", 1) > 0 Then
strBrowserUserType = "NameProtect"
'PhpDig search engine robot
ElseIf inStr(1, strUserAgent, "PhpDig", 1) > 0 Then
strBrowserUserType = "PhpDig"
'Rambler search engine robot
ElseIf inStr(1, strUserAgent, "StackRambler", 1) > 0 Then
strBrowserUserType = "Rambler"
'UbiCrawler search engine robot
ElseIf inStr(1, strUserAgent, "UbiCrawler", 1) > 0 Then
strBrowserUserType = "UbiCrawler"
'entireweb search engine robot
ElseIf inStr(1, strUserAgent, "Speedy+Spider", 1) > 0 Then
strBrowserUserType = "entireweb"
'Alexa.com search engine robot
ElseIf inStr(1, strUserAgent, "ia_archiver", 1) > 0 Then
strBrowserUserType = "Alexa"
'Arianna/Libero search engine robot
ElseIf inStr(1, strUserAgent, "arianna.libero.it", 1) > 0 Then
strBrowserUserType = "Arianna/Libero"
'Internet Explorer
ElseIf inStr(1, strUserAgent, "MSIE 7", 1) > 0 Then
strBrowserUserType = "Microsoft IE 7"
ElseIf inStr(1, strUserAgent, "MSIE 6", 1) > 0 Then
strBrowserUserType = "Microsoft IE 6"
ElseIf inStr(1, strUserAgent, "MSIE 5", 1) > 0 Then
strBrowserUserType = "Microsoft IE 5"
ElseIf inStr(1, strUserAgent, "MSIE 4", 1) > 0 Then
strBrowserUserType = "Microsoft IE 4"
ElseIf inStr(1, strUserAgent, "MSIE 3", 1) > 0 Then
strBrowserUserType = "Microsoft IE 3"
ElseIf inStr(1, strUserAgent, "MSIE 2", 1) > 0 Then
strBrowserUserType = "Microsoft IE 2"
ElseIf inStr(1, strUserAgent, "MSIE 1", 1) > 0 Then
strBrowserUserType = "Microsoft IE 1"
'Pocket Internet Explorer
ElseIf inStr(1, strUserAgent, "MSPIE 1", 1) > 0 Then
strBrowserUserType = "Pocket IE 1"
ElseIf inStr(1, strUserAgent, "MSPIE 1", 1) > 0 Then
strBrowserUserType = "Pocket IE 2"
'Mozilla Firefox
ElseIf inStr(1, strUserAgent, "Gecko", 1) > 0 AND inStr(1, strUserAgent, "Firefox", 1) > 0 Then
strBrowserUserType = "Mozilla Firefox"
'Mozilla Firebird
ElseIf inStr(1, strUserAgent, "Gecko", 1) > 0 AND inStr(1, strUserAgent, "Firebird", 1) > 0 Then
strBrowserUserType = "Mozilla Firebird"
'Mozilla
ElseIf inStr(1, strUserAgent, "Gecko", 1) > 0 AND inStr(1, strUserAgent, "rv:2", 1) > 0 AND inStr(1, strUserAgent, "Netscape", 1) = 0 Then
strBrowserUserType = "Mozilla 2"
ElseIf inStr(1, strUserAgent, "Gecko", 1) > 0 AND inStr(1, strUserAgent, "rv:1", 1) > 0 AND inStr(1, strUserAgent, "Netscape", 1) = 0 Then
strBrowserUserType = "Mozilla 1"
ElseIf inStr(1, strUserAgent, "Gecko", 1) > 0 AND inStr(1, strUserAgent, "rv:0", 1) > 0 AND inStr(1, strUserAgent, "Netscape", 1) = 0 Then
strBrowserUserType = "Mozilla"
'Netscape
ElseIf inStr(1, strUserAgent, "Netscape/8", 1) > 0 Then
strBrowserUserType = "Netscape 8"
ElseIf inStr(1, strUserAgent, "Netscape/7", 1) > 0 Then
strBrowserUserType = "Netscape 7"
ElseIf inStr(1, strUserAgent, "Netscape6", 1) > 0 Then
strBrowserUserType = "Netscape 6"
ElseIf inStr(1, strUserAgent, "Mozilla/4", 1) > 0 Then
strBrowserUserType = "Netscape 4"
ElseIf inStr(1, strUserAgent, "Mozilla/3", 1) > 0 Then
strBrowserUserType = "Netscape 3"
ElseIf inStr(1, strUserAgent, "Mozilla/2", 1) > 0 Then
strBrowserUserType = "Netscape 2"
ElseIf inStr(1, strUserAgent, "Mozilla/1", 1) > 0 Then
strBrowserUserType = "Netscape 1"
'Else unknown or robot
Else
strBrowserUserType = "Unknown"
End If
'Return function
BrowserType = strBrowserUserType
End Function
'******************************************
'*** Get OS Type *****
'******************************************
Private Function OSType ()
Dim strUserAgent 'Holds info on the users browser and os
Dim strOS 'Holds the users OS
'Get the users HTTP user agent (web browser)
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
'Get users OS
'Windows
If inStr(1, strUserAgent, "Windows 2003", 1) > 0 Or inStr(1, strUserAgent, "NT 5.2", 1) > 0 Then
strOS = "Windows 2003"
ElseIf inStr(1, strUserAgent, "Windows XP", 1) > 0 Or inStr(1, strUserAgent, "NT 5.1", 1) > 0 Then
strOS = "Windows XP"
ElseIf inStr(1, strUserAgent, "Windows 2000", 1) > 0 Or inStr(1, strUserAgent, "NT 5", 1) > 0 Then
strOS = "Windows 2000"
ElseIf inStr(1, strUserAgent, "Windows NT", 1) > 0 Or inStr(1, strUserAgent, "WinNT", 1) > 0 Then
strOS = "Windows NT 4"
ElseIf inStr(1, strUserAgent, "Windows 95", 1) > 0 Or inStr(1, strUserAgent, "Win95", 1) > 0 Then
strOS = "Windows 95"
ElseIf inStr(1, strUserAgent, "Windows ME", 1) > 0 Or inStr(1, strUserAgent, "Win 9x 4.90", 1) > 0 Then
strOS = "Windows ME"
ElseIf inStr(1, strUserAgent, "Windows 98", 1) > 0 Or inStr(1, strUserAgent, "Win98", 1) > 0 Then
strOS = "Windows 98"
ElseIf Instr(1, strUserAgent, "Windows 3.1", 1) > 0 or Instr(1, strUserAgent, "Win16", 1) > 0 Then
strOS = "Windows 3.x"
ElseIf Instr(1, strUserAgent, "Windows CE", 1) > 0 Then
strOS = "Windows CE"
'PalmOS
ElseIf inStr(1, strUserAgent, "PalmOS", 1) > 0 Then
strOS = "Palm OS"
'PalmPilot
ElseIf inStr(1, strUserAgent, "Elaine", 1) > 0 Then
strOS = "PalmPilot"
'Nokia
ElseIf inStr(1, strUserAgent, "Nokia", 1) > 0 Then
strOS = "Nokia"
'Linux
ElseIf inStr(1, strUserAgent, "Linux", 1) > 0 Then
strOS = "Linux"
'Amiga
ElseIf inStr(1, strUserAgent, "Amiga", 1) > 0 Then
strOS = "Amiga"
'Solaris
ElseIf inStr(1, strUserAgent, "Solaris", 1) > 0 Then
strOS = "Solaris"
'SunOS
ElseIf inStr(1, strUserAgent, "SunOS", 1) > 0 Then
strOS = "Sun OS"
'BSD
ElseIf inStr(1, strUserAgent, "BSD", 1) > 0 or inStr(1, strUserAgent, "FreeBSD", 1) > 0 Then
strOS = "Free BSD"
'Unix
ElseIf inStr(1, strUserAgent, "Unix", 1) > 0 OR inStr(1, strUserAgent, "X11", 1) > 0 Then
strOS = "Unix"
'AOL webTV
ElseIf inStr(1, strUserAgent, "AOLTV", 1) > 0 OR inStr(1, strUserAgent, "AOL_TV", 1) > 0 Then
strOS = "AOL TV"
ElseIf inStr(1, strUserAgent, "WebTV", 1) > 0 Then
strOS = "Web TV"
'Machintosh
ElseIf inStr(1, strUserAgent, "Mac OS X", 1) > 0 Then
strOS = "Mac OS X"
ElseIf inStr(1, strUserAgent, "Mac_PowerPC", 1) > 0 or Instr(1, strUserAgent, "PPC", 1) > 0 Then
strOS = "Mac PowerPC"
ElseIf (inStr(1, strUserAgent, "6800", 1) > 0 OR inStr(1, strUserAgent, "68k", 1) > 0) AND inStr(1, strUserAgent, "Mac", 1) > 0 Then
strOS = "Mac 68k"
ElseIf inStr(1, strUserAgent, "Mac", 1) > 0 or inStr(1, strUserAgent, "apple", 1) > 0 Then
strOS = "Macintosh"
'OS/2
ElseIf inStr(1, strUserAgent, "OS/2", 1) > 0 Then
strOS = "OS/2"
'Search Robot
ElseIf inStr(1, strUserAgent, "Googlebot", 1) > 0 OR inStr(1, strUserAgent, "ZyBorg", 1) > 0 OR inStr(1, strUserAgent, "slurp", 1) > 0 OR inStr(1, strUserAgent, "Scooter", 1) > 0 OR inStr(1, strUserAgent, "Robozilla", 1) > 0 OR inStr(1, strUserAgent, "Ask Jeeves", 1) > 0 OR inStr(1, strUserAgent, "Ask+Jeeves", 1) > 0 OR inStr(1, strUserAgent, "lycos", 1) > 0 OR inStr(1, strUserAgent, "ArchitextSpider", 1) > 0 OR inStr(1, strUserAgent, "Gulliver", 1) > 0 OR inStr(1, strUserAgent, "crawler@fast", 1) > 0 Then
strOS = "Search Robot"
'Search Robot
ElseIf inStr(1, strUserAgent, "TurnitinBot", 1) > 0 OR inStr(1, strUserAgent, "internetseer", 1) > 0 OR inStr(1, strUserAgent, "nameprotect", 1) > 0 OR inStr(1, strUserAgent, "PhpDig", 1) > 0 OR inStr(1, strUserAgent, "StackRambler", 1) > 0 OR inStr(1, strUserAgent, "UbiCrawler", 1) > 0 OR inStr(1, strUserAgent, "Speedy+Spider", 1) > 0 OR inStr(1, strUserAgent, "ia_archiver", 1) > 0 OR inStr(1, strUserAgent, "msnbot", 1) > 0 OR inStr(1, strUserAgent, "arianna.libero.it", 1) > 0 Then
strOS = "Search Robot"
Else
strOS = "Unknown"
End If
'Return function
OSType = strOS
End Function
'******************************************
'*** DB Topic/Post Count Update *****
'******************************************
Private Function updateTopicPostCount(ByVal intForumID)
Dim rsCount 'Database recordset holding the number of topics and posts
Dim lngNumberOfTopics 'Holds the number of topics
Dim lngNumberOfPosts 'Holds the number of posts
'Intilaise variables
lngNumberOfTopics = 0
lngNumberOfPosts = 0
'Intialise the ADO recordset object
Set rsCount = Server.CreateObject("ADODB.Recordset")
'Get the number of Topics
'Initalise the strSQL variable with an SQL statement to query the database to count the number of topics in the forums
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "ForumTopicCount @intForumID = " & intForumID
Else
strSQL = "SELECT Count(" & strDbTable & "Topic.Forum_ID) AS Topic_Count "
strSQL = strSQL & "From " & strDbTable & "Topic "
strSQL = strSQL & "WHERE " & strDbTable & "Topic.Forum_ID = " & intForumID & " "
End If
'Query the database
rsCount.Open strSQL, adoCon
'Read in the number of Topics
If NOT rsCount.EOF Then lngNumberOfTopics = CLng(rsCount("Topic_Count"))
'Close the rs
rsCount.Close
'Get the number of Posts
'Initalise the strSQL variable with an SQL statement to query the database to count the number of threads in the forums
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "ForumThreadCount @intForumID = " & intForumID
Else
strSQL = "SELECT Count(" & strDbTable & "Thread.Thread_ID) AS Thread_Count "
strSQL = strSQL & "FROM " & strDbTable & "Topic INNER JOIN " & strDbTable & "Thread ON " & strDbTable & "Topic.Topic_ID = " & strDbTable & "Thread.Topic_ID "
strSQL = strSQL & "GROUP BY " & strDbTable & "Topic.Forum_ID "
strSQL = strSQL & "HAVING (((" & strDbTable & "Topic.Forum_ID)=" & intForumID & "));"
End If
'Query the database
rsCount.Open strSQL, adoCon
'Get the thread count
If NOT rsCount.EOF Then lngNumberOfPosts = CLng(rsCount("Thread_Count"))
'Reset server variables
rsCount.Close
Set rsCount = Nothing
'Initalise the SQL string with an SQL update command to update the number of topics and posts in the forum
strSQL = "UPDATE " & strDbTable & "Forum SET "
strSQL = strSQL & "" & strDbTable & "Forum.No_of_topics = " & lngNumberOfTopics & ", " & strDbTable & "Forum.No_of_posts = " & lngNumberOfPosts
strSQL = strSQL & " WHERE " & strDbTable & "Forum.Forum_ID= " & intForumID & ";"
'Write the updated number of posts to the database
adoCon.Execute(strSQL)
End Function
'******************************************
'*** Forum Permisisons *****
'******************************************
Public Function forumPermisisons(ByVal intForumID, ByVal intGroupID, ByVal intRead, ByVal intPost, ByVal intReply, ByVal intEdit, ByVal intDelete, ByVal intPriority, ByVal intPollCreate, ByVal intVote, ByVal intAttachments, ByVal intImageUpload)
'Declare variables
Dim rsPermissions 'Holds the permissions recordset
'Initilise variables
blnRead = False
blnPost = False
blnReply = False
blnEdit = False
blnDelete = False
blnPriority = False
blnPollCreate = False
blnVote = False
blnAttachments = False
blnImageUpload = False
blnModerator = False
'Intialise the ADO recordset object
Set rsPermissions = Server.CreateObject("ADODB.Recordset")
'Get the users group permissions from the db if there are any
'Initalise the strSQL variable with an SQL statement to query the database to count the number of topics in the forums
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "ForumPermissions @intForumID = " & intForumID & ", @intGroupID = " & intGroupID & ", @intAuthorID = " & lngLoggedInUserID
Else
strSQL = "SELECT " & strDbTable & "Permissions.* "
strSQL = strSQL & "FROM " & strDbTable & "Permissions "
strSQL = strSQL & "WHERE (" & strDbTable & "Permissions.Group_ID = " & intGroupID & " OR " & strDbTable & "Permissions.Author_ID = " & lngLoggedInUserID & ") AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & " "
strSQL = strSQL & "ORDER BY " & strDbTable & "Permissions.Author_ID DESC;"
End If
'Query the database
rsPermissions.Open strSQL, adoCon
'Read in the permissions for the group the member is part of if there are any
If NOT rsPermissions.EOF Then
blnRead = CBool(rsPermissions("Read"))
blnPost = CBool(rsPermissions("Post"))
blnReply = CBool(rsPermissions("Reply_posts"))
blnEdit = CBool(rsPermissions("Edit_posts"))
blnDelete = CBool(rsPermissions("Delete_posts"))
blnPriority = CBool(rsPermissions("Priority_posts"))
blnPollCreate = CBool(rsPermissions("Poll_create"))
blnVote = CBool(rsPermissions("Vote"))
blnAttachments = CBool(rsPermissions("Attachments"))
blnImageUpload = CBool(rsPermissions("Image_upload"))
blnModerator = CBool(rsPermissions("Moderate"))
'Else there are no forum permissions for this group so use the generic forum permissions
Else
'If ALL(1) OR (REG(2) AND NOT GID2(Guest Group)) OR (Admin(5) AND GID1(Admin Group)) Then set to true
If intRead = 1 OR (intRead = 2 AND intGroupID <> 2) OR (blnAdmin) Then blnRead = True
If intPost = 1 OR (intPost = 2 AND intGroupID <> 2) OR (blnAdmin) Then blnPost = True
If intReply = 1 OR (intReply = 2 AND intGroupID <> 2) OR (blnAdmin) Then blnReply = True
If intEdit = 1 OR (intEdit = 2 AND intGroupID <> 2) OR (blnAdmin) Then blnEdit = True
If intDelete = 1 OR (intDelete = 2 AND intGroupID <> 2) OR (blnAdmin) Then blnDelete = True
If intPriority = 1 OR (intPriority = 2 AND intGroupID <> 2) OR (blnAdmin) Then blnPriority = True
If (intPollCreate = 1 OR (intPollCreate = 2 AND intGroupID <> 2) OR (blnAdmin)) AND intPollCreate <> 0 Then blnPollCreate = True
If (intVote = 1 OR (intVote = 2 AND intGroupID <> 2) OR (blnAdmin)) AND intVote <> 0 Then blnVote = True
If (intAttachments = 1 OR (intAttachments = 2 AND intGroupID <> 2) OR (blnAdmin)) AND intAttachments <> 0 Then blnAttachments = True
If (intImageUpload = 1 OR (intImageUpload = 2 AND intGroupID <> 2) OR (blnAdmin)) AND intImageUpload <> 0 Then blnImageUpload = True
End If
'Clean up
rsPermissions.Close
Set rsPermissions = Nothing
End Function
'******************************************
'*** Is Moderator *****
'******************************************
'Although the above function can work out if the user is a moderator sometimes we only need to know if the user is a moderator or not
Private Function isModerator(ByVal intForumID, ByVal intGroupID)
'Declare variables
Dim rsPermissions 'Holds the permissions recordset
Dim blnModerator 'Set to true if the user is a moderator
'Initilise vairiables
blnModerator = False
'Intialise the ADO recordset object
Set rsPermissions = Server.CreateObject("ADODB.Recordset")
'Get the users group permissions from the db if there are any
'Initalise the strSQL variable with an SQL statement to query the database to count the number of topics in the forums
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "ForumPermissions @intForumID = " & intForumID & ", @intGroupID = " & intGroupID & ", @intAuthorID = " & lngLoggedInUserID
Else
strSQL = "SELECT " & strDbTable & "Permissions.* "
strSQL = strSQL & "FROM " & strDbTable & "Permissions "
strSQL = strSQL & "WHERE (" & strDbTable & "Permissions.Group_ID = " & intGroupID & " OR " & strDbTable & "Permissions.Author_ID = " & lngLoggedInUserID & ") AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & " "
strSQL = strSQL & "ORDER BY " & strDbTable & "Permissions.Author_ID DESC;"
End If
'Query the database
rsPermissions.Open strSQL, adoCon
'If there is a result returned by the db set it to the blnModerator variable
If NOT rsPermissions.EOF Then blnModerator = CBool(rsPermissions("Moderate"))
'Clean up
rsPermissions.Close
Set rsPermissions = Nothing
'Return the function
isModerator = blnModerator
End Function
'******************************************
'*** Disallowed Member Names *****
'******************************************
Private Function disallowedMemberNames(ByVal strUserName)
strUsername = Replace(strUsername, "salt", "", 1, -1, 1)
strUsername = Replace(strUsername, "password", "", 1, -1, 1)
strUsername = Replace(strUsername, "author", "", 1, -1, 1)
strUsername = Replace(strUsername, "code", "", 1, -1, 1)
strUsername = Replace(strUsername, "username", "", 1, -1, 1)
strUsername = Replace(strUsername, "N0act", "", 1, -1, 1)
'Return Function
disallowedMemberNames = strUsername
End Function
'******************************************
'**** Banned IP's *****
'******************************************
Private Function bannedIP()
'Declare variables
Dim rsIPAddr
Dim strCheckIPAddress
Dim strUserIPAddress
Dim blnIPMatched
'Intilise variable
blnIPMatched = False
'Get the users IP
strUserIPAddress = getIP()
'Intialise the ADO recordset object
Set rsIPAddr = Server.CreateObject("ADODB.Recordset")
'Get any banned IP address from the database
'Initalise the strSQL variable with an SQL statement to query the database to count the number of topics in the forums
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "BannedIPs"
Else
strSQL = "SELECT " & strDbTable & "BanList.IP FROM " & strDbTable & "BanList WHERE " & strDbTable & "BanList.IP Is Not Null;"
End If
'Query the database
rsIPAddr.Open strSQL, adoCon
'Loop through the IP address and check 'em out
Do while NOT rsIPAddr.EOF
'Get the IP address to check from the recordset
strCheckIPAddress = rsIPAddr("IP")
'See if we need to check the IP range or just one IP address
'If the last character is a * then this is a wildcard range to be checked
If Right(strCheckIPAddress, 1) = "*" Then
'Remove the wildcard charcter form the IP
strCheckIPAddress = Replace(strCheckIPAddress, "*", "", 1, -1, 1)
'Trim the users IP to the same length as the IP range to check
strUserIPAddress = Mid(strUserIPAddress, 1, Len(strCheckIPAddress))
'See if whats left of the IP matches
If strCheckIPAddress = strUserIPAddress Then blnIPMatched = True
'Else check the IP address metches
Else
'Else check to see if the IP address match
If strCheckIPAddress = strUserIPAddress Then blnIPMatched = True
End If
'Move to the next record
rsIPAddr.MoveNext
Loop
'Clean up
rsIPAddr.Close
Set rsIPAddr = Nothing
'Return the function
bannedIP = blnIPMatched
End Function
'******************************************
'*** Check the session ID ***
'******************************************
Private Function checkSessionID(lngAspSessionID)
'Check to see if the session ID's match if they don't send the user away
If lngAspSessionID <> Session.SessionID Then
'clean up before redirecting
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
'redirect to insufficient permissions page
Response.Redirect("insufficient_permission.asp?FID=" & intForumID & "&M=sID")
End If
End Function
'******************************************
'*** Get users IP address ***
'******************************************
Private Function getIP()
Dim strIPAddr
'If they are not going through a proxy get the IP address
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
'If they are going through multiple proxy servers only get the fisrt IP address in the list (,)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
'If they are going through multiple proxy servers only get the fisrt IP address in the list (;)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
'Get the browsers IP address not the proxy servers IP
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
'Remove all tags in IP string
strIPAddr = removeAllTags(strIPAddr)
'Place the IP address back into the returning function
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
'******************************************
'*** Sort Active Users List ***
'******************************************
'Sub procedure to sort the array using a Bubble Sort to place highest matches first
Private Sub SortActiveUsersList(ByRef saryActiveUsers)
'Dimension variables
Dim intArrayGap 'Holds the part of the array being sorted
Dim intIndexPosition 'Holds the Array index position being sorted
Dim intPassNumber 'Holds the pass number for the sort
Dim saryTempStringStore(7) 'Array to temparily store the position being sorted
'Loop round to sort each result found
For intPassNumber = 1 To UBound(saryActiveUsers, 2)
'Shortens the number of passes
For intIndexPosition = 1 To (UBound(saryActiveUsers, 2) - intPassNumber)
'If the Result being sorted is a less time than the next result in the array then swap them
If saryActiveUsers(4,intIndexPosition) < saryActiveUsers(4,(intIndexPosition+1)) Then
'Place the Result being sorted in a temporary array variable
saryTempStringStore(0) = saryActiveUsers(0,intIndexPosition)
saryTempStringStore(1) = saryActiveUsers(1,intIndexPosition)
saryTempStringStore(2) = saryActiveUsers(2,intIndexPosition)
saryTempStringStore(3) = saryActiveUsers(3,intIndexPosition)
saryTempStringStore(4) = saryActiveUsers(4,intIndexPosition)
saryTempStringStore(5) = saryActiveUsers(5,intIndexPosition)
saryTempStringStore(6) = saryActiveUsers(6,intIndexPosition)
saryTempStringStore(7) = saryActiveUsers(7,intIndexPosition)
'*** Do the array position swap ***
'Move the next Result with a higher match rate into the present array location
saryActiveUsers(0,intIndexPosition) = saryActiveUsers(0,(intIndexPosition+1))
saryActiveUsers(1,intIndexPosition) = saryActiveUsers(1,(intIndexPosition+1))
saryActiveUsers(2,intIndexPosition) = saryActiveUsers(2,(intIndexPosition+1))
saryActiveUsers(3,intIndexPosition) = saryActiveUsers(3,(intIndexPosition+1))
saryActiveUsers(4,intIndexPosition) = saryActiveUsers(4,(intIndexPosition+1))
saryActiveUsers(5,intIndexPosition) = saryActiveUsers(5,(intIndexPosition+1))
saryActiveUsers(6,intIndexPosition) = saryActiveUsers(6,(intIndexPosition+1))
saryActiveUsers(7,intIndexPosition) = saryActiveUsers(7,(intIndexPosition+1))
'Move the Result from the teporary holding variable into the next array position
saryActiveUsers(0,(intIndexPosition+1)) = saryTempStringStore(0)
saryActiveUsers(1,(intIndexPosition+1)) = saryTempStringStore(1)
saryActiveUsers(2,(intIndexPosition+1)) = saryTempStringStore(2)
saryActiveUsers(3,(intIndexPosition+1)) = saryTempStringStore(3)
saryActiveUsers(4,(intIndexPosition+1)) = saryTempStringStore(4)
saryActiveUsers(5,(intIndexPosition+1)) = saryTempStringStore(5)
saryActiveUsers(6,(intIndexPosition+1)) = saryTempStringStore(6)
saryActiveUsers(7,(intIndexPosition+1)) = saryTempStringStore(7)
End If
Next
Next
End Sub
'******************************************
'*** Format International Date/Time ****
'******************************************
'Function to format the present date and time into international formats to prevent systems crashes on foriegn servers
Private Function internationalDateTime()
'This function returns the internation date and time formats:- yyyy-mm-dd hh:mm:ss
'Dashes prevent systems that use periods etc. from crashing
internationalDateTime = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & " " & Hour(Now()) & ":" & Minute(Now())& ":" & Second(Now())
End Function
%>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Guide - Web Wiz Forums
'**
'** Copyright 2001-2005 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
'**
'****************************************************************************************
'**********************************************
'*** Check HTML input for malicious code *****
'**********************************************
'Check images function
Private Function checkHTML(ByVal strMessageInput)
Dim strTempHTMLMessage 'Temporary message store
Dim lngMessagePosition 'Holds the message position
Dim intHTMLTagLength 'Holds the length of the HTML tags
Dim strHTMLMessage 'Holds the HTML message
Dim strTempMessageInput 'Temp store for the message input
Dim lngLoopCounter 'Loop counter
'Include the array of disallowed HTML tags
%><%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Guide - Web Wiz Forums
'**
'** Copyright 2001-2005 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
'**
'****************************************************************************************
'Dimension variables
Dim saryHTMLtags(88) 'If you add more disallowed HTML tags then increase the array size
'Initalise array values
saryHTMLtags(0) = "html"
saryHTMLtags(1) = "body"
saryHTMLtags(2) = "head"
saryHTMLtags(3) = "meta"
saryHTMLtags(4) = "button"
saryHTMLtags(5) = "input"
saryHTMLtags(6) = "type"
saryHTMLtags(7) = "select"
saryHTMLtags(8) = "radio"
saryHTMLtags(9) = "file"
saryHTMLtags(10) = "hidden"
saryHTMLtags(11) = "checkbox"
saryHTMLtags(12) = "password"
saryHTMLtags(13) = "checked"
saryHTMLtags(14) = "fieldset"
saryHTMLtags(15) = "language"
saryHTMLtags(16) = "javascript"
saryHTMLtags(17) = "vbscript"
saryHTMLtags(18) = "script"
saryHTMLtags(19) = "object"
saryHTMLtags(20) = "applet"
saryHTMLtags(21) = "embed"
saryHTMLtags(22) = "event"
saryHTMLtags(23) = "server"
saryHTMLtags(24) = "function"
saryHTMLtags(25) = "document"
saryHTMLtags(26) = "cookie"
saryHTMLtags(27) = "onclick"
saryHTMLtags(28) = "ondblclick"
saryHTMLtags(29) = "onkeyup"
saryHTMLtags(30) = "onkeydown"
saryHTMLtags(31) = "onkeypress"
saryHTMLtags(32) = "onkey"
saryHTMLtags(33) = "onmouseenter"
saryHTMLtags(34) = "onmouseleave"
saryHTMLtags(35) = "onmousemove"
saryHTMLtags(36) = "onmouseout"
saryHTMLtags(37) = "onmouseover"
saryHTMLtags(38) = "onrollover"
saryHTMLtags(39) = "onmouse"
saryHTMLtags(40) = "onchange"
saryHTMLtags(41) = "onunloadhave"
saryHTMLtags(42) = "onunload"
saryHTMLtags(43) = "onsubmit"
saryHTMLtags(44) = "onselect"
saryHTMLtags(45) = "accesskey"
saryHTMLtags(46) = "tabindex"
saryHTMLtags(47) = "onfocus"
saryHTMLtags(48) = "onblur"
saryHTMLtags(49) = "onsubmit"
saryHTMLtags(50) = "onreset"
saryHTMLtags(51) = "form"
saryHTMLtags(52) = "iframe"
saryHTMLtags(53) = "ilayer"
saryHTMLtags(54) = "textarea"
saryHTMLtags(55) = "action"
saryHTMLtags(56) = "enctype"
saryHTMLtags(57) = "layer"
saryHTMLtags(58) = "multicol"
saryHTMLtags(59) = "frameset"
saryHTMLtags(60) = "marquee"
saryHTMLtags(61) = "blink"
saryHTMLtags(62) = "filter"
saryHTMLtags(63) = "overlay"
saryHTMLtags(64) = "param"
saryHTMLtags(65) = "bgsound"
saryHTMLtags(66) = "behavior"
saryHTMLtags(67) = "ismap"
saryHTMLtags(68) = "sound"
saryHTMLtags(69) = "disabled"
saryHTMLtags(70) = "ENCTYPE"
saryHTMLtags(71) = "!DOCTYPE"
saryHTMLtags(72) = "BACKGROUND-COLOR"
saryHTMLtags(73) = "base"
saryHTMLtags(74) = "position" 'Thanks to Aytek Ustundag for his help (HolyOne, http://www.tahribat.com)
saryHTMLtags(75) = "absolute"
saryHTMLtags(76) = "z-index"
saryHTMLtags(77) = "isindex"
saryHTMLtags(78) = "xhtml"
saryHTMLtags(79) = "xml"
saryHTMLtags(80) = "class"
saryHTMLtags(81) = "map"
saryHTMLtags(82) = "option"
saryHTMLtags(83) = "box"
saryHTMLtags(84) = "SAMP"
saryHTMLtags(85) = "data"
saryHTMLtags(86) = "frame"
saryHTMLtags(87) = "hspace"
saryHTMLtags(88) = "vspace"
'saryHTMLtags(89) = "table" 'If you want to include these commeneted out tags then increase the number in the Dim statement at the top!
'saryHTMLtags(90) = "tr"
'saryHTMLtags(91) = "td"
'If you add more disallowed HTML tags don't forget to increase the number in the Dim statement at the top!
%><%
'Strip scripting
strMessageInput = Replace(strMessageInput, "", "", 1, -1, 1)
'Strip dodgy styles
strMessageInput = Replace(strMessageInput, "", 1) - lngMessagePosition)
'Place the HTML tag back into the temporary message store
strHTMLMessage = Mid(strMessageInput, lngMessagePosition, intHTMLTagLength + 1)
'Place the HTML tag into a temporay variable store to be stripped of malcious code
strTempHTMLMessage = strHTMLMessage
'***** Filter Hyperlinks *****
'If this is an hyperlink tag then check it for malicious code
If InStr(1, strTempHTMLMessage, "href", 1) <> 0 Then
'Turn < and > into forum codes so they aren't stripped when checking links
strTempHTMLMessage = Replace(strTempHTMLMessage, "<", "**/**", 1, -1, 1)
strTempHTMLMessage = Replace(strTempHTMLMessage, ">", "**\**", 1, -1, 1)
'Call the format link function to strip malicious codes
strTempHTMLMessage = formatLink(strTempHTMLMessage)
'Turn **/** and **\** back from forum codes
strTempHTMLMessage = Replace(strTempHTMLMessage, "**/**", "<", 1, -1, 1)
strTempHTMLMessage = Replace(strTempHTMLMessage, "**\**", ">", 1, -1, 1)
'Format link tag
strTempHTMLMessage = Replace(strTempHTMLMessage, ">", " target=""_blank"">", 1, -1, 1)
End If
'***** Filter Image Tags *****
'If this is an Image tag then check it for malicious code
If InStr(1, strTempHTMLMessage, "img", 1) <> 0 AND InStr(1, strTempHTMLMessage, "src", 1) <> 0 Then
'Turn < and > into forum codes so they aren't stripped when checking links
strTempHTMLMessage = Replace(strTempHTMLMessage, "<", "**/**", 1, -1, 1)
strTempHTMLMessage = Replace(strTempHTMLMessage, ">", "**\**", 1, -1, 1)
'Call the check images function to strip malicious codes
strTempHTMLMessage = checkImages(strTempHTMLMessage)
'Turn **/** and **\** back from forum codes
strTempHTMLMessage = Replace(strTempHTMLMessage, "**/**", "<", 1, -1, 1)
strTempHTMLMessage = Replace(strTempHTMLMessage, "**\**", ">", 1, -1, 1)
'Format image tag
strTempHTMLMessage = Replace(strTempHTMLMessage, ">", " border=""0"">", 1, -1, 1)
End If
'***** Filter Unwanted HTML Tags *****
'If this is not an image or a link then cut all unwanted HTML out of the HTML tag
If InStr(1, strTempHTMLMessage, "href", 1) = 0 AND InStr(1, strTempHTMLMessage, "img", 1) = 0 Then
'Loop through the array of disallowed HTML tags
For lngLoopCounter = LBound(saryHTMLtags) To UBound(saryHTMLtags)
strTempHTMLMessage = Replace(strTempHTMLMessage, saryHTMLtags(lngLoopCounter), "", 1, -1, 1)
Next
End If
'***** Format Unwanted HTML Tags *****
'Strip out malicious code from the HTML that may have not been stripped but trying to sneak through in a hyperlink or image src
strTempHTMLMessage = formatInput(strTempHTMLMessage)
'Place the new fromatted HTML tag back into the message post
strTempMessageInput = Replace(strTempMessageInput, strHTMLMessage, strTempHTMLMessage, 1, -1, 1)
End If
Next
'Return the function
checkHTML = strTempMessageInput
End Function
'******************************************
'*** Check Images for malicious code *****
'******************************************
'Check images function
Private Function checkImages(ByVal strInputEntry)
Dim strImageFileExtension 'Holds the file extension of the image
Dim saryImageTypes 'Array holding allowed image types in the forum
Dim intExtensionLoopCounter 'Holds the loop counter for the array
Dim blnImageExtOK 'Set to true if the image extension is OK
'If there is no . in the link then there is no extenison and so can't be an image
If inStr(1, strInputEntry, ".", 1) = 0 Then
strInputEntry = ""
'Else remove malicious code and check the extension is an image extension
Else
'Initiliase variables
blnImageExtOK = false
'Get the file extension
strImageFileExtension = LCase(Mid(strInputEntry, InStrRev(strInputEntry, "."), 4))
'Get the image types allowed in the forum
strImageTypes = strImageTypes & ";gif;jpg;jpe;bmp;png"
'Place the image types into an array
saryImageTypes = Split(Trim(strImageTypes), ";")
'Loop through all the allowed extensions and see if the image has one
For intExtensionLoopCounter = 0 To UBound(saryImageTypes)
'Reformat extension to check
saryImageTypes(intExtensionLoopCounter) = "." & Trim(Mid(saryImageTypes(intExtensionLoopCounter), 1, 3))
'Check to see if the image extension is allowed
If saryImageTypes(intExtensionLoopCounter) = strImageFileExtension Then blnImageExtOK = true
Next
'If the image extension is not OK then strip it from the image link
If blnImageExtOK = false Then strInputEntry = Replace(strInputEntry, strImageFileExtension, "", 1, -1, 1)
'Call the format link function to strip malicious codes
strInputEntry = formatLink(strInputEntry)
'Chop out any querystring question marks that maybe in the image link
strInputEntry = Replace(strInputEntry, "?", "", 1, -1, 1)
End If
'Return
checkImages = strInputEntry
End Function
'********************************************
'*** Format Links *****
'********************************************
'Format links funtion
Private Function formatLink(ByVal strInputEntry)
'Remove malisous charcters from links and images
strInputEntry = Replace(strInputEntry, "document.cookie", ".", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "javascript:", "javascript ", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "vbscript:", "vbscript ", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "javascript :", "javascript ", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "vbscript :", "vbscript ", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "[", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "]", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "(", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, ")", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "{", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "}", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "<", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, ">", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "|", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "script", "script", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "SCRIPT", "SCRIPT", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "Script", "Script", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "script", "Script", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "object", "object", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "OBJECT", "OBJECT", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "Object", "Object", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "object", "Object", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "applet", "applet", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "APPLET", "APPLET", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "Applet", "Applet", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "applet", "Applet", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "embed", "embed", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "EMBED", "EMBED", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "Embed", "Embed", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "embed", "Embed", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "document", "document", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "DOCUMENT", "DOCUMENT", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "Document", "Document", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "document", "Document", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "cookie", "cookie", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "COOKIE", "COOKIE", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "Cookie", "Cookie", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "cookie", "Cookie", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "event", "event", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "EVENT", "EVENT", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "Event", "Event", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "event", "Event", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "on", "on", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ON", "ON", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "On", "On", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "on", "on", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "LINK", "LINK", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "Link", "Link", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "link", "link", 1, -1, 1)
'Return
formatLink = strInputEntry
End Function
'******************************************
'*** Format user input *****
'******************************************
'Format user input function
Private Function formatInput(ByVal strInputEntry)
'Get rid of malicous code in the message
strInputEntry = Replace(strInputEntry, "", "", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "