<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="common.asp" -->
<!--#include file="functions/functions_date_time_format.asp" -->
<%
'## Multiskin Selection Mod ##
%>
<!--#include file="language_files/language_s2h.asp" -->
<%
'## Multiskin Selection Mod ##
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Forums(TM)
'** http://www.webwizforums.com" rel="nofollow - http://www.webwizforums.com
'**
'** Copyright (C)2001-2009 Web Wiz(TM). All Rights Reserved.
'**
'** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'.
'**
'** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE
'** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'** AND DERIVATIVE WORKS IMMEDIATELY.
'**
'** If you have not received a copy of the license with this work then a copy of the latest
'** license contract can be found at:-
'**
'** http://www.webwizguide.com/license" rel="nofollow - http://www.webwizguide.com/license
'**
'** For more information about this software and for licensing information please contact
'** 'Web Wiz' at the address and website below:-
'**
'** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'** http://www.webwizguide.com" rel="nofollow - http://www.webwizguide.com
'**
'** Removal or modification of this copyright notice will violate the license contract.
'**
'****************************************************************************************
'**
'** File Modified by Scotty32 ( http://www.s2h.co.uk" rel="nofollow - www.s2h.co.uk )
'**
'** Multiskin Selection
'** ---------------------
'**
'** Version: 3.1.1
'** Author: Scotty32
'** Website: http://www.s2h.co.uk/wwf/mods/multiskin-selection/" rel="nofollow - http://www.s2h.co.uk/wwf/mods/multiskin-selection/
'** Support: http://www.s2h.co.uk/forum/" rel="nofollow - http://www.s2h.co.uk/forum/
'**
'****************************************************************************************
'*************************** SOFTWARE AND CODE MODIFICATIONS ****************************
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************
strSQL = "SELECT " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.Username FROM " & strDbTable & "Author ORDER BY " & strDbTable & "Author.No_of_posts DESC LIMIT 0,10;"
rsCommon.Open strSQL, adoCon
if rsCommon.EOF or rsCommon.BOF then
blnNoMembers = True
else
blnNoMembers = False
saryMembers = rsCommon.getrows()
intMembersFirst = LBound(saryMembers, 2)
intMembersLast = UBound(saryMembers, 2)
intMembersCount = intMembersLast
end if
rsCommon.Close
'Set the response buffer to true as we maybe redirecting and setting a cookie
Response.Buffer = true
'Make sure this page is not cached
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
'Dimension variables
Dim sarryForums 'Holds the recordset array for all the categories and forums
Dim saryMemebrStats 'Holds the member stats
Dim strCategory 'Holds the category name
Dim intCatID 'Holds the id for the category
Dim strForumName 'Holds the forum name
Dim strForumDiscription 'Holds the forum description
Dim strForumPassword 'Holds the forum password if there is one
Dim lngNumberOfTopics 'Holds the number of topics in a forum
Dim lngNumberOfPosts 'Holds the number of Posts in the forum
Dim lngTotalNumberOfTopics 'Holds the total number of topics in a forum
Dim lngTotalNumberOfPosts 'Holds the total number of Posts in the forum
Dim intNumberofForums 'Holds the number of forums
Dim lngLastEntryMeassgeID 'Holds the message ID of the last entry
Dim dtmLastEntryDate 'Holds the date of the last entry to the forum
Dim strLastEntryUser 'Holds the the username of the user who made the last entry
Dim lngLastEntryUserID 'Holds the ID number of the last user to make and entry
Dim dtmLastEntryDateAllForums 'Holds the date of the last entry to all fourms
Dim strLastEntryUserAllForums 'Holds the the username of the user who made the last entry to all forums
Dim lngLastEntryUserIDAllForums 'Holds the ID number of the last user to make and entry to all forums
Dim blnForumLocked 'Set to true if the forum is locked
Dim intForumColourNumber 'Holds the number to calculate the table row colour
Dim blnHideForum 'Set to true if this is a hidden forum
Dim intCatShow 'Holds the ID number of the category to show if only showing one category
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 strMembersOnline 'Holds the names of the members online
Dim intSubForumID 'Holds the sub forum ID number
Dim strSubForumName 'Holds the sub forum name
Dim strSubForums 'Holds if there are sub forums
Dim dtmLastSubEntryDate 'Holds the date of the last entry to the forum
Dim strLastSubEntryUser 'Holds the the username of the user who made the last entry
Dim lngLastSubEntryUserID 'Holds the ID number of the last user to make and entry
Dim lngSubForumNumberOfPosts 'Holds the number of posts in the subforum
Dim lngSubForumNumberOfTopics 'Holds the number of topics in the subforum
Dim strSubForumPassword 'Holds sub forum password
Dim lngTotalRecords 'Holds the number of records
Dim intCurrentRecord 'Holds the current record position
Dim intTempRecord 'Holds a temporary record position for looping through records for any checks
Dim blnSubRead 'Holds if the user has entry to the sub forum
Dim lngNoOfMembers 'Holds the number of forum members
Dim intArrayPass 'Active users array counter
Dim strBirthdays 'String containing all those with birtdays today
Dim dtmNow 'Now date with off-set
Dim intBirtdayLoopCounter 'Holds the bitrhday loop counter
Dim intLastForumEntryID 'Holds the last forum ID for the last entry for link in forum stats
Dim intTotalViewingForum 'Holds the number of people viewing the forum, including sub forums
Dim intAnonymousMembers 'Holds the number of intAnonymous members online
Dim intUnReadPostCount 'Holds the count for the number of unread posts in the forum
Dim intUnReadForumPostsLoop 'Loop to count the number of unread posts in a forum
Dim lngTopicID 'Holds the topic ID
Dim strSubject 'Holds the subject
Dim lngSubTopicID 'Holds the topic ID
Dim strSubSubject 'Holds the subject
Dim strNewPostText
Dim strPageQueryString 'Holds the querystring for the page
'## MultiSkin Mod ##
Dim intS2HNewSkinID
'## MultiSkin Mod ##
Dim blnNoMembers
Dim saryMembers
Dim intMembersFirst
Dim intMembersLast
Dim intMembersCount
'Initialise variables
lngTotalNumberOfTopics = 0
lngTotalNumberOfPosts = 0
intNumberofForums = 0
intForumColourNumber = 0
intActiveMembers = 0
intActiveGuests = 0
intActiveUsers = 0
intAnonymousMembers = 0
lngTotalRecords = 0
lngNoOfMembers = 0
intBirtdayLoopCounter = 0
'Read in the qerystring
strPageQueryString = Request.QueryString()
'Remove the page title from the querystring beofre doing the sql injection test
If Request.QueryString("title") <> "" Then strPageQueryString = Replace(strPageQueryString, Request.QueryString("title"), "")
'Test querystrings for any SQL Injection keywords
Call SqlInjectionTest(strPageQueryString)
'Read in the category to show
If IsNumeric(Request.QueryString("C")) Then
intCatShow = CInt(Request.QueryString("C"))
Else
intCatShow = 0
End If
'If we have not yet checked for unread posts since last visit run it now
If Session("dtmUnReadPostCheck") = "" Then
Call UnreadPosts()
'Read in array if at application level
ElseIf isArray(Application("sarryUnReadPosts" & strSessionID)) Then
sarryUnReadPosts = Application("sarryUnReadPosts" & strSessionID)
'Read in the unread posts array
ElseIf isArray(Session("sarryUnReadPosts")) Then
sarryUnReadPosts = Session("sarryUnReadPosts")
End If
'## S2H MultiSkin Mod ##
intS2HNewSkinID = Request.QueryString("SC")
if isNumeric(intS2HNewSkinID) then intS2HNewSkinID = cint(intS2HNewSkinID) else intS2HNewSkinID = 0
if intS2HNewSkinID <> 0 then
Call S2HSetUsersSkin(intS2HNewSkinID)
Call closeDatabase()
Response.Redirect("default.asp" & strQsSID1)
end if
'## S2H MultiSkin Mod ##
'Read the various categories, forums, and permissions from the database in one hit for extra performance
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "" & _
"SELECT " & strDbTable & "Category.Cat_ID, " & strDbTable & "Category.Cat_name, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Sub_ID, " & strDbTable & "Forum.Forum_name, " & strDbTable & "Forum.Forum_description, " & strDbTable & "Forum.No_of_topics, " & strDbTable & "Forum.No_of_posts, " & strDbTable & "Author.Username, " & strDbTable & "Forum.Last_post_author_ID, " & strDbTable & "Forum.Last_post_date, " & strDbTable & "Forum.Password, " & strDbTable & "Forum.Locked, " & strDbTable & "Forum.Hide, " & strDbTable & "Permissions.View_Forum, " & strDbTable & "Forum.Last_topic_ID, " & strDbTable & "Topic.Subject " & _
"FROM (((" & strDbTable & "Category INNER JOIN " & strDbTable & "Forum ON " & strDbTable & "Category.Cat_ID = " & strDbTable & "Forum.Cat_ID) LEFT JOIN " & strDbTable & "Topic ON " & strDbTable & "Forum.Last_topic_ID = " & strDbTable & "Topic.Topic_ID) INNER JOIN " & strDbTable & "Author ON " & strDbTable & "Forum.Last_post_author_ID = " & strDbTable & "Author.Author_ID) INNER JOIN " & strDbTable & "Permissions ON " & strDbTable & "Forum.Forum_ID = " & strDbTable & "Permissions.Forum_ID " & _
"WHERE (" & strDbTable & "Permissions.Author_ID = " & lngLoggedInUserID & " OR " & strDbTable & "Permissions.Group_ID = " & intGroupID & ") " & _
"ORDER BY " & strDbTable & "Category.Cat_order, " & strDbTable & "Forum.Forum_Order, " & strDbTable & "Permissions.Author_ID DESC;"
'Set error trapping
On Error Resume Next
'Query the database
rsCommon.Open strSQL, adoCon
'If an error has occurred write an error to the page
If Err.Number <> 0 Then Call errorMsg("An error has occurred while executing SQL query on database.", "get_forum_data", "default.asp")
'Disable error trapping
On Error goto 0
'Place the recordset into an array
If NOT rsCommon.EOF Then
sarryForums = rsCommon.GetRows()
lngTotalRecords = Ubound(sarryForums,2) + 1
End If
'Close the recordset
rsCommon.Close
'SQL Query Array Look Up table
'0 = Cat_ID
'1 = Cat_name
'2 = Forum_ID
'3 = Sub_ID
'4 = Forum_name
'5 = Forum_description
'6 = No_of_topics
'7 = No_of_posts
'8 = Last_post_author
'9 = Last_post_author_ID
'10 = Last_post_date
'11 = Password
'12 = Locked
'13 = Hide
'14 = Read
'15 = Last_topic_ID
'16 = Topic.Subject
'Get the last signed up user and member stats and birthdays for use at bottom of page
If blnDisplayBirthdays Then
'Get the now date with time off-set
dtmNow = getNowDate()
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.DOB " & _
"FROM " & strDbTable & "Author" & strDBNoLock & " " & _
"WHERE MONTH(" & strDbTable & "Author.DOB) = " & Month(dtmNow) & " " & _
"AND DAY(" & strDbTable & "Author.DOB) = " & Day(dtmNow) & " " & _
"ORDER BY " & strDbTable & "Author.Author_ID DESC;"
'Set error trapping
On Error Resume Next
'Query the database
rsCommon.Open strSQL, adoCon
'If an error has occurred write an error to the page
If Err.Number <> 0 AND strDatabaseType = "mySQL" Then
Call errorMsg("An error has occurred while executing SQL query on database.<br />Please check that the MySQL Server version is 4.1 or above.", "get_birthdays", "default.asp")
ElseIf Err.Number <> 0 Then
Call errorMsg("An error has occurred while executing SQL query on database.", "get_birthdays", "default.asp")
End If
'Disable error trapping
On Error goto 0
'Place the recordset into an array
If NOT rsCommon.EOF Then
'Read the recordset into an array
saryMemebrStats = rsCommon.GetRows()
'Loop through to get all members with birthdays today
Do While intBirtdayLoopCounter <= Ubound(saryMemebrStats, 2)
'If bitrhday is found for this date then add it to string
If Month(dtmNow) = Month(saryMemebrStats(2, intBirtdayLoopCounter)) AND Day(dtmNow) = Day(saryMemebrStats(2, intBirtdayLoopCounter)) Then
'If there is already one birthday then place a comma before the next
If strBirthdays <> "" Then strBirthdays = strBirthdays & ", "
'Place the birthday into the Birthday array
strBirthdays = strBirthdays & "<a href=""member_profile.asp?PF=" & saryMemebrStats(1, intBirtdayLoopCounter) & strQsSID2 & """ rel=""nofollow"">" & saryMemebrStats(0, intBirtdayLoopCounter) & "</a> (" & Fix(DateDiff("m", saryMemebrStats(2, intBirtdayLoopCounter), Year(dtmNow) & "-" & Month(dtmNow) & "-" & Day(dtmNow))/12) & ")"
End If
'Increment loop counter by 1
intBirtdayLoopCounter = intBirtdayLoopCounter + 1
Loop
End If
'Close recordset
rsCommon.close
End If
'Read in some stats about the last members
strSQL = "SELECT " & strDBTop1 & " " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID "
If NOT strDatabaseType = "mySQL" Then strSQL = strSQL & ", (SELECT COUNT (*) FROM " & strDbTable & "Author WHERE 1 = 1) AS memberCount "
strSQL = strSQL & _
"FROM " & strDbTable & "Author" & strDBNoLock & " " & _
"ORDER BY " & strDbTable & "Author.Author_ID DESC " & strDBLimit1 & ";"
'Set error trapping
On Error Resume Next
'Query the database
rsCommon.Open strSQL, adoCon
'If an error has occurred write an error to the page
If Err.Number <> 0 Then Call errorMsg("An error has occurred while executing SQL query on database.", "get_last_USR_+_count", "default.asp")
'Disable error trapping
On Error goto 0
'Place the recordset into an array
If NOT rsCommon.EOF Then
'Read in member count from database (if NOT mySQL)
If NOT strDatabaseType = "mySQL" Then lngNoOfMembers = CLng(rsCommon("memberCount"))
'Read the recordset into an array
saryMemebrStats = rsCommon.GetRows()
End If
'Close recordset
rsCommon.close
'We have tgo use a seporate query to count the number of members in mySQL
If strDatabaseType = "mySQL" Then
'Count the number of members
strSQL = "SELECT Count(" & strDbTable & "Author.Author_ID) AS memberCount " & _
"FROM " & strDbTable & "Author;"
'Set error trapping
On Error Resume Next
'Query the database
rsCommon.Open strSQL, adoCon
'If an error has occurred write an error to the page
If Err.Number <> 0 Then Call errorMsg("An error has occurred while executing SQL query on database.", "member_count", "default.asp")
'Disable error trapping
On Error goto 0
'Read in member count from database
lngNoOfMembers = CLng(rsCommon("memberCount"))
'Close recordset
rsCommon.close
End If
'If active users is enabled update the active users application array
If blnActiveUsers Then
'Call active users function
saryActiveUsers = activeUsers("", strTxtForumIndex, "default.asp", 0)
End If
'Set the status bar tools
'Active Topics Links
strStatusBarTools = strStatusBarTools & " <img src=""" & strImagePath & "active_topics." & strForumImageType & """ alt=""" & strTxtActiveTopics & """ title=""" & strTxtActiveTopics & """ style=""vertical-align: text-bottom"" /> <a href=""active_topics.asp" & strQsSID1 & """>" & strTxtActiveTopics & "</a> "
strStatusBarTools = strStatusBarTools & " <img src=""" & strImagePath & "unanswered_topics." & strForumImageType & """ alt=""" & strTxtUnAnsweredTopics & """ title=""" & strTxtUnAnsweredTopics & """ style=""vertical-align: text-bottom"" /> <a href=""active_topics.asp?UA=Y" & strQsSID2 & """>" & strTxtUnAnsweredTopics & "</a> "
'If RSS XML enabled then display an RSS button to link to XML file
If blnRSS Then strStatusBarTools = strStatusBarTools & " <a href=""RSS_topic_feed.asp" & SeoUrlTitle(strMainForumName, "?title=") & """ target=""_blank""><img src=""" & strImagePath & "rss." & strForumImageType & """ alt=""" & strTxtRSS & ": " & strTxtNewPostFeed & """ title=""" & strTxtRSS & ": " & strTxtNewPostFeed & """ /></a>"
%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<title><% = strMainForumName %><% If blnLCode Then Response.Write(" - Powered by Web Wiz Forums™") %></title>
<script type="text/javascript">
/***********************************************
* IFrame SSI script II- © Dynamic Drive DHTML code library ( http://www.dynamicdrive.com" rel="nofollow - http://www.dynamicdrive.com )
* Visit DynamicDrive.com for hundreds of original DHTML scripts
* This notice must stay intact for legal use
***********************************************/
//Input the IDs of the IFRAMES you wish to dynamically resize to match its content height:
//Separate each ID with a comma. Examples: ["myframe1", "myframe2"] or ["myframe"] or [] for none:
var iframeids=["myframe"]
//Should script hide iframe from browsers that don't support this script (non IE5+/NS6+ browsers. Recommended):
var iframehide="yes"
var getFFVersion=navigator.userAgent.substring(navigator.userAgent.indexOf("Firefox")).split("/")[1]
var FFextraHeight=parseFloat(getFFVersion)>=0.1? 16 : 0 //extra height in px to add to iframe in FireFox 1.0+ browsers
function resizeCaller() {
var dyniframe=new Array()
for (i=0; i<iframeids.length; i++){
if (document.getElementById)
resizeIframe(iframeids)
//reveal iframe for lower end browsers? (see var above):
if ((document.all || document.getElementById) && iframehide=="no"){
var tempobj=document.all? document.all[iframeids] : document.getElementById(iframeids)
tempobj.style.display="block"
}
}
}
function resizeIframe(frameid){
var currentfr=document.getElementById(frameid)
if (currentfr && !window.opera){
currentfr.style.display="block"
if (currentfr.contentDocument && currentfr.contentDocument.body.offsetHeight) //ns6 syntax
currentfr.height = currentfr.contentDocument.body.offsetHeight+FFextraHeight;
else if (currentfr.Document && currentfr.Document.body.scrollHeight) //ie5+ syntax
currentfr.height = currentfr.Document.body.scrollHeight;
if (currentfr.addEventListener)
currentfr.addEventListener("load", readjustIframe, false)
else if (currentfr.attachEvent){
currentfr.detachEvent("onload", readjustIframe) // Bug fix line
currentfr.attachEvent("onload", readjustIframe)
}
}
}
function readjustIframe(loadevt) {
var crossevt=(window.event)? event : loadevt
var iframeroot=(crossevt.currentTarget)? crossevt.currentTarget : crossevt.srcElement
if (iframeroot)
resizeIframe(iframeroot.id);
}
function loadintoIframe(iframeid, url){
if (document.getElementById)
document.getElementById(iframeid).src=url
}
if (window.addEventListener)
window.addEventListener("load", resizeCaller, false)
else if (window.attachEvent)
window.attachEvent("onload", resizeCaller)
else
window.onload=resizeCaller
</script>
<meta name="generator" content="Web Wiz Forums" /><%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If blnLCode Then
Response.Write(vbCrLf & "<meta name=""description"" content=""This is a discussion forum powered by Web Wiz Forums. To find out about Web Wiz Forums, go to http://www.webwizforums.com" rel="nofollow - http://www.webwizforums.com "" />" & _
vbCrLf & "<meta name=""keywords"" content=""forum, bbs, discussion, bulletin board, message board"" />")
End If
Response.Write(vbCrLf & vbCrLf & "<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Software: Web Wiz Forums(TM) ver. " & strVersion & "" & _
vbCrLf & "Info: http://www.webwizforums.com" rel="nofollow - http://www.webwizforums.com " & _
vbCrLf & "Copyright: (C)2001-2009 Web Wiz(TM). All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->" & vbCrLf)
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'If RSS Feed is enabled then have an alt link to the XML file for supporting browsers
If blnRSS Then Response.Write(vbCrLf & "<link rel=""alternate"" type=""application/rss+xml"" title=""RSS 2.0"" href=""RSS_topic_feed.asp" & SeoUrlTitle(strMainForumName, "?title=") & """ />")
%>
<link href="<% = strCSSfile %>default_style.css" rel="stylesheet" type="text/css" />
<!-- #include file="includes/header.asp" -->
<!-- #include file="includes/status_bar_header_inc.asp" -->
<table class="basicTable" cellspacing="1" cellpadding="3" align="center">
<tr>
<td class="smText"><% = strTxtTheTimeNowIs & " " & TimeFormat(now()) %><br /><%
'If this is not the first time the user has visted the site display the last visit time and date
If IsDate(getCookie("lVisit", "LV")) Then
If dtmLastVisitDate < CDate(getCookie("lVisit", "LV")) Then
Response.Write(strTxtYouLastVisitedOn & " " & DateFormat(dtmLastVisitDate) & " " & strTxtAt & " " & TimeFormat(dtmLastVisitDate))
End If
End If
%><br /></td><%
'If the user has not logged in (guest user ID = 2) then show them a quick login form
If lngLoggedInUserID = 2 AND blnWindowsAuthentication = False AND (blnMemberAPI = False OR blnMemberAPIDisableAccountControl = False) Then
Response.Write(" <td align=""right"" class=""smText"">" & _
vbCrLf & " <form method=""post"" name=""frmLogin"" id=""frmLogin"" action=""login_user.asp" & strQsSID1 & """>" & strTxtQuickLogin & _
vbCrLf & " <input type=""text"" size=""10"" name=""name"" id=""name"" style=""font-size: 10px;"" tabindex=""1"" />" & _
vbCrLf & " <input type=""password"" size=""10"" name=""password"" id=""password"" style=""font-size: 10px;"" tabindex=""2"" />" & _
vbCrLf & " <input type=""hidden"" name=""NS"" id=""NS"" value=""1"" />" & _
vbCrLf & " <input type=""hidden"" name=""returnURL"" id=""returnURL"" value=""returnURL=default.asp"" />" & _
vbCrLf & " <input type=""submit"" value=""" & strTxtGo & """ style=""font-size: 10px;"" tabindex=""3"" />" & _
vbCrLf & " </form>" & _
vbCrLf & " </td>")
End If
Response.Write(vbCrLf & " </tr>")
%>
</table>
<br />
<table cellspacing="1" cellpadding="3" class="tableBorder">
<tr class="tableLedger">
<td colspan="3" height="2">Top 10 Posters</td>
</tr><%
if blnNoMembers then
else
for iLoop = intMembersFirst to intMembersLast
intAuthorID = saryMembers(0, iLoop)
strAuthorName = saryMembers(1, iLoop)
%><tr class="tableRow">
<td> - <a rel="nofollow" href="member_profile.asp?PF=<%=intAuthorID%>"><%=strAuthorName%></a></td>
</tr><%
next
end if
%><tr class="tableBottomRow">
<td align="right"><a rel="nofollow" href="members.asp?SF=&GID=0&SO=PT&OB=desc">View latest members.</a></td>
</tr>
</table>
<br />
<div align="center">
<span class="smText"><a href="mark_posts_as_read.asp<% = strQsSID1 %>" class="smLink"><% = strTxtMarkAllPostsAsRead %></a> :: <a href="remove_cookies.asp<% = strQsSID1 %>" class="smLink"><% = strTxtDeleteCookiesSetByThisForum %></a><br /><br /><% = strTxtCookies %></span><br />
<br /><%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If blnLCode = True Then
If blnTextLinks = True Then
Response.Write("<span class=""text"" style=""font-size:10px"">Bulletin Board Software by <a href="" http://www.webwizforums.com" rel="nofollow - http://www.webwizforums.com "" target=""_blank"" style=""font-size:10px"">Web Wiz Forums®</a> version " & strVersion & "</span>")
If blnACode Then Response.Write("<span class=""text"" style=""font-size:10px""> [Free Express Edition]")
Else
Response.Write("<a href="" http://www.webwizforums.com" rel="nofollow - http://www.webwizforums.com "" target=""_blank""><img src=""webwizforums_image.asp"" border=""0"" title=""Bulletin Board Software by Web Wiz Forums® version " & strVersion & """ alt=""Bulletin Board Software by Web Wiz Forums® version " & strVersion& """ /></a>")
If blnACode Then Response.Write("<br /><span class=""text"" style=""font-size:10px"">Powered by Web Wiz Forums Free Express Edition</span>")
End If
Response.Write("<br /><span class=""text"" style=""font-size:10px"">Copyright ©2001-2009 <a href="" http://www.webwizguide.com" rel="nofollow - http://www.webwizguide.com "" target=""_blank"" style=""font-size:10px"">Web Wiz</a></span>")
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'Display the process time
If blnShowProcessTime Then Response.Write "<span class=""smText""><br /><br />" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "</span>"
%>
</div>
<!-- #include file="includes/footer.asp" -->