<% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2002 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.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Set the timeout of the forum Server.ScriptTimeout = 90 'Set the date time format to your own if you are getting a CDATE error 'Session.LCID = 1033 Dim adoCon 'Database Connection Variable Dim rsLoggedInUser 'Hols the recordset for the user Id number Dim rsConfiguration 'Holds the configuartion recordset Dim rsModerator 'holds wether the user can moderate this forum Dim strCon 'Holds the Database driver and the path and name of the database 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 strWebsiteName 'Holds the website name Dim strHomepagePath 'Holds the path to the web sites homepage 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 blnIEEditor 'Set to true if the HTML editor for IE 5+ is turned on Dim blnEmail 'Boolean set to true if e-mail is on Dim blnAdminEmail 'Boolean set to true if admin e-mail is on Dim strMailComponent 'Email coponent the forum useses Dim strIncomingMailServer 'Forums incomming mail server Dim strLoggedInUserCode 'Holds the user code of the user Dim blnLCode 'set to true Dim blnModerator 'Set to true if the user is a forum moderator 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 intMemberStatus 'Holds the members status level Dim blnModeratorAdmin 'Set to true if the moderator has some admin rights 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 intDeletePostsTimeLimit 'Holds the time limit users have to edit or delete there posts in 'Initialise variables lngLoggedInUserID = 0 intMemberStatus = 0 blnEmail = False blnAdminEmail = False blnLCode = True blnModerator = False blnIEEditor = True blnActiveMember = True blnLoggedInUserEmail = False blnLoggedInUserSignature = False blnEmoticons = True blnGuestPost = False intDeletePostsTimeLimit = 20 'Database Type strDatabaseType = "Access" 'strDatabaseType = "SQLServer" 'Create database connection 'Create a connection odject Set adoCon = Server.CreateObject("ADODB.Connection") '--------------------- Set the path and name of the database -------------------------------------------------------------------------------- '// strDbPathAndName = "fpdb/helper.mdb" strDbPathAndName = "../../databases/helper.mdb" 'BRINKSTER USERS 'Brinkster users remove the ' single quote mark from infront of the line below and replace USERNAME with your Brinkster uersname 'strDbPathAndName = "/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 -------------- 'Database connection info and driver (if this driver does not work then comment it out and use one of the alternative drivers) 'strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strDbPathAndName) 'Alternative drivers faster than the basic one above 'strCon = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & Server.MapPath(strDbPathAndName) 'This one is if you convert the database to Access 97 strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDbPathAndName) '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 '--------------------------------------------------------------------------------------------------------------------------------------------- 'Set the diffrent variables for diffrent database types If strDatabaseType = "SQLServer" Then %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2002 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.com '** '** 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. 'SQL Server OLE Driver strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";" '--------------------------------------------------------------------------------------------------------------------------------------------- %> <% 'The GetDate() function is used in SQL Server strDatabaseDateFunction = "GetDate()" Else 'The now() function is used in Access strDatabaseDateFunction = "Now()" End If 'Set an active connection to the Connection object adoCon.Open strCon 'Read in the Forum configuration 'Intialise the ADO recordset object Set rsConfiguration = Server.CreateObject("ADODB.Recordset") 'Initialise the SQL variable with an SQL statement to get the configuration details from the database If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpSelectConfiguration" Else strSQL = "SELECT tblConfiguration.* From tblConfiguration;" End If 'Query the database rsConfiguration.Open strSQL, strCon 'If there is config deatils in the recordset then read them in If NOT rsConfiguration.EOF Then 'read in the configuration details from the recordset strWebsiteName = rsConfiguration("website_name") strHomepagePath = rsConfiguration("website_path") strForumPath = rsConfiguration("forum_path") strMailComponent = rsConfiguration("mail_component") strIncomingMailServer = rsConfiguration("mail_server") strForumEmailAddress = rsConfiguration("forum_email_address") blnLCode = CBool(rsConfiguration("L_Code")) blnEmail = CBool(rsConfiguration("email_notify")) blnAdminEmail = CBool(rsConfiguration("email_admin")) blnTextLinks = rsConfiguration("Text_link") blnIEEditor = CBool(rsConfiguration("IE_editor")) intTopicPerPage = CInt(rsConfiguration("Topics_per_page")) strTitleImage = rsConfiguration("Title_image") blnEmoticons = CBool(rsConfiguration("Emoticons")) blnGuestPost = CBool(rsConfiguration("Guest_post")) blnModeratorAdmin = CBool(rsConfiguration("Mod_admin")) blnAvatar = CBool(rsConfiguration("Avatar")) blnEmailActivation = CBool(rsConfiguration("Email_activate")) intNumHotViews = CInt(rsConfiguration("Hot_views")) intNumHotReplies = CInt(rsConfiguration("Hot_replies")) blnSendPost = CBool(rsConfiguration("Email_post")) blnPrivateMessages = CBool(rsConfiguration("Private_msg")) intNumPrivateMessages = CInt(rsConfiguration("No_of_priavte_msg")) intThreadsPerPage = CInt(rsConfiguration("Threads_per_page")) intSpamTimeLimitSeconds = CInt(rsConfiguration("Spam_seconds")) intSpamTimeLimitMinutes = CInt(rsConfiguration("Spam_minutes")) End If '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 Request.Cookies("ForumVisit")("LastVist") <> "" Then Session("dtmLastVisit") = CDate(Request.Cookies("ForumVisit")("LastVist")) Response.Cookies("ForumVisit")("LastVist") = CDbl(Now()) Response.Cookies("ForumVisit").Expires = DateAdd("yyyy", 1, Now()) Response.Cookies("ForumVisit").Path = "/" 'If the last enetry 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 isNumeric(Request.Cookies("ForumVisit")("LastVist")) Then If CDate(Request.Cookies("ForumVisit")("LastVist")) < DateAdd("n", -5, Now()) Then Response.Cookies("ForumVisit")("LastVist") = CDbl(Now()) Response.Cookies("ForumVisit").Expires = DateAdd("yyyy", 1, Now()) Response.Cookies("ForumVisit").Path = "/" End If 'If there is no date in the cookie or it is empty then set the date to now() Else Response.Cookies("ForumVisit")("LastVist") = CDbl(Now()) Response.Cookies("ForumVisit").Expires = DateAdd("yyyy", 1, Now()) Response.Cookies("ForumVisit").Path = "/" 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("Forum")("UserID"), 1, 44)) 'Make the usercode SQL safe strLoggedInUserCode = formatSQLInput(strLoggedInUserCode) 'If a cookie exsists on the users system then read in there username from the database If strLoggedInUserCode <> "" Then 'Intialise the ADO recordset object Set rsLoggedInUser = Server.CreateObject("ADODB.Recordset") 'Initalise the strSQL variable with an SQL statement to query the database If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpChkUserID @strUserID = '" & strLoggedInUserCode & "'" Else strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Active, tblAuthor.Signature, tblAuthor.Author_email, tblAuthor.Status " strSQL = strSQL & "FROM tblAuthor " strSQL = strSQL & "WHERE User_code = '" & strLoggedInUserCode & "';" End If 'Query the database rsLoggedInUser.Open strSQL, strCon 'If the database has returned a record then run next bit If NOT rsLoggedInUser.EOF Then 'Before getting the users details make sure then are not trying to log in under the guest account If rsLoggedInUser("Author_ID") <> 2 Then 'Read in the users details from the recordset strLoggedInUsername = rsLoggedInUser("Username") lngLoggedInUserID = CLng(rsLoggedInUser("Author_ID")) blnActiveMember = CBool(rsLoggedInUser("Active")) If rsLoggedInUser("Author_Email") <> "" Then blnLoggedInUserEmail = True If rsLoggedInUser("Signature") <> "" Then blnLoggedInUserSignature = True intMemberStatus = CInt(rsLoggedInUser("Status")) 'If the members account is not active then set there security level to 0 (Guest) If blnActiveMember = False Then intMemberStatus = 0 'If we are in a forum see if this user is a forum moderator If Request("ForumID") <> "" Then 'Intialise the ADO recordset object Set rsModerator = Server.CreateObject("ADODB.Recordset") 'SQL query to see if this person moderates this forum If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpCheckUserIsModerator @lngUserID = " & CLng(lngLoggedInUserID) & ", @intForumID = " & CInt(Request("ForumID")) Else strSQL = "SELECT TOP 1 tblModerator.Moderator_ID FROM tblModerator " strSQL = strSQL & "WHERE tblModerator.Author_ID=" & CLng(lngLoggedInUserID) & " AND (tblModerator.Forum_ID=" & CInt(Request("ForumID")) & " OR tblModerator.Forum_ID=0);" End If 'Query the database rsModerator.Open strSQL, strCon 'If a record is returned then this user moderates this forum :) If NOT rsModerator.EOF Then blnModerator = True 'Get rid of them objects rsModerator.Close Set rsModerator = Nothing End If Else lngLoggedInUserID = 0 End If 'Otherwise the username is not correct or the user has been barred so set there User ID to 0 Else lngLoggedInUserID = 0 End If 'Close the recordset rsLoggedInUser.Close Set rsLoggedInUser = Nothing End If 'If the user is logged in and the Guest account posting is enabled then set the user up to be able to post If lngLoggedInUserID = 0 AND blnGuestPost = True then strLoggedInUsername = strTxtGuest lngLoggedInUserID = 2 intMemberStatus = 0 blnActiveMember = True End If 'Make sure the admin account remains active and full access rights If lngLoggedInUserID = 1 Then intMemberStatus = 3 blnActiveMember = True End If 'If the logged on user id is 0 then this person is a guest so set the username to guest If lngLoggedInUserID = 0 Then strLoggedInUsername = strTxtGuest 'Reset server objects rsConfiguration.Close Set rsConfiguration = Nothing %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide ASP Discussion Forum '** '** Copyright 2001-2002 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.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Dimension variables Dim rsActiveUsers 'RS to hold the active users Dim strIPAddress 'Holds the uesrs IP address to keep track of em with Dim dtmLoggedIn 'Holds the date/time the user logged in Dim dtmLastActive 'Holds the date/time the user was last active Dim strUserAgent 'Holds info on the users browser and os Dim strOS 'Holds the users OS Dim strBrowserUserType 'Holds the users browser type Dim intActiveUsers 'Holds the number of active users Dim intActiveGuests 'Holds the number of active guests Dim intActiveMembers 'Holds the number of logged in active members Dim blnHideActiveUser 'Holds if the user wants to be shown in the active users list Dim lngActiveUsersID 'Hols the active users ID number 'Get the users details strIPAddress = Request.ServerVariables("REMOTE_ADDR") strUserAgent = Request.ServerVariables("HTTP_USER_AGENT") 'Get if the user wants to be shown in the active users list If Request.Cookies("Forum")("Hide") = "True" Then blnHideActiveUser = 1 Else blnHideActiveUser = 0 End If 'Calculate the active users ID number lngActiveUsersID = lngLoggedInUserID 'Set a non logged in person to the Guest account for the acitive users profile If lngActiveUsersID = 0 Then lngActiveUsersID = 2 'Get the uesrs web browser If InStr(1, strUserAgent, "Opera 3", 1) Then strBrowserUserType = "Opera 3" ElseIf InStr(1, strUserAgent, "Opera 4", 1) Then strBrowserUserType = "Opera 4" ElseIf InStr(1, strUserAgent, "Opera 5", 1) Then strBrowserUserType = "Opera 5" ElseIf InStr(1, strUserAgent, "Opera 6", 1) Then strBrowserUserType = "Opera 6" ElseIf InStr(1, strUserAgent, "Opera", 1) Then strBrowserUserType = "Opera" ElseIf inStr(1, strUserAgent, "MSIE 6", 1) Then strBrowserUserType = "Microsoft IE 6" ElseIf inStr(1, strUserAgent, "MSIE 5", 1) Then strBrowserUserType = "Microsoft IE 5" ElseIf inStr(1, strUserAgent, "MSIE 4", 1) Then strBrowserUserType = "Microsoft IE 4" ElseIf inStr(1, strUserAgent, "MSIE 3", 1) Then strBrowserUserType = "Microsoft IE 3" ElseIf inStr(1, strUserAgent, "Mozilla/5", 1) OR inStr(1, strUserAgent, "Netscape6", 1) Then strBrowserUserType = "Netscape 6" ElseIf inStr(1, strUserAgent, "Mozilla/4", 1) Then strBrowserUserType = "Netscape 4" ElseIf inStr(1, strUserAgent, "Mozilla/3", 1) Then strBrowserUserType = "Netscape 3" Else strBrowserUserType = "Unknown" End If 'Get users OS If inStr(1, strUserAgent, "NT 5.1", 1) Or inStr(1, strUserAgent, "Windows XP", 1) Then strOS = "Windows XP" ElseIf inStr(1, strUserAgent, "NT 5", 1) Or inStr(1, strUserAgent, "Windows 2000", 1) Then strOS = "Windows 2000" ElseIf inStr(1, strUserAgent, "NT", 1) Or inStr(1, strUserAgent, "WinNT", 1) Then strOS = "Windows NT 4" ElseIf inStr(1, strUserAgent, "95", 1) Or inStr(1, strUserAgent, "Win95", 1) Then strOS = "Windows 95" ElseIf inStr(1, strUserAgent, "Win 9x 4.90", 1) Then strOS = "Windows ME" ElseIf inStr(1, strUserAgent, "98", 1) Or inStr(1, strUserAgent, "Win98", 1) Then strOS = "Windows 98" ElseIf Instr(1, strUserAgent, "Windows 3.1", 1) or Instr(1, strUserAgent, "Win16", 1) Then strOS = "Windows 3.x" ElseIf inStr(1, strUserAgent, "Macintosh", 1) OR inStr(1, strUserAgent, "Mac", 1) OR inStr(1, strUserAgent, "Macintosh;", 1) Then strOS = "Macintosh" ElseIf inStr(1, strUserAgent, "Linux", 1) Then strOS = "Linux" ElseIf inStr(1, strUserAgent, "Unix", 1) OR inStr(1, strUserAgent, "sunos", 1) OR inStr(1, strUserAgent, "X11", 1) Then strOS = "Unix" ElseIf inStr(1, strUserAgent, "WebTV", 1) OR inStr(1, strUserAgent, "AOL_TV", 1) Then strOS = "Web TV" Else strOS = "Unknown" End If 'Intialise the ADO recordset object Set rsActiveUsers = Server.CreateObject("ADODB.Recordset") 'Initialise the SQL variable with an SQL statement to get the active users details If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpActiveUsersWhereIPis @strIPAddress = '" & strIPAddress & "'" Else strSQL = "SELECT tblActiveUser.* From tblActiveUser WHERE IP='" & strIPAddress & "';" End If 'Set the cursor type property of the record set to Dynamic so we can navigate through the record set rsActiveUsers.CursorType = 2 'Set the Lock Type for the records so that the record set is only locked when it is updated rsActiveUsers.LockType = 3 'Query the database rsActiveUsers.Open strSQL, strCon 'If there are no records for this user then add them to the datatbase If rsActiveUsers.EOF Then 'Initilse sql statement If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpAddNewActiveUser @strIPAddress = '" & strIPAddress & "', @lngActiveUsersID = '" & lngActiveUsersID & "', @strOS = '" & strOS & "', @strBrowserUserType = '" & strBrowserUserType & "', @blnHideActiveUser = '" & blnHideActiveUser & "'" Else strSQL = "INSERT INTO tblActiveUser (IP, Author_ID, OS, Browser, Hide) VALUES ('" & strIPAddress & "','" & lngActiveUsersID & "','" & strOS & "','" & strBrowserUserType & "','" & blnHideActiveUser & "');" End If 'Write to database adoCon.Execute(strSQL) 'Else if there's records returned then update them Else 'Initilse sql statement If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpUpdateActiveUser @lngActiveUsersID = '" & lngActiveUsersID & "', @blnHideActiveUser = '" & blnHideActiveUser & "', @strIPAddress = '" & strIPAddress & "'" Else strSQL = "UPDATE tblActiveUser SET tblActiveUser.Author_ID=" & lngActiveUsersID & ", tblActiveUser.Active=Now(), tblActiveUser.Hide=" & blnHideActiveUser & " WHERE IP='" & strIPAddress & "';" End If 'Write to database adoCon.Execute(strSQL) End If 'Clean up old users 'Initilse sql statement If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpDeleteActiveUser" Else strSQL = "DELETE FROM tblActiveUser WHERE tblActiveUser.Active < Now() - 0.0070;" End If 'Detlete from database adoCon.Execute(strSQL) 'Delete older second entries if the uesr has returned in under 10 minutes with a new IP If lngActiveUsersID <> 2 Then If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpDeleteActiveUserDoubleEntry @lngActiveUsersID = " & lngActiveUsersID & ", @strIPAddress = '" & strIPAddress & "'" Else strSQL = "DELETE FROM tblActiveUser WHERE tblActiveUser.Author_ID=" & lngActiveUsersID & " AND tblActiveUser.IP <> '" & strIPAddress & "';" End If 'Detlete from database adoCon.Execute(strSQL) End If 'Requery the database to allow access to catch up rsActiveUsers.Requery 'Close the recordset rsActiveUsers.Close Set rsActiveUsers = Nothing 'To save another database hit we can get the number of members online by taking the number of guest away from the total active users intActiveMembers = intActiveUsers - intActiveGuests %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2002 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.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Check images function Private Function checkImages(strInputEntry) Dim strTempInnerMessageLink Dim strInnerMessageLink Dim strImageFileExtension Dim strInputEntryLink 'Encode image links to stop malcious code Do While NOT InStr(1, strInputEntry, "src=""", 1) = 0 'Find the start position in the message of the closing tag lngLinkEndPos = InStr(lngLinkStartPos, strInputEntry, ">", 1) + 1 'Make sure the end position is not in error If lngLinkEndPos - lngLinkStartPos =< 5 Then lngLinkEndPos = lngLinkStartPos + 5 'Read in the code to be be checked strInputEntryLink = Trim(Mid(strInputEntry, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos))) 'If the > end postition is more than 6 then there is one so get the inputed link If lngLinkEndPos > (lngLinkStartPos + 5) Then 'Start position inside the link tag the actual input starts lngLinkStartPos = 6 'Find the position in the message for the url > closing tag lngLinkEndPos = InStr(lngLinkStartPos, strInputEntryLink, ">", 1) 'Place the image path in the image tag into a string strInnerMessageLink = Trim(Mid(strInputEntryLink, 6, (lngLinkEndPos - lngLinkStartPos))) End If 'Place the message link into the tempoary message variable strTempMessageLink = strInputEntryLink strTempInnerMessageLink = strInnerMessageLink 'Format the link into an HTML hyperlink strTempMessageLink = Replace(strTempMessageLink, "src=""", "src= """, 1, -1, 1) 'If there is no . in the link then there is no extenison and so can't be an image If inStr(1, strTempInnerMessageLink, ".", 1) = 0 Then strTempInnerMessageLink = """" 'Else remove malicious code and check the extension is an image extension Else 'Call the format link function to strip malicious codes strTempInnerMessageLink = formatLink(strTempInnerMessageLink) 'Strip any pages that try to sneak in strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".htm", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".asp", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".php", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".php3", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".php4", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".aspx", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".ascx", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".asmx", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".vs", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".config", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".asmx", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".jsp", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".jst", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".cgi", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".cfm", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".cfml", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".cfc", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".shtml", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".ihtml", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".java", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".wml", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".vbs", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".vtm", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".vtml", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".edml", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".pm", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".js", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".inc", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".txt", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".wave", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".exe", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, ".hqx", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "?", "", 1, -1, 1) 'Get the file extension strImageFileExtension = LCase(Right(strTempInnerMessageLink, (Len(strTempInnerMessageLink)-((InstrRev(strTempInnerMessageLink, ".")-1))))) 'strImageFileExtension = Mid(strInputEntryLink, (InstrRev(strTempInnerMessageLink, ".")-1), (InstrRev(strTempInnerMessageLink, ".")+3)) 'Check the file extension if it's not a web graphic then remove the extension If NOT (strImageFileExtension = ".gif" OR strImageFileExtension = ".jpg" OR strImageFileExtension = ".jpe" OR strImageFileExtension = ".bmp" OR strImageFileExtension = ".png") Then 'See if there is a valid image extension in there somewhere if there is chop the rest and keep the image extension If Instr(LCase(strTempInnerMessageLink), ".gif") Then strTempInnerMessageLink = Replace(strTempInnerMessageLink, strImageFileExtension, ".gif", 1, -1, 1) ElseIf Instr(LCase(strTempInnerMessageLink), ".jpg") Then strTempInnerMessageLink = Replace(strTempInnerMessageLink, strImageFileExtension, ".jpg", 1, -1, 1) ElseIf Instr(LCase(strTempInnerMessageLink), ".jpe") Then strTempInnerMessageLink = Replace(strTempInnerMessageLink, strImageFileExtension, ".jpeg", 1, -1, 1) ElseIf Instr(LCase(strTempInnerMessageLink), ".bmp") Then strTempInnerMessageLink = Replace(strTempInnerMessageLink, strImageFileExtension, ".bmp", 1, -1, 1) ElseIf Instr(LCase(strTempInnerMessageLink), ".png") Then strTempInnerMessageLink = Replace(strTempInnerMessageLink, strImageFileExtension, ".png", 1, -1, 1) 'Else there is no valid image extension in there so chop the lot Else strTempInnerMessageLink = Replace(strTempInnerMessageLink, strImageFileExtension, "", 1, -1, 1) End If End If End If 'Place the newly formated image into the tempery image tag strTempMessageLink = Replace(strTempMessageLink, strInnerMessageLink, strTempInnerMessageLink, 1, -1, 1) 'Make sure the tag is closed If inStr(1, strTempMessageLink, """>", 1) = 0 AND inStr(1, strTempMessageLink, "'>", 1) = 0 Then strTempMessageLink = Replace(strTempMessageLink, ">", """>", 1, -1, 1) 'Place the new fromatted hyperlink into the message string body strInputEntry = Replace(strInputEntry, strInputEntryLink, strTempMessageLink, 1, -1, 1) Loop 'Return checkImages = strInputEntry End Function 'Check links function Private Function checkLinks(strInputEntry) Dim strTempInnerMessageLink Dim strInnerMessageLink Dim strImageFileExtension Dim strInputEntryLink 'Encode URL links to stop malcious code Do While NOT InStr(1, strInputEntry, "href=""", 1) = 0 'Find the start position in the message of the closing tag lngLinkEndPos = InStr(lngLinkStartPos, strInputEntry, "", 1) + 4 'Make sure the end position is not in error If lngLinkEndPos - lngLinkStartPos =< 6 Then lngLinkEndPos = lngLinkStartPos + 6 'Read in the code to be be checked strInputEntryLink = Trim(Mid(strInputEntry, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos))) 'If the > end postition is more than 6 then there is one so get the inputed link If lngLinkEndPos > (lngLinkStartPos + 6) Then 'Start position inside the link tag the actual input starts lngLinkStartPos = 7 'Find the position in the message for the url > closing tag lngLinkEndPos = InStr(lngLinkStartPos, strInputEntryLink, "", 1) 'Place the image path in the image tag into a string strInnerMessageLink = Trim(Mid(strInputEntryLink, 7, (lngLinkEndPos - lngLinkStartPos))) End If 'Place the message link into the tempoary message variable strTempMessageLink = strInputEntryLink strTempInnerMessageLink = strInnerMessageLink 'Format the link into an HTML hyperlink strTempMessageLink = Replace(strTempMessageLink, "href=""", "href= """, 1, -1, 1) 'Remove font formating from the link as it may course the link to display incorrectly strTempInnerMessageLink = Replace(strTempInnerMessageLink, "", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "serif"">", "serif", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "mono"">", "mono", 1, -1, 1) 'Turn the end "> into a code so it don't get striped strTempInnerMessageLink = Replace(strTempInnerMessageLink, """>", "*/*\*", 1, -1, 1) 'Call the format link function to strip malicious codes strTempInnerMessageLink = formatLink(strTempInnerMessageLink) 'Turn the end code into back into "> so it knows which bit is the href strTempInnerMessageLink = Replace(strTempInnerMessageLink, "*/*\*", """>", 1, -1, 1) 'Remove font formating from the link as it may course the link to display incorrectly strTempInnerMessageLink = Replace(strTempInnerMessageLink, "face=Arial, Helvetica, sans-serif", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "face=Courier New, Courier, mono", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "face=Times New Roman, Times, serif", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "face=Verdana, Arial, Helvetica, sans-serif", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=black", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=white", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=blue", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=red", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=green", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=yellow", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=orange", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=brown", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=magenta", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=cyan", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "color=limegreen", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "size=1", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "size=2", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "size=3", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "size=4", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "size=5", "", 1, -1, 1) strTempInnerMessageLink = Replace(strTempInnerMessageLink, "size=6", "", 1, -1, 1) 'If there is an image in the link reformat it back again strTempInnerMessageLink = Replace(strTempInnerMessageLink, "img border=0 src=", "", 1) = 0 AND inStr(1, strTempMessageLink, "'>", 1) = 0 Then strTempMessageLink = Replace(strTempMessageLink, ">", """>", 1, -1, 1) 'Place the new fromatted hyperlink into the message string body strInputEntry = Replace(strInputEntry, strInputEntryLink, strTempMessageLink, 1, -1, 1) Loop 'Return checkLinks = strInputEntry End Function 'Format user input function Private Function formatInput(strInputEntry) 'Get rid of malicous code in the message 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, "style", "style", 1, -1, 0) strInputEntry = Replace(strInputEntry, "STYLE", "STYLE", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Style", "Style", 1, -1, 0) strInputEntry = Replace(strInputEntry, "style", "Stylet", 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, "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, "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, "form", "form", 1, -1, 0) strInputEntry = Replace(strInputEntry, "FORM", "FORM", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Form", "Form", 1, -1, 0) strInputEntry = Replace(strInputEntry, "form", "Form", 1, -1, 1) strInputEntry = Replace(strInputEntry, "iframe", "iframe", 1, -1, 0) strInputEntry = Replace(strInputEntry, "IFRAME", "IFRAME", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Iframe", "Iframe", 1, -1, 0) strInputEntry = Replace(strInputEntry, "iframe", "iframe", 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, "%", "%", 1, -1, 1) 'Reformat a few bits 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, "font", "font", 1, -1, 0) strInputEntry = Replace(strInputEntry, "FONT", "FONT", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Font", "Font", 1, -1, 0) strInputEntry = Replace(strInputEntry, "fOnt", "font", 1, -1, 1) strInputEntry = Replace(strInputEntry, "font", "font", 1, -1, 1) strInputEntry = Replace(strInputEntry, "mono", "mono", 1, -1, 0) strInputEntry = Replace(strInputEntry, "MONO", "MONO", 1, -1, 0) strInputEntry = Replace(strInputEntry, "MOno", "Mono", 1, -1, 0) strInputEntry = Replace(strInputEntry, "mOno", "mono", 1, -1, 1) strInputEntry = Replace(strInputEntry, "mono", "mono", 1, -1, 1) 'Return formatInput = strInputEntry End Function 'Format links funtion Private Function formatLink(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, "(", "", 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, "'", " ", 1, -1, 1) strInputEntry = Replace(strInputEntry, "script", "script", 1, -1, 1) strInputEntry = Replace(strInputEntry, "object", "object", 1, -1, 1) strInputEntry = Replace(strInputEntry, "applet", "applet", 1, -1, 1) strInputEntry = Replace(strInputEntry, "embed", "embed", 1, -1, 1) strInputEntry = Replace(strInputEntry, "document", "document", 1, -1, 1) strInputEntry = Replace(strInputEntry, "cookie", "cookie", 1, -1, 1) strInputEntry = Replace(strInputEntry, "event", "event", 1, -1, 1) strInputEntry = Replace(strInputEntry, "on", "on", 1, -1, 1) 'Return formatLink = strInputEntry End Function 'Format SQL Query funtion Private Function formatSQLInput(strInputEntry) 'Remove malisous charcters from links and images strInputEntry = Replace(strInputEntry, "<", "<") strInputEntry = Replace(strInputEntry, ">", ">") strInputEntry = Replace(strInputEntry, """", "", 1, -1, 1) strInputEntry = Replace(strInputEntry, "=", "=", 1, -1, 1) strInputEntry = Replace(strInputEntry, "'", "''", 1, -1, 1) strInputEntry = Replace(strInputEntry, "select", "select", 1, -1, 1) strInputEntry = Replace(strInputEntry, "join", "join", 1, -1, 1) strInputEntry = Replace(strInputEntry, "union", "union", 1, -1, 1) strInputEntry = Replace(strInputEntry, "where", "where", 1, -1, 1) strInputEntry = Replace(strInputEntry, "insert", "insert", 1, -1, 1) strInputEntry = Replace(strInputEntry, "delete", "delete", 1, -1, 1) strInputEntry = Replace(strInputEntry, "update", "update", 1, -1, 1) strInputEntry = Replace(strInputEntry, "like", "like", 1, -1, 1) strInputEntry = Replace(strInputEntry, "drop", "drop", 1, -1, 1) strInputEntry = Replace(strInputEntry, "create", "create", 1, -1, 1) strInputEntry = Replace(strInputEntry, "modify", "modify", 1, -1, 1) strInputEntry = Replace(strInputEntry, "rename", "rename", 1, -1, 1) strInputEntry = Replace(strInputEntry, "alter", "alter", 1, -1, 1) strInputEntry = Replace(strInputEntry, "cast", "cast", 1, -1, 1) strInputEntry = Replace(strInputEntry, "pass", "pass", 1, -1, 1) strInputEntry = Replace(strInputEntry, "code", "code", 1, -1, 1) strInputEntry = Replace(strInputEntry, "author", "author", 1, -1, 1) strInputEntry = Replace(strInputEntry, "username", "username", 1, -1, 1) 'Return formatSQLInput = strInputEntry End Function 'Decode encoded strings Private Function decodeString(strInputEntry) 'Remove malisous charcters from links and images strInputEntry = Replace(strInputEntry, "=", "=", 1, -1, 0) strInputEntry = Replace(strInputEntry, "a", "a", 1, -1, 0) strInputEntry = Replace(strInputEntry, "b", "b", 1, -1, 0) strInputEntry = Replace(strInputEntry, "c", "c", 1, -1, 0) strInputEntry = Replace(strInputEntry, "d", "d", 1, -1, 0) strInputEntry = Replace(strInputEntry, "e", "e", 1, -1, 0) strInputEntry = Replace(strInputEntry, "f", "f", 1, -1, 0) strInputEntry = Replace(strInputEntry, "g", "g", 1, -1, 0) strInputEntry = Replace(strInputEntry, "h", "h", 1, -1, 0) strInputEntry = Replace(strInputEntry, "i", "i", 1, -1, 0) strInputEntry = Replace(strInputEntry, "j", "j", 1, -1, 0) strInputEntry = Replace(strInputEntry, "k", "k", 1, -1, 0) strInputEntry = Replace(strInputEntry, "l", "l", 1, -1, 0) strInputEntry = Replace(strInputEntry, "m", "m", 1, -1, 0) strInputEntry = Replace(strInputEntry, "n", "n", 1, -1, 0) strInputEntry = Replace(strInputEntry, "o", "o", 1, -1, 0) strInputEntry = Replace(strInputEntry, "p", "p", 1, -1, 0) strInputEntry = Replace(strInputEntry, "q", "q", 1, -1, 0) strInputEntry = Replace(strInputEntry, "r", "r", 1, -1, 0) strInputEntry = Replace(strInputEntry, "s", "s", 1, -1, 0) strInputEntry = Replace(strInputEntry, "t", "t", 1, -1, 0) strInputEntry = Replace(strInputEntry, "u", "u", 1, -1, 0) strInputEntry = Replace(strInputEntry, "v", "v", 1, -1, 0) strInputEntry = Replace(strInputEntry, "w", "w", 1, -1, 0) strInputEntry = Replace(strInputEntry, "x", "x", 1, -1, 0) strInputEntry = Replace(strInputEntry, "y", "y", 1, -1, 0) strInputEntry = Replace(strInputEntry, "z", "z", 1, -1, 0) strInputEntry = Replace(strInputEntry, "A", "A", 1, -1, 0) strInputEntry = Replace(strInputEntry, "B", "B", 1, -1, 0) strInputEntry = Replace(strInputEntry, "C", "C", 1, -1, 0) strInputEntry = Replace(strInputEntry, "D", "D", 1, -1, 0) strInputEntry = Replace(strInputEntry, "E", "E", 1, -1, 0) strInputEntry = Replace(strInputEntry, "F", "F", 1, -1, 0) strInputEntry = Replace(strInputEntry, "G", "G", 1, -1, 0) strInputEntry = Replace(strInputEntry, "H", "H", 1, -1, 0) strInputEntry = Replace(strInputEntry, "I", "I", 1, -1, 0) strInputEntry = Replace(strInputEntry, "J", "J", 1, -1, 0) strInputEntry = Replace(strInputEntry, "K", "K", 1, -1, 0) strInputEntry = Replace(strInputEntry, "L", "L", 1, -1, 0) strInputEntry = Replace(strInputEntry, "M", "M", 1, -1, 0) strInputEntry = Replace(strInputEntry, "N", "N", 1, -1, 0) strInputEntry = Replace(strInputEntry, "O", "O", 1, -1, 0) strInputEntry = Replace(strInputEntry, "P", "P", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Q", "Q", 1, -1, 0) strInputEntry = Replace(strInputEntry, "R", "R", 1, -1, 0) strInputEntry = Replace(strInputEntry, "S", "S", 1, -1, 0) strInputEntry = Replace(strInputEntry, "T", "T", 1, -1, 0) strInputEntry = Replace(strInputEntry, "U", "U", 1, -1, 0) strInputEntry = Replace(strInputEntry, "V", "V", 1, -1, 0) strInputEntry = Replace(strInputEntry, "W", "W", 1, -1, 0) strInputEntry = Replace(strInputEntry, "X", "X", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Y", "Y", 1, -1, 0) strInputEntry = Replace(strInputEntry, "Z", "Z", 1, -1, 0) strInputEntry = Replace(strInputEntry, "0", "0", 1, -1, 0) strInputEntry = Replace(strInputEntry, "1", "1", 1, -1, 0) strInputEntry = Replace(strInputEntry, "2", "2", 1, -1, 0) strInputEntry = Replace(strInputEntry, "3", "3", 1, -1, 0) strInputEntry = Replace(strInputEntry, "4", "4", 1, -1, 0) strInputEntry = Replace(strInputEntry, "5", "5", 1, -1, 0) strInputEntry = Replace(strInputEntry, "6", "6", 1, -1, 0) strInputEntry = Replace(strInputEntry, "7", "7", 1, -1, 0) strInputEntry = Replace(strInputEntry, "8", "8", 1, -1, 0) strInputEntry = Replace(strInputEntry, "9", "9", 1, -1, 0) 'Return decodeString = strInputEntry End Function %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide ASP Discussion Forum '** '** Copyright 2001-2002 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.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Dimension variables Dim rsDateTimeFormat 'Holds the date a time data Dim saryDateTimeData(19) 'Holds the info for converting the date and time Dim intLoopCounter 'loop counter 'Craete a recordset to get the date and time format data Set rsDateTimeFormat = Server.CreateObject("ADODB.Recordset") 'Initalise the strSQL variable with an SQL statement to query the database If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpTimeAndDateSettings" Else strSQL = "SELECT tblDateTimeFormat.* FROM tblDateTimeFormat;" End If 'Query the database rsDateTimeFormat.Open strSQL, strCon 'All the data is feed into an array from the recordset to be used later, this is done 'as some versions of MDAC will report an error if the recordset is opened in the functions 'below, if called a large number of times. 'If there are records returned then enter the data returned into an array If NOT rsDateTimeFormat.EOF Then 'Initilise the array saryDateTimeData(0) = rsDateTimeFormat("Date_format") saryDateTimeData(1) = rsDateTimeFormat("Year_format") saryDateTimeData(2) = rsDateTimeFormat("Seporator") 'Initialise the mounth part of the array in a loop to save writing it 12 times For intLoopCounter = 1 to 12 saryDateTimeData((intLoopCounter + 2)) = rsDateTimeFormat("Month" & (intLoopCounter)) Next saryDateTimeData(15) = rsDateTimeFormat("Time_format") saryDateTimeData(16) = rsDateTimeFormat("Server_offset") saryDateTimeData(17) = rsDateTimeFormat("Server_offset_hours") saryDateTimeData(18) = rsDateTimeFormat("am") saryDateTimeData(19) = rsDateTimeFormat("pm") End If 'Relese server objects rsDateTimeFormat.Close Set rsDateTimeFormat = Nothing 'Function to format date Private Function DateFormat(dtmDate, saryDateTimeData) Dim strNewDate 'Holds the new date format Dim intDay 'Holds the integer number for the day Dim intMonth 'Holds a integer number from 1 to 12 for the month Dim strMonth 'Holds the month in it's final format which may be a number or a string so it is set to a sring value Dim intYear 'Holds the year Dim dtmTempDate 'Temprary storage area for date 'If the array is empty set the date as UK If isNull(saryDateTimeData) Then 'Set the date as orginal DateFormat = dtmDate 'If there is a data in the array then format the date Else 'Place the server time off set onto the recorded database time If saryDateTimeData(16) = "+" Then dtmTempDate = DateAdd("h", + CInt(saryDateTimeData(17)), dtmDate) ElseIf saryDateTimeData(16) = "-" Then dtmTempDate = DateAdd("h", - CInt(saryDateTimeData(17)), dtmDate) End If 'Seprate the date into differnet strings intDay = CInt(Day(dtmTempDate)) intMonth = CInt(Month(dtmTempDate)) intYear = CInt(Year(dtmTempDate)) 'Place 0 infront of days under 10 If intDay < 10 then intDay = "0" & intDay 'If the year is two digits then sorten the year string If saryDateTimeData(1) = "short" Then intYear = Right(intYear, 2) 'Format the month strMonth = saryDateTimeData((intMonth + 2)) 'Format the date Select Case saryDateTimeData(0) 'Format dd/mm/yy Case "dd/mm/yy" DateFormat = intDay & saryDateTimeData(2) & strMonth & saryDateTimeData(2) & intYear 'Format mm/dd/yy Case "mm/dd/yy" DateFormat = strMonth & saryDateTimeData(2) & intDay & saryDateTimeData(2) & intYear 'Format yy/dd/mm Case "yy/dd/mm" DateFormat = intYear & saryDateTimeData(2) & intDay & saryDateTimeData(2) & strMonth 'Format yy/mm/dd Case "yy/mm/dd" DateFormat = intYear & saryDateTimeData(2) & strMonth & saryDateTimeData(2) & intDay End Select End If End Function 'Function to format time Function TimeFormat(dtmTime, saryDateTimeData) Dim strNewDate 'Holds the new date format Dim intHour 'Holds the integer number for the hours Dim intMinute 'Holds a integer number for the mintes Dim strPeriod 'Holds wether it is am or pm Dim dtmTempTime 'Temporary storage area for the time 'If the array is empty then return tyhe original time If isNull(saryDateTimeData) Then 'Set the date as UK TimeFormat = dtmTime 'If there is a data in the array then format the date Else 'Place the server time off set onto the recorded database time If saryDateTimeData(16) = "+" Then dtmTempTime = DateAdd("h", + CInt(saryDateTimeData(17)), dtmTime) ElseIf saryDateTimeData(16) = "-" Then dtmTempTime = DateAdd("h", - CInt(saryDateTimeData(17)), dtmTime) End If 'Seprate the time into differnet strings intHour = CInt(Hour(dtmTempTime)) intMinute = CInt(Minute(dtmTempTime)) 'Place 0 infront of minutes under 10 If intMinute < 10 then intMinute = "0" & intMinute 'If the time is 12 hours then change the time to 12 hour clock If CInt(saryDateTimeData(15)) = 12 Then 'Set the time period If intHour >= 12 then strPeriod = saryDateTimeData(19) Else strPeriod = saryDateTimeData(18) End If 'Change the hour to 12 hour clock time Select Case intHour Case 00 intHour = 12 Case 01 intHour = 1 Case 02 intHour = 2 Case 03 intHour = 3 Case 04 intHour = 4 Case 05 intHour = 5 Case 06 intHour = 6 Case 07 intHour = 7 Case 08 intHour = 8 Case 09 intHour = 9 Case 13 intHour = 1 Case 14 intHour = 2 Case 15 intHour = 3 Case 16 intHour = 4 Case 17 intHour = 5 Case 18 intHour = 6 Case 19 intHour = 7 Case 20 intHour = 8 Case 21 intHour = 9 Case 22 intHour = 10 Case 23 intHour = 11 End Select 'ElseIf it is 24 hour clock place another 0 infront of anything below 10 hours ElseIf intHour < 10 Then intHour = "0" & intHour End If 'Return the Formated time TimeFormat = intHour & ":" & intMinute & strPeriod End If End Function %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2002 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.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Global '--------------------------------------------------------------------------------- Const strTxtWelcome = "Welcome" Const strTxtWelcomeGuest = "Welcome Guest" Const strTxtAllForums = "All Forums" Const strTxtTopics = "Topics" Const strTxtPosts = "Posts" Const strTxtLastPost = "Last Post" Const strTxtPostPreview = "Post Preview" Const strTxtAt = "at" Const strTxtBy = "By" Const strTxtOn = "on" Const strTxtProfile = "Profile" Const strTxtSearch = "Search" Const strTxtQuote = "Quote" Const strTxtVisit = "Visit" Const strTxtView = "View" Const strTxtHome = "Home" Const strTxtHomepage = "Homepage" Const strTxtEdit = "Edit" Const strTxtDelete = "Delete" Const strTxtEditProfile = "Edit Profile" Const strTxtLogOff = "Log Off" Const strTxtRegister = "Register" Const strTxtLogin = "Login" Const strTxtMembersList = "Display List of Forum Members" Const strTxtForumLocked = "Forum Locked" Const strTxtSearchTheForum = "Search The Forum" Const strTxtPostReply = "Post Reply" Const strTxtNewTopic = "Post New Topic" Const strTxtCloseWindow = "Close Window" Const strTxtNoForums = "There are no Forum's to display" Const strTxtReturnToDiscussionForum = "Return to the Discussion Forum" Const strTxtMustBeRegistered = "You must be a registered user in order to be able to use this forum" Const strClickHereIfNotRegistered = "Click here if you are not a registered user" Const strTxtResetForm = "Reset Form" Const strTxtClearForm = "Clear Form" Const strTxtYes = "Yes" Const strTxtNo = "No" Const strTxtForumLockedByAdmim = "Sorry, this function has been disabled.
This Forum has been locked by the Forum Administrator." Const strTxtRequiredFields = "Indicates required fields" Const strTxtForumJump = "Forum Jump" Const strTxtSelectForum = "Select Forum" 'Global Error '--------------------------------------------------------------------------------- Const strTxtErrorDisplayLine = "_______________________________________________________________" Const strTxtErrorDisplayLine1 = "The form has not been submitted because there are problem(s) with the form." Const strTxtErrorDisplayLine2 = "Please correct the problem(s) and re-submit the form." Const strTxtErrorDisplayLine3 = "The following field(s) need to be corrected: -" Const strResetFormConfirm = "Are you sure you want to reset the form?" 'default.asp '--------------------------------------------------------------------------------- Const strTxtCookies = "Cookies and JavaScript must be enabled on your web browser in order to use this forum" Const strTxtForum = "Forum" Const strTxtLatestForumPosts = "Latest Forum Posts" Const strTxtForumStatistics = "Forum Statistics" Const strTxtNoForumPostMade = "There have been no Forum Posts" Const strTxtThereAre = "There are" Const strTxtPostsIn = "Posts in" Const strTxtTopicsIn = "Topics in" Const strTxtLastPostOn = "Last Post on" Const strTxtLastPostBy = "Last Post by" Const strTxtForumMembers = "Forum Members" Const strTxtTheNewestForumMember = "The Newest Forum Member is" 'display_forum_topics.asp '--------------------------------------------------------------------------------- Const strTxtThreadStarter = "Topic Starter" Const strTxtReplies = "Replies" Const strTxtViews = "Views" Const strTxtDeleteTopicAlert = "Are you sure you want to delete this topic?" Const strTxtDeleteTopic = "Delete Topic" Const strTxtNextTopic = "Next Topic" Const strTxtLastTopic = "Last Topic" Const strTxtShowTopics = "Show Topics" Const strTxtNoTopicsToDisplay = "There are no message's posted in this forum in the last" Const strTxtAll = "All" Const strTxtLastWeek = "from the Last Week" Const strTxtLastTwoWeeks = "from the Two Weeks" Const strTxtLastMonth = "from the Last Month" Const strTxtLastTwoMonths = "from the Last Two Months" Const strTxtLastSixMonths = "from the Last Six Months" Const strTxtLastYear = "from the Year" 'display_topic_threads.asp '--------------------------------------------------------------------------------- Const strTxtMessageBy = "Message posted by" Const strTxtLocation = "Location" Const strTxtJoined = "Joined" Const strTxtForumAdministrator = "Forum Administrator" Const strTxtForumModerator = "Forum Moderator" Const strTxtDeletePostAlert = "Are you sure you want to delete this post?" Const strTxtEditPost = "Edit Post" Const strTxtDeletePost = "Delete Post" Const strTxtSearchForPosts = "Search for other posts by" Const strTxtSubjectFolder = "Subject" Const strTxtPrintVersion = "Printable version" Const strTxtEmailTopic = "E-mail this topic" Const strTxtSorryNoReply = "Sorry, you can NOT post a reply." Const strTxtForumMembershipSespended = "Your Forum Membership is not active!" Const strTxtThisForumIsLocked = "This forum has been locked by the forum administrator." Const strTxtPostAReplyRegister = "If you wish to post a reply to this thread you must first" Const strTxtNeedToRegister = "If you are not already registered you must first" Const strTxtSmRegister = "register" Const strTxtNoThreads = "There are no thread's in the database relating to this topic" Const strTxtNotGiven = "Not Given" Const strTxtNoMessageError = "Message \t- Enter a Message to post" 'search_form.asp '--------------------------------------------------------------------------------- Const strTxtDiscussionForumSearch = "Discussion Forum Search" Const strTxtSearchFormError = "Search For\t- Enter something to search for" 'search.asp '--------------------------------------------------------------------------------- Const strTxtSearchResults = "Forum Search Results" Const strTxtYourSearchHasFound = "Your search has found" Const strTxtResults = "results" Const strTxtNoSearchResults = "Sorry, your search found no results" Const strTxtClickHereToRefineSearch = "Click here to refine your search" Const strTxtSearchFor = "Search For" Const strTxtSearchIn = "Search In" Const strTxtSearchOn = "Search On" Const strTxtAllWords = "All Words" Const strTxtAnyWords = "Any Words" Const strTxtPhrase = "Phrase" Const strTxtTopicSubject = "Topic Subject" Const strTxtMessageBody = "Message Body" Const strTxtAuthor = "Author" Const strTxtSearchForum = "Search Forum" Const strTxtSortResultsBy = "Sort Results By" Const strTxtLastPostTime = "Last Post Time" Const strTxtTopicStartDate = "Topic Start Date" Const strTxtSubjectAlphabetically = "Subject Alphabetically" Const strTxtNumberViews = "Number of Views" Const strTxtStartSearch = "Start Search" 'display_printer_threads.asp '--------------------------------------------------------------------------------- Const strTxtPrintPage = "Print Page" Const strTxtPrintedFrom = "Printed From" Const strTxtForumName = "Forum Name" Const strTxtForumDiscription = "Forum Discription" Const strTxtURL = "URL" Const strTxtPrintedDate = "Printed Date" Const strTxtTopic = "Topic" Const strTxtPostedBy = "Posted By" Const strTxtDatePosted = "Date Posted" 'IE_textbox.asp '--------------------------------------------------------------------------------- Const strTxtOriginallyPostedBy = "Originally posted by" 'emoticons.asp '--------------------------------------------------------------------------------- Const strTxtEmoticonSmilies = "Emoticon Smilies" Const strTxtClickOnEmoticonToAdd = "Click on the emoticon smiley you would like to add to your message." Const strTxtSmile = "Smile" Const strTxtEmbarassed = "Embarrassed" Const strTxtWink = "Wink" Const strTxtStar = "Star" Const strTxtShocked = "Shocked" Const strTxtDead = "Dead" Const strTxtBigSmile = "Big smile" Const strTxtSleepy = "Sleepy" Const strTxtConfused = "Confused" Const strTxtDisapprove = "Disapprove" Const strTxtUnhappy = "Unhappy" Const strTxtApprove = "Approve" Const strTxtAngry = "Angry" Const strTxtEvil = "Evil smile" Const strTxtClown = "Clown" Const strTxtCool = "Cool" 'login.asp '--------------------------------------------------------------------------------- Const strTxtSorryUsernamePasswordIncorrect = "Sorry the Username or Password entered is incorrect." Const strTxtPleaseTryAgain = "Please try again." Const strTxtUsername = "Username" Const strTxtPassword = "Password" Const strTxtLoginUser = "Login User" Const strTxtClickHereForgottenPass = "Click here if you have forgotten your password" Const strTxtErrorUsername = "Username \t- Enter your Forum Username" Const strTxtErrorPassword = "Password \t- Enter your Forum Password" 'forgotten_password.asp '--------------------------------------------------------------------------------- Const strTxtForgottenPassword = "Forgotten Password" Const strTxtNoRecordOfUsername = "Sorry, no record of the Username entered can not be found." Const strTxtNoEmailAddressInProfile = "Sorry, your profile does not contain an e-mail address.
Your password can not be e-mailed to you." Const strTxtReregisterForForum = "You will need to re register to use the forum." Const strTxtPasswordEmailToYou = "Your password has been e-mailed to you." Const strTxtPleaseEnterYourUsername = "Please enter your username in the box bellow.
Your password will then be sent to the e-mail address in your profile." Const strTxtValidEmailRequired = "If your forum profile does not contain a valid e-mail address for you then you will have to re register to use the forum." Const strTxtEmailPassword = "E-mail Password" Const strTxtEmailPasswordRequest = "A request has been made for your password to be e-mailed to you for the Forum on" Const strTxtEmailPasswordRequest2 = "Your password is: -" Const strTxtEmailPasswordRequest3 = "To go to the forum now click on the link below: -" 'forum_password_form.asp '--------------------------------------------------------------------------------- Const strTxtForumLogin = "Forum Login" Const strTxtErrorEnterPassword = "Password \t- Enter a Password to use this Forum" Const strTxtPasswordRequiredForForum = "This forum requires that you enter a password to proceed." Const strTxtForumPasswordIncorrect = "Sorry the Password entered is incorrect." Const strTxtAutoLogin = "Auto Login" Const strTxtLoginToForum = "Login To Forum" 'profile.asp '--------------------------------------------------------------------------------- Const strTxtNoUserProfileFound = "Sorry no profile can be found for this user" Const strTxtRegisteredToViewProfile = "Sorry, you must be a registered user to view profiles." Const strTxtMemberNo = "Member No." Const strTxtEmail = "E-mail" Const strTxtPrivate = "Private" 'post_message_form.asp '--------------------------------------------------------------------------------- Const strTxtPostNewTopic = "Post New Topic" Const strTxtErrorTopicSubject = "Subject \t- Enter a Subject for your new Topic" Const strTxtForumMemberSuspended = "Sorry, this function is disabled as your Forum Membership is not activate!" 'edit_post.asp '--------------------------------------------------------------------------------- Const strTxtNoPermissionToEditPost = "Sorry, you do not have permission to edit this post!" Const strTxtReturnForumTopic = "Return to Forum Topic" 'e-mail_topic.asp '--------------------------------------------------------------------------------- Const strTxtEmailTopicToFriend = "Email Topic To a Friend" Const strTxtFriendSentEmail = "Your Friend has been sent the e-mail" Const strTxtFriendsName = "Friends Name" Const strTxtFriendsEmail = "Friends Email" Const strTxtYourName = "Your Name" Const strTxtYourEmail = "Your E-mail" Const strTxtSendEmail = "Send E-mail" Const strTxtMessage = "Message" Const strTxtEmailFriendMessage = "I thought you might be interested in a post on the " Const strTxtEmailRecievedFrom = "You have received this e-mail from: -" Const strTxtErrorFrinedsName = "Friends Name \t- Enter your Friends Name" Const strTxtErrorFriendsEmail = "Friends E-mail \t- Enter a valid e-mail address for your friend" Const strTxtErrorYourName = "Your Name \t- Enter your Name" Const strTxtErrorYourEmail = "Your E-mail \t- Enter your valid e-mail address" Const strTxtErrorEmailMessage = "Message \t- Enter a message for your friend" 'forum_members.asp '--------------------------------------------------------------------------------- Const strTxtForumMembersList = "Forum Members List" Const strTxtMemberSearch = "Member Search" Const strTxtForumMembersOn = "forum members on" Const strTxtPageYouAerOnPage = "pages and you are on page number" Const strTxtYourSearchMembersFound = "Your search of the forum members found" Const strTxtMatches = "matches" Const strTxtUsernameAlphabetically = "Username Alphabetically" Const strTxtNewForumMembersFirst = "New Forum Members First" Const strTxtOldForumMembersFirst = "Old Forum Members First" Const strTxtLocationAlphabetically = "Location Alphabetically" Const strTxtRegistered = "Registered" Const strTxtSend = "Send" Const strTxtPrivateEmail = "a private e-mail" Const strTxtNext = "Next" Const strTxtPrevious = "Prev" Const strTxtPage = "Page" Const strTxtErrorMemberSerach = "Member Search\t- Enter a Members Username to search for" 'message_form.inc '--------------------------------------------------------------------------------- Const strTxtTextFormat = "Text Format" Const strTxtPreviewPost = "Preview Post" Const strTxtMode = "Mode" Const strTxtPrompt = "Prompt" Const strTxtBasic = "Basic" Const strTxtAddEmailLink = "Add E-mail Link" Const strTxtList = "List" Const strTxtCentre = "Centre" Const strTxtEnterBoldText = "Enter text you want formatted in Bold" Const strTxtEnterItalicText = "Enter text you want formatted in Italic" Const strTxtEnterUnderlineText = "Enter text you want Underlined" Const strTxtEnterCentredText = "Enter text you want Centred" Const strTxtEnterHyperlinkText = "Enter the on screen display text for the Hyperlink" Const strTxtEnterHeperlinkURL = "Enter the URL address to create Hyperlink to" Const strTxtEnterEmailText = "Enter the on screen display text for the e-mail address" Const strTxtEnterEmailMailto = "Enter the e-mail address to link to" Const strTxtEnterImageURL = "Enter the web address of the image" Const strTxtEnterTypeOfList = "Type of list" Const strTxtEnterEnter = "Enter" Const strTxtEnterNumOrBlankList = "for numbered or leave blank for bulleted" Const strTxtEnterListError = "ERROR! Please enter" Const strEnterLeaveBlankForEndList = "List item Leave blank to end list" 'IE_message_form.inc '--------------------------------------------------------------------------------- Const strTxtCut = "Cut" Const strTxtCopy = "Copy" Const strTxtPaste = "Paste" Const strTxtBold = "Bold" Const strTxtItalic = "Italic" Const strTxtUnderline = "Underline" Const strTxtLeftJustify = "Left Justify" Const strTxtCentrejustify = "Centre Justify" Const strTxtRightJustify = "Right Justify" Const strTxtUnorderedList = "Unordered List" Const strTxtOutdent = "Outdent" Const strTxtIndent = "Indent" Const strTxtAddHyperlink = "Add Hyperlink" Const strTxtAddImage = "Add Image" Const strTxtJavaScriptEnabled = "JavaScript must be enabled on your web browser for you to post a message in the forum!" Const strTxtShowSignature = "Show Signature" Const strTxtEmailNotify = "E-mail Notify me of Replies" Const strTxtUpdatePost = "Update Post" Const strTxtSpecialCharacters = "Special Characters" Const strTxtFontColour = "Colour" 'register_form.inc '--------------------------------------------------------------------------------- Const strTxtRegisterNewUser = "Register New User" Const strTxtProfileUsernameLong = "This is the name displayed when you use the forum" Const strTxtRetypePassword = "Retype Password" Const strTxtProfileEmailLong = "Not required, but useful if you wish to be notified when someone answers one of your post's or if you lose your password" Const strTxtShowHideEmail = "Show or hide e-mail" Const strTxtShowHideEmailLong = "Hide your e-mail address if you want it kept private from other users" Const strTxtShowEmail = "Show E-mail" Const strTxtHideEmail = "Hide E-mail" Const strTxtSelectCountry = "Select Country" Const strTxtProfileAutoLogin = "Automatically log me in when I return to the Forum" Const strTxtSignature = "Signature" Const strTxtSignatureLong = "Enter a signature that you would like shown at the bottom of your Forum Posts" Const strTxtErrorUsernameChar = "Username \t- Your Username must be at least 4 characters" Const strTxtErrorPasswordChar = "Password \t- Your Password must be at least 4 characters" Const strTxtErrorPasswordNoMatch = "Password Error\t- The passwords entered do not match" Const strTxtErrorValidEmail = "E-mail\t\t- Enter your valid e-mail address" Const strTxtErrorValidEmailLong = "If you don't want to enter your e-mail address then leave the e-mail field blank" Const strTxtErrorNoEmailToShow = "You can not show your e-mail address if you haven\'t entered one!" Const strTxtErrorSignatureToLong = "Signature \t- Your signature has to many characters" 'profile_edit.inc '--------------------------------------------------------------------------------- Const strTxtUpdateProfile = "Update Profile" 'register_new_user.inc '--------------------------------------------------------------------------------- Const strTxtUsrenameGone = "Sorry the Username you requested is already taken.
Please choose another Username." Const strTxtEmailThankYouForRegistering = "Thank-you for taking the time to register to use the" Const strTxtEmailYouCanNowUseTheForumAt = "Your login details can be found below and now you have registered for a new account you can post new messages and reply to existing ones on the" Const strTxtEmailForumAt = "Forum at" Const strTxtEmailToThe = "to the" 'register_new_user.inc '--------------------------------------------------------------------------------- Const strTxtEmailAMeesageHasBeenPosted = "A message has been posted in the forum on" Const strTxtEmailClickOnLinkBelowToView = "To view the post then click on the link below" Const strTxtEmailAMeesageHasBeenPostedOnForumNum = "A message has been posted in the forum number" 'registration_rules.asp '--------------------------------------------------------------------------------- Const strTxtForumRulesAndPolicies = "Forum Rules and Policies" Const srtTxtAccept = "Accept" Const strTxtCancel = "Cancel" 'New from version 6 '--------------------------------------------------------------------------------- Const strTxtHi = "Hi" Const strTxtForumPostNotifi = "Forum Post Notification" Const strTxtInterestingForumPostOn = "Interesting Forum post on" Const strTxtForumLostPasswordRequest = "Forum Lost Password Request" Const strTxtLockTopic = "Lock Closed" Const strTxtLockForum = "Lock Forum" Const strTxtLockTopicAlert = "Are you sure you want to Lock this Topic?" Const strTxtUnLockTopicAlert = "Are you sure you want to Un-Lock this Topic?" Const strTxtLockForumAlert = "Are you sure you want to Lock this Forum?" Const strTxtUnLockForumAlert = "Are you sure you want to Un-Lock this Forum?" Const strTxtLockedTopic = "Closed Topic" Const strTxtUnLockTopic = "Un-Lock Topic" Const strTxtTopicLocked = "Topic Closed" Const strTxtUnForumLocked = "Un-Lock Forum" Const strTxtThisTopicIsLocked = "This topic is closed." Const strTxtThatYouAskedKeepAnEyeOn = "that you asked us to keep an eye on." Const strTxtTheTopicIsNowDeleted = "The Topic has now been Deleted." Const strTxtOf = "of" Const strTxtDeleteMember = "Delete Member" Const strTxtTheTimeNowIs = "The time now is" Const strTxtYouLastVisitedOn = "You last visited on" Const strTxtSendMsg = "Send PM" Const strTxtSendPrivateMessage = "Send Private Message" Const strTxtDeleteMemberCheck = "Are you sure you want to permanently Delete this Member from the Forum?" Const strTxtActiveUsers = "Active Users" Const strTxtGuestsAnd = "Guest(s) and" Const strTxtMembers = "Member(s)" Const strTxtPreview = "Preview" Const strTxtRemoveAvatar = "Remove Avatar" Const strTxtRemoveSignature = "Remove Signature" Const strTxtThereIsNothingToPreview = "There is nothing to preview" Const strTxtEnterTextYouWouldLikeIn = "Enter the text that you would like in" Const strTxtEmailAddressAlreadyUsed = "Sorry, the e-mail address entered has already been used to register a member." Const strTxtIP = "IP" Const strTxtIPLogged = "IP Logged" Const strTxtPages = "Pages" Const strTxtCharacterCount = "Character Count" Const strTxtAdmin = "Admin" Const strTxtType = "Group" Const strTxtActive = "Active" Const strNotActive = "Not Active" Const strTxtSuspended = "Suspended" Const strTxtMembership = "Membership" Const strTxtUpdateAccount = "Update Profile" Const strTxtGuest = "Guest" Const strTxtStandardMember = "Standard Member" Const strTxtGoldMember = "Gold Member" Const strTxtPlatinumMember = "Platinum Member" Const strTxtEmailRequiredForActvation = "Required to be able to receive an e-mail to activate your membership" Const strTxtToActivateYourMembershipFor = "To activate your membership for" Const strTxtForumClickOnTheLinkBelow = "Forum click on the link below" Const strTxtForumAdmin = "Forum Admin" Const strTxtViewLastPost = "View Last Post" Const strTxtSelectAvatar = "Select Avatar" Const strTxtAvatar = "Avatar" Const strTxtSelectAvatarDetails = "This is the small icon shown next to your posts. Either select one from the list or type the path in to your own Avatar (must be 32 x 32 pixels)." Const strTxtForumCodesInSignature = "can be used in your signature" Const strTxtHighPriorityPost = "Priority Topic" Const strTxtHighPriorityPostLocked = "Locked Priority Topic" Const strTxtHotTopicNewReplies = "Hot Topic (new replies)" Const strTxtHotTopic = "Hot Topic (no new replies)" Const strTxtOpenTopic = "Open Topic (no new replies)" Const strTxtOpenTopicNewReplies = "Open Topic (new replies)" Const strTxtPinnedTopic = "Pinned Topic" Const strTxtOpenForum = "Open Forum (no new replies)" Const strTxtOpenForumNewReplies = "Open Forum (new replies)" Const strTxtReadOnly = "Read Only (no new replies)" Const strTxtReadOnlyNewReplies = "Read Only (new replies)" Const strTxtPasswordRequired = "Password Required" Const strTxtNoAccess = "No Access" Const strTxtFont = "Font" Const strTxtSize = "Size" Const strTxtForumCodes = "Forum Codes" Const strTxtPriority = "Priority" Const strTxtNormal = "Normal" Const strTxtTopAllForums = "Top (all forums)" Const strTopThisForum = "Top (this forum)" Const strTopPinned = "Pinned" Const strTxtMarkAllPostsAsRead = "Mark all posts as read" Const strTxtDeleteCookiesSetByThisForum = "Delete cookies set by this forum" 'forum_codes '--------------------------------------------------------------------------------- Const strTxtYouCanUseForumCodesToFormatText = "You can use the following Forum Codes to Format your text" Const strTxtTypedForumCode = "Typed Forum Code" Const strTxtConvetedCode = "Converted Code" Const strTxtTextFormating = "Text Formatting" Const strTxtImagesAndLinks = "Images and Links" Const strTxtFontTypes = "Font Types" Const strTxtFontSizes ="Font Sizes" Const strTxtFontColours ="Font Colours" Const strTxtEmoticons = "Emoticons" Const strTxtFontSize = "Font Size" Const strTxtMyLink = "My Link" Const strTxtMyEmail = "My E-mail" 'pm_welcome.asp '--------------------------------------------------------------------------------- Const strTxtToYourPrivateMessenger = "to your Private Messenger" Const strTxtPmIntroduction = "From your Private Messenger you can send and receive Private Messages between yourself and other forum members, knowing that your messages won't be viewed by other forum members." Const strTxtInboxStatus = "Inbox Status" Const strTxtYouHave = "You have" Const strTxtNewMsgsInYourInbox = "new message(s) in your inbox!" Const strTxtGoToYourInbox = "Go to your inbox" Const strTxtNoNewMsgsInYourInbox = "You have no new messages in your inbox." Const strTxtYourLatestPrivateMessageIsFrom = "Your latest Private Message is from" Const strTxtSentOn = "sent on" Const strTxtPrivateMessengerOverview = "Private Messenger Overview" Const strTxtInboxOverview = "This is where all incoming Private Messages are stored and from where you can view or delete any Private Messages you have received. It works very much like your e-mail 'inbox'." Const strTxtBuddyListOverview = "This is like an address book. You can add or delete forum members to your Buddy List for quick reference. You can also block those members you don't wish to receive Private Messages from." Const strTxtNewMsgOverview = "This is where you can compose new Private Messages and send them to other forum members." 'pm_inbox.asp '--------------------------------------------------------------------------------- Const strTxtPrivateMessenger = "Private Messenger" Const strTxtInbox = "Inbox" Const strTxtBuddyList = "Buddy List" Const strTxtNewPrivateMessage = "New Private Message" Const strTxtNoPrivateMessages = "You have no Private Messages in your Inbox" Const strTxtRead = "Read" Const strTxtMessageTitle = "Message Title" Const strTxtMessageFrom = "Message From" Const strTxtDate = "Date" Const strTxtAddBuddy = "Add Buddy" Const strTxtBlock = "block" Const strTxtUnreadMessage = "Unread message" Const strTxtReadMessage = "Read message" Const strTxtSentBy = "Sent by" Const strTxtDeletePrivateMessageAlert = "Are you sure you want to delete the selected Private Message(s)?" Const strTxtPrivateMessagesYouCanReceiveAnother = "Private Messages, you can receive another" Const strTxtOutOf = "out of" Const strTxtNew = "new" 'pm_show_message.asp '--------------------------------------------------------------------------------- Const strTxtSorryYouDontHavePermissionsPM = "Sorry, you don't have permission to view this private message" Const strTxtYouDoNotHavePermissionViewPM = "You do not have permission to view this Private Message." Const strTxtNotificationReadPM = "Read Private Message Notification" Const strTxtReplyToPrivateMessage = "Reply To Private Message" Const strTxtAddToBuddy = "Add To Buddy List" 'pm_new_message_form.asp '--------------------------------------------------------------------------------- Const strTxtSendNewMessage = "Send New Message" Const strTxtNoneSelected = "None Selected" Const strTxtPostMessage = "Post Message" Const strTxtEmailNotifyWhenPMIsRead = "E-mail Notify me when message is read" Const strTxtToUsername = "To Username" Const strSelectFormBuddyList = "or select from Buddy List" Const strTxtNoPMSubjectErrorMsg = "Subject \t\t- Enter a Subject for your new Private Message" Const strTxtNoToUsernameErrorMsg = "To Username \t- Enter or Select a Username to send you Private Message to" Const strTxtNoPMErrorMsg = "Message \t\t- Enter a Private Message to send" Const strTxtPreviousPrivateMessage = "Previous Private Message" Const strTxtSent = "Sent" 'pm_post_message.asp '--------------------------------------------------------------------------------- Const strTxtAPrivateMessageHasBeenPosted = "A Private Message has been posted for you on" Const strTxtClickOnLinkBelowForPM = "Click on the link below to go to the forum to view the Private Message" Const strTxtNotificationPM = "Private Message Notification" Const strTxtTheUsernameCannotBeFound = "The Username you have entered can not be found." Const strTxtYourPrivateMessage = "Your Private Message" Const strTxtHasNotBeenSent = "has not been sent!" Const strTxtAmendYourPrivateMessage = "Amend your Private Message" Const strTxtReturnToYourPrivateMessenger = "Return to your Private Messenger" Const strTxtYouAreBlockedFromSendingPMsTo = "You are blocked you from sending Private Messages to" Const strTxtHasExceededMaxNumPPMs = "has exceeded the maximum number of Private Messages they are allowed to receive" 'pm_buddy_list.asp '--------------------------------------------------------------------------------- Const strTxtNoBuddysInList = "You have no Buddy's in your Buddy List" Const strTxtDeleteBuddyAlert = "Are you sure you want to Delete this Buddy from your Buddy List?" Const strTxtNoBuddyErrorMsg = "Member Name \t- Enter a Forum Member to add to your Buddy List" Const strTxtBuddy = "Buddy" Const strTxtDescription = "Description" Const strTxtContactStatus = "Contact Status" Const strTxtThisPersonCanNotMessageYou = "This person can not message you" Const strTxtThisPersonCanMessageYou = "This person can message you" Const strTxtAddNewBuddyToList = "Add New Buddy to List" Const strTxtMemberName = "Member Name" Const strTxtAllowThisMemberTo = "Allow this member to" Const strTxtMessageMe = "Message me" Const strTxtNotMessageMe = "Not message me" Const strTxtHasNowBeenAddedToYourBuddyList = "has now been added to your Buddy List" Const strTxtIsAlreadyInYourBuddyList = "is already in your Buddy List" Const strTxtUserCanNotBeFoundInDatabase = "can not be found in the database.\n\nCheck you havn\'t misspelled the Members Username" 'insufficient_permission.asp '--------------------------------------------------------------------------------- Const strTxtAccessDenied = "Access Denied" Const strTxtInsufficientPermison = "Sorry, only members with sufficient permission can access this page." 'activate.asp '--------------------------------------------------------------------------------- Dim strTxtYourForumMemIsNowActive strTxtYourForumMemIsNowActive = "Thank-you for registering.

Your " & strWebsiteName & " Forum membership is now active." Dim strTxtErrorWithActvation strTxtErrorWithActvation = "There is a problem activating your membership.

Please contact the " & strWebsiteName & " Forum Administrator." 'register_mail_confirm.asp '--------------------------------------------------------------------------------- Const strTxtYouShouldReceiveAnEmail = "You should receive an e-mail in the next 15 minutes.
Click on the link in this e-mail to activate your Forum Membership." Dim strTxtThankYouForRegistering strTxtThankYouForRegistering = "Thank-you for registering to use the " & strWebsiteName & " Forum." Dim strTxtIfErrorActvatingMembership strTxtIfErrorActvatingMembership = "If you have a problem activating your membership please contact the " & strWebsiteName & " Forum Administrator." 'move_topic_form.asp '--------------------------------------------------------------------------------- Const strTxtMoveTopic = "Move Topic" Const strTxtSelectTheForumYouWouldLikeForumIn = "Select the Forum you would like this topic to be in" Const strTxtMoveTopicErrorMsg = "Forum\t- Please select a Forum to move the Topic to" 'active_users.asp '--------------------------------------------------------------------------------- Const strTxtActiveForumUsers = "Active Forum Users" Const strTxtAddMToActiveUsersList = "Add me to Active Users list" Const strTxtLoggedIn = "Logged In" Const strTxtLastActive = "Last Active" Const strTxtBrowser = "Browser" Const strTxtOS = "OS" Const strTxtMinutes = "minutes" Const strTxtAnnoymous = "Anonymous" 'not_posted.asp '--------------------------------------------------------------------------------- Const strTxtMessageNotPosted = "Message Not Posted" Const strTxtDoublePostingIsNotPermitted = "Double posting is not permitted; your message has been posted already." Const strTxtSpammingIsNotPermitted = "Spamming is not permitted!" Const strTxtYouHaveExceededNumOfPostAllowed = "You have exceeded the number of posts permitted in the time span.

Please try again later." Const strTxtYourMessageNoValidSubjectHeading = "Your message did not contain a valid subject heading and/or message body." 'active_topics.asp '--------------------------------------------------------------------------------- Const strTxtActiveTopics = "Active Topics" Const strTxtLastVisitOn = "Last visit on" Const strTxtLastFifteenMinutes = "Last 15 minutes" Const strTxtLastThirtyMinutes = "Last 30 minutes" Const strTxtLastFortyFiveMinutes = "Last 45 minutes" Const strTxtLastHour = "Last hour" Const strTxtLastTwoHours = "Last 2 hours" Const strTxtYesterday = "Yesterday" Const strTxtShowActiveTopicsSince = "Show Active Topics since" Const strTxtNoActiveTopicsSince = "There are no Active Topics since" Const strTxtToDisplay = "to display" Const strTxtThereAreCurrently = "There are currently" 'pm_check.inc '--------------------------------------------------------------------------------- Const strTxtNewPMsClickToGoNowToPM = "new Private Message(s).\n\nClick OK to go to go to your Private Messenger." 'display_forum_topics.inc '--------------------------------------------------------------------------------- Const strTxtFewYears = "few years" Const strTxtWeek = "week" Const strTxtTwoWeeks = "two weeks" Const strTxtMonth = "month" Const strTxtTwoMonths = "two months" Const strTxtSixMonths = "6 months" Const strTxtYear = "year" 'Colours '--------------------------------------------------------------------------------- Const strTxtBlack = "Black" Const strTxtWhite = "White" Const strTxtBlue = "Blue" Const strTxtRed = "Red" Const strTxtGreen = "Green" Const strTxtYellow = "Yellow" Const strTxtOrange = "Orange" Const strTxtBrown = "Brown" Const strTxtMagenta = "Magenta" Const strTxtCyan = "Cyan" Const strTxtLimeGreen = "Lime Green" 'New from version 6.10 '--------------------------------------------------------------------------------- Const strTxtHasBeenSentTo = "has been sent to" Const strTxtCharactersInYourSignatureToLong = "characters in your signature, you must shorten it to below 200" Const strTxtThisIsToNotifyYouThat = "This is to notify you that" Const strTxtHasReadPMYouSentThem = "has read the Private Message you sent to them on" 'New from version 6.12 '--------------------------------------------------------------------------------- Const strTxtSorryYourSearchFoundNoMembers = "Sorry, your search found no forum members that match your criteria" 'New from version 6.20 '--------------------------------------------------------------------------------- Const strTxtCahngeOfEmailReactivateAccount = "If you change your e-mail address you will be sent an e-mail to re-activate your account" Const strTxtAddToBuddyList = "Add to Buddy List" 'register_mail_confirm.asp '--------------------------------------------------------------------------------- Const strTxtYourEmailAddressHasBeenChanged = "Your e-mail address has been changed,
you will have to re-activate your forum membership before you can use the forum again." Const strTxtYouShouldReceiveAReactivateEmail = "You should receive an e-mail in the next 15 minutes.
Click on the link in this e-mail to re-activate your Forum Membership." 'move_post_form.asp '--------------------------------------------------------------------------------- Const strTxtMovePost = "Move Post" Const strTxtSelectTheForumYouWouldLikePostIn = "Select the Forum you would like this post to be in" Const strTxtMovePostErrorMsg = "Forum\t- Please select a Forum to move the Post to" Const strTxtSelectForumClickNext = "Step 1: - Select the Forum you would like to move the Post to.
Then click on the Next button." Const strTxtSelectTopicToMovePostTo = "Step 2: - Select the Topic to move the Post to from the last 400 Topics in this
forum. Alternatively type the name of a new Topic in the box at the
bottom to place the Post in a new Topic." Const strTxtSelectTheTopicYouWouldLikeThisPostToBeIn = "Select the Topic you would like this post to be in" Const strTxtOrTypeTheSubjectOfANewTopic = "Or, type the Subject of a new Topic" 'New from version 6.27 'Preview signature windos '--------------------------------------------------------------------------------- Const strTxtSignaturePreview = "Signature Preview" Const strTxtPostedMessage = "Posted Message" %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide ASP Discussion Forum '** '** Copyright 2001-2002 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.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Declare varibles Dim rsSecurityLevel 'Holds the recordset for the security setting Dim intMemberSecurityLevel 'Holds the security level of the forum Dim strMemberStatus 'Holds the string version of thye members status level 'Turn the members status number returned from the database into a string value Select Case intMemberStatus 'Guest status Case 0 strMemberStatus = "Guest" 'Standard member status Case 1 strMemberStatus = "Standard" 'Super member status Case 2 strMemberStatus = "Super" 'Power member status Case 3 strMemberStatus = "Power" End select 'Get the security level for the member within this forum If Request.QueryString("ForumID") <> "" Then 'Intialise the ADO recordset object Set rsSecurityLevel = Server.CreateObject("ADODB.Recordset") 'Initlise the sql statement If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE wwfSpForumsAllWhereForumIs @intForumID = " & CInt(Request("ForumID")) Else strSQL = "SELECT tblForum." & strMemberStatus & " FROM tblForum WHERE tblForum.Forum_ID=" & CInt(Request("ForumID")) & "; " End If 'Query the database rsSecurityLevel.Open strSQL, strCon 'If theres a record returned then get the security level of the user on this forum If NOT rsSecurityLevel.EOF Then intMemberSecurityLevel = CInt(rsSecurityLevel(strMemberStatus)) End If 'Get rid of them objects rsSecurityLevel.Close Set rsSecurityLevel = Nothing End If 'If the user is the forum admin or moderator then set there security level to 1 (read and write) If lngLoggedInUserID = 1 OR blnModerator = True Then intMemberSecurityLevel = 1 'If the security level for this user on this forum is 3 they don't have permission to view this forum so send them elsewhere If intMemberSecurityLevel = 3 Then 'Reset Server Objects Set adoCon = Nothing Set strCon = Nothing 'Redirect to no permission page Response.Redirect("insufficient_permission.asp?" & Request.ServerVariables("QUERY_STRING")) End If %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2002 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.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Set the response buffer to true as we maybe redirecting and setting a cookie Response.Buffer = True %> <% 'Default White/Silver Skin '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2002 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.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Global on Each Page '--------------------------------------------------------------------------------- Const strBgColour = "#FFFFFF" Const strBgImage = "" Const strTextColour = "#000000" Const intSmallFontSize = 10 'Table colours '--------------------------------------------------------------------------------- Const strTableColour = "#FBFBF6" Const strTableBgImage = "" Const strTableBorderColour = "#666666" Const strTableVariableWidth = "98%" Const strTableTitleColour = "#CCCCCC" Const strTableTitleBgImage = "forum_images/table_bg_image.gif" Const strTableTitleColour2 = "#E7E7E7" Const strTableTitleBgImage2 = "" Const strTableEvenRowColour = "#FEFEFC" Const strTableOddRowColour = "#F8F7EF" 'Misc '--------------------------------------------------------------------------------- Const strProfileBgColour = "#CCCCCC" Const strIETextBoxColour = "#FFFFFF" Const strImagePath = "forum_images/" 'Posts and Private Msg display box '--------------------------------------------------------------------------------- Const strTopBarColour = "#E7E7E7" Const strTopBarBgImage = "" Const strSideBarColour = "#E7E7E7" Const strSideBarImage = "" Const strDisplayPostBoxColour = "#FFFFFF" Const strDisplayPostBoxImage = "" Const strBehindBgColour = "#666666" 'Buttons and Images '--------------------------------------------------------------------------------- Const intButtonHeight = 24 Const intButtonWidth = 88 Const intAvatarHeight = 32 Const intAvatarWidth = 32 Const strProfileBgImage = "" 'Cascading Style Sheet '--------------------------------------------------------------------------------- 'Response.Write(VbCrLf & "