REQ: Archive Topics by Year Month

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


   
<% @ Language=VBScript %>

<% Option Explicit %>

<!--#include file="common.asp" -->

<%

'Set the response buffer to true

Response.Buffer = True 


dim str_subject

dim str_subject_2

dim int_archive_year

dim int_archive_month


int_archive_year = cInt(request.QueryString("year"))

int_archive_month = cInt(request.QueryString("month"))

%>


<html>

<head>

	<title>Archives <%

		if int_archive_month = 1 then

			response.Write(" January ")

		elseif int_archive_month = 12 then

			response.Write(" December ")

		end if

		response.Write int_archive_year

	%></title>

</head>

<body>


<p>

	<a href="default.asp">Home</a>

</p>


<ol>


<%


strSQL = _

	"SELECT " & strDbTable & "Topic.subject, " & strDbTable & "Topic.Topic_ID " & _

	"FROM " & strDbTable & "Topic" & strDBNoLock & " " & _

		", " & strDbTable & "Thread" & strDBNoLock & " " & _

	"WHERE " & strDbTable & "Topic.Topic_ID = " & strDbTable & "Thread.Topic_ID " & _

		"AND month(" & strDbTable & "Thread.Message_date) = " & int_archive_month & " " & _

		"AND year(" & strDbTable & "Thread.Message_date) = " & int_archive_year & " " & _

	"ORDER BY " & strDbTable & "Topic.Topic_ID " & _

	" ; "


'Query the database

rsCommon.Open strSQL, adoCon

	do while NOT rsCommon.EOF

		str_subject = rsCommon.fields(0).value

		if str_subject <> str_subject_2 then


			response.Write("<li>" & _

				str_subject & "</li>")


			str_subject_2 = str_subject

		end if

		rsCommon.movenext

	loop

rsCommon.close

%>

	</ol>
	</body>
</html>

<%
'Reset server objects
set rsCommon = NOTHING
Call closeDatabase()
%>