| Author |
 Topic  |
|
Webbo
Average Member
United Kingdom
982 Posts |
 Posted - 13 August 2015 : 07:42:54
|
Hi, message for HuwR or anyone else with a bit of time to spare :)
We've moved our website to a new server to resolve an issue with the previous server and still have a problem, in fact much bigger problems than before :(
The hosts are saying the issue is to do with the forum software not closing and causing the CPU to max out - I'm confident it is not this.
I could do with a developer with knowledge of windows server to look into the problems to get us back up and running again....
Let me know via this thread if possible as we don't have email working either [:(!!] |
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 13 August 2015 : 07:44:25
|
| PS: posted via BlackBerry mobile and looking good |
 |
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 13 August 2015 : 07:50:05
|
Some questions 
Do you have a heavily modded forum? (some mods have been known to cause issues)
What are the issues you are getting ? (non closure of stuff doesn't generally cause CPU issues, more likely to cause memory issues)
Dare I ask who your host is ?
|
MVC .net dev/test site | MVC .net running on Raspberry Pi |
|
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 13 August 2015 : 09:16:00
|
I've been sent some details by the hosts (Webfusion) re script that is causing problems but in all fairness I can't see anything wrong and when it was working on the previous server it did run well.
I was advised that the issue was being previously caused as a result of lack of memory and that the server needed upgrading as the memory wasn't expandable on that server.
The site ran well up to about a fortnight ago and though it is modified nothing has been changed for a month or so at least.
I'm stuck on a building site until later today but when I return I'll post the info I have
Thanks |
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 13 August 2015 : 11:45:54
|
Hi Huw, apparently the forum when trying to load is causing queries to lock
The MySQL errors listed are below:
mysql> show processlist;
+------+-------+-----------------+-------------+---------+------+--------------+----------------------------------------------------------------------
--------------------------------+
| Id | User | Host | db | Command | Time | State | Info
|
+------+-------+-----------------+-------------+---------+------+--------------+----------------------------------------------------------------------
--------------------------------+
| 54 | webbo | localhost:64893 | maggot_info | Query | 1981 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=181263
|
| 75 | webbo | localhost:64937 | maggot_info | Query | 1949 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 76 | webbo | localhost:64938 | maggot_info | Query | 1976 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 107 | webbo | localhost:64999 | maggot_info | Query | 1980 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184209
|
| 126 | webbo | localhost:65041 | maggot_info | Query | 2152 | Locked | SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YA
HOO, M.M_PMRECEIVE, M.M_TITLE, |
| 143 | webbo | localhost:65082 | maggot_info | Query | 2153 | Locked | UPDATE FORUM_TOPICS SET T_VIEW_COUNT = (T_VIEW_COUNT + 1) WHERE (TO
PIC_ID = 162578) |
| 158 | webbo | localhost:65108 | maggot_info | Query | 2026 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=157639
|
| 159 | webbo | localhost:65109 | maggot_info | Query | 1828 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=181204
|
| 160 | webbo | localhost:65110 | maggot_info | Query | 1817 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 165 | webbo | localhost:65116 | maggot_info | Query | 2148 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=35025
|
| 171 | webbo | localhost:65131 | maggot_info | Query | 2154 | Sending data | SELECT COUNT(TOPIC_ID) AS PAGECOUNT FROM FORUM_MEMBERS M, FORUM_TOPI
CS T, FORUM_MEMBERS AS MEMBERS_ |
| 227 | webbo | localhost:65242 | maggot_info | Query | 2137 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 229 | webbo | localhost:65244 | maggot_info | Query | 2138 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 230 | webbo | localhost:65248 | maggot_info | Query | 2138 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=9178
|
| 236 | webbo | localhost:65269 | maggot_info | Query | 2138 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 238 | webbo | localhost:65275 | maggot_info | Query | 2136 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=181893
|
| 239 | webbo | localhost:65276 | maggot_info | Query | 2134 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 241 | webbo | localhost:65278 | maggot_info | Query | 2135 | Locked | SELECT TOPIC_ID FROM FORUM_TOPICS WHERE TOPIC_ID = 181843
|
| 242 | webbo | localhost:65279 | maggot_info | Query | 2135 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 244 | webbo | localhost:65281 | maggot_info | Query | 2133 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=180874
|
| 247 | webbo | localhost:65287 | maggot_info | Query | 2133 | Locked | SELECT COUNT(TOPIC_ID) AS PAGECOUNT FROM FORUM_MEMBERS M, FORUM_TOPI
CS T, FORUM_MEMBERS AS MEMBERS_ |
| 249 | webbo | localhost:65293 | maggot_info | Query | 2126 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=69356
|
| 240 | webbo | localhost:65277 | maggot_info | Query | 2135 | Locked | SELECT COUNT(TOPIC_ID) AS PAGECOUNT FROM FORUM_MEMBERS M, FORUM_TOPI
CS T, FORUM_MEMBERS AS MEMBERS_ |
| 253 | webbo | localhost:65301 | maggot_info | Query | 2134 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 270 | webbo | localhost:65328 | maggot_info | Query | 2122 | Locked | SELECT COUNT(TOPIC_ID) AS PAGECOUNT FROM FORUM_MEMBERS M, FORUM_TOPI
CS T, FORUM_MEMBERS AS MEMBERS_ |
| 283 | webbo | localhost:65361 | maggot_info | Query | 2121 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=9178
|
| 286 | webbo | localhost:65364 | maggot_info | Query | 2117 | Locked | SELECT TOPIC_ID FROM FORUM_TOPICS WHERE TOPIC_ID = 181103
|
| 294 | webbo | localhost:65377 | maggot_info | Query | 2116 | Locked | SELECT COUNT(TOPIC_ID) AS PAGECOUNT FROM FORUM_MEMBERS M, FORUM_TOPI
CS T, FORUM_MEMBERS AS MEMBERS_ |
| 301 | webbo | localhost:65392 | maggot_info | Query | 2112 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=69356
|
| 303 | webbo | localhost:65396 | maggot_info | Query | 2109 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 309 | webbo | localhost:65408 | maggot_info | Query | 2109 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 310 | webbo | localhost:65409 | maggot_info | Query | 2108 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 311 | webbo | localhost:65411 | maggot_info | Query | 2060 | Locked | SELECT COUNT(TOPIC_ID) AS PAGECOUNT FROM FORUM_MEMBERS M, FORUM_TOPI
CS T, FORUM_MEMBERS AS MEMBERS_ |
| 313 | webbo | localhost:65420 | maggot_info | Query | 2105 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 314 | webbo | localhost:65421 | maggot_info | Query | 2102 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 320 | webbo | localhost:65432 | maggot_info | Query | 2102 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=180874
|
| 318 | webbo | localhost:65430 | maggot_info | Query | 2100 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=181893
|
| 322 | webbo | localhost:65434 | maggot_info | Query | 2099 | Locked | SELECT COUNT(TOPIC_ID) AS PAGECOUNT FROM FORUM_MEMBERS M, FORUM_TOPI
CS T, FORUM_MEMBERS AS MEMBERS_ |
| 328 | webbo | localhost:65450 | maggot_info | Query | 2087 | Locked | SELECT COUNT(TOPIC_ID) AS PAGECOUNT FROM FORUM_MEMBERS M, FORUM_TOPI
CS T, FORUM_MEMBERS AS MEMBERS_ |
| 330 | webbo | localhost:65455 | maggot_info | Query | 2093 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=109554
|
| 334 | webbo | localhost:65460 | maggot_info | Query | 2084 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 335 | webbo | localhost:65465 | maggot_info | Query | 2080 | Locked | SELECT F.FORUM_ID, F.F_STATUS, F.CAT_ID, F.F_SUBJECT, F.F_URL, F.F_TO
PICS, F.F_COUNT, F.F_LAST_POST, |
| 336 | webbo | localhost:65469 | maggot_info | Query | 2091 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 337 | webbo | localhost:65470 | maggot_info | Query | 2085 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 339 | webbo | localhost:65473 | maggot_info | Query | 2089 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 340 | webbo | localhost:65474 | maggot_info | Query | 2087 | Locked | SELECT F.FORUM_ID, F.F_STATUS, F.CAT_ID, F.F_SUBJECT, F.F_URL, F.F_TO
PICS, F.F_COUNT, F.F_LAST_POST, |
| 342 | webbo | localhost:65475 | maggot_info | Query | 2087 | Locked | SELECT TOPIC_ID FROM FORUM_TOPICS WHERE TOPIC_ID = 180194
|
| 345 | webbo | localhost:65484 | maggot_info | Query | 2080 | Locked | SELECT F.FORUM_ID, F.F_STATUS, F.CAT_ID, F.F_SUBJECT, F.F_URL, F.F_TO
PICS, F.F_COUNT, F.F_LAST_POST, |
| 353 | webbo | localhost:65501 | maggot_info | Query | 2080 | Locked | SELECT TOPIC_ID FROM FORUM_TOPICS WHERE TOPIC_ID = 178353
|
| 364 | webbo | localhost:65525 | maggot_info | Query | 2037 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 365 | webbo | localhost:65526 | maggot_info | Query | 2078 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 366 | webbo | localhost:65527 | maggot_info | Query | 2077 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=24917
|
| 367 | webbo | localhost:65528 | maggot_info | Query | 2061 | Locked | UPDATE FORUM_MEMBERS SET M_LASTHEREDATE = '20150813130936', M_LAS
T_IP = '31.221.56.146' WHERE M_ |
| 368 | webbo | localhost:65529 | maggot_info | Query | 2079 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 374 | webbo | localhost:49165 | maggot_info | Query | 2059 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=180874
|
| 373 | webbo | localhost:49164 | maggot_info | Query | 2063 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=181893
|
| 375 | webbo | localhost:49169 | maggot_info | Query | 2075 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=162190
|
| 377 | webbo | localhost:49171 | maggot_info | Query | 2067 | Locked | SELECT COUNT(TOPIC_ID) AS PAGECOUNT FROM FORUM_MEMBERS M, FORUM_TOPI
CS T, FORUM_MEMBERS AS MEMBERS_ |
| 384 | webbo | localhost:49188 | maggot_info | Query | 2059 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 386 | webbo | localhost:49191 | maggot_info | Query | 2050 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184289
|
| 385 | webbo | localhost:49190 | maggot_info | Query | 2054 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 388 | webbo | localhost:49193 | maggot_info | Query | 2054 | Locked | SELECT MEMBER_ID, M_LEVEL, M_NAME, M_PASSWORD FROM FORUM_MEMBERS WH
ERE M_NAME = 'Neil ofthe nene' |
| 392 | webbo | localhost:49202 | maggot_info | Query | 2043 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 393 | webbo | localhost:49204 | maggot_info | Query | 2052 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 397 | webbo | localhost:49211 | maggot_info | Query | 2048 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 396 | webbo | localhost:49210 | maggot_info | Query | 2047 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 398 | webbo | localhost:49216 | maggot_info | Query | 2044 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=142659
|
| 401 | webbo | localhost:49224 | maggot_info | Query | 2044 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=180874
|
| 402 | webbo | localhost:49226 | maggot_info | Query | 2044 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 406 | webbo | localhost:49233 | maggot_info | Query | 2037 | Locked | SELECT MEMBER_ID, M_LEVEL, M_NAME, M_PASSWORD FROM FORUM_MEMBERS WH
ERE M_NAME = 'codenamemilo' AN |
| 404 | webbo | localhost:49231 | maggot_info | Query | 2040 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=157639
|
| 407 | webbo | localhost:49235 | maggot_info | Query | 2039 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 408 | webbo | localhost:49238 | maggot_info | Query | 2039 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 411 | webbo | localhost:49241 | maggot_info | Query | 2040 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=181893
|
| 413 | webbo | localhost:49244 | maggot_info | Query | 2040 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 427 | webbo | localhost:49277 | maggot_info | Query | 2034 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 429 | webbo | localhost:49281 | maggot_info | Query | 2035 | Locked | SELECT MEMBER_ID, M_LEVEL, M_NAME, M_PASSWORD FROM FORUM_MEMBERS WH
ERE M_NAME = ' ' AND M_PASSWOR |
| 430 | webbo | localhost:49282 | maggot_info | Query | 2036 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 438 | webbo | localhost:49299 | maggot_info | Query | 2031 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=160311
|
| 441 | webbo | localhost:49306 | maggot_info | Query | 2029 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=132675
|
| 443 | webbo | localhost:49310 | maggot_info | Query | 2029 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 454 | webbo | localhost:49333 | maggot_info | Query | 2023 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=181618
|
| 457 | webbo | localhost:49338 | maggot_info | Query | 2015 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=166943
|
| 458 | webbo | localhost:49341 | maggot_info | Query | 2006 | Locked | SELECT MEMBER_ID, M_LEVEL, M_NAME, M_PASSWORD FROM FORUM_MEMBERS WH
ERE M_NAME = 'Philocalist' AND |
| 459 | webbo | localhost:49342 | maggot_info | Query | 2006 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 461 | webbo | localhost:49347 | maggot_info | Query | 2007 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 462 | webbo | localhost:49349 | maggot_info | Query | 2006 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=183485
|
| 463 | webbo | localhost:49354 | maggot_info | Query | 2006 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=180874
|
| 465 | webbo | localhost:49356 | maggot_info | Query | 2010 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 467 | webbo | localhost:49360 | maggot_info | Query | 2010 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 464 | webbo | localhost:49355 | maggot_info | Query | 2006 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 472 | webbo | localhost:49370 | maggot_info | Query | 2006 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=181893
|
| 473 | webbo | localhost:49372 | maggot_info | Query | 2006 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 474 | webbo | localhost:49376 | maggot_info | Query | 2005 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=112464
|
| 475 | webbo | localhost:49381 | maggot_info | Query | 2005 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=109554
|
| 476 | webbo | localhost:49382 | maggot_info | Query | 2005 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=112464
|
| 479 | webbo | localhost:49385 | maggot_info | Query | 2003 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=184477
|
| 482 | webbo | localhost:49388 | maggot_info | Query | 2004 | Locked | SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_LAST_POS
T, T.T_LAST_POST_REPLY_ID, T.T_ |
| 572 | webbo | localhost:49569 | maggot_info | Query | 1831 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 1035 | webbo | localhost:50839 | maggot_info | Query | 946 | Locked | SELECT FORUM_ID, T_SUBJECT FROM FORUM_TOPICS WHERE TOPIC_ID=152941
|
| 1241 | webbo | localhost:51655 | maggot_info | Query | 128 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 1255 | webbo | localhost:51722 | maggot_info | Query | 85 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 1258 | webbo | localhost:51728 | maggot_info | Query | 81 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 1266 | webbo | localhost:51745 | maggot_info | Query | 56 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 1267 | webbo | localhost:51746 | maggot_info | Query | 55 | Locked | SELECT count(FORUM_PM.M_ID) as pmcount FROM FORUM_MEMBERS , FORUM_PM
WHERE FORUM_MEMBERS.M_NAME = |
| 1272 | webbo | localhost:51756 | NULL | Query | 0 | NULL | show processlist
|
+------+-------+-----------------+-------------+---------+------+--------------+----------------------------------------------------------------------
--------------------------------+
106 rows in set (0.00 sec)
mysql>
A link to the site is www.maggotdrowning.com
and the forums: www.maggotdrowning.com/forum
Displaying errors in Firefox gives the following when trying to access the forums: HTTP/1.1 New Session Failed
if that helps
|
Edited by - Webbo on 13 August 2015 11:56:18 |
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 13 August 2015 : 12:35:24
|
I'm afraid I don't know anything about MySQL, but would say that this is not normal behaviour for a forum, could you maybe post us a copy of your default.asp.
If Rui is about he may be able to shed some light on the MySQL locking, it may be that something needs setting. |
MVC .net dev/test site | MVC .net running on Raspberry Pi |
|
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 13 August 2015 : 12:52:58
|
Here is my default.asp...
<%
'#################################################################################
'## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## 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
'#################################################################################
%> <!--#INCLUDE FILE="config.asp"--><!--#INCLUDE FILE="inc_func_secure.asp" --><!--#INCLUDE FILE="inc_sha256.asp"--><!--#INCLUDE FILE="inc_header.asp" --><!--#INCLUDE FILE="inc_func_member.asp" --><!--#INCLUDE FILE="inc_moderation.asp" --><!--#INCLUDE FILE="inc_subscription.asp" --><!--#INCLUDE FILE="inc_subforum.asp" --><%
Dim UnapprovedFound, UnModeratedPosts
if Request.QueryString("CAT_ID") <> "" and IsNumeric(Request.QueryString("CAT_ID")) = True then
Cat_ID = cLng(Request.QueryString("CAT_ID"))
end if
scriptname = request.servervariables("script_name")
if strAutoLogon = 1 then
if (ChkAccountReg() <> "1") then
Response.Redirect("register.asp?mode=DoIt")
end if
end if
if IsEmpty(Session(strCookieURL & "last_here_date")) then
Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName)
end if
if strModeration = "1" and mLev > 2 then
UnModeratedPosts = CheckForUnmoderatedPosts("BOARD", 0, 0, 0)
end if
' -- Get all the high level(board, category, forum) subscriptions being held by the user
Dim strSubString, strSubArray, strBoardSubs, strCatSubs, strForumSubs
if MySubCount > 0 then
strSubString = PullSubscriptions(0,0,0)
strSubArray = Split(strSubString,";")
if uBound(strSubArray) < 0 then
strBoardSubs = ""
strCatSubs = ""
strForumSubs = ""
else
strBoardSubs = strSubArray(0)
strCatSubs = strSubArray(1)
strForumSubs = strSubArray(2)
end if
end If
if strShowStatistics <> "1" then
'## Forum_SQL
strSql = "SELECT P_COUNT, T_COUNT, U_COUNT " &_
" FROM " & strTablePrefix & "TOTALS"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open strSql, my_Conn
Users = rs1("U_COUNT")
Topics = rs1("T_COUNT")
Posts = rs1("P_COUNT")
rs1.Close
set rs1 = nothing
end if
if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then
'## Forum_SQL
strSql = "SELECT MO.FORUM_ID, ME.MEMBER_ID, ME.M_NAME " & _
" FROM " & strTablePrefix & "MODERATOR MO" & _
" , " & strMemberTablePrefix & "MEMBERS ME" & _
" WHERE (MO.MEMBER_ID = ME.MEMBER_ID )" & _
" ORDER BY MO.FORUM_ID, ME.M_NAME"
Set rsChk = Server.CreateObject("ADODB.Recordset")
rsChk.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsChk.EOF then
recModeratorCount = ""
else
allModeratorData = rsChk.GetRows(adGetRowsRest)
recModeratorCount = UBound(allModeratorData,2)
end if
rsChk.close
set rsChk = nothing
if recModeratorCount = "" then
fMods = " "
else
mFORUM_ID = 0
mMEMBER_ID = 1
mM_NAME = 2
for iModerator = 0 to recModeratorCount
ModForumID = allModeratorData(mFORUM_ID, iModerator)
ModMemID = allModeratorData(mMEMBER_ID, iModerator)
ModMemName = replace(allModeratorData(mM_NAME, iModerator),"|","#124")
if iModerator = 0 then
strForumMods = ModForumID & "," & ModMemID & "," & ModMemName
else
strForumMods = strForumMods & "|" & ModForumID & "," & ModMemID & "," & ModMemName
end if
next
end if
end if
'## Forum_SQL - Get all Categories from the DB
strSql = "SELECT CAT_ID, CAT_STATUS, CAT_NAME, CAT_ORDER, CAT_SUBSCRIPTION, CAT_MODERATION " &_
" FROM " & strTablePrefix & "CATEGORY "
'############################## Group Cat MoD #####################################
if Cat_ID <> "" then
strSql = strSql & " WHERE CAT_ID = " & Cat_ID
else
if Group > 1 and strGroupCategories = "1" then
strSql = strSql & " WHERE CAT_ID = 0"
if recGroupCatCount <> "" then
for iGroupCat = 0 to recGroupCatCount
strSql = strSql & " or CAT_ID = " & allGroupCatData(1, iGroupCat)
next
end if
end if
end if
'############################## Group Cat MoD #####################################
strSql = strSql & " ORDER BY CAT_ORDER ASC, CAT_NAME ASC;"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rs.EOF then
recCategoryCount = ""
else
allCategoryData = rs.GetRows(adGetRowsRest)
recCategoryCount = UBound(allCategoryData,2)
end if
rs.close
set rs = nothing
if mlev = 3 then
strSql = "SELECT FORUM_ID FROM " & strTablePrefix & "MODERATOR " & _
" WHERE MEMBER_ID = " & MemberID
Set rsMod = Server.CreateObject("ADODB.Recordset")
rsMod.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsMod.EOF then
recModCount = ""
else
allModData = rsMod.GetRows(adGetRowsRest)
recModCount = UBound(allModData,2)
end if
RsMod.close
set RsMod = nothing
if recModCount <> "" then
for x = 0 to recModCount
if x = 0 then
ModOfForums = allModData(0,x)
else
ModOfForums = ModOfForums & "," & allModData(0,x)
end if
next
else
ModOfForums = ""
end if
else
ModOfForums = ""
end if
'## Forum_SQL - Build SQL to get forums via category
strSql = "SELECT F.FORUM_ID, F.F_STATUS, F.CAT_ID, F.F_SUBJECT, F.F_URL, F.F_TOPICS, " &_
"F.F_COUNT, F.F_LAST_POST, F.F_LAST_POST_TOPIC_ID, F.F_LAST_POST_REPLY_ID, F.F_TYPE, " & _
"F.F_ORDER, F.F_A_COUNT, F.F_SUBSCRIPTION, F_PRIVATEFORUMS, F_PASSWORD_NEW, " & _
"M.MEMBER_ID, M.M_NAME, " & _
"T.T_REPLIES, T.T_UREPLIES, " & _
"F.F_DESCRIPTION, F.F_PARENT " & _
"FROM ((" & strTablePrefix & "FORUM F " &_
"LEFT JOIN " & strMemberTablePrefix & "MEMBERS M ON " &_
"F.F_LAST_POST_AUTHOR = M.MEMBER_ID) " & _
"LEFT JOIN " & strTablePrefix & "TOPICS T ON " & _
"F.F_LAST_POST_TOPIC_ID = T.TOPIC_ID) "
'############################## Group Cat MoD #####################################
if Cat_ID <> "" then
strSql = strSql & " WHERE F.CAT_ID = " & Cat_ID
else
if Group > 1 and strGroupCategories = "1" then
strSql = strSql & " WHERE F.CAT_ID = 0"
if recGroupCatCount <> "" then
for iGroupCat = 0 to recGroupCatCount
strSql = strSql & " OR F.CAT_ID = " & allGroupCatData(1, iGroupCat)
next
end if
end if
end if
'############################## Group Cat MoD #####################################
strSql = strSql & " ORDER BY F.F_ORDER ASC, F.F_SUBJECT ASC;"
set rsForum = Server.CreateObject("ADODB.Recordset")
rsForum.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsForum.EOF then
recForumCount = ""
else
allForumData = rsForum.GetRows(adGetRowsRest)
recForumCount = UBound(allForumData,2)
end if
rsForum.close
set rsForum = nothing
if Cat_ID <> "" then
Cat_Name = allCategoryData(2,0)
Response.Write " <script language=""javascript"" type=""text/javascript"">" & vbNewLine & _
" document.title='" & chkString(Cat_Name,"pagetitle") & " - " & chkString(strForumTitle,"pagetitle") & "';" & vbNewLine & _
" </script>" & vbNewLine
end if
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td>"
' If Whole Board Subscription is allowed, check for a subscription by this user.
if strSubscription = 1 and strEmail = 1 and strDBNTUserName <> "" then
Response.Write vbNewLine
Response.Write " <table width=""100%"" border=""0"">" & vbNewline
Response.Write " <tr>" & vbNewLine
Response.Write " <td align=""right"">"
If strBoardSubs = "Y" then
Response.Write ShowSubLink ("U", 0, 0, 0, "Y")
Else
Response.Write ShowSubLink ("S", 0, 0, 0, "Y")
End If
Response.Write "</td>" & vbNewLine
Response.Write " </tr>" & vbNewline
Response.Write " </table>" & vbNewline
Response.Write " </td>" & vbNewline
Response.Write " </tr>" & vbNewline
Response.Write " <tr>" & vbNewline
Response.Write " <td>"
end if
ShowLastHere = (mLev > 0)
if strShowStatistics <> "1" then
Response.Write vbNewLine & _
" <table width=""100%"" border=""0"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td>"
if ShowLasthere then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>You Last Visited - " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & "</font>"
else
Response.Write " "
end if
Response.Write "</td>" & vbNewline & _
" <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>There are " & Posts & " Posts in " & Topics & " Topics and " & Users & " Users </font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewline & _
" </td>" & vbNewline
else
Response.Write "</td>" & vbNewline
end if
Response.Write " </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline
%><!--#INCLUDE FILE="inc_poll.asp" --><%
Response.Write " <tr>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if Cat_ID <> "" then
Response.Write "<a href=""default.asp"" title=""Show all Forums"" ><img src=""icon_plus.gif"" border=""none""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """ >All</a>"
else
Response.Write " "
end if
Response.Write "</font></b></td>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if strGroupCategories = "1" then Response.Write(GROUPNAME) else Response.Write("Forum")
Response.Write "</font></b></td>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Topics</font></b></td>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Posts</font></b></td>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last Post</font></b></td>" & vbNewline
if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Moderator(s)</font></b></td>" & vbNewline
end if
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """>"
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
call PostingOptions()
else
Response.write " "
end if
Response.Write "</td>" & vbNewline
Response.Write " </tr>" & vbNewline
If recCategoryCount = "" then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan="""
if (strShowModerators = "1") or (mlev > 0 ) then
Response.Write "6"
else
Response.Write "5"
end if
Response.Write """><font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strDefaultFontSize & """><b>No Categories/Forums Found</b></font></td>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strDefaultFontSize & """> </font></td>" & vbNewline & _
" </tr>" & vbNewline
else
intPostCount = 0
intTopicCount = 0
intForumCount = 0
strLastPostDate = ""
cCAT_ID = 0
cCAT_STATUS = 1
cCAT_NAME = 2
cCAT_ORDER = 3
cCAT_SUBSCRIPTION = 4
cCAT_MODERATION = 5
fFORUM_ID = 0
fF_STATUS = 1
fCAT_ID = 2
fF_SUBJECT = 3
fF_URL = 4
fF_TOPICS = 5
fF_COUNT = 6
fF_LAST_POST = 7
fF_LAST_POST_TOPIC_ID = 8
fF_LAST_POST_REPLY_ID = 9
fF_TYPE = 10
fF_ORDER = 11
fF_A_COUNT = 12
fF_SUBSCRIPTION = 13
fF_PRIVATEFORUMS = 14
fF_PASSWORD_NEW = 15
fMEMBER_ID = 16
fM_NAME = 17
fT_REPLIES = 18
fT_UREPLIES = 19
fF_DESCRIPTION = 20
fF_PARENT = 21
blnHiddenForums = false
for iCategory = 0 to recCategoryCount
CatID = allCategoryData(cCAT_ID,iCategory)
CatStatus = allCategoryData(cCAT_STATUS,iCategory)
CatName = allCategoryData(cCAT_NAME,iCategory)
CatOrder = allCategoryData(cCAT_NAME,iCategory)
CatSubscription = allCategoryData(cCAT_SUBSCRIPTION,iCategory)
CatModeration = allCategoryData(cCAT_MODERATION,iCategory)
chkDisplayHeader = true
bContainsForum = False
if recForumCount <> "" then
for iForumCheck = 0 to recForumCount
if CatID = allForumData(fCAT_ID, iForumCheck) then bContainsForum = True
next
end if
if (recForumCount = "" or not bContainsForum) and (mLev = 4) then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """>"
if Cat_ID = "" then
Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></a></td>" & vbNewline
else
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></td>" & vbNewline
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ align=center valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
call CategoryAdminOptions()
Response.Write "</font></b></td>" & vbNewline
end if
Response.Write " </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(7,6) &_
"""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><b>No Forums Found</b></font></td>" & vbNewline & _
" </tr>" & vbNewline
else
for iForum = 0 to recForumCount
if CatID = allForumData(fCAT_ID, iForum) then '## Forum exists
ForumID = allForumData(fFORUM_ID,iForum)
ForumStatus = allForumData(fF_STATUS,iForum)
ForumCatID = allForumData(fCAT_ID,iForum)
ForumSubject = allForumData(fF_SUBJECT,iForum)
ForumURL = allForumData(fF_URL,iForum)
ForumTopics = allForumData(fF_TOPICS,iForum)
ForumCount = allForumData(fF_COUNT,iForum)
ForumLastPost = allForumData(fF_LAST_POST,iForum)
ForumLastPostTopicID = allForumData(fF_LAST_POST_TOPIC_ID,iForum)
ForumLastPostReplyID = allForumData(fF_LAST_POST_REPLY_ID,iForum)
ForumFType = allForumData(fF_TYPE,iForum)
ForumOrder = allForumData(fF_ORDER,iForum)
ForumACount = allForumData(fF_A_COUNT,iForum)
ForumSubscription = allForumData(fF_SUBSCRIPTION,iForum)
ForumPrivateForums = allForumData(fF_PRIVATEFORUMS,iForum)
ForumFPasswordNew = allForumData(fF_PASSWORD_NEW,iForum)
ForumMemberID = allForumData(fMEMBER_ID,iForum)
ForumMemberName = allForumData(fM_NAME,iForum)
ForumTopicReplies = allForumData(fT_REPLIES,iForum)
ForumTopicUReplies = allForumData(fT_UREPLIES,iForum)
ForumDescription = allForumData(fF_DESCRIPTION,iForum)
ForumParent = allForumData(fF_PARENT,iForum)
Dim AdminAllowed, ModerateAllowed
if mLev = 4 then
AdminAllowed = "Y"
else
AdminAllowed = "N"
end if
if mLev = 4 then
ModerateAllowed = "Y"
elseif mLev = 3 and ModOfForums <> "" then
if (strAuthType = "nt") then
if (chkForumModerator(ForumID, Session(strCookieURL & "username")) = "1") then ModerateAllowed = "Y" else ModerateAllowed = "N"
else
if (instr("," & ModOfForums & "," ,"," & ForumID & ",") <> 0) then ModerateAllowed = "Y" else ModerateAllowed = "N"
end if
else
ModerateAllowed = "N"
end if
if ModerateAllowed = "Y" and ForumTopicUReplies > 0 then
ForumTopicReplies = ForumTopicReplies + ForumTopicUReplies
end if
if ChkDisplayForum(ForumPrivateForums,ForumFPasswordNew,ForumID,MemberID) then
if ForumFType <> "1" then
intPostCount = intPostCount + ForumCount
intTopicCount = intTopicCount + ForumTopics
intForumCount = intForumCount + 1
if ForumLastPost > strLastPostDate then
strLastPostDate = ForumLastPost
intLastPostTopic_ID = ForumLastPostTopicID
intLastPostReply_ID = ForumLastPostReplyID
intTopicReplies = ForumTopicReplies
intLastPostForum_ID = ForumID
intLastPostMember_ID = ForumMemberID
strLastPostMember_Name = ForumMemberName
end if
end if
if chkDisplayHeader then
Call DoHideCategory(CatID)
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """ valign=""top"">"
'##### This code will specify whether or not to show the forums under a category #####
HideForumCat = strUniqueID & "HideCat" & CatID
if Request.Cookies(HideForumCat) = "Y" then
Response.Write "<a href=""" & ScriptName & "?" & HideForumCat & "=N"">" & getCurrentIcon(strIconPlus,"Expand This Category","") & "</a>"
else
Response.Write "<a href=""" & ScriptName & "?" & HideForumCat & "=Y"">" & getCurrentIcon(strIconMinus,"Collapse This Category","") & "</a>"
end if
if Cat_ID = "" then
Response.Write " <a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></a> </td>" & vbNewline
else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font> </td>" & vbNewline
end if
'##### Above code will specify whether or not to show the forums under a category #####
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ align=""center"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
if (mLev = 4 or mLev = 3) or (lcase(strNoCookies) = "1") then
call CategoryAdminOptions()
elseif (mLev > 0) then
call CategoryMemberOptions()
else
Response.Write(" ")
end if
Response.Write "</font></b></td>" & vbNewline
Response.Write " </tr>" & vbNewline
chkDisplayHeader = false
end if
If IsNull(ForumParent) Then
arrSubInfo = SubForumStats(ForumID)
if Request.Cookies(HideForumCat) <> "Y" then '##### added as part of Minimize Category Mod #####
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">"
if ForumFType = 0 then
ChkIsNew(ForumLastPost)
else
Response.Write "<a href=""" & ForumURL & """ target=""_blank"">" & getCurrentIcon(strIconUrl,"Visit " & chkString(ForumSubject,"display"),"hspace=""0""") & "</a>"
end if
Response.Write "</td>" & vbNewline & _
" <td"
if ForumFType = 1 then
Response.Write " colspan=""4"""
end if
Response.Write " bgcolor=""" & strForumCellColor & """ valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText""><a href="""
if ForumFType = 0 then
Response.Write "forum.asp?forum_id=" & ForumID & """>"
else
Response.Write ForumURL & """ target=""_blank"">"
end if
Response.Write chkString(ForumSubject,"display") & "</a><br />" & _
"<font size=""" & strFooterFontSize & """>" & formatStr(ForumDescription) & _
"</font></span></font>" & arrSubInfo(0) & "</td>" & vbNewLine
if ForumFType = 0 then
if IsNull(ForumTopics) then
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & 0 + cLng(arrSubInfo(1)) & "</font></td>" & vbNewLine
else
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & cLng(ForumTopics) + cLng(arrSubInfo(1)) & "</font></td>" & vbNewLine
end if
if IsNull(ForumCount) then
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & 0 + cLng(arrSubInfo(2)) & "</font></td>" & vbNewLine
else
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & cLng(ForumCount) + cLng(arrSubInfo(2)) & "</font></td>" & vbNewLine
end if
If ForumLastPost <> "" And (arrSubInfo(3) = "none" Or ForumLastPost > arrSubInfo(3)) Then
strLastUser = "<br />by: <span class=""spnMessageText"">" & profileLink(chkString(ForumMemberName,"display"),ForumMemberID) & "</span>"
if strJumpLastPost = "1" then strLastUser = strLastUser & " " & DoLastPostLink(true)
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap>" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>" & _
"<b>" & ChkDate(ForumLastPost, "</b><br />" ,true) & strLastUser & "</font></td>" & vbNewLine
ElseIf (arrSubInfo(4) <> "") Then
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap>" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>" & arrSubInfo(4) & "</font></td>" & vbNewLine
Else
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap> </td>" & vbNewLine
End If
else
'## Do Nothing
end if
if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then
Response.Write " <td bgcolor=""" & strForumCellColor & """ align=""left"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """><span class=""spnMessageText"">" & listForumModerators(ForumID) & "</span></font></td>" & vbNewline
end if
Response.Write " <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap>"
if ModerateAllowed = "Y" or (lcase(strNoCookies) = "1") then
call ForumAdminOptions
else
call ForumMemberOptions
end if
Response.Write "</td>" & vbNewline
Response.Write " </tr>" & vbNewline
end if ' ##### Added as part of Minimize Category Mod #####
End If
else
blnHiddenForums = true
end if ' ChkDisplayForum()
end if
next '## Next Forum
end if
next '## Next Category
end if
if strPMStatus = "1" then
%> <!--#INCLUDE FILE="privatemess2.asp"--><% end if
%> <!--#include file="inc_photo_album.asp"--><%
%><!--#include file="inc_activeusers.asp"--><%
'end insert
if strShowStatistics = "1" then
WriteStatistics
end if
Response.Write " </table>" & vbNewline & _
" </td>" & vbNewline & _
" </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td>" & vbNewline & _
" <table width=""100%"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewline & _
" " & getCurrentIcon(strIconFolderNew,"New Posts","align=""absmiddle""") & " Contains new posts since last visit.<br />" & vbNewline & _
" " & getCurrentIcon(strIconFolder,"Old Posts","align=""absmiddle""") & " No new posts since the last visit.<br /></font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewline & _
" </td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewline
WriteFooter
sub PostingOptions()
if (mlev = 4) or (lcase(strNoCookies) = "1") then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
if Session(strCookieURL & "Approval") = "15916941253" then Response.Write("<a href=""down.asp"">" & getCurrentIcon(strIconLock,"Shut Down the Forum","hspace=""0""") & "</a>")
Response.Write " <a href=""post.asp?method=Category"">" & getCurrentIcon(strIconFolderNewTopic,"Create New Category","hspace=""0""") & "</a>"
if strArchiveState = "1" then Response.Write(" <a href=""admin_forums.asp"">" & getCurrentIcon(strIconFolderArchive,"Archive Forum Topics","hspace=""0""") & "</a>")
Response.Write("</font>")
' DEM --> Start of Code for Full Moderation
if UnModeratedPosts > 0 then
Response.Write " <a href=""moderate.asp"">" & getCurrentIcon(strIconFolderModerate,"View All UnModerated Posts","hspace=""0""") & "</a>"
'Response.Write " <a href=""JavaScript:openWindow('pop_moderate.asp')"">" & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject all UnModerated Posts","hspace=""0""") & "</a>"
end if
' DEM --> End of Code for Full Moderation
' DEM - Added to allow for sorting
Response.Write " <a href=""Javascript:openWindow3('admin_config_order.asp')"">" & getCurrentIcon(strIconSort,"Set the order of Forums and Categories","hspace=""0""") & "</a>"
'############################## Group Cat MoD #####################################
if strGroupCategories = "1" then Response.Write(" <a href=""admin_config_groupcats.asp?method=Edit"">" & getCurrentIcon(strIconGroupCategories,"Configure Group Categories","hspace=""0""") & "</a>")
'############################## Group Cat MoD #####################################
elseif (mlev = 3) then
if UnModeratedPosts > 0 then
Response.Write " <a href=""moderate.asp"">" & getCurrentIcon(strIconFolderModerate,"View All UnModerated Posts","hspace=""0""") & "</a>"
else
Response.Write " "
end if
else
Response.Write " "
end if
end sub
sub ChkIsNew(dt)
Response.Write "<a href=""forum.asp?FORUM_ID=" & ForumID & """>"
if CatStatus <> 0 and ForumStatus <> 0 then
if dt > Session(strCookieURL & "last_here_date") and (ForumCount > 0 or ForumTopics > 0) then
Response.Write getCurrentIcon(strIconFolderNew,"New Posts","hspace=""0""") & "</a>"
else
Response.Write getCurrentIcon(strIconFolder,"Old Posts","hspace=""0""") & "</a>"
end if
elseif ForumLastPost > Session(strCookieURL & "last_here_date") then
if CatStatus = 0 then
strAltText = "Category Locked"
else
strAltText = "Forum Locked"
end if
Response.Write getCurrentIcon(strIconFolderNewLocked,strAltText,"hspace=""0""") & "</a>"
else
if CatStatus = 0 then
strAltText = "Category Locked"
else
strAltText = "Forum Locked"
end if
Response.Write getCurrentIcon(strIconFolderLocked,strAltText,"hspace=""0""") & "</a>"
end if
end sub
sub CategoryAdminOptions()
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) then
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Category&CAT_ID=" & CatID & "')"">" & getCurrentIcon(strIconLock,"Lock Category","hspace=""0""") & "</a>"
else
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=" & CatID & "')"">" & getCurrentIcon(strIconUnlock,"Un-Lock Category","hspace=""0""") & "</a>"
end if
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) then
Response.Write " <a href=""post.asp?method=EditCategory&CAT_ID=" & CatID & """>" & getCurrentIcon(strIconPencil,"Edit Category Name","hspace=""0""") & "</a>"
end if
end if
if mlev = 4 or (lcase(strNoCookies) = "1") then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?mode=Category&CAT_ID=" & CatID & "')"">" & getCurrentIcon(strIconTrashcan,"Delete Category","hspace=""0""") & "</a>"
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) then
Response.Write " <a href=""post.asp?method=Forum&CAT_ID=" & CatID & "&type=0"">" & getCurrentIcon(strIconFolderNewTopic,"Create New Forum","hspace=""0""") & "</a>"
end if
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) then
Response.Write " <a href=""post.asp?method=URL&CAT_ID=" & CatID & "&type=1"">" & getCurrentIcon(strIconUrl,"Create New Web Link","hspace=""0""") & "</a>"
end if
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (CatStatus <> 0) and strArchiveState = "1" then
''## Forum_SQL
'strSQL = "SELECT FORUM_ID FROM " & strTablePrefix & "FORUM WHERE CAT_ID=" & CatID & " AND F_TYPE = 0"
'Set rsArchive = Server.CreateObject("ADODB.Recordset")
'rsArchive.open strSql, my_Conn
'archID = ""
'do while not rsArchive.EOF
' if archID <> "" then
' archID = archID & ", "
' end if
' archID = archID & rsArchive("FORUM_ID")
' rsArchive.movenext
'loop
'if archID <> "" then Response.Write " <a href=""admin_forums.asp?action=archive&target=admin_forums.asp&id=" & Server.URLEncode(archID) & """>" & getCurrentIcon(strIconFolderArchive,"Archive All Forums in Category","hspace=""0""") & "</a>"
'rsArchive.close
'set rsArchive = nothing
end if
end if
if (strSubscription = 1 or strSubscription = 2) and CatSubscription = 1 and strEmail = 1 then
if InArray(strCatSubs,CatID) then
Response.Write " " & ShowSubLink ("U", CatID, 0, 0, "N")
elseif strBoardSubs <> "Y" then
Response.Write " " & ShowSubLink ("S", CatID, 0, 0, "N")
end if
elseif mLev = "3" then
Response.Write " "
end if
else
Response.Write " "
end if
end sub
sub CategoryMemberOptions()
if (strSubscription = 1 or strSubscription = 2) and CatSubscription = 1 and CatStatus <> 0 and strEmail = 1 then
if InArray(strCatSubs,CatID) then
Response.Write " " & ShowSubLink ("U", CatID, 0, 0, "N")
elseif strBoardSubs <> "Y" then
Response.Write " " & ShowSubLink ("S", CatID, 0, 0, "N")
end If
else
Response.Write " "
end if
end sub
sub ForumAdminOptions()
if (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then
if ForumFType = 0 then
if CatStatus = 0 then
if (mlev = 4) then
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=" & CatID & "')"">" & getCurrentIcon(strIconUnlock,"Un-Lock Category","hspace=""0""") & "</a>"
end if
else
if ForumStatus = 1 then
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Forum&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "')"">" & getCurrentIcon(strIconLock,"Lock Forum","hspace=""0""") & "</a>"
else
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Forum&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "')"">" & getCurrentIcon(strIconUnlock,"Un-Lock Forum","hspace=""0""") & "</a>"
end if
end if
end if
if ForumFType = 0 then
if (CatStatus <> 0 and ForumStatus <> 0) or (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then
Response.Write " <a href=""post.asp?method=EditForum&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "&type=0"">" & getCurrentIcon(strIconPencil,"Edit Forum Properties","hspace=""0""") & "</a>"
end if
else
if ForumFType = 1 then
Response.Write " <a href=""post.asp?method=EditURL&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "&type=1"">" & getCurrentIcon(strIconPencil,"Edit URL Properties","hspace=""0""") & "</a>"
end if
end if
if (mlev = 4) or (lcase(strNoCookies) = "1") then
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?mode=Forum&FORUM_ID=" & ForumID & "&CAT_ID=" & ForumCatID & "')"">" & getCurrentIcon(strIconTrashcan,"Delete Forum","hspace=""0""") & "</a>"
end if
if ForumFType = 0 then
Response.Write " <a href=""post.asp?method=Topic&FORUM_ID=" & ForumID & """>" & getCurrentIcon(strIconFolderNewTopic,"New Topic","hspace=""0""") & "</a>"
end if
if ((mlev = 4) or (lcase(strNoCookies) = "1")) and (ForumFType = 0) and (strArchiveState = "1") then
Response.Write " <a href=""admin_forums.asp?action=archive&id=" & ForumID & """>" & getCurrentIcon(strIconFolderArchive,"Archive Forum","hspace=""0""") & "</a>"
end if
if (ForumFType = 0 and ForumACount > 0) and strArchiveState = "1" then
Response.Write " <a href=""forum.asp?ARCHIVE=true&FORUM_ID=" & ForumID & """>" & getCurrentIcon(strIconFolderArchived,"View Archived posts","hspace=""0""") & "</a>"
end if
if (strSubscription > 0 and strSubscription < 4) and CatSubscription > 0 and ForumSubscription = 1 and strEmail = 1 then
if InArray(strForumSubs,ForumID) then
Response.Write " " & ShowSubLink ("U", ForumCatID, ForumID, 0, "N")
elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,ForumCatID)) then
Response.Write " " & ShowSubLink ("S", ForumCatID, ForumID, 0, "N")
end if
end if
else
Response.Write " "
end if
end sub
sub ForumMemberOptions()
if (mlev > 0) then
if ForumFType = 0 and ForumStatus > 0 and CatStatus > 0 then
Response.Write "<a href=""post.asp?method=Topic&FORUM_ID=" & ForumID & """>" & getCurrentIcon(strIconFolderNewTopic,"New Topic","hspace=""0""") & "</a>"
else
Response.Write " "
end if
else
Response.Write " "
end if
if (ForumFType = 0 and ForumACount > 0) and strArchiveState = "1" then
Response.Write " <a href=""forum.asp?ARCHIVE=true&FORUM_ID=" & ForumID & """>" & _
getCurrentIcon(strIconFolderArchived,"View Archived posts","hspace=""0""") & "</a>"
end if
' DEM --> Start of code for Subscription
if ForumFType = 0 and (strSubscription > 0 and strSubscription < 4) and CatSubscription > 0 and ForumSubscription = 1 and (mlev > 0) and strEmail = 1 then
if InArray(strForumSubs,ForumID) then
Response.Write " " & ShowSubLink ("U", ForumCatID, ForumID, 0, "N")
elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,ForumCatID)) then
Response.Write " " & ShowSubLink ("S", ForumCatID, ForumID, 0, "N")
end if
end if
' DEM --> End of Code for Subscription
end sub
sub WriteStatistics()
Dim Forum_Count
Dim NewMember_Name, NewMember_Id, Member_Count
Dim LastPostDate, LastPostLink
Forum_Count = intForumCount
'## Forum_SQL - Get newest membername and id from DB
strSql = "SELECT M_NAME, MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS " &_
" WHERE M_STATUS = 1 AND MEMBER_ID > 1 " &_
" ORDER BY MEMBER_ID desc;"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open TopSQL(strSql,1), my_Conn
if not rs.EOF then
NewMember_Name = chkString(rs("M_NAME"), "display")
NewMember_Id = rs("MEMBER_ID")
else
NewMember_Name = ""
end if
rs.close
set rs = nothing
'## Forum_SQL - Get Active membercount from DB
strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_POSTS > 0 AND M_STATUS=1"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn
if not rs.EOF then
Member_Count = rs("U_COUNT")
else
Member_Count = 0
end if
rs.close
set rs = nothing
'## Forum_SQL - Get membercount from DB
strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS=1"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn
if not rs.EOF then
User_Count = rs("U_COUNT")
else
User_Count = 0
end if
rs.close
set rs = nothing
LastPostDate = ""
LastPostLink = ""
LastPostAuthorLink = ""
if not (intLastPostForum_ID = "") then
ForumTopicReplies = intTopicReplies
ForumLastPostTopicID = intLastPostTopic_ID
ForumLastPostReplyID = intLastPostReply_ID
LastPostDate = ChkDate(strLastPostDate,"",true)
LastPostLink = DoLastPostLink(false)
LastPostAuthorLink = " by: <span class=""spnMessageText"">" & profileLink(chkString(strLastPostMember_Name,"display"),intLastPostMember_ID) & "</span>"
end if
ActiveTopicCount = -1
if not IsNull(Session(strCookieURL & "last_here_date")) then
if not blnHiddenForums then
'## Forum_SQL - Get ActiveTopicCount from DB
strSql = "SELECT COUNT(" & strTablePrefix & "TOPICS.T_LAST_POST) AS NUM_ACTIVE " &_
" FROM " & strTablePrefix & "TOPICS " &_
" WHERE (((" & strTablePrefix & "TOPICS.T_LAST_POST)>'"& Session(strCookieURL & "last_here_date") & "'))" &_
" AND " & strTablePrefix & "TOPICS.T_STATUS <= 1"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn
if not rs.EOF then
ActiveTopicCount = rs("NUM_ACTIVE")
else
ActiveTopicCount = 0
end if
rs.close
set rs = nothing
end if
end if
ArchivedPostCount = 0
ArchivedTopicCount = 0
if strArchiveState = "1" then
'## Forum_SQL
strSql = "SELECT P_A_COUNT, T_A_COUNT FROM " & strTablePrefix & "TOTALS"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn
if not rs.EOF then
ArchivedPostCount = rs("P_A_COUNT")
ArchivedTopicCount = rs("T_A_COUNT")
else
ArchivedPostCount = 0
ArchivedTopicCount = 0
end if
rs.Close
set rs = nothing
end if
'ShowLastHere = (cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1)) > 0)
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) &_
"""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b> Statistics</b></font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td rowspan="""
if ShowLastHere then
Response.Write "6"
else
Response.Write "5"
end if
Response.Write """ bgcolor=""" & strForumCellColor & """> </td>" & vbNewline
Response.Write " <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
""">" & _
"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>"
if ActiveTopicCount > 0 then
Response.Write "There's " & ActiveTopicCount & " <span class=""spnMessageText""><a href=""active.asp"">active "
if ActiveTopicCount = 1 then
Response.Write "topic"
else
Response.Write "topics"
end if
Response.Write "</a></span> since you last visited on " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & ""
elseif blnHiddenForums and (strLastPostDate > Session(strCookieURL & "last_here_date")) and ShowLastHere then
Response.Write "There are <span class=""spnMessageText""><a href=""active.asp"">active topics</a></span> since you last visited on " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & "."
elseif not(ShowLastHere) then
Response.Write "Not yet a Member? Then <a href=""policy.asp""" & dWStatus("Register to post to our forum...") & " tabindex=""-1""><acronym title=""Register to post to our forum..."">Click Here to Register</acronym></a> to post to our forums"
else
Response.Write "There are no active topics since you last visited on " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & "."
end if
Response.Write "</font></td>" & vbNewline & _
" </tr>" & vbNewline
if intPostCount > 0 then
Response.Write " <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
""">" & _
"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>"
if Member_Count = 1 and User_Count = 1 then
Response.Write "1 Member has "
else
Response.Write Member_Count & " of " & User_Count & " <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>Members</font> have "
end if
Response.Write " made "
if intPostCount = 1 then
Response.Write "1 post "
else
Response.Write intPostCount & " posts within "
end if
if intTopicCount > 0 then
Response.Write intTopicCount
else
Response.Write "no"
end if
if intTopicCount = 1 then
Response.Write " topic"
else
Response.Write " topics"
end if
Response.Write " in "
if intForumCount = 1 then
Response.Write "1 forum"
else
Response.Write intForumCount & " forums"
end if
if (LastPostDate = "" or LastPostLink = "" or intPostCount = 0) then
Response.Write "."
else
Response.Write ", <br> with the last post <span class=""spnMessageText"">" & LastPostLink & LastPostDate & "</a></span>"
if LastPostAuthorLink <> "" then
Response.Write LastPostAuthorLink & "."
else
Response.Write "."
end if
end if
Response.Write "</font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" <tr>" & vbNewline
end if
if ArchivedPostCount > 0 and strArchiveState = "1" then
Response.Write " " & vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
"""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
"In addition there "
if ArchivedPostCount = 1 then
Response.Write "is "
else
Response.Write "are "
end if
Response.Write ArchivedPostCount & " "
if ArchivedPostCount = 1 then
Response.Write " archived post "
else
Response.Write " archived posts"
end if
if ArchivedTopicCount > 0 then
Response.Write " in " & ArchivedTopicCount
if ArchivedTopicCount = 1 then
Response.Write " archived topic"
else
Response.Write " archived topics"
end if
end if
Response.Write "</font></td>" & vbNewline & _
" </tr>" & vbNewline
end if
Response.Write " " & vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
"""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Website Active Users: " & Application("ActiveUsers") & ", Visits Today: " & Application("VisitorsToday") & ",</font>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> Recent highest Active Users: " & Application("HighestToDate") & ",</font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
if NewMember_Name <> "" then
Response.Write " " & vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
""">" & _
"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>Please welcome our newest member: " & _
"<span class=""spnMessageText"">" & profileLink(NewMember_Name,NewMember_Id) & "</span>.</font></td>" & vbNewline & _
" </tr>" & vbNewline
end if
end sub
Sub DoHideCategory(intCatId)
HideForumCat = strUniqueID & "HideCat" & intCatId
if Request.QueryString(HideForumCat) = "Y" then
Response.Cookies(HideForumCat) = "Y"
Response.Cookies(HideForumCat).Expires = dateAdd("d", 30, strForumTimeAdjust)
else
if Request.QueryString(HideForumCat) = "N" then
Response.Cookies(HideForumCat) = "N"
Response.Cookies(HideForumCat).Expires = dateadd("d", -2, strForumTimeAdjust)
end if
end if
end sub
Function DoLastPostLink(showicon)
if ForumLastPostReplyID <> 0 then
PageLink = "whichpage=-1&"
AnchorLink = "&REPLY_ID="
DoLastPostLink = "<a href=""topic.asp?" & PageLink & "TOPIC_ID=" & ForumLastPostTopicID & AnchorLink & ForumLastPostReplyID & """>"
if (showicon = true) then DoLastPostLink = DoLastPostLink & getCurrentIcon(strIconLastpost,"Jump to Last Post","align=""absmiddle""") & "</a>"
elseif ForumLastPostTopicID <> 0 then
DoLastPostLink = "<a href=""topic.asp?TOPIC_ID=" & ForumLastPostTopicID & """>"
if (showicon = true) then DoLastPostLink = DoLastPostLink & getCurrentIcon(strIconLastpost,"Jump to Last Post","align=""absmiddle""") & "</a>"
else
DoLastPostLink = ""
end if
end function
function listForumModerators(fForum_ID)
fForumMods = split(strForumMods,"|")
for iModerator = 0 to ubound(fForumMods)
fForumMod = split(fForumMods(iModerator),",")
ModForumID = fForumMod(0)
ModMemID = fForumMod(1)
ModMemName = fForumMod(2)
if cLng(ModForumID) = cLng(fForum_ID) then
if fMods = "" then
fMods = "<nobr>" & profileLink(chkString(ModMemName,"display"),ModMemID) & "</nobr>"
else
fMods = fMods & ", <nobr>" & profileLink(chkString(ModMemName,"display"),ModMemID) & "</nobr>"
end if
end if
next
if fMods = "" then fMods = " "
listForumModerators = fMods
end function
%>
Thanks |
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 13 August 2015 : 13:13:15
|
You have quite a few mods installed, so my guess would be it is one of those causing you issues, so you need to check if they are closing connections correctly
subforums mod, pm mod,active users mod,photo album, poll mod |
MVC .net dev/test site | MVC .net running on Raspberry Pi |
|
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 13 August 2015 : 14:59:38
|
All those mods have been installed for at least 12months minimum and many much longer without causing any problems
To be honest I'm starting to think that the issue might be more to do with the hosting of the dedicated server and somewhere along the migration the hosts may have moved us onto a new server resolving the previous memory issue but have not set this server up correctly - or something.
The support ticket that has been running re this with the hosts has now been escalated further up the support ladder to hopefully someone who might be able to shed light on it.
I wouldn't mind but I paid heavily for the migration from one server to the other as I haven't the time or skills to do it bearing in mind the size of the site.
And now it's in a worse place than before with no working site, a community dangling in cyberspace, errors with php, asp, MySQL, ftp, and no email either - grrr!
Even changing nameservers became a major issue as they were the original nameservers from way back in 2001 (the original hosting company that has been bought out and the buyers were bought out later), and it wasn't a simple matter of changing them as the original company no longer existed
I need a drink or three 
|
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 13 August 2015 : 16:59:12
|
It is a windows server but managed and as such no remote access despite my request
It looks like some thing is happening as there is now an error message re too many connections when trying to view the forums, which wasn't there earlier, in fact there was no access at all earlier
The wine is nice and chilled |
|
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 13 August 2015 : 17:56:21
|
I confess to have helped with tens of MySQL Snitz installations, done a lot of them myself, have had quite a few sites running with loads of mods, some with some reasonable traffic (1.5 million+ page views / month) and have never seen anything like that. I think Huw is right, I doubt that MySQL server is properly configured or dimensioned, even if I cannot claim to be a MySQL configuration specialist.
The connections limit being reached makes sense. Seems the locks are not being released in a timely manner, so each lock will mean a connection that is waiting for a response, thus not released. The number will simply rise until you reach the limit.
Are you on the same database server as before, or was that upgraded as well? |
Snitz 3.4 Readme | Like the support? Support Snitz too |
|
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 13 August 2015 : 19:01:08
|
Thanks Rui, the database server is new, contained within the new dedicated server
Traffic wise we hit on average over 14million page views a month so you can appreciate the anguish trying to get this sorted 
|
|
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 13 August 2015 : 22:50:05
|
| Well, I wonder whether it is wise to have the database server on the same virtual server as the web server. I probably wouldn't do it. Can't you use the same database server you were using until now? A separate database server seems the right way to handle even websites with less traffic, let alone yours. |
Snitz 3.4 Readme | Like the support? Support Snitz too |
|
|
|
Webbo
Average Member
United Kingdom
982 Posts |
Posted - 15 August 2015 : 23:25:05
|
Thanks Rui, I passed on your comment
It looks like there was a problem with the new server and it is being replaced with another this time to a different spec and with solid state drives - I'll have to see what happens |
|
|
|
Topic |
|
|
|
