Aşağıdaki kodları kullanabilirsin.İlana tıklanınca açılan sayfa adresi düzeltildi.Ana sayfaya eklerken orta bloğa eklersen sayfa tasarımını bozmaması lazım.
<!--#INCLUDE FILE="classified_functions.asp"-->
<%
strSql = "select * from CLASSIFIED_CATEGORIES order by cat_name"
dim rsCategories
set rsCategories = server.CreateObject("adodb.recordset")
rsCategories.Open strSql, my_Conn
%>
<%
'***********************************************************************
'** Copyright (C) 2001 - 2003 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
'***********************************************************************
dim featDesc, featName, featUrli, featHits, featCLASSIFIEDID
featuredCLASSIFIEDID = 3
sub getFeaturedCLASSIFIEDID(fCLASSIFIED_ID)
strSql = "SELECT CLASSIFIED_ID, TITLE, DESCRIPTION, POST_DATE, HITS, SHOW FROM CLASSIFIED WHERE CLASSIFIED_ID = " & fCLASSIFIED_ID
dim rsFeat
naStr = "N/A"
set rsFeat = Server.CreateObject("ADODB.Recordset")
rsFeat.Open strSql, my_Conn
if rsFeat.EOF = TRUE and rsFeat.BOF = TRUE then
featName = naStr
featDesc = naStr
featUrli = ""
featHits = naStr
else
featName = rsFeat("TITLE")
featDesc = rsFeat("DESCRIPTION")
featHits = rsFeat("HITS")
featCLASSIFIEDID = rsFeat("CLASSIFIED_ID")
'featUrli = rsFeat("IMGURL")
end if
rsFeat.close
set rsFeat = Nothing
end sub
sub displayCLASSIFIEDID2
%>
<font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&parent_name=<%=cat_name%>&cat_id=<%=cat%>&sub_name=<%=sub_name%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%> <font color="red"><b>Süresi Doldu</b></font><%end if%><br>
<%=strDescription%></font>
<%end sub
getFeaturedCLASSIFIEDID(featuredCLASSIFIEDID)
intPopular = 3
mwpThemeTitle= "<b>En Çok İncelenen " &intPopular& " Ürün</b>"
mwpThemeCellCustomCode = "align=""center"" colspan=""4"""
mwpThemeBlock_open()
response.write "<tr><td>"
strSQL = "SELECT TOP " & intPopular & " CLASSIFIED_ID, TITLE, EMAIL, DESCRIPTION, KEYWORD, POST_DATE, HITS, CATEGORY, PARENT_ID, SHOW, BADLINK FROM CLASSIFIED WHERE SHOW = 1 ORDER BY HITS DESC"
dim rsPopular7
set rsPopular7 = server.CreateObject("adodb.recordset")
rsPopular7.Open strSQL, my_Conn
Do While Not rsPopular7.EOF
strDescription = rsPopular7("DESCRIPTION")
strCLASSIFIEDName = rsPopular7("TITLE")
parent = rsPopular7("PARENT_ID")
cat = rsCategories("CAT_ID")
dateSince=DateDiff("d", Date(), strPostDate)+7
intHit = rsPopular7("HITS")
intCLASSIFIEDID = rsPopular7("CLASSIFIED_ID")
%>
<td valign="top" width="33%">
<font face="<%= strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><a href="classified_info.asp?id=<%=intCLASSIFIEDID%>&parent_id=<%=parent%>&parent_name=<%= ChkString(rsCategories("cat_name"), "urlpath")%>&cat_id=<%=cat%>"><%=strCLASSIFIEDName%></a>
<% if dateSince >= 0 then response.write "<img src=Images/new.gif>"%> <i>(Hit: <%=intHit%>)</i><%if expired=1 then%> <font color="red"><b>Süresi Doldu</b></font><%end if%><br>
<%=left(strDescription,40)%>...</font>
</td><%
rsPopular7.MoveNext
Loop
rsPopular7.Close
Set rsPopular7 = Nothing
response.write "</td></tr>"
mwpThemeBlock_close()
%>
