<% 'Copyright (C) 2004-2005 Canol Gökel ' '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 (at your option) any later version. ' 'All copyright notices regarding iyzi Forum must remain intact in 'the scripts and in the outputted HTML. 'The "Coded by Canol (ZuLuuuuuu) Gökel" text and the "iyzi Forum" 'text/logo with a link back to http://www.canol.info/iyziforum in the 'footer of the pages MUST remain visible when the pages are viewed 'on the internet or intranet. ' 'This program is distributed in the hope that it will be useful, 'but WITHOUT ANY WARRANTY; without even the implied warranty of 'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 'GNU General Public License for more details. ' 'You should have received a copy of the GNU General Public License 'along with this program; if not, write to the Free Software 'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ' 'Support can be obtained from my web site at: 'http://www.canol.info/iyziforum ' 'E-Mail: canol.gokel@gmail.com or zul6u@yahoo.com %> [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] <% Aranan=Request.Form("Aranan") If Aranan="" Then Aranan=Request.QueryString("Aranan") End If Sayfa=Request.QueryString("sayfa") If Sayfa="" Then Sayfa=1 Else Sayfa=CInt(Sayfa) End If GostMiktarAlt = (Sayfa - 1) * SayfaBasinaKonu %> <%=ForumBasligi%> [an error occurred while processing this directive] [an error occurred while processing this directive]
Make your own free website on Tripod.com
<% If InStr(BanliKullanicilar,"-" & uye_kullanici_adi & "-")<>0 and uye_uye_nu<>"" Then dilHataBanliKullanici=Replace(dilHataBanliKullanici,"{EPosta}",EPosta) Response.Write "" Response.End End If If InStr(BanliIPler,"-" & SuAnkiIP & "-")<>0 Then dilHataBanliIP=Replace(dilHataBanliIP,"{EPosta}",EPosta) Response.Write "" Response.End End If %> [an error occurred while processing this directive] <% If Not Aranan="" Then %>
<%=dilRehberAnaSayfa%> » <%=dilArama%>

<% End If %>
<% If Not uye_uye_nu="" Then %>
<%=dilYeniKonuAc%> <%=dilYeniKonuAc%>
<% End If %>
<%=dilArama%> <%=dilArama%>

<% If Aranan="" Then SQL="Select Count(*) as KonuSayisi From iyzi" & TabloEkIsim & "_iletiler Where ustileti_nu=0" Set KonuSay=baglanti.Execute(SQL) konu_sayisi = KonuSay("KonuSayisi") KonuSay.Close Set KonuSay = Nothing Set konular=Server.CreateObject("ADODB.RecordSet") SQL="Select ileti_nu, baslik, uye_nu, son_cevap_tarih, son_cevap_kim, guncel_gorenler, cevap_sayisi From iyzi" & TabloEkIsim & "_iletiler Where ustileti_nu=0 Order By son_cevap_tarih DESC" If veritabani="MySQL" Then SQL=SQL & " limit " & GostMiktarAlt & ", " & SayfaBasinaKonu End If konular.Open SQL,baglanti,1,3 Else bulunan_konular=" " kelimeler=Split(Aranan," ") SQL = "Select ustileti_nu, ileti_nu From iyzi" & TabloEkIsim & "_iletiler Where" SQL = SQL & " (baslik Like '%" & VeriGir(kelimeler(0),"Yazi") & "%'" SQL = SQL & " or ileti Like '%" & VeriGir(kelimeler(0),"Yazi") & "%')" If UBound(kelimeler)>0 Then For aranan_kelime_sayi=1 to UBound(kelimeler) SQL = SQL & " and (baslik Like '%" & VeriGir(kelimeler(aranan_kelime_sayi),"Yazi") & "%'" SQL = SQL & " or ileti Like '%" & VeriGir(kelimeler(aranan_kelime_sayi),"Yazi") & "%')" Next End If SQL = SQL & " Order By son_cevap_tarih DESC" Set arama=baglanti.Execute(SQL) Do While Not arama.Eof arama_ustileti_nu=arama("ustileti_nu") arama_ileti_nu=arama("ileti_nu") If arama_ustileti_nu=0 Then If InStr(bulunan_konular," " & arama_ileti_nu & ",")=0 Then bulunan_konular=bulunan_konular & arama_ileti_nu & ", " End If Else If InStr(bulunan_konular," " & arama_ustileti_nu & ",")=0 Then bulunan_konular=bulunan_konular & arama_ustileti_nu & ", " End If End If arama.MoveNext Loop arama.Close Set arama = Nothing If Not bulunan_konular=" " Then bulunan_konular=Left(bulunan_konular,Len(bulunan_konular)-2) Else bulunan_konular="0" End If SQL="Select Count(*) as KonuSayisi From iyzi" & TabloEkIsim & "_iletiler Where ileti_nu In (" & bulunan_konular & ")" Set KonuSay=baglanti.Execute(SQL) konu_sayisi = KonuSay("KonuSayisi") KonuSay.Close Set KonuSay = Nothing Set konular=Server.CreateObject("ADODB.RecordSet") SQL="Select ileti_nu, baslik, uye_nu, son_cevap_tarih, son_cevap_kim, guncel_gorenler, cevap_sayisi From iyzi" & TabloEkIsim & "_iletiler Where ileti_nu In (" & bulunan_konular & ") Order By son_cevap_tarih DESC" If veritabani="MySQL" Then SQL=SQL & " limit " & GostMiktarAlt & ", " & SayfaBasinaKonu End If konular.Open SQL,baglanti,1,3 End If If veritabani="Access" and Not konular.Eof Then konular.Pagesize=SayfaBasinaKonu konular.AbsolutePage=Sayfa End If If bulunan_konular="0" and Not Aranan="" Then Response.Write "" End If For konu_sayi=1 to SayfaBasinaKonu If konular.Eof Then Exit For konu_ileti_nu=konular("ileti_nu") konu_baslik=konular("baslik") konu_uye_nu=konular("uye_nu") konu_son_cevap_tarih=konular("son_cevap_tarih") konu_son_cevap_kim=konular("son_cevap_kim") konu_guncel_gorenler=konular("guncel_gorenler") konu_cevap_sayisi=konular("cevap_sayisi") If konu_cevap_sayisi/SayfaBasinaCevap=Fix(konu_cevap_sayisi/SayfaBasinaCevap) Then SayfaSayisi=konu_cevap_sayisi/SayfaBasinaCevap Else SayfaSayisi=Fix(konu_cevap_sayisi/SayfaBasinaCevap)+1 End If SQL="Select kullanici_adi From iyzi" & TabloEkIsim & "_uyeler Where uye_nu=" & konu_uye_nu Set konu_yazan=baglanti.Execute(SQL) If Not konu_yazan.Eof Then uye_silinmis=0 konu_yazan_kullanici_adi=konu_yazan("kullanici_adi") Else uye_silinmis=1 End If konu_yazan.Close Set konu_yazan = Nothing If konu_sayi mod 2=0 Then ArkaPlan="Acik" Else ArkaPlan="Koyu" End If If InStr(konu_guncel_gorenler,"-" & uye_uye_nu & "-")=0 Then gormus=0 Else gormus=1 End If %> <% konular.MoveNext Next konular.Close Set konular = Nothing %>
  <%=dilBaslik%> <%=dilCevap%> <%=dilSonIleti%>
