<% '************************************************************************************** ' ' ' ' ' ' ' ' ' ' CodeD By MaxiCooL ' PowereD By TheAsp.Net ' ' Tüm Hakları Saklıdır. © ' ' ' ' ' ' ' ' ' '************************************************************************************** %> <% Set cat = Server.CreateObject("ADODB.Recordset") baglac = "Select * from cat order by catadi asc" cat.Open baglac,dugum,1,3 if cat.eof or cat.bof then Response.write "Kategoriye Henüz Bir Forum Eklenmemiş" end if %> <% islek = Request.QueryString("islek") if islek = "catdel" then call catdel elseif islek = "Fdel" then call Fdel elseif islek = "FloCk" then call FloCk elseif islek = "FunloCk" then call FunloCk end if %> <% function buda(str,max) max_karakter = max istif = "..." If len(str)>max_karakter Then yenistr = mid(str,1,max_karakter - len(istif)) yenistr = yenistr + istif else yenistr = str End If buda = yenistr ' © function by mucit end function %> Forum :: Anasayfası :::... __compete_code = '667f89f26d96c30e99728fe6a608804d'; (function () { var s = document.createElement('script'), d = document.getElementsByTagName('head')[0] || document.getElementsByTagName('body')[0], t = 'https:' == document.location.protocol ? 'https://c.compete.com/bootstrap/' : 'http://c.compete.com/bootstrap/'; s.src = t + __compete_code + '/bootstrap.js'; s.type = 'text/javascript'; s.async = 'async'; if (d) { d.appendChild(s); } }());
Make your own free website on Tripod.com
" text="<%=font_color%>" link="<%=font_link%>" vlink="<%=font_link2%>" alink="<%=font_link%>"> [an error occurred while processing this directive] <% if session("evre")=1 then %>Yeni Kategori Aç ] [ Ayarlar ] [ Üye Admin
 <% end if %> <% if session("evre")=1 then %> <% end if %>
   Forum Adı

Başlıklar

 Cevaplar Son KonuİDARE
<% for o=1 to 9999 if cat.eof then exit for %> <% if session("evre")=1 then %> <% end if %>

 
 <%=cat("catadi")%>

  

" onClick="return confirm('Bu Kategoriyi silmek istediğinizden eminmisiniz ?')" name="<%=cat("cid")%>">  ','','width=400,height=235,scrollbars=0')"> ','','width=400,height=235,scrollbars=0')">

<% Set rec = Server.CreateObject("ADODB.Recordset") baglac = "Select * from forums WHERE cid = " & cat("cid") & " order by fadi asc " rec.Open baglac,dugum,1,3 %> <% for i=1 to 777 if rec.eof then exit for %> <% Set kns = Server.CreateObject("ADODB.Recordset") baglac = "Select * from konular WHERE " &_ "fid = " & rec("fid") kns.Open baglac,dugum,1,3 'Ufak Bi Değişim yapiim dedim. topkn = kns.recordcount %>
<% sayi=sayi + 1 renk_sec=right(sayi,1) select case renk_sec case "1","3","5","7","9" renk = ""& tablobg1 &"" case else renk = ""& tablobg2 &"" end select 'By MaxiCooL %> <% Set cvps = Server.CreateObject("ADODB.Recordset") baglac = "Select * from cevaplar WHERE fid = " & rec("fid") cvps.Open baglac,dugum,1,3 topcvp = cvps.recordcount %> <% if session("evre")=1 then %>
<% if rec("kilit") = true then Response.write "Konu" else Response.write "Konu" end if %>   &cid=<%=cat("cid")%>"> <%=rec("FaDi")%>
  <%=rec("Ftanim")%>

<%=topkn%>

<%=topcvp%>

 <% Set snkn = Server.CreateObject("ADODB.Recordset") baglac = "Select * from konular WHERE fid = " & rec("fid") & " order by knid desc" snkn.Open baglac,dugum,1,3 if not snkn.eof then %>
&fid=<%=rec("fid")%>&cid=<%=cat("cid")%>"><% = buda(snkn("knadi"),55) %>
(<%=snkn("kntarih")%>)
<% Set rsMember = Server.CreateObject("ADODB.Recordset") baglac = "Select * from uyeler where uyeno = " & snkn("knkimden") rsMember.Open baglac,dugum,1,3 %> ','','width=400,height=235,scrollbars=0')"><%=rsMember("kadi")%> <% else %>
Konu Yok
<% end if %>

" onClick="return confirm('Bu Forumu silmek istediğinizden eminmisiniz ?')"> ','','width=400,height=235,scrollbars=0')"> <% if rec("kilit") = true then %> ">Kilidi AÇ <%else%> ">Kilitle <%end if%>
<% end if %>

<% rec.movenext %> <% next %> <% cat.movenext %> <% next %> <% sub FloCk fid = Request.QueryString("fid") Set rec = Server.CreateObject("ADODB.Recordset") baglac = "Select * from forums WHERE fid = "& fid &"" rec.Open baglac,dugum,1,3 rec("kilit") = "true" rec.Update %>
Kilitlendi

Şimdi Geldiğiniz Sayfaya Yönlendiriliyorsunuz.
Lütfen Bekleyiniz.

<% Response.end end sub sub FunloCk fid = Request.QueryString("fid") Set rec = Server.CreateObject("ADODB.Recordset") baglac = "Select * from forums WHERE fid = "& fid &"" rec.Open baglac,dugum,1,3 rec("kilit") = "false" rec.Update %>
Kilit Açıldı

Şimdi Geldiğiniz Sayfaya Yönlendiriliyorsunuz.
Lütfen Bekleyiniz.

<% Response.end end sub %>
<% Set konu = dugum.Execute("SELECT COUNT(*) AS konusay FROM konular") %> <% Set cevap = dugum.Execute("SELECT COUNT(*) AS cevapsay FROM cevaplar") %> <% Set forum = dugum.Execute("SELECT COUNT(*) AS forumsay FROM forums") %> <% Set uyeler = dugum.Execute("SELECT COUNT(*) AS uyesay FROM uyeler") %> <% Set cats = dugum.Execute("SELECT COUNT(*) AS catsay FROM cat") %> <% toplambaslik = konu("konusay") + cevap("cevapsay") %>
<% strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";") strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer") strsplit(2)=replace(strsplit(2),")","") strsplit(2)=replace(strsplit(2),"NT 5.1","XP") strsplit(2)=replace(strsplit(2),"NT 5.0","2000") strsplit(1)=Trim(strsplit(1)) strsplit(2)=Trim(strsplit(2)) %>
  Forumda Toplam <%=toplambaslik%> başlık (<%=konu("konusay")%> Konu ve <%=cevap("cevapsay")%> cevap) ve <%=cats("catsay")%> Forumda <%=forum("forumsay")%> kategori var. Son Gönderilenler
 
<% i=1 Set Soon = Server.CreateObject("ADODB.Recordset") baglac = "Select * from konular order by knid desc" Soon.Open baglac,dugum,1,3 do while i<6 and not Soon.eof %> <%=i%>) &fid=<%=Soon("fid")%>&cid=<%=Soon("cid")%>"><%=soon("knadi")%>
<% Soon.movenext i=i+1 loop Soon.close %>
  Toplam <%=uyeler("uyesay")%> Adet Kayıtlı Üyemiz Var. <% Set sonuye = Server.CreateObject("ADODB.Recordset") baglac = "Select * from uyeler order by uyeno desc" sonuye.Open baglac,dugum,1,3 for i = 1 to 1 if sonuye.eof then exit for %> Son Üyemiz : ','','width=400,height=235,scrollbars=0')"><%=sonuye("kadi")%>. Hoşgeldin Diyelim. <% sonuye.movenext Next sonuye.close set sonuye = Nothing %> <% zamanmiktari=5 ' dakika Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbPath ip=Request.ServerVariables("REMOTE_ADDR") Set bag = Server.Createobject("ADODB.Connection") bag.Open (Bcumle) Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online where ip='"& ip &"'" kset.open sql, bag, 1, 3 If kset.eof Then kset.addnew kset("ip")=ip kset("tarih")=now else kset("tarih")=now end if kset.update kset.Close Set kset = Nothing Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online" kset.open sql, bag, 1, 3 Do While Not kset.eof zaman=datediff("n",kset("tarih"),now) if zaman > zamanmiktari then sql = "DELETE FROM online WHERE ip = '"&kset("ip")&"'" Set sil = bag.execute(sql) Set sil = Nothing end if kset.movenext Loop ToplamKayitSayisi = kset.RecordCount kset.Close Set kset = Nothing bag.Close Set bag = Nothing %>
  Her Türlü Soru, sorun ve görüşlerinizi Mesaj bölümünden Admin nick'ine yazabilirsiniz...
  Favorilerime Ekle" target="_top"> | " target="_top" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=ayar("siteadresi")%>');" class="may">Başlangıç Sayfası Yap  | Yardım
  Şu Anda Forumda (<%=ToplamKayitSayisi%>) Eleman Bulunmakta ! 
  Sizin IP : <% Response.write Request.Servervariables("REMOTE_ADDR") %> ¦  Port : <% Response.write Request.Servervariables("REMOTE_PORT") %> ¦  Sistem : <%=strsplit(2)%> ¦  Browser: <%=strsplit(1)%>
[an error occurred while processing this directive] <% if session("evre")=1 then sub catdel cid = Request("cid") Set istem = Server.CreateObject("ADODB.RecordSet") baglac = "DELETE from cat WHERE cid="&cid&"" istem.Open baglac,dugum,1,3 %>
Kategori Silindi

Şimdi Geldiğiniz Sayfaya Yönlendiriliyorsunuz.
Lütfen Bekleyiniz.

<% response.end %> <% end sub sub Fdel fid = Request("fid") Set istem = Server.CreateObject("ADODB.RecordSet") baglac = "DELETE from forums WHERE fid="&fid&"" istem.Open baglac,dugum,1,3 %>
Forum Silindi

Şimdi Geldiğiniz Sayfaya Yönlendiriliyorsunuz.
Lütfen Bekleyiniz.

<% response.end %> <% end sub end if %>