Gli ultimi 5 posts sul forum

[jan267]

Ciao a tutti,
ecco l`ultimo mio script che ho completato (finalmente) oggi, si tratta di un semplice codice per "prelevare" gli ultimi 5 posts fatti sul forum, lo script e` per lo snitz forums 2000 !
Eccolo:

<%
Dim strForumConn
Dim strForumRs
Dim strForumSql
Response.Write vbCrLf & "<table align=""center"" width=""417"" cellpadding=""0"" cellspacing=""1"" height=""19"" bgcolor=""#000000""><tr><td>"
Response.Write vbCrLf & "<table align=""center"" width=""417"" cellpadding=""2"" cellspacing=""0"" height=""19"">"
                                  									
Set strForumConn = Server.CreateObject("ADODB.Connection")
	strForumConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/snitz_forums_2000.mdb")
Set strForumRs = Server.CreateObject("ADODB.Recordset")
	strForumSql = "SELECT Top 5 FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.TOPIC_ID " &_
				  "FROM FORUM_FORUM INNER JOIN FORUM_TOPICS ON FORUM_FORUM.FORUM_ID = FORUM_TOPICS.FORUM_ID " &_
				  "ORDER BY FORUM_TOPICS.T_LAST_POST DESC;"
	strForumRs.Open strForumSql, strForumConn
	
	If strForumRs.EOF Then Response.Write "Non sono presenti post sul database!" 
	Do while NOT strForumRs.EOF
		Response.Write vbCrLf & "<td width=""100%"" bgcolor=""#FFFFFF""> "                 
		Response.Write vbCrLf & "<li><a href=""forum/topic.asp?TOPIC_ID="&strForumRs("TOPIC_ID")&"&FROM=../"&Request.ServerVariables("SCRIPT_NAME")&""">"
		Response.Write vbCrLf & strForumRs("T_SUBJECT")& " <b>...</b></a></td></tr>"
		strForumRs.MoveNext
	Loop
	
	strForumConn.Close
Set strForumConn = Nothing
	
Response.Write vbCrLf & "<tr><td width=""412"" align=""right"" colspan=""2"" bgcolor=""#FFFFFF""><a href=""forum/default.asp"">"
Response.Write vbCrLf & "Entra nel forum »"
Response.Write vbCrLf & "</a></td></tr></table></td></tr></table>"
%>

Bye
P.S. bubu, se lo vuoi mettere negli articoli ASP...

 

[jan267]

felix, quello e` stato fatto da me ed e` per lo snitz !!
solo per lo snitz !!

 

[grottafelix]

e' A ME NON FUNGE :-(

 

[jan267]

ma tu usi lo snitz?
se si, devi:

1. Controllare che il percorso del db sia corretto
2. Controllare che sia la stessa versione... (da un v all`altra, i nomi delle tabelle possono cambiare!)[/list=1]Bye

 

[maxbossi]

Complimenti...
Purtroppo non uso Snitz... comunque pubblicherò il tuo script tra gli script ASP...
Ciauz

 

[jan267]

Tnx bubu =)))
Beh se mi dici i nomi delle tabelle del vBulletin posso tentare di farci qualcosa
Bye ^^