Last 10 Post

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I am having a bit of trouble on this too.  Maddog was very helpful, but I know I was bugging him to death on this script.  If anyone has a suggestion I would be thankful.

This is for WWF v8.  I was able to get the script to connect to the database but it appears to not see the new posts (or any).  From the forum I have added topics and replied to them but nothing shows.

Here is the hyperlink:
http://www.clubtec.com/secure-new/secure-sub-pages/ctd-sidebar/ctd-new_posts8.asp

Here is my code.  I think the problem is in how the record set is formed but I just cannot see it.
=====================================
=====================================
<style type="text/css">
<!--
.text {font-family: Tahoma; font-size: 11; color: white;}
a {font-family: Tahoma; color: white; font-size: 11; text-decoration: none;}
a:hover {font-family: Tahoma; color: white; font-size: 11; text-decoration: underline;}
a:visited {font-family: Tahoma; color: white; font-size: 11; text-decoration: none;}
a:visited:hover {font-family: Tahoma; color: white; font-size: 11; text-decoration: underline;}
-->
</STYLE>
<body bgcolor="#1C6582">
<table cellpadding="3" cellspacing="1" width="150" class="text">
 <tr>
  <td align="center" height="15">
 <p align="left">
 <a target="_blank" href="../../_forum8/forum/default.asp">
 <img border="0" src="../../../images/ctd-recentposts.jpg" width="150" height="18"></a></td>
 </tr>
 <tr>
  <td height="25">
<%
'#########################################################################
'##
'## Display Newest Forum Posts with WebWizForums v8.x
'##
'## Just configure the database settings and it will read the latest forum
'## posts. This file should be setup for your website.
'##
'## Mod from www.iportalx.net
'##
'## Writen by Drew Gauderman (aka MadDog)
'## Email: drew@aspinvision.com
'## Website: www.iportalx.net
'##
'## Dont want to do this yourself? Get iPortalX! A Portal with WebWizForum!
'## http://www.iportalx.net
'##
'#########################################################################
Dim rsCommon
Dim adoCon
Dim strCon
Dim strSQL
Dim strLastestPostsModTopicSubject
Dim strLastestPostsModForumPath
Dim intLastestPostsTotal
Dim strDatabaseType
Dim strDBTrue
Dim strDBFalse
Dim strFrameTarget
'The path to the forum
strForumPath = "../../../secure-new/_forum8/forum/"
'How many new topics to show
intLastestPostsTotal = 6
'//-----------------------------------------------------
'// Database connection and settings
'//-----------------------------------------------------
'Database settings for Access
strDatabaseType = "Access"
strDBTrue = "True"
strDBFalse = "False"
'Database settings for MSSQL
strDatabaseType = "SQLServer"
strDBTrue = "1"
strDBFalse = "0"
'Database settings for MySQL
'strDatabaseType = "MySQL"
'strDBFalse = 0
'strDBTrue = -1
'Access connection
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../../fpdb/ww8F0rum$.mdb")  'This one is for Access 2000/2002

'MSSQL Connection
'Const strSQLServerName = ".\SQLExpress" 'Holds the name of the SQL Server (This is the name/location or IP address of the SQL Server)
'Const strSQLDBUserName = "sa" 'Holds the user name (for SQL Server Authentication)
'Const strSQLDBPassword = "blank" 'Holds the password (for SQL Server Authentication)
'Const strSQLDBName = "beta2"
'strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
'//-----------------------------------------------------
'Start the database connection
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open strCon
'Start a recordset connection
Set rsCommon = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT "
If strDatabaseType = "SQLServer" OR strDatabaseType = "Access" Then strSQL = strSQL & " TOP " & intLastestPostsTotal & " "
strSQL = strSQL & "tblForum.Forum_name, tblTopic.Topic_ID, tblTopic.Subject, tblThread.Thread_ID, tblThread.Message_date, tblAuthor.Author_ID, tblAuthor.Username, tblThread.Message  " & _
    "FROM tblForum, tblTopic, tblAuthor, tblThread, tblPermissions " & _
    "WHERE tblForum.Forum_ID = tblTopic.Forum_ID " & _
        "AND tblTopic.Topic_ID = tblThread.Topic_ID " & _
        "AND tblAuthor.Author_ID = tblThread.Author_ID " & _
        "AND tblForum.Forum_ID = tblPermissions.Forum_ID " & _
        "AND (tblPermissions.Group_ID = 2 AND tblPermissions.View_Forum = " & strDBTrue & ") "
strSQL = strSQL & "AND (tblForum.Password = '' OR tblForum.Password Is Null) AND (tblTopic.Hide = " & strDBFalse & " AND tblThread.Hide = " & strDBFalse & ") ORDER BY tblThread.Message_date DESC "
'mySQL limit operator
If strDatabaseType = "mySQL" Then strSQL = strSQL & " LIMIT " & intLastestPostsTotal
strSQL = strSQL & ";"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then saryForumPosts = rsCommon.getRows()
'Close all connections, very important!!
rsCommon.Close
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing

'No forum posts
If IsArray(saryForumPosts) = False Then
    Response.Write "<span class=""text_arial"">No Forum Posts Made</span>"
'Forum posts have been made
Else
    'Loop through the array of forum posts
    For intLoopCounter = 0 TO UBound(saryForumPosts, 2)
        'saryForumPosts array lookup table
        '0 = tblForum.Forum_name
        '1 = tblTopic.Topic_ID
        '2 = tblTopic.Subject
        '3 = tblThread.Thread_ID
        '4 = tblThread.Message_date
        '5 = tblAuthor.Author_ID
        '6 = tblAuthor.Username
        '7 = tblThread.Message
        strLastestPostsModTopicSubject = saryForumPosts(2, intLoopCounter)
        'Crop the subject down to 18 characters
        If Len(strLastestPostsModTopicSubject) > 18 then strLastestPostsModTopicSubject = Left(strLastestPostsModTopicSubject,30) & "..."
        Response.Write("<a target=strFrameTarget & href=""" & strForumP