<%
Dim strForumConn
Dim strForumRs
Dim strForumSql
Dim strForumPath
Dim strDatabaseName
Dim strDatabasePath
strForumPath="forum/"
strDatabaseName="snitz_forums_2000.mdb"
strDatabasePath="mdb-database/"&strDatabaseName&""
Response.Write vbCrLf & "<table align=""center"" width=""490"" cellpadding=""0"" cellspacing=""1"" height=""19"" bgcolor=""#000000"">"&vbCrLf&" <tr>"&vbCrLf&" <td>"
Response.Write vbCrLf & " <table align=""center"" width=""490"" cellpadding=""2"" cellspacing=""0"" height=""19"">"
Set strForumConn = Server.CreateObject("ADODB.Connection")
strForumConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(strDatabasePath)
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 & " <tr>"&vbCrLf&" <td width=""100%"" fontface=""Arial"" fontsize=""12px"" bgcolor=""#F1F3F3""> "
Response.Write vbCrLf & "[*]<a href="""&strForumPath&"topic.asp?TOPIC_ID="&strFor umRs("TOPIC_ID")&""">"
Response.Write strForumRs("T_SUBJECT")& "
...</a>"&vbCrLf&" </td>"&vbCrLf&" </tr>"
strForumRs.MoveNext
Loop
strForumRs.Close
Set strForumRs = Nothing
strForumConn.Close
Set strForumConn = Nothing
Response.Write vbCrLf & " <tr>"&vbCrLf&" <td width=""485"" align=""right"" colspan=""2"" bgcolor=""#E8E8E8"">"
Response.Write vbCrLf & "
Join the forum/Entra nel forum »"
Response.Write vbCrLf & " </td>"&vbCrLf&" </tr>"&vbCrLf&" </table>"&vbCrLf&" </td>"&vbCrLf&" </tr>"&vbCrLf&"</table>"
%>