WWF modifications Turkish

Forumlar : ( Tüm forumları sıralayabilirsiniz özellikle portal tarzı bir site oluşturmak için verdiğim kodlar işinize yarayacaktır )

 

<%
Set baglanti=Server.CreateObject("ADODB.connection" )
baglanti.Open "driver={microsoft access driver (*.mdb)}; DBQ=" &Server.MapPath("mdb yolu " )
SQL="select * from tblForum ORDER BY Date_Started "
Set kayitseti = baglanti.Execute(SQL)
i=1
Do While i<61 and not kayitseti.Eof
%>
<br>
<a href="forum_topics.asp?FID=<%=kayitseti("Forum_ID")%>">&nbsp;<%=kayitseti("Forum_name")%></a>
<br>
<% kayitseti.Movenext
i=i+1
Loop
kayitseti.Close
baglanti.Close %>

En fazla katılım olan 30 konu :

 

<%
Set baglanti=Server.CreateObject("ADODB.connection" )
baglanti.Open "driver={microsoft access driver (*.mdb)}; DBQ=" &Server.MapPath("mdb yolu" )
SQL="select * from tblTopic ORDER BY No_of_replies desc"
Set kayitseti = baglanti.Execute(SQL)
i=1
Do While i<31 and not kayitseti.Eof
%>
<br>
 <a href="forum_posts.asp?TID=<%=kayitseti("Topic_ID")%>"><%=kayitseti("subject")%>&nbsp;<%=kayitseti("No_of_replies")%></a>
<br>
<% kayitseti.Movenext
i=i+1
Loop
kayitseti.Close
baglanti.Close %>

 

Kodu denemedim ama çalışır herhalde :)