modul sorunsalı

[mr_cpu]

arkadaşlar max web portalla yapılmış bi sitem var ve elimde son eklenen 5
makaleyi gösteren bi modülüm var ama benim istediğim şey yine son eklenen 5
makaleyi göstersin ama makale sisteminde bulunan kategorilere göre örneğin

göndereceğim kod tüm makalelerde eklenen son 5 i gösteriyor

benim istediğim a kategorisindeki son 5 i göstermesi çok uğraştım ama bir
türlü beceremedim

yardımcı olabilecek arkadaşlara koduda gönderiyorum

[mr_cpu]

<%
'<><><><><><><><><><><><><><><><><><><><><><><><>< ><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><>< ><><><><><><>
'<> 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: maxweb@maxwebportal.info
'<><><><><><><><><><><><><><><><><><><><><><><><>< ><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><>< ><><><><><><>
'************************************************* **********************
'** 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: maxwebportal@hotmail.com
'** 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&yacute;!</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%>"><%=st rArticleTitle%></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%>

[mr_cpu]

yokmu arkadaşlar yardım edebilecek biri
benim için çok önemli yaa

[216]

strSQL = "SELECT TOP " & intPop & " ARTICLE_ID, TITLE, HIT, SHOW, SUMMARY, POST_DATE FROM ARTICLE WHERE CATEGORY =" & a_değeri & " AND SHOW = 1 AND ARTICLE_ID <>" & strJOTW & " ORDER BY POST_DATE DESC"

[mr_cpu]

dostum dediğin gibi değilde verdiğin ip ucuyla yaptım çok teşekkür ederim + rep