MOD: Recent 15 topic which you writed in

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

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

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"

%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->

<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("<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Software: Web Wiz Forums(TM) ver. " & strVersion & "" & _
vbCrLf & "Info: http://www.webwizforums.com" & _
vbCrLf & "Copyright: (C)2001-2007 Web Wiz(TM). All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->")
'***** 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" />
<!-- #include file="includes/header.asp" -->
<!-- #include file="includes/status_bar_header_inc.asp" -->
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center" id="table4">
      <tr class="tableLedger">
        <td colspan="5"><%= Response.Write("  <span class=""tHeading"">Recent 15 topic which you writed in</font></span><br>" )%></td>
    </tr>
    <tr class="tableSubLedger">
        <td width="50%" align="left"><%= Response.Write("  <span class=""tHeading"">Topic</font></span><br>" )%></td>
        <td width="20%" align="center"><%= Response.Write("  <span class=""tHeading"">Last Author</font></span><br>" )%></td>
        <td width="20%" align="center"><%= Response.Write("  <span class=""tHeading"">Date and Time</font></span><br>" )%></td>
        <td width="5%" align="center"><%= Response.Write("  <span class=""tHeading"">Read</font></span><br>" )%></td>
        <td width="5%" align="center"><%= Response.Write("  <span class=""tHeading"">Replied</font></span><br>" )%></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 & "&nbsp;*&nbsp;" & 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>

   <!-- #include file="includes/forum_jump_inc.asp" --><%

'Release server objects
Call closeDatabase()

     &n