<% Response.Buffer = True %> [an error occurred while processing this directive] [an error occurred while processing this directive]Ana sayfa

<% 'TARİH VE İD NOSU HİT VE ONAY STANDART DEĞİŞKENE İSİM GİRME 'aaaa bbbb cccc dolu olması istenecek şekilde tabloadi="uyeler" aaaa="adi" '1 TABLO daki ad aaa1="Ad soyad" 'ÖN ADI bbbb="email" '2 bbb1=" Email Adresi :" cccc="kadi" '2 ccc1=" Kullanıcı adı :" dddd="sifre" '2 ddd1=" Şifre :" eeee="url" eee1="Web siteniz" %> :::: Üyelik Scripti :::: HızLıBuL.CoM
Yeni Üye  Kayıtlı Üyeler
<% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&uyeler&"") Set efkan = Server.CreateObject("ADODB.Recordset") islem = Request.QueryString("islem") if islem = "sil" then call sil elseif islem="oku" then call oku elseif islem="degistir" then call degistir elseif islem="ekle" then call ekle else 'işlem yukarıdakilerin hiç biri değilse kayitları çağır call kayitlar end if %> <% sub kayitlar 'sor = "Select * from "&tabloadi&" where ONAY like '%Y%' order by id desc" 'KULLANICI İÇİN sor = "Select * from "&tabloadi&" order by id desc" 'ADMİN İÇİN efkan.Open sor,Sur,1,3 adet=efkan.recordcount shf = Request.QueryString("shf") if shf="" then shf=1 end if if efkan.eof or efkan.bof then Response.Write "

Kayıt Bulunamadı...." Response.End end if %>
KAYITLAR <% efkan.pagesize =50 'bir sayfada gösterilecek adet efkan.absolutepage = shf sayfa =www.maveranettr.cx.pagecount for i=1 to efkan.pagesize if efkan.eof then exit for %> <% efkan.movenext Next efkan.close %>

İd:<%=efkan("id")%> Onay:<%=efkan("onay")%> Tarih :<%=efkan("tarih")%> <%=aaa1%>	">Oku  ">Değiştir  ">Sil

<%=adet%> adet kayıt bulundu...
Sayfalar : <% for y=1 to sayfa ' if shf=y then if y=cint(shf ) then 'bulunduğun sayfaya link yok response.write y else response.write " "&y&"" end if next end sub %> <% sub degistir Response.Buffer = True id=Request.QueryString("id") sor = "select * from "&tabloadi&" where id="&id&"" efkan.Open sor,sur,1,3 %>
DEĞİŞTİR

"> İd : " size="39" readonly> <%=aaa1%> " size="39"> <%=bbb1%> " size="39"> <%=ccc1%> " size="39"> <%=ddd1%> " size="39">

<% if request.form(""&aaaa&"")="" or request.form(""&bbbb&"")="" or request.form(""&cccc&"")="" then Response.Write "

Tüm alanları doldurunuz..." Response.End end if efkan("onay") = Trim (Request.Form ("onay")) efkan("tarih") = Trim (Request.Form ("tarih")) efkan(""&aaaa&"") = Trim (Request.Form (""&aaaa&"")) efkan(""&aaaa&"") = Replace(efkan(""&aaaa&"") , "<", "<") efkan(""&aaaa&"") = Replace(efkan(""&aaaa&"") , ">", ">") efkan(""&bbbb&"") = Trim (Request.Form (""&bbbb&"")) efkan(""&bbbb&"") = Replace(efkan(""&bbbb&"") , "<", "<") efkan(""&bbbb&"") = Replace(efkan(""&bbbb&"") , ">", ">") efkan(""&cccc&"") = Trim (Request.Form (""&cccc&"")) efkan(""&cccc&"") = Replace(efkan(""&cccc&"") , "<", "<") efkan(""&cccc&"") = Replace(efkan(""&cccc&"") , ">", ">") efkan(""&dddd&"") = Trim (Request.Form (""&dddd&"")) efkan(""&dddd&"") = Replace(efkan(""&dddd&"") , "<", "<") efkan(""&dddd&"") = Replace(efkan(""&dddd&"") , ">", ">") efkan(""&eeee&"") = Trim (Request.Form (""&eeee&"")) efkan(""&eeee&"") = Replace(efkan(""&eeee&"") , "<", "<") efkan(""&eeee&"") = Replace(efkan(""&eeee&"") , ">", ">") efkan.Update Response.Redirect "admin.asp" 'response.redirect Request.ServerVariables("HTTP_REFERER") 'Response.write "

