Web Wiz Forums Modifications - REQ: Archive Topics by Year Month

Print Page | Close Window

REQ: Archive Topics by Year Month

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=22274
Printed Date: 30 March 2026 at 12:16pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: REQ: Archive Topics by Year Month

Posted By: myhyipforum.com
Subject: REQ: Archive Topics by Year Month
Date Posted: 26 December 2006 at 3:34pm

<% @ 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()
%>

-------------
- READ FIRST http://webwizguide.info/bbs/forum_posts.asp?TID=22292 - Guide to Modifications .. Removing Ads ..

Replies:

Posted By: g�lge
Date Posted: 28 December 2006 at 3:38am

req?

_____________________________________________________________________________________________________
THE ARMENIANS SAY THEY WERE MURDERED BUT DOCUMENTS TELL DIFFERENT. THE DOCUMENTS ARE FULL OF WOMEN,
BABIES AND CHILDREN PHOTOS THAT RAPED,KILLED AND BURNED WILDLY BY ARMENIAN TERRORISTS.
PLEASE VISIT http://www.tallarmeniantale.com/ - www.tallarmeniantale.com AND SEE THE TRUTH.
_____________________________________________________________________________________________________

Posted By: kkimber
Date Posted: 20 January 2007 at 9:25am

napmış bu denyo kafalı ya, �alışmadı. sen �alıştırabildinmi g�lge (<- g�zel mod insanı) :-)