| Author |
 Topic  |
|
knightsyde
Starting Member
29 Posts |
 Posted - 23 June 2003 : 12:10:17
|
| I have this installed but some of the graphics are not showing up. In particular the browse members and edit buttons. Is anyone else experiencing this problem with this mod. |
 |
|
|
Gallocedrone
Starting Member
Bhutan
5 Posts |
Posted - 27 June 2003 : 06:41:03
|
| This mod is operative in MySQL database? |
quote:
why did you not post this at Snitz?
The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.
These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.
A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.
Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029
A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162
One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765
etc...
3 times I changed my password and the day after the same game start.
Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum. |
|
|
|
Gallocedrone
Starting Member
Bhutan
5 Posts |
Posted - 03 July 2003 : 18:58:29
|
Problems with my.asp file in MySqL database, click on my discussions the following error is produced:
Microsoft OLE DB Provider for ODBC Drivers error '80040e09'
[TCX][MyODBC]You have an error in your SQL syntax near '10 F.F_SUBJECT, T.T_STATUS, T.T_VIEW_COUNT, T.FORUM_ID, T.TOPIC_ID, T.CAT_ID, T.' at line 1
/forum/my_topics.asp, line 128
click on options page the following error is produced:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/forum/my_edit_config.asp, line 85
As I am able to resolve these errors, thanks.
|
quote:
why did you not post this at Snitz?
The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.
These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.
A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.
Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029
A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162
One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765
etc...
3 times I changed my password and the day after the same game start.
Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum. |
|
|
|
wizard
Junior Member
208 Posts |
Posted - 03 July 2003 : 22:02:09
|
| Does anyone have a link to a demo of this. I am interested to see what it does actually. |
|
|
|
Gallocedrone
Starting Member
Bhutan
5 Posts |
Posted - 04 July 2003 : 03:17:01
|
The link is http://www.atuttokanto.com/forum/default.asp
Thanks.
|
quote:
why did you not post this at Snitz?
The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.
These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.
A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.
Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029
A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162
One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765
etc...
3 times I changed my password and the day after the same game start.
Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum. |
|
|
|
Gallocedrone
Starting Member
Bhutan
5 Posts |
Posted - 07 July 2003 : 17:27:22
|
There is someone who can help to resolve the errors in the files my_edit_config.asp,
my_topics.asp and my.asp
P.S. In the files my.asp the posts of the on-line consumer are not visualized.
|
quote:
why did you not post this at Snitz?
The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.
These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.
A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.
Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029
A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162
One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765
etc...
3 times I changed my password and the day after the same game start.
Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum. |
Edited by - Gallocedrone on 07 July 2003 17:39:10 |
|
|
|
rsoxhater
Junior Member
120 Posts |
Posted - 23 August 2003 : 23:19:45
|
Just got the stored procedures put in my DB, now i'm getting this error - did anyone ever figure out what causes this?
Thanks!
quote:
Originally posted by ErEf
getting other error
Microsoft OLE DB Provider for SQL Server error '80040e37'
Invalid object name 'FORUM_MY_CONFIG'.
/forum/my_sp.asp, line 108
this is when I use the SP with the my.asp for SP. When I use the normal my.asp file there is no problem.
|
|
|
|
Gallocedrone
Starting Member
Bhutan
5 Posts |
Posted - 21 September 2003 : 08:39:43
|
Resolved the problems with the files my.asp and my_topic.asp.
The error remains with the file my_edit_config to the line 85: objDB.Open my_Conn
|
quote:
why did you not post this at Snitz?
The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.
These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.
A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.
Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029
A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162
One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765
etc...
3 times I changed my password and the day after the same game start.
Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum. |
Edited by - Gallocedrone on 21 September 2003 08:42:12 |
|
|
|
choppermc
New Member
Australia
80 Posts |
Posted - 24 October 2003 : 05:13:41
|
I have 21 mods installed to my forum and I reckon this mod will be the icing on the cake, but it dose not seem to like MySql at all
Has anyone got this mod working with MySql?
Gallocedrone, can you tell me how you fixed your errors cause I got the same
|
Oh....Is that it? |
Edited by - choppermc on 24 October 2003 05:32:19 |
|
|
|
Astralis
Senior Member
USA
1218 Posts |
Posted - 24 October 2003 : 16:19:38
|
| Anyone using this? It looks like it would be nice to have. Opinions? |
|
|
|
acoustika
Junior Member
Denmark
311 Posts |
Posted - 27 November 2003 : 01:13:04
|
I was just wondering about the corrections to My.asp that made it work for MySql
The limit thing
It is also in My_topics.asp but weren't this supposed to Show ALL My topics instead of showing the specified number you have set it to when you edit your profil, otherwise the link would be pointless, because this is also what shows on My.asp the main page?????
Am I right????
I have just remomed the SELECT TOP thing from My_topics.asp to make it show all topics from a user when you hit the My Topics Link |
May The Code Be With You
www.UniqueDk.dk *** The Open Forums of Denmark *** |
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 27 November 2003 : 12:17:40
|
Astralis, Im using it on my site, and I like it alot. I have expanded the member's choices to include both forum and website. Members can decide if they want to show things particular for my site (like submitted articles) on my.asp, how many posts/topics are shown per page (topic.asp/forum.asp), show avatars and ranks, and some display choices on the website's first page.
I think it is a good way to give the members some ability to customize the site/forum to their liking. |
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod |
|
|
|
ace6vel
Junior Member
USA
156 Posts |
Posted - 13 December 2003 : 13:52:34
|
| can somebofy send me the final version of this mod i mean with all errors fixed??? just to post the link of the zip file thnx |
Eminem is the best!!! |
|
|
|
motivations
Starting Member
Australia
15 Posts |
Posted - 16 December 2003 : 22:32:41
|
Here is a working version:
Note, this is the code for the my(default).asp file only (not the one which is ment for SQL databases).
Always save the original first (the one you have), and next replace all the code inside the my.asp file.
Hope this will help you out....
<%
'#################################################################################
'## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'#################################################################################
'## My Personalization v3.4
'## Copyright (C) 2001
'## Original coder: Mohammmed Faizul Wahid
'## faizw@bigfoot.com
'##
'## Modified by Kenno
'## eKenno@yahoo.com
'## http://www.khmersite.net
'## Modified by tangoc9999
'## tangoc9999@dunningfools.com
'## http://dunningfools.com
'## For Snitz V 3.4.xx
'##
'## Modified further with fixes by @tomic on January 12, 2003
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<%
Response.Write "<script language=""JavaScript"">" & vbNewLine & _
" <!--" & vbNewLine & _
" function jumpTo(s) {if (s.selectedIndex != 0) top.location.href = s.options[s.selectedIndex].value;return 1;}" & vbNewLine & _
" // -->" & vbNewLine & _
"</script>" & vbNewLine
if strAuthType = "nt" then
if ChkAccountReg() <> "1" then
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
"<b>Note:</b> This NT account has not been registered yet, thus the profile is not available.<br>" & vbNewLine & _
"If this is your account, <a href=""" & forumURL & "register.asp?mode=Register"">click here</a> to register." & vbNewLine & _
"</font></p>" & vbNewLine
%>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
Response.End
end if
end if
If not mLev > 0 Then ' Not Logged in
Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""60%"" align=""center"">" & vbNewLine & _
" <tr align=""center"">" & vbNewLine & _
" <td>" & vbNewLine & _
" <BR>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""2"" color=""" & strDefaultFontColor & """><b>You need to login to continue...</b></font><BR>" & vbNewLine & _
" <HR size=""1"">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """>If you have not registered yet, you can do so by clicking <a href=""policy.asp"">here</a>." & vbNewLine & _
" <meta http-equiv=""Refresh"" content=""4; URL=default.asp"">" & vbNewLine & _
" <BR><BR><BR>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
Else '## Display
'######GetMemberID
intID = getMemberID(strDBNTUserName)
flag_showmytopics = 1 ' default values
flag_showrecenttopics = 1 ' default values
flag_showpm = 1 ' default values
flag_maxtopics = 10 ' default values
strSQL = "SELECT * FROM " & strTablePrefix & "MY_CONFIG WHERE MEMBER_ID=" & IntID
Set objRS = my_Conn.Execute(strSQL)
if not objRS.EOF then
flag_showmytopics = objRS("SHOW_MY_TOPICS")
flag_showrecenttopics = objRS("SHOW_RECENT_TOPICS")
flag_showpm = objRS("SHOW_PM")
flag_maxtopics = objRS("MAX_MY_TOPICS")
objRS.Close
set objRS = Nothing
end if
Response.Write "<table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">All Forums</a><br>" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""my.asp"">My Personal Page</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"<table align=""center"" border=""0"" cellpadding=""5"" cellspacing=""1"" width=""95%"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td background=""" & strImageURL & strHeadCellBGImage & """ bgcolor=""" & strHeadCellColor & """ width=""25%"">" & vbNewLine & _
" <a href=""my_edit_config.asp"">" & getCurrentIcon(strIconmyedit,"Edit Page","border=""0""") & "</a>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td background=""" & strImageURL & strHeadCellBGImage & """ bgcolor=""" & strHeadCellColor & """ align=""right"">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""2"" color=""" & strHeadFontColor & """><b>Personal Page for " & Request.Cookies(strUniqueID & "User")("Name") & "</b></font><BR>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"<table align=""center"" border=""0"" cellpadding=""5"" cellspacing=""1"" width=""95%"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ align=""right"" valign=""top"">" & vbNewLine & _
" <table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""25%"" bgcolor=""" & strForumCellColor & """ valign=""top"">" & vbNewLine & _
" <FONT face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
" <img src=""" & strImageURL & "icon_nav_forums.gif"" border=""0""> <B>Member Options</B><BR>" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconEditTopic,"","hspace=""0"" align=""absmiddle""") & " <a href=""pop_profile.asp?mode=Edit"">Edit Profile</a><br>" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconProfile,"","hspace=""0"" align=""absmiddle""") & " <a href=""pop_profile.asp?mode=display&id=" & intid & """>My Profile</a><br>" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolder,"","hspace=""0"" align=""absmiddle""") & " <a href=""my_topics.asp"">My Topics</a><br>" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconMembers,"","hspace=""0"" align=""absmiddle""") & " <a href=""members.asp"">Browse Members</a><br>" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolderHot,"","hspace=""0"" align=""absmiddle""") & " <a href=""active.asp"">Active Topics</a><br>" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolder,"","hspace=""0"" align=""absmiddle""") & " <a href=""search.asp"">Search</a><br>" & vbNewLine & _
"</FONT>" & vbNewLine & _
"<HR size=""1"">" & vbNewLine
if flag_showrecenttopics then
Response.Write "<TABLE width=""100%"" bgcolor=""" & strTableBorderColor & """ cellspacing=""0"">" & vbNewLine
if strRecentTopics = "1" then
strStartDate = DateToStr(dateadd("d", -30, strForumTimeAdjust))
'## Forum_SQL - Find all records for the member
strsql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, "
strsql = strsql & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_STATUS, " & strTablePrefix & "TOPICS.T_LAST_POST, " & strTablePrefix & "TOPICS.T_REPLIES "
strsql = strsql & " FROM ((" & strTablePrefix & "FORUM LEFT JOIN " & strTablePrefix & "TOPICS "
strsql = strsql & " ON " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID) LEFT JOIN " & strTablePrefix & "REPLY "
strsql = strsql & " ON " & strTablePrefix & "TOPICS.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID) "
strsql = strsql & " WHERE (T_DATE > '" & strStartDate & "') "
strsql = strsql & " AND (" & strTablePrefix & "TOPICS.T_AUTHOR = " & IntID & " "
strsql = strsql & " OR " & strTablePrefix & "REPLY.R_AUTHOR = " & IntID & ")"
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC, " & strTablePrefix & "TOPICS.TOPIC_ID DESC"
set rs2 = my_Conn.Execute(strsql)
Response.Write "<tr>" & vbNewLine & _
"<td bgcolor=""" & strForumCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & getCurrentIcon(strIconFolderOpen,"Your Recent Topics","hspace=""0"" align=""absmiddle""") & " Your Recent Topics</font></b></td>" & vbNewLine & _
"</tr>" & vbNewLine
if rs2.EOF or rs2.BOF then
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> <br> <b>No Matches Found...<br> </b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
else
currTopic = 0
TopicCount = 0
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strForumCellColor & """ valign=""top"" colspan=""2"">" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine
do until rs2.EOF or (TopicCount = 10)
'if chkDisplayForum(rs2("FORUM_ID")) then
if currTopic <> rs2("TOPIC_ID") then
Response.Write " <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <a href=""" & strForumURL & "topic.asp?TOPIC_ID=" & rs2("TOPIC_ID") & """>" & vbNewLine
if rs2("T_STATUS") <> 0 then
if strHotTopic = "1" then
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then
if rs2("T_REPLIES") >= intHotTopicNum then
Response.Write " " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolderNewHot,"Hot new Topics","hspace=""0"" align=""absmiddle""") & "</a></td>" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolderNew,"New Topics","hspace=""0"" align=""absmiddle""") & "</a></td>" & vbNewLine
end if
else
if rs2("T_REPLIES") >= intHotTopicNum then
Response.Write " " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolderHot,"Hot Topics","hspace=""0"" align=""absmiddle""") & "</a></td>" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolder,"","hspace=""0"" align=""absmiddle""") & "</a></td>" & vbNewLine
end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then
Response.Write " " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolderNew,"New Topics","hspace=""0"" align=""absmiddle""") & "</a></td>" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolder,"","hspace=""0"" align=""absmiddle""") & "</a></td>" & vbNewLine
end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then
Response.Write " " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolderNewLocked,"New Locked Folder","hspace=""0"" align=""absmiddle""") & "</a></td>" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconBar,"","hspace=""0"" align=""absmiddle""") & getCurrentIcon(strIconFolderLocked,"Topic Locked","hspace=""0"" align=""absmiddle""") & "</a></td>" & vbNewLine
end if
end if
Response.Write " <td bgcolor=""" & strForumCellColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""topic.asp?TOPIC_ID=" & rs2("TOPIC_ID") & """>" & ChkString(left(rs2("T_SUBJECT"), 50),"display") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
TopicCount = TopicCount + 1
end if
currTopic = rs2("TOPIC_ID")
'end if
rs2.MoveNext
loop
Response.Write "</table>" & vbNewLine & _
"</td>" & vbNewLine & _
"</tr>" & vbNewLine
end if
rs2.close
set rs2 = nothing
elseif (strHomepage + strFavLinks) > 0 and (strRecentTopics = "0") then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" background=""" & strImageURL & strCategoryCellBGImage & """ bgcolor=""" & strCategoryCellColor & """ colspan=""2"">" & vbNewLine & _
" <b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Links </font></b></td>" & vbNewLine
if strHomepage = "1" then
'## Forum_SQL - Get Members Homepage info
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE FROM " & strMemberTablePrefix & "MEMBERS WHERE " & strMemberTablePrefix & "MEMBERS." & strDBNTSQLName & " = '" & strDBNTUserName & "'"
set rs = my_Conn.Execute(strSql) %>
<tr>
<td bgColor=<% =strForumCellColor %> align=right nowrap width="10%"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Homepage: </font></b></td>
<% if Trim(rs("M_HOMEPAGE")) <> "" and lcase(trim(rs("M_HOMEPAGE"))) <> "http://" and Trim(lcase(rs("M_HOMEPAGE"))) <> "https://" then %>
<td bgColor=<% =strForumCellColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =rs("M_Homepage") %>" target="_blank"><% =rs("M_Homepage") %></a> </font></td>
<% else %>
<td bgColor=<% =strForumCellColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">No homepage specified...</font></td>
<% end if %>
</tr>
<% rs.close
set rs = nothing
end if
if strFavLinks = "1" then
'## Forum_SQL - Get Members Link info
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_LINK1, " & strMemberTablePrefix & "MEMBERS.M_LINK2 FROM " & strMemberTablePrefix & "MEMBERS WHERE " & strMemberTablePrefix & "MEMBERS." & strDBNTSQLName & " = '" & strDBNTUserName & "'"
set rs = my_Conn.Execute(strSql) %>
<tr>
<td bgColor=<% =strForumCellColor %> align=right nowrap width="10%"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Cool Links: </font></b></td>
<% if Trim(rs("M_LINK1")) <> "" and lcase(trim(rs("M_LINK1"))) <> "http://" and Trim(lcase(rs("M_LINK1"))) <> "https://" then %>
<td bgColor=<% =strForumCellColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =rs("M_LINK1") %>" target="_Blank"><% =rs("M_LINK1") %></a> </font></td>
<% else %>
<td bgColor=<% =strForumCellColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">No link specified...</font></td>
</tr>
<% if Trim(rs("M_LINK2")) <> "" and lcase(trim(rs("M_LINK2"))) <> "http://" and Trim(lcase(rs("M_LINK2"))) <> "https://" then %>
<tr>
<td bgColor=<% =strForumCellColor %> align=right nowrap width="10%"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> </font></b></td>
<td bgColor=<% =strForumCellColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =rs("M_LINK2") %>" target="_Blank"><% =rs("M_LINK2") %></a> </font></td>
<% end if
rs.close
set rs = nothing
end if
response.Write " </tr>" & vbNewline
end if
end if ' strRecentTopics
Response.Write "</td>" & vbNewline & _
"</tr>" & vbNewline & _
"</table>" & vbNewline
End if
if flag_showpm then
response.Write "<HR size=""1"">" & vbNewline
' Get Private Message count for display on Default.asp
if strDBType = "access" then
strSqL = "SELECT count(M_TO) as [pmcount] "
else
strSqL = "SELECT count(M_TO) as pmcount "
end if
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "' AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO AND " & strTablePrefix & "PM.M_READ = 0 "
Set rsPM = my_Conn.Execute(strSql)
pmcount = rsPM("pmcount")
rsPM.Close
Set rsPM = Nothing
Response.Write " <tr>" & vbNewLine & _
" <td background=""" & strImageURL & strCategoryCellBGImage & """ bgcolor=""" & strCategoryCellColor & """ align=""center"">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """ size=""+1""><b>Private Messages</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td valign=top bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><A HREF=""pm_view.asp"">Inbox</A></FONT><BR>" & vbNewLine
if strDBNTUserName = "" Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" - Log in to check your private messages." & vbNewLine & _
" </font>" & vbNewLine
else
Response.Write " <nobr><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """><b>" & vbNewLine
if strAuthType="nt" then
Response.Write " " & session("username") & " (" & session("userid") & ")</b>"
else
if strAuthType = "db" then
Response.Write strDBNTUserName & "</b>"
end if
end if
Response.Write " - " & pmcount & " new message(s).</nobr></font><hr>" & vbNewline & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write "<br>" & vbNewLine
end if
Response.Write "<br>" & vbNewLine & _
"<HR size=""1"">" & vbNewLine & _
"<tr>" & vbNewLine & _
"<td bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
"" & getCurrentIcon(strIconFolderOpen,"","hspace=""0"" align=""absmiddle""") & " <A href=""my_edit_config.asp""><B>Edit Page</B></a>" & vbNewLine & _
"</font>" & vbNewLine & _
"</td>" & vbNewLine & _
"</tr>" & vbNewLine & _
"<tr>" & vbNewLine & _
"<td bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
"<LI>Change Theme" & vbNewLine & _
"<LI>Add/Remove Modules" & vbNewLine & _
"</td>" & vbNewLine & _
"</tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"<BR>" & vbNewLine & _
"</td>" & vbNewLine & _
"<td valign=""top"" align=""center"" width=""75%"" bgcolor=""" & strForumCellColor & """>" & vbNewLine
if flag_showmytopics then
'## Forum_SQL - Get all active topics from last visit
if flag_maxtopics = 0 then
strSql = "SELECT "
else
strSql = "SELECT TOP " & flag_maxtopics & " "
end if
' remove this crap
strSql = strSql & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "TOPICS.T_STATUS, "
strSql = strSql & strTablePrefix & "TOPICS.T_VIEW_COUNT, " & strTablePrefix & "TOPICS.FORUM_ID, "
strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.CAT_ID, "
strSql = strSql & strTablePrefix & "TOPICS.T_SUBJECT, "
strSql = strSql & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.T_REPLIES, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR, "
strSql = strSql & strTablePrefix & "TOPICS.T_LAST_POST, " & strMemberTablePrefix & "MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME "
strSql = strSql & "FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "FORUM, "
strSql = strSql & strTablePrefix & "TOPICS, " & strMemberTablePrefix & "MEMBERS AS " & strMemberTablePrefix & "MEMBERS_1 "
strSql = strSql & "WHERE " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR = " & strMemberTablePrefix & "MEMBERS_1.MEMBER_ID "
strSql = strSql & "AND " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID "
strSql = strSql & "AND " & strTablePrefix & "FORUM.CAT_ID = " & strTablePrefix & "TOPICS.CAT_ID "
strSql = strSql & "AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID=" & IntID
strSql = strSql & "AND " & strTablePrefix & "TOPICS.T_AUTHOR=" & IntID
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC;"
set rs = my_Conn.Execute (strSql)
Response.Write "<table border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
"<tr colspan=""100%""><td>" & vbNewLine & _
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & getCurrentIcon(strIconFolderOpen,"Topics You Have Started","hspace=""0"" align=""absmiddle""") & " <B>Topics you have Started</B><font>" & vbNewLine & _
"</td></tr>" & vbNewLine & _
"<tr>" & vbNewLine & _
"<td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
"<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
"<tr>" & vbNewLine & _
"<td align=""center"" background=""" & strImageURL & strHeadCellBGImage & """ bgcolor=""" & strHeadCellColor & """ valign=""middle""> </td>" & vbNewLine & _
"<td align=""center"" background=""" & strImageURL & strHeadCellBGImage & """ bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Topic</font></b></td>" & vbNewLine & _
"<td align=""center"" background=""" & strImageURL & strHeadCellBGImage & """ bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Replies</font></b></td>" & vbNewLine & _
"<td align=""center"" background=""" & strImageURL & strHeadCellBGImage & """ bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Read</font></b></td>" & vbNewLine & _
"<td align=""center"" background=""" & strImageURL & strHeadCellBGImage & """ bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last Post</font></b></td>" & vbNewLine & _
"</tr>" & vbNewLine
If rs.EOF or rs.BOF then
Response.Write "<tr>" & vbNewLine & _
"<td colspan=""6"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>No Active Topics Found</b></font></td>" & vbNewLine & _
"</tr>" & vbNewLine
else
currForum = 0
fDisplayCount = 0
do until rs.EOF
'## Forum_SQL - Find out if the Category is Locked or Un-Locked and if it Exists
strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_STATUS FROM " & strTablePrefix & "CATEGORY WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & rs("CAT_ID")
set rsCStatus = my_Conn.Execute (StrSql)
'## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists
strSql = "SELECT " & strTablePrefix & "FORUM.F_STATUS FROM " & strTablePrefix & "FORUM WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & rs("FORUM_ID")
set rsFStatus = my_Conn.Execute (StrSql)
fDisplayCount = fDisplayCount + 1
if currForum <> rs("FORUM_ID") then
Response.Write " <tr>" & vbNewLine & _
" <td height=""20"" colspan=""6"" background=""" & strImageURL & strCategoryCellBGImage & """ bgcolor=""" & strCategoryCellColor & """ valign=""middle""><a href=""" & strForumURL & "forum.asp?FORUM_ID=" & rs("FORUM_ID") & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(rs("F_SUBJECT"),"display") & "</b></font></a></td>" & vbNewLine & _
"</tr>" & vbNewLine
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""middle"">" & vbNewLine
if rsCStatus("CAT_STATUS") <> 0 and rsFstatus("F_STATUS") <> 0 and rs("T_STATUS") <> 0 then
if lcase(strHotTopic) = "1" then
if rs("T_REPLIES") >= intHotTopicNum Then
response.Write " <a href=""" & strForumURL & "topic.asp?TOPIC_ID=" & rs("TOPIC_ID") & """>" & getCurrentIcon(strIconFolderNewHot,"Hot Topic","hspace=""0"" border=""0"" align=""absmiddle""") & "</a>" & vbNewLine
else
response.Write " <a href=""" & strForumURL & "topic.asp?TOPIC_ID=" & rs("TOPIC_ID") & """>" & getCurrentIcon(strIconFolderNew,"This is a New Topic","hspace=""0"" border=""0"" align=""absmiddle""") & "</a>" & vbNewLine
end if
end if
else
Response.Write " <a href=""" & strForumURL & "topic.asp?TOPIC_ID=" & rs("TOPIC_ID") & """>" & getCurrentIcon(strIconFolderNewLocked,"Locked","hspace=""0"" border=""0"" align=""absmiddle""") & "</a>" & vbNewLine
end if
rsFStatus.Close
set rsFStatus = Nothing
rsCStatus.Close
set rsCStatus = Nothing
Response.Write " </td>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strForumURL & "topic.asp?TOPIC_ID=" & rs("TOPIC_ID") & """>" & ChkString(left(rs("T_SUBJECT"), 50),"display") & "</a> </font></td>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & rs("T_REPLIES") & "</font></td>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & rs("T_VIEW_COUNT") & "</font></td>" & vbNewLine
if IsNull(rs("T_LAST_POST_AUTHOR")) then
strLastAuthor = ""
else
strLastAuthor = "<br>by: "
if strUseExtendedProfile then
strLastAuthor = strLastAuthor & "<a href=""pop_profile.asp?mode=display&id="& rs("T_LAST_POST_AUTHOR") & """>"
else
strLastAuthor = strLastAuthor & "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rs("T_LAST_POST_AUTHOR") & "')"">"
end if
strLastAuthor = strLastAuthor & rs("LAST_POST_AUTHOR_NAME") & "</a>"
end if
Response.Write " <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """><b></b> " & ChkTime(rs("T_LAST_POST")) & strLastAuthor & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
currForum = rs("FORUM_ID")
rs.MoveNext
loop
if fDisplayCount = 0 then
Response.Write " <tr>" & vbNewLine & _
" <td colspan=""6"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>No Active Topics Found</b></font></td>" & vbNewLine
end if
end if
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <table width=""95%"" border=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" " & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""right"">" & vbNewLine
%>
<!--#INCLUDE FILE="inc_jump_to.asp" -->
<%
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
end if
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"<br><p>" & vbNewLine
end if
on error resume next
rs.close
set rs=nothing %>
<!--#INCLUDE FILE="inc_footer.asp" --> |
Edited by - motivations on 16 December 2003 22:38:48 |
|
|
|
evol
Junior Member
China
157 Posts |
Posted - 07 March 2004 : 11:10:41
|
if set show all Topics you have Started,becauese the page had be drawed oneselg up .
if can display topic by pages when i choose display all topic.
Thanks |
Who am i?
I lost my dream! |
|
|
|
Topic |
|
|
|
Topic Locked