Değişiklik Yapıldı...Şimdi ana sayfaya yönlendirileceksiniz...
" 'Response.Write "" efkan.close end sub %> <% sub sil id=Request.QueryString("id") 'id = Request("id") sor = "DELETE from "&tabloadi&" WHERE id="&id&"" efkan.open sor,Sur,1,3 response.redirect Request.ServerVariables("HTTP_REFERER") efkan.close end sub %> <%sub ekle%>
YENİ KAYIT EKLE

<%=aaa1%>ADINIZ <%=bbb1%>SOYADINIZ <%=ccc1%>E-MAİLİNİZ <%=ddd1%>ŞEHİR <%=eee1%>DOGUM TARİHİNİZ

<% sor = "Select * from "&tabloadi&"" efkan.Open sor,sur,1,3 if request.form(""&aaaa&"")="" or request.form(""&bbbb&"")="" or request.form(""&cccc&"")="" then Response.Write "Tüm alanları doldurunuz..." Response.End end if efkan.AddNew efkan("tarih") = Request.Form ("tarih") efkan("onay") = "y" efkan(""&aaaa&"") = Trim (Request.Form (""&aaaa&"")) efkan(""&aaaa&"") = Replace(efkan(""&aaaa&"") , "<", "<") efkan(""&aaaa&"") = Replace(efkan(""&aaaa&"") , ">", ">") efkan(""&bbbb&"") = Trim (Request.Form (""&bbbb&"")) efkan(""&bbbb&"") = Replace(efkan(""&bbbb&"") , "<", "<") efkan(""&bbbb&"") = Replace(efkan(""&bbbb&"") , ">", ">") efkan(""&cccc&"") = Trim (Request.Form (""&cccc&"")) efkan(""&cccc&"") = Replace(efkan(""&cccc&"") , "<", "<") efkan(""&cccc&"") = Replace(efkan(""&cccc&"") , ">", ">") efkan(""&dddd&"") = Trim (Request.Form (""&dddd&"")) efkan(""&dddd&"") = Replace(efkan(""&dddd&"") , "<", "<") efkan(""&dddd&"") = Replace(efkan(""&dddd&"") , ">", ">") efkan(""&eeee&"") = Trim (Request.Form (""&eeee&"")) efkan(""&eeee&"") = Replace(efkan(""&eeee&"") , "<", "<") efkan(""&eeee&"") = Replace(efkan(""&eeee&"") , ">", ">") efkan.Update Response.Redirect "admin.asp" 'response.redirect Request.ServerVariables("HTTP_REFERER") 'Response.write "

Kayıdınız eklenmiştir.Yönetici onayından sonra yayınlanacaktır
" 'Response.write "

Şimdi ana sayfaya yönlendirileceksiniz...
" 'Response.Write "" efkan.close end sub %> <% sub oku id=Request.QueryString("id") sor = "select * from "&tabloadi&" where id="&id&"" efkan.Open sor,sur,1,3 %>

İd : " size="39" readonly> <%=aaa1%> " size="39"> <%=bbb1%> " size="39"> <%=ccc1%> " size="39"> <%=ddd1%> " size="39"> <%=eee1%> " size="39">

<% efkan.close end sub %>