Web Wiz Forums Modifications - MOD:Last topic subjects in forums area

MOD:Last topic subjects in forums area

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=19841
Printed Date: 29 March 2026 at 3:12am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: MOD:Last topic subjects in forums area

Posted By: g�lge
Subject: MOD:Last topic subjects in forums area
Date Posted: 12 May 2006 at 2:13pm

Features:

-showing lastposts at forum tables

-if the last post belongs a subforum, shows it ( you know the original default.asp file does not show subforums' last posts)

-correcting subforum variables that not shown under topics, posts in forum tables (topic nums, post nums etc...)

-at the bottom (in statistics area) showing correct informations. (last posted user etc..)

caps:

http://imageshack.us/?x=my6&myref=http://imageshack.us/"> img160/356/subforum9qx.jpg

< =text/>setImgWidth();

the red codes are modified or added codes by me, open your default.asp file and follow the steps...

1-add dim fsub variable at the bottom of dim rows

Dim intBirtdayLoopCounter 'Holds the bitrhday loop counter
dim strSubject
dim fsub

2-add fsub = 0 code under strSubForums = ""

Do While intCurrentRecord <= Ubound(sarryForums,2)

    'Initialise variables
    strSubForums = ""
       fsub = 0

3-replace intCurrentRecord code with intTempRecord

strLastSubEntryUser = sarryForums(8,intTempRecord)
       If isNumeric(sarryForums(9,intTempRecord)) Then lngLastSubEntryUserID = CLng(sarryForums(9,intTempRecord)) Else lngLastEntryUserID = 0
       If isDate(sarryForums(10,intTempRecord)) Then dtmLastSubEntryDate = CDate(sarryForums(10,intTempRecord)) Else dtmLastSubEntryDate = Now()

4-copy the red codes and paste under the black codes

'Add all the posts and topics together to get the total number for the stats at the bottom of the page
        lngTotalNumberOfPosts = lngTotalNumberOfPosts + lngSubForumNumberOfPosts
        lngTotalNumberOfTopics = lngTotalNumberOfTopics + lngSubForumNumberOfTopics
        lngNumberOfPosts = lngNumberOfPosts + lngSubForumNumberOfPosts
        lngNumberOfTopics = lngNumberOfTopics + lngSubForumNumberOfTopics


If dtmLastEntryDateAllForums < dtmLastSubEntryDate Then
         strLastEntryUserAllForums = strLastSubEntryUser
         lngLastEntryUserIDAllForums = lngLastSubEntryUserID
         dtmLastEntryDateAllForums = dtmLastSubEntryDate
        End If

          If dtmLastEntryDate < dtmLastSubEntryDate Then
         dtmLastEntryDate = dtmLastSubEntryDate
         lngLastEntryUserID = lngLastSubEntryUserID
         strLastEntryUser = strLastSubEntryUser
         fsub= intsubforumid
        End If

        'If there are other sub forums place a comma inbetween
        If strSubForums <> "" Then strSubForums = strSubForums & ", "

5-copy the red codes and paste between black codes

     'Write the HTML of the forum descriptions and hyperlinks to the forums
     'Son mesajlar
     strSQL = "SELECT" & strDBTop1 & " " & strDbTable & "Topic.Subject FROM " & strDbTable & "Topic" & strDBNoLock & ", " & strDbTable & "Thread" & strDBNoLock & " " & _
      "WHERE " & strDbTable & "Topic.Topic_ID = " & strDbTable & "Thread.Topic_ID AND " & strDbTable & "Topic.Forum_ID=" & fsub & " AND " & strDbTable & "Topic.Hide=" & strDBFalse & " " & _
       "AND " & strDbTable & "Thread.Hide=" & strDBFalse & " ORDER BY " & strDbTable & "Thread.Message_date DESC" & strDBLimit1 & ";"
      rsCommon.Open strSQL, adoCon

     if fsub = 0 then fsub = intforumid
      if NOT rsCommon.EOF then
      If len(rsCommon("Subject"))>50 Then
       strSubject = "<a href=""get_last_post.asp?FID=" &fsub & """ style=""font-size:11px; font-weight : bold; color : #465584;"">" & left(rsCommon("Subject"),50) &"..."& "</a>"
      else
       strSubject = "<a href=""get_last_post.asp?FID=" &fsub & """ style=""font-size:11px; font-weight : bold; color : #465584;"">" & rsCommon("Subject")& "</a>"
      End If
      end if
      rsCommon.Close
        'Son Mesajlar
     'Calculate row colour

6-replace original code with the red code in your default page

[quote]

'Display forum details
     Response.Write("<br /><span style=""font-size:11px;"">" & strForumDiscription & strSubForums & "</span></td>" & _
     vbCrLf & " <td align=""center"">" & lngNumberOfTopics & "</td>" & _
     vbCrLf & " <td align=""center"">" & lngNumberOfPosts & "</td>" & _
     vbCrLf & " <td class=""smText"" align=""right"" nowrap>")

Replies:

Posted By: GopCa
Date Posted: 27 May 2006 at 4:29pm

buradakileri aynen yapınca mesaj yazılmamış konularda mesaj yazılmış gibi g�steriyor ve tarihin �st�nde boşluk g�r�n�yor son yazılan mesaj g�r�nm�yor

-------------
T�rk�e Web Wiz Forum Desteğine http://Gopca.Net - http://Gopca.Net adresinden ulaşabilirsiniz...

Posted By: jsaren
Date Posted: 27 May 2006 at 10:52pm

it works well with v8.01.

Posted By: graper
Date Posted: 28 May 2006 at 3:10am

OK TRY IT

-------------
WWF论坛讨论QQ群:2652358
WWF论坛讨论: Http://Www.CNWWF.Com/Forum/ - Http://Www.CNWWF.Com/Forum/

Posted By: leiti
Date Posted: 31 May 2006 at 3:59pm

Hello,

i got the following error by your mod:

Laufzeitfehler in Microsoft VBScript (0x800A01A8)
Objekt erforderlich
/web_wiz_forum/forum/default.asp, line 525

Line 525:

rsCommon.Open strSQL, adoCon

This is the line in point 5 of you installation guide.

Where's the error?

thanks 4 help!

Posted By: Lazwolf
Date Posted: 01 June 2006 at 9:53am

There should be a Call closeDatabase() around line 380. Comment that out and move it below the loop that displays the forums. That worked for me.

Posted By: GopCa
Date Posted: 06 June 2006 at 3:50pm

kodlarda hata var g�lge bir binceleyip yenileyebilir misin?

-------------
T�rk�e Web Wiz Forum Desteğine http://Gopca.Net - http://Gopca.Net adresinden ulaşabilirsiniz...

Posted By: g�lge
Date Posted: 06 June 2006 at 11:46pm

kodlarda hata yok. yukardakileri aynen yaptığından emin ol! hata olsa diğer �yelerde �alışmazdı.

i checked code there isnt any error. be sure that you made all steps correctly..

Posted By: MadDog
Date Posted: 07 June 2006 at 5:12am

Post in English people!

-------------
http://www.iportalx.net" rel="nofollow">

Posted By: GopCa
Date Posted: 17 June 2006 at 2:57am

g�lge birebir aynısını yaptım s�yle bir şey oldu

bazı yerlerde hi� başlık g�r�nm�yor bazı yerlerde ise aynı başlık s�rekli ekranda...

http://imageshack.us">

-------------
T�rk�e Web Wiz Forum Desteğine http://Gopca.Net - http://Gopca.Net adresinden ulaşabilirsiniz...

Posted By: MadDog
Date Posted: 17 June 2006 at 4:38am

ENGLISH ONLY

-------------
http://www.iportalx.net" rel="nofollow">

Posted By: GopCa
Date Posted: 29 June 2006 at 6:02pm

helpppp

-------------
T�rk�e Web Wiz Forum Desteğine http://Gopca.Net - http://Gopca.Net adresinden ulaşabilirsiniz...

Posted By: g�lge
Date Posted: 29 June 2006 at 7:20pm

i think you failed step 2:

Do While intCurrentRecord <= Ubound(sarryForums,2)

    'Initialise variables
    strSubForums = ""
       fsub = 0

i think you write fsub=0 wrong line. be sure the code at the line that i shown...

(sanırım fsub = 0 kodunu yanlış yere yapıştırmışsın. kodu g�sterdiğim yere yapıştırdığından emin ol. )

Posted By: jsaren
Date Posted: 30 June 2006 at 12:58am

MadDog wrote:

ENGLISH ONLY

鸟人太霸道

Posted By: Mikey
Date Posted: 30 June 2006 at 2:00am

Lol google translated that as 'birds to high"

-------------
Handyman man?

Posted By: GopCa
Date Posted: 01 July 2006 at 1:07pm

tekrardan deneyim belkide versiyondan kaynaklanıyordur. versiyon 8.02 de bu şekilde yaptı şimdi bir 3 te deneyim olmazsa 1 de deniyim. yada en g�zeli :) sen default.asp dosyasıyla yapılan değişiklikleri ziplesen koysan buraya indirsek :D

-------------
T�rk�e Web Wiz Forum Desteğine http://Gopca.Net - http://Gopca.Net adresinden ulaşabilirsiniz...

Posted By: GopCa
Date Posted: 03 July 2006 at 2:48pm

'Loop round to display all the forums for this category
               Do While intCurrentRecord <= Ubound(sarryForums,2)

                    'Initialise variables
                    strSubForums = ""
                     fsub = 0

b�l�m�ne yaptım ama yine aynı sekilde etki ediyor. acaba senden istekte bulunup bunun versiyon 3 i�in olanı varmı? ��nk� versiyon 3te kullandığın bazı kodları yerleştirmişler...

-------------
T�rk�e Web Wiz Forum Desteğine http://Gopca.Net - http://Gopca.Net adresinden ulaşabilirsiniz...