yardımcı olabilecekler için kod
<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley All Rights Reserved
'<>
'<> By using this program, you are agreeing to the terms of the
'<> GNU General Public License.
'<>
'<> This program is free software; you can redistribute it and/or
'<> modify it under the terms of the GNU General Public License
'<> as published by the Free Software Foundation; either version 2
'<> of the License, or any later version.
'<>
'<> All copyright notices regarding MaxWebPortal must remain intact
'<> in the scripts and in the outputted HTML.
'<> The "powered by" text/logo with a link back to
'<>
http://www.maxwebportal.info in the footer of the pages MUST
'<> remain visible when the pages are viewed on the internet or intranet.
'<>
'<> Support can be obtained from support forums at:
'<>
http://www.maxwebportal.info
'<>
'<> Email:
[email protected]
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'***********************************************************************
'** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'**
http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'**
http://www.maxwebportal.com
'**
'** Email:
[email protected]
'** ICQ: 148111300
'** Türkçeye çevirenler: OgReTmEnLeRiM.NeT | Bülent KARAYAZI & UzmanWeb.Net
| Adem TÜRK
'***********************************************************************
intPop = 5
strJOTW = cInt(strJokeOfTheWeek)
mwpThemeTitle= "Son Eklenen " & intPop & " Makale"
mwpThemeBlock_open()
strSQL = "SELECT TOP " & intPop & " ARTICLE_ID, TITLE, HIT, SHOW, SUMMARY,
POST_DATE FROM ARTICLE WHERE SHOW = 1 AND ARTICLE_ID <>" & strJOTW & " ORDER
BY POST_DATE DESC"
set rsSon = my_Conn.Execute (strSql)
if rsSon.EOF then%>
<tr><td width="100%" valign="top"><font face="<%= strDefaultFontFace %>"
size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">Makale
Bulunamadý!</font></td></tr>
<%else
Do While Not rsSon.EOF
strArticleTitle = rsSon("Title")
strSummary = rsSon("Summary")
if len(strSummary ) > 100 then
strSummary = Left(strSummary , 100) & "..."
else
strSummary = strSummary
end if
intArticleID = rsSon("Article_ID")
strPostDate = strtodate(rsSon("POST_DATE"))
dateSince = DateDiff("d", strForumTimeAdjust, strPostDate)+7
Call DisplayArticle()
rsSon.MoveNext
Loop
end if
rsSon.Close
Set rsSon= Nothing
mwpThemeBlock_close()
sub displayArticle
%>
<tr><td width="100%" bgcolor="<% =strPopUpTableColor %>"><font face="<%=
strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=
strDefaultFontColor %>"><b><a
href="article_read.asp?id=<%=intArticleID%>"><%=strArticleTitle%></a><% if
dateSince >= 0 then response.write "<img
src=Images/new.gif>"%></b></font></td></tr>
<tr><td bgcolor="<% =strForumCellColor %>" width="100%"><font face="<%=
strDefaultFontFace %>" size="<%= strFooterFontSize %>" color="<%=
strDefaultFontColor %>"><%=strSummary%><br><br></font></td></tr>
<%end sub%>
