this is a very quick edit of Maddogs Last 10 Posts mod ive changed it to only get topics that dont have replies (unanswered) it should work for what you want <% '######################################################################### '## '## Display Newest Forum Posts with WebWizForums v8.x '## Modified by Dale (mbd2) to work with v8.x '## ogrinally designed by http://www.maddog-asp.com/ - www.maddog-asp.com '## '## Just change the database connection in the strMembersModCon '## variable. '## '## Then make sure the strLastestPostsModForumPath is the right path '## to your forum. '## '## Mod from http://www.maddogs-asp.com/ - www.maddogs-asp.com '## '## Writen by Drew Gauderman (aka MadDog) '## '######################################################################### %> <style type="text/css"> <!-- .text {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12; color: black;} a
{font-family: Verdana, Arial, Helvetica, sans-serif, Verdana, Arial,
Helvetica, sans-serif; color: blue; font-size: 12; text-decoration:
none;} a:hover {font-family: Verdana, Arial, Helvetica, sans-serif; color: blue; font-size: 12; text-decoration: underline;} a:visited {font-family: Verdana, Arial, Helvetica, sans-serif; color: blue; font-size: 12; text-decoration: none;} a:visited:hover {font-family: Verdana, Arial, Helvetica, sans-serif; color: blue; font-size: 12; text-decoration: underline;} --> </STYLE> <table cellpadding="3" cellspacing="1" width="186" bgcolor="" border="0" class="text"> <tr> <td bgcolor="" align="center" class="tableSubLedger" height="15">10 Newest Posts</td> </tr> <tr> <td width="33%" align="center" class="tableRow" nowrap height="25"> <% Dim rsLastestPostsMod Dim adoLastestPostsModCon Dim strLastestPostsModCon Dim strSQLLastsPostsMod Dim strLastestPostsModTopicSubject Dim strLastestPostsModForumPath Dim intLastestPostsTotal 'The path to the forum
strLastestPostsModForumPath = " "
'How many new topics to show
intLastestPostsTotal = 10
'Database connection
'-----------------------------
'-----------------------------
'Default connection
strLastestPostsModCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("")
'Uncomment for a full phsyical path. Then change the path
'strLastestPostsModCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="
'Uncomment for a DSN connection
'strLastestPostsModCon = "DSN=DSN_NAME"
'-----------------------------
'-----------------------------
Set adoLastestPostsModCon = Server.CreateObject("ADODB.Connection")
adoLastestPostsModCon.Open strLastestPostsModCon
Set rsLastestPostsMod = Server.CreateObject("ADODB.Recordset")
strSQLLastsPostsMod = "SELECT Top " & intLastestPostsTotal & " tblTopic.Topic_ID, tblTopic.Subject, tblForum.Forum_ID "
strSQLLastsPostsMod = strSQLLastsPostsMod & "FROM tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID "
strSQLLastsPostsMod = strSQLLastsPostsMod & "Where tblTopic.No_of_replies = 0"
strSQLLastsPostsMod = strSQLLastsPostsMod & "ORDER BY tblTopic.Last_entry_date DESC;"
rsLastestPostsMod.Open strSQLLastsPostsMod, adoLastestPostsModCon
If rsLastestPostsMod.EOF Then
Response.Write "<span class=""smltext"">No Forum Posts Made</span>"
Else
Do while NOT rsLastestPostsMod.EOF
If len(rsLastestPostsMod("Subject")) > 18 then
strLastestPostsModTopicSubject = left(rsLastestPostsMod("Subject"),18) & "... "
Else
strLastestPostsModTopicSubject = rsLastestPostsMod("Subject")
End If
Response.Write("<a href=""" & strLastestPostsModForumPath
& "forum_posts.asp?TID=" & rsLastestPostsMod("Topic_ID") &
"&PN=1"">" & strLastestPostsModTopicSubject &
"</a>")
rsLastestPostsMod.MoveNext
If NOT rsLastestPostsMod.EOF Then Response.Write("<br>")
Loop
End If
'Reset Server Objects
rsLastestPostsMod.Close
Set rsLastestPostsMod = Nothing
adoLastestPostsModCon.Close
Set adoLastestPostsModCon = Nothing
%>
</td>
</tr>
</table>
-------------
S2H.co.uk - http://www.s2h.co.uk/wwf/" rel="nofollow - WebWiz Mods and Skins
For support on my mods + skins, please use http://www.s2h.co.uk/forum/" rel="nofollow - my forum .
|