<%#@~^FQAAAA==/mVs,xKYtbxTr/DkGD!+deggAAA==^#~@%>

<%=ftitle2%>

Duyuru <%=duyuru%> <% set rec = server.createobject("adodb.recordset") rsql = "select * from forumkategori ORDER by sira asc" rec.open rSQL,forum,3,3 do while (not rec.eof) kategorisi=rec("id") %> "><%=rec("isim")%> <% set forum1 = server.createobject("ADODB.recordset") rSQL = "Select * FROM forumlar WHERE kategori='" & kategorisi & "' ORDER BY id ASC" forum1.open rSQL,forum,3,3 do while (not forum1.eof) %> <% forum1.movenext Loop %>   Forum Son Konu Konular Cevaplar <%if forum1("durum")=1 then%> <%else%> <%end if%> "><%=forum1("isim")%> <%=temizle(forum1("aciklama"))%> <%low=forum1("id")%> <% Set alt = Server.CreateObjecT("ADODB.RecordSet") rSQL = "Select * FROM forumlar WHERE alt=1 and kat=" & forum1("id") & " ORDER BY id asc" alt.open rSQL,forum,3,3 ya=1 al=1 for al=1 to 120 if alt.eof then exit for %> <% alt.movenext ya=ya+1 if ya=5 then ya=1 %> <% end if next alt.close %> <%if alt("durum")=1 then%> <%else%> <%end if%> "><%=alt("isim")%> <% Set forum2 = Server.CreateObjecT("ADODB.RecordSet") rSQL = "Select id,yazan,konu,tarih FROM forummesaj WHERE cevap=1 and kategori=" & low & " ORDER BY id desc" forum2.open rSQL,forum,3,3 if (not forum2.eof) then %> <%="forum-" & forum2("id") & "-" & filtre(forum2("konu")) & ".html"%><%else%>konugoster.asp?id=<%=forum2("id")%><%end if%>"><%=left(forum2("konu"),50)%>... <% Set uye11 = Server.CreateObjecT("ADODB.RecordSet") rSQL = "Select id,pm,ban,yetki FROM Uyeler WHERE kadi='" & forum2("yazan") & "'" uye11.open rSQL,forum,3,3 %> <%if uye11("ban")="0" then%> <%if left((uye11("yetki")),3)="0" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="1" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="2" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="3" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="4" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="5" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="6" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="7" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="8" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="9" then%>">@<%=server.htmlencode(uye11("pm"))%><%end if%> <%if left((uye11("yetki")),3)="10" then%>">#<%=server.htmlencode(uye11("pm"))%><%end if%> <%end if%> <%if uye11("ban")="1" then%>"><%=server.htmlencode(uye11("pm"))%><%end if%> Tarafından <%="forum-" & forum2("id") & "-" & filtre(forum2("konu")) & ".html"%><%else%>konugoster.asp?id=<%=forum2("id")%><%end if%>"><%=forum2("tarih")%> "> <%else%> - <%end if%> <% Set forum2 = Server.CreateObjecT("ADODB.RecordSet") rSQL = "Select id,cevap FROM forummesaj WHERE cevap=1 and kategori=" & low & "" forum2.open rSQL,forum,3,3 %> <%=forum2.recordcount%> <% Set forum2 = Server.CreateObjecT("ADODB.RecordSet") rSQL = "Select id,secim FROM forummesaj WHERE cevap=0 and kategori=" & low & "" forum2.open rSQL,forum,3,3 %> <%=forum2.recordcount%> <% rec.movenext Loop %> Normal Konu Kilitli Konu