Posting 5 last posts on my homepage

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/6896?pagenum=1
05 November 2025, 02:43

Topic

fluor
Posting 5 last posts on my homepage
23 March 2001, 09:36


Hi and thanks for the best software! I just wondered if somebody can code me a simple ASP code so i can post a little table on my homepage, announcing the last 5 posts.
E.g. WELCOME TO MY HOMEPAGE!
Blah blah blah
blah.. Check the forum (link)
5 last posts:
23.03 "Oh yeah" by Zyko
23.03 "Stop discussing this!" by Zyko
22.03 "Yeah right!" by Zyko
21.03 - "I like rock and if you hate it then..." by Zyko

Would be cool if the all those posts were links where <a href="URL" title="23-MARCH-2001 - Full text of post goes here (max 250chars)"> "Yeah right!" </a>

This would be real cool. I am tired of login in and see no new topics every day (I run a small board).


Edited by - fluor on 23 March 2001 09:47:18<

 

Replies ...

Kerry
23 March 2001, 09:53


Look in Mods w/Code for the the Slash addon - it sounds exactly like what you're looking for.
-Kerry

<
fluor
27 March 2001, 02:14


I tried installing it, but it failed. How about just giving me a little ASP code to post on the web. Must be simple to program if it's only the last five topics sorted by newest date.
<
RichardKinser
27 March 2001, 03:08


try here: http://forum.snitz.com/forum/link.asp?TOPIC_ID=7032<
acoustika
19 November 2003, 00:46


Hey there

I have used and modified a bit the code from Richard's link

try here: http://forum.snitz.com/forum/link.asp?TOPIC_ID=7032

Now I have a little request, Could someone please help me make so it also shows WHO posted the topic.
My code is as follows, the little script can be seen in use here
www.uniquedk.dk/forum/f_news.asp

CODE:

Code:
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE file="inc_func_secure.asp" -->
<!--#INCLUDE file="inc_sha256.asp"-->
<%
connString = strConnstring
function getlast_topics(numdays)
set tConn= Server.CreateObject("ADODB.Connection")
tConn.Open ConnString

'''''''''''''''''''''''''''''''''''''    
''Don't display if from private forum    
'''''''''''''''''''''''''''''''''''''    
set PrivateForum = tConn.Execute("select FORUM_ID from FORUM_FORUM where F_PRIVATEFORUMS = 6")    
SQL = "SELECT TOP " & numdays & " * from FORUM_TOPICS WHERE "    
do until PrivateForum.eof        
SQL = SQL & "FORUM_ID <> " & PrivateForum("FORUM_ID") & " and "        
PrivateForum.movenext    
Loop    
'''''''''''''''''

strSql = "SELECT TOP " & numdays & " T_AUTHOR,T_LAST_POST,T_LAST_POSTER,T_DATE,T_SUBJECT,TOPIC_ID,FORUM_ID,CAT_ID from FORUM_TOPICS order by T_LAST_POST DESC"
CColor = strForumCellColor
set rss = tConn.Execute (strSql)

response.write    "<tr><td bgcolor=""" & strCategoryCellColor & """ height=""24"" align=""center"">Nyeste Forum Indlæg</td></tr>" & vbnewline

do until rss.eof
tID = rss("TOPIC_ID")
tPOSTER = rss("T_LAST_POSTER")
tDATE = rss("T_DATE")
tSUBJECT = rss("T_SUBJECT")
strlast = strlast & "<tr><td onMouseOver=""this.style.background='" & strForumFirstcellcolor & "';"" onMouseOut=""this.style.background='"& CColor &"';"" style=""cursor: hand"" bgcolor=" & CColor & " onClick=""window.location.href='/forum/link.asp?TOPIC_ID=" & tID & "'"" height=""18"" class=""button"">" & vbcrlf
strlast = strlast & "<div align=""left"" class=""button (unavailable)""><font face=""Veranda, Arial, Helvetica, san-serif"" size=""1"">Emne: <a href=""link.asp?TOPIC_ID=" & tID & """ class=""button (unavailable)"" target=""_blank""><small>" & tSUBJECT & "</small></a></font></div>" & vbcrlf
strlast = strlast & "</td></tr>" & vbcrlf

rss.movenext
loop

rss.close
set rss=nothing
tConn.close
set tConn=nothing
getlast_topics=strlast
end function
%>
<table width="100%" cellspacing="1" cellpadding="0" border="0" bgcolor="#333333">
<%=getlast_topics(5)%>
</table>
<
Sparks
19 February 2004, 15:15


How about just giving me a little ASP code to post on the web. Must be simple to program if it's only the last five topics sorted by newest date.

I wrote a simple plug-in for my website, http://www.iscifistory.com . In the left nave bar, the last 5 topics are listed. It is indeed just a few lines of code; email me at sparks@iscifistory.com and I will share the code. <
© 2000-2021 Snitz™ Communications