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? Stern%20Smile
 
 
 
_____________________________________________________________________________________________________
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ı) :-)



Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net