" & dilKonuBulunamadi & "
<% If gormus=0 Then Response.Write "" Else Response.Write "" End If %> <%=VeriKontrol(konu_baslik,"Goster")%> <% If SayfaSayisi>1 Then Response.Write "   " For KonuSayfaSayisi=1 to SayfaSayisi Response.Write "" & KonuSayfaSayisi & " " Next End If %>
<%If uye_silinmis=0 Then Response.Write VeriKontrol(konu_yazan_kullanici_adi,"Goster") Else Response.Write dilUyeligiSilinmistir End If%> 		<%=konu_cevap_sayisi%> <% If konu_son_cevap_kim="" Then Response.Write dilCevapYok Else Response.Write "" & VeriKontrol(konu_son_cevap_kim,"Goster") & "
" Response.Write "" & TarihYaz(konu_son_cevap_tarih) & "" End If %>
<% If konu_sayisi>SayfaBasinaKonu Then If Fix(konu_sayisi/SayfaBasinaKonu)=konu_sayisi/SayfaBasinaKonu Then SayfaSayisi=Fix(konu_sayisi/SayfaBasinaKonu) Else SayfaSayisi=Fix(konu_sayisi/SayfaBasinaKonu)+1 End If If Sayfa+5>SayfaSayisi Then UstSinir=SayfaSayisi Else UstSinir=Sayfa+5 End If If Sayfa-5<1 Then AltSinir=1 Else AltSinir=Sayfa-5 End If %>
 
<% If AltSinir>1 Then Response.Write "1" If AltSinir>2 Then Response.Write " ..." Else Response.Write ", " End If End If For sayfa_sayi=AltSinir to UstSinir If sayfa_sayi=Sayfa Then Response.Write " " & sayfa_sayi & "" If Not sayfa_sayi=UstSinir Then Response.Write ", " End If Else Response.Write " " & sayfa_sayi & "" If Not sayfa_sayi=UstSinir Then Response.Write ", " End If End If Next If Not UstSinir=SayfaSayisi Then If UstSinir" & SayfaSayisi & "" End If %>

<% End If %>
<% If Not uye_uye_nu="" Then %>
<%=dilYeniKonuAc%> <%=dilYeniKonuAc%>
<% End If %>
<%=dilArama%> <%=dilArama%>

<% If Not Aranan="" Then %>
<%=dilRehberAnaSayfa%> » <%=dilArama%>

<% End If %> [an error occurred while processing this directive] <% baglanti.Close Set baglanti = Nothing %>