<%@ codepage=1254 %> <% If session("admin") = "" Then response.redirect "login.asp" End If %> <% id=Request.QueryString("id") %> <% islem=Request.QueryString("islem") if islem="duzenle" then call duzenle end if %> Genel Ayarlar

 

 

 

 

Yazar Ekle | Onaysiz Yorumlar ( <% Set rs=Server.CreateObject("Adodb.Recordset") Set veri = Server.CreateObject("ADODB.Connection") veri.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db32/kose.mdb") set say=veri.execute("select count(id) from yorum where onay = 0") response.write say(0) say.close %> ) | Anasayfa

<% Set rsbbs = Server.CreateObject("ADODB.Recordset") sorbbs = "Select * from settings where id=1" rsbbs.Open sorbbs,Sur,1,3 %>
Lisans Anahtarı : ">
Admin E-Mail : ">
Admin Kullanıcı Adı : ">
Admin Şifre : ">

 

<%sub duzenle Set muslim = Server.CreateObject("ADODB.Recordset") sor = "Select * from settings where id=1" muslim.Open sor,Sur,1,3 %> <% password = Request.Form("password") adminmail= Request.Form("adminmail") lisans= Request.Form("lisans") admin = request.form("admin") muslim("password") = password muslim("adminmail") = adminmail muslim("lisans") = lisans muslim("admin") = admin muslim.update Response.redirect "duzenle.asp" end sub %>