[an error occurred while processing this directive] [an error occurred while processing this directive] <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM AYARLAR ORDER BY A_ID desc", objConn, 1, 3 divider = 2 divide = CInt(objList.RecordCount/divider)+1 perc = width/divider %> <%=objlist("A_SITE_NAME")%>
Make your own free website on Tripod.com
<% Veri_yolu = Server.MapPath("db/murat.mdb") ' vt için path Set Baglantim = Server.CreateObject("ADODB.Connection") Set flash = Server.CreateObject("ADODB.Recordset") Baglantim.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu) SQL="select * from flash" ' tüm kayıtları seç flash.Open SQL, Baglantim, 1, 3 ToplamKayitSayisi = flash.RecordCount ' seçimdeki toplam kayıt sayısnı edin Randomize hoppala = Int((ToplamKayitSayisi * Rnd)+ 0) ' 0 ile kayıtsayısı-1 arasında rasgele bir tamsayı edin. flash.Move(hoppala) ' seçimdeki kayıtlar arasında rasgele sayı kadar zıpla session("id") = flash("id") ' oturuma banner id sini ver src=flash("Src") ' banner img si için src edin gorunme = flash("gorunme") ' görünme sayısını edin flash("gorunme") = gorunme + 1 ' görünme sayısını bir artır flash.update ' güncelle %> <% ' kapat flash.Close Set Banner = Nothing Baglantim.Close Set Baglantim = Nothing %> <% ''''''' BANNER GÖSTERİM BÖLÜMÜ '''''''' %>

 

')" name=home>  ANA SAYFAM YAP

','<%=objlist("A_SITE_NAME")%>')"> FAVORİLERİME EKLE

Bugün : <%response.write TARIH %>

 

<% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM menu ORDER BY menu_id desc", objConn, 3, 3 git=8 git = Request.QueryString("git") if git="" then git=1 end if %> <% if objlist.eof or objlist.bof then response.write "
Menü Yaratılmamış !
" else %> <% objlist.pagesize = asp("A_NEWS_RECORD") objlist.absolutepage = git sayfa = objlist.pagecount for i=1 to objlist.pagesize+40 if objlist.eof or objlist.bof then exit for %>

"> <%=objlist("baslik")%>
<% objlist.movenext next %><% end if %>

<% If Session("Oturum") <> "Acik" Then %> <% else %> <% Set objRead = objConn.Execute("SELECT Count(*) AS toplam FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi") &"' AND GOR = True") Set objSpe = objConn.Execute("SELECT Count(*) AS ozel FROM MESAJLAR WHERE TYPE=1") Set objNRead = objConn.Execute("SELECT Count(*) AS okunmayan FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi") &"' AND OKUNDU = False AND GOR = True") Set getName = objConn.Execute("SELECT * FROM UYELER WHERE U_ID = "& Session("Uye_Id")) %>  ÇIKIŞ <% End if %> <% End if %>

Kullanıcı Adı:

Şifre:

Üye Ol Şifremi Unuttum 

"> Üyelik Bilgileri

Üyeler

Üye Ara

&i=ge"> Mesaj Kutusu (<%=objNRead("okunmayan")%>/<%=objRead("toplam")%>)

&i=oz"> Yönetimden(<%=objSpe("ozel")%>)
<%if Session("Uye_Seviye") = "1" then%>

Yönetim Paneli

İstatistikler

Aktif Ziyaretçi   :  [an error occurred while processing this directive]
Bugün Gelen    :  <%Response.Write "" & saybugun & ""%>
Toplam Gelen  :  <%Response.Write "" & saytoplam & ""%>

 

 

  [an error occurred while processing this directive] <% If Session("Oturum") = "Acik" Then Session("Last_Page") = Request.ServerVariables("HTTP_URL") %> <% 'Kodlar buradan Sonraya Yazılacak %>
SİTE AYARLARI
  [an error occurred while processing this directive] <% If Session("Oturum") = "Acik" Then Set adminCheck = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI = '"& Session("Uye_Adi") &"' AND SEVIYE = 1") If Not adminCheck.EOF Then %> <% Else refuseMsg = "Bu sayfayı görüntüleme yetkisine sahip değilsiniz!..." Response.Write refuseMsg : Response.END End If Else refuseMsg = "Bu sayfayı görüntüleme yetkisine sahip değilsiniz!..." Response.Write refuseMsg : Response.END End If %> <% 'Kodlar buradan Sonraya Yazılacak %><% if request.querystring("i") = "o" then %> <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM AYARLAR WHERE A_ID = "&request.querystring("A_ID") &"", objConn, 3, 3 objlist("A_ID") = request.form("A_ID") objlist("A_SITE_NAME") = request.form("A_SITE_NAME") objlist("A_LCID") = request.form("A_LCID") objlist("A_LINK_RECORD") = request.form("A_LINK_RECORD") objlist("A_TIMEOUT") = request.form("A_TIMEOUT") objlist("A_MSG_LIMIT") = request.form("A_MSG_LIMIT") objlist("A_MSG_TIMEOUT") = request.form("A_MSG_TIMEOUT") objlist("A_BANNED_IPS") = request.form("A_BANNED_IPS") objlist("A_PASS_REMIND") = request.form("A_PASS_REMIND") objlist("A_SITE_ADDR") = request.form("A_SITE_ADDR") objlist("A_SITE_EMAIL") = request.form("A_SITE_EMAIL") objlist("U_EXPIRE") = request.form("U_EXPIRE") objlist("A_MAIL_BIL") = request.form("A_MAIL_BIL") objlist("A_NEWS_RECORD") = request.form("A_NEWS_RECORD") objlist("dk_g") = request.form("dk_g") objlist.update %> <% end if %> <% if request.querystring("i") = "ekle" then %> <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM AYARLAR ", objConn, 3, 3 objlist.addnew objlist("A_SITE_NAME") = request.form("A_SITE_NAME") objlist("A_LCID") = request.form("A_LCID") objlist("A_LINK_RECORD") = request.form("A_LINK_RECORD") objlist("A_TIMEOUT") = request.form("A_TIMEOUT") objlist("A_MSG_LIMIT") = request.form("A_MSG_LIMIT") objlist("A_MSG_TIMEOUT") = request.form("A_MSG_TIMEOUT") objlist("A_BANNED_IPS") = request.form("A_BANNED_IPS") objlist("A_PASS_REMIND") = request.form("A_PASS_REMIND") objlist("A_SITE_ADDR") = request.form("A_SITE_ADDR") objlist("A_SITE_EMAIL") = request.form("A_SITE_EMAIL") objlist("U_EXPIRE") = request.form("U_EXPIRE") objlist("A_MAIL_BIL") = request.form("A_MAIL_BIL") objlist("A_NEWS_RECORD") = request.form("A_NEWS_RECORD") objlist("dk_g") = request.form("dk_g") objlist.update %> <% end if %> <% if request.querystring("i") = "sil" then %> <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM AYARLAR WHERE A_ID = "&request.querystring("A_ID") &"", objConn, 3, 3 objlist.delete objlist.update %> <% end if %>

<% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM AYARLAR ORDER BY A_ID desc", objConn, 3, 3 divider = 2 divide = CInt(objList.RecordCount/divider)+1 perc = width/divider For I = 1 To objList.RecordCount %>
 
">
Site Adı ">
Site Adresi ">
Site E-mail Adresi ">
Session LCID ">
sayfada ki link sayısı ">
sayfada ki haber sayısı ">
Zaman aşımı ">
Bu kadar sürede aktif olmazsa üyeliği sil ">
Şifre Bildirim Şekli ">
Mail Bileşeni ">
Mesaj Limiti ">
Mesaj Geçerliliği ">
Yasaklı IP adresleri ">
 

" target="_blank"> "> ">

 

<% objlist.movenext next %>

GERİ
 
<% 'Kodlar buranın üstüne Yazılacak %> <% Else %> <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM AYARLAR ORDER BY A_ID desc", objConn, 3, 3 %> <%=objlist("A_YASAK_MESAJ")%> <% End If %>

Son Üyemiz : [an error occurred while processing this directive] <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM UYELER ORDER BY U_ID desc", objConn, 3, 3 %> Kullanıcı Adı : <%=objlist("U_ADI")%>, Adı Soyadı : <%=objlist("AD")%>, Mail Adresi :<%=objlist("EMAIL")%>, Kendisi <%=objlist("SEHIR")%> ilinde <%=objlist("MESLEK")%> yapıyor..

::: SONLAR :::

EN SON ÜYEMİZ

EN SON EKLENEN HABER

Sitemizin en son üyesi <%=objlist("U_ADI")%> Nicki ile <%=objlist("AD")%> dir.. Bu Üye en son <%=objlist("SON_TARIH")%> tarihinde üye girişi yapmıştır... Sitemize İse <%=objlist("LOGIN_SAYISI")%> kere üye girişi Yaptı....

  <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM HABERLER where onay = True ORDER BY ID desc", objConn, 3, 3 %> "> <%=objlist("BASLIK")%>

EN SON EKLENEN LİNK

EN SON EKLENEN PROGRAM

  <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM LINKLER ORDER BY ID desc", objConn, 3, 3 %> " target="_new"> <%=objlist("L_AD")%> ( <%=objlist("L_EKLEYEN")%> )
<%=left(objlist("L_BILGI"),80) %>

  [an error occurred while processing this directive] <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM download ORDER BY id desc", objConn, 3, 3 %> "> <%=objlist("down_adi")%>

EN SON EKLENE OYUN

EN SON MESAJLAŞAN ÜYELER

  [an error occurred while processing this directive] <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM oyun where onay = true ORDER BY ID desc", objConn, 3, 3 %>" target="_new"><%=objlist("ad")%> ( <%=objlist("ekleyen")%> )
<%=left(objlist("bilgi"),80) %>

 <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM MESAJLAR ORDER BY ID desc", objConn, 3, 3 %>

Sitemizde en son <%=objlist("GONDEREN")%> nickli üyemiz <%=objlist("GIDEN")%> nickli Üyemize <%=objlist("TARIH")%> traihinde mesaj atmıştır...
 
     <% Set objList = Server.CreateObject("ADODB.RecordSet") objList.Open "SELECT * FROM AYARLAR ORDER BY A_ID desc", objConn, 3, 3 %>

© <%=objlist("A_SITE_NAME")%>
<% Response.Write "Bu Site Muratsoft Portal v3.0 ile hazırlanmıştır" %>
<% Response.Write "Powered by Murat Çetin" %>