Web Wiz Forums Modifications - MOD: Recent 15 topic which you writed in

Print Page | Close Window

MOD: Recent 15 topic which you writed in

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=25737
Printed Date: 29 March 2026 at 11:03pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: MOD: Recent 15 topic which you writed in

Posted By: edizz
Subject: MOD: Recent 15 topic which you writed in
Date Posted: 19 May 2008 at 8:12am

My english is bad,therefore my i make some grammes mistakes.
Load this file your ftp root(near default.asp) and link to somewhere.
if users click the link then user can see theirs last 15 topics with who write after they

Download link: http://rapidshare.com/files/117271298/last15.rar - http://rapidshare.com/files/117271298/last15.rar

Codes is below
[CODE]
<% @ Language=VBScript %>
<% Option Explicit %>


<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Forums(TM)
'** http://www.webwizforums.com
'**
'** Copyright (C)2001-2007 Web Wiz(TM). All Rights Reserved.
'**
'** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'.
'**
'** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE
'** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'** AND DERIVATIVE WORKS IMMEDIATELY.
'**
'** If you have not received a copy of the license with this work then a copy of the latest
'** license contract can be found at:-
'**
'** http://www.webwiz.net/license
'**
'** For more information about this software and for licensing information please contact
'** 'Web Wiz' at the address and website below:-
'**
'** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'** http://www.webwiz.net
'**
'** Removal or modification of this copyright notice will violate the license contract.
'**
'****************************************************************************************

'*************************** SOFTWARE AND CODE MODIFICATIONS ****************************
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************

'Set the response buffer to true as we maybe redirecting
Response.Buffer = True

'Make sure this page is not cached
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

%>


<head>
<meta name="generator" content="Web Wiz Forums" />
<title>Recent 15 topic which you writed in</title>

<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("")
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******

'If RSS Feed is enabled then have an alt link to the XML file for supporting browsers
If blnRSS Then Response.Write(vbCrLf & "<link rel=""alternate"" type=""application/rss+xml"" title=""RSS 2.0"" href=""RSS_topic_feed.asp" & strQsSID2 & """>")
%>

<link href="<% = strCSSfile %>default_style.css" rel="stylesheet" type="text/css" />


<table cellspacing="1" cellpadding="3" class="tableBorder" align="center" id="table4">
 <tr class="tableLedger">
 <td colspan="5"><%= Response.Write(" Recent 15 topic which you writed in " )%></td>
 </tr>
 <tr class="tableSubLedger">
 <td width="50%" align="left"><%= Response.Write(" Topic " )%></td>
 <td width="20%" align="center"><%= Response.Write(" Last Author " )%></td>
 <td width="20%" align="center"><%= Response.Write(" Date and Time " )%></td>
 <td width="5%" align="center"><%= Response.Write(" Read " )%></td>
 <td width="5%" align="center"><%= Response.Write(" Replied " )%></td>
 </tr>

<%
dim Srs
dim yrs
Dim lastTopic
Dim sonSayi
Dim LastLatestPostsDateTime
Dim LastLatestPostsDate
Dim LastLatestPostsTime

sonSayi=0
set Srs=adocon.execute("select top 50 s.Topic_ID from TblThread s,tblTopic t where t.topic_ID=s.Topic_ID and Author_ID="&lngLoggedInUserID&" order by t.Last_Thread_ID desc")
do while not srs.eof and sonSayi<15
if srs("topic_ID")<>lastTopic then
set yrs=adoCon.execute("select a.username,s.message,t.Last_Thread_ID,t.Subject,s.Message_Date,t.no_of_views,t.no_of_replies from tblauthor a,tblTopic t,tblThread s where s.Author_ID=a.Author_ID and t.Topic_ID=s.Topic_ID and t.Topic_ID="&srs("Topic_ID")&" order by Thread_ID desc")

LastLatestPostsDateTime = yrs("Message_date")
LastLatestPostsDate = DateFormat(LastLatestPostsDateTime)
LastLatestPostsTime = TimeFormat(LastLatestPostsDateTime)

Response.Write "<tr class=tableRow><td><a href=""forum_posts.asp?TID=" & srs("Topic_ID") & "&get=last#" & yrs("Last_Thread_ID") & """ title=""Son Mesajı Görüntülemek İçin Tıklayın"">" & yrs("Subject") & "</a></td><td align=""center"">"&yrs("Username") &"</td></td><td align=""center"">" & LastLatestPostsDate & " * " & LastLatestPostsTime & "</td><td align=""center"">" & yrs("No_of_views") & "</td><td>"&yrs("no_of_replies")&"</td></tr>"
lastTopic=srs("Topic_ID")
sonSayi=SonSayi+1
end if
srs.movenext
loop

yrs.close
srs.close

%>
</table>
<table class="basicTable" cellspacing="0" cellpadding="4" align="center">
<tr>
<td>

 <%

'Release server objects
Call closeDatabase()

 &n

-------------
http://www.forumselcuk.com" rel="nofollow - selçuk forum