<%
if session("admin") = True Then
%>
Yönetim Paneli
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
%>
<%
set mahir = Server.CreateObject("ADODB.Recordset")
mahir.open "SELECT * FROM uye order by id desc",baglanti,1,3
%>
| İstatistikler: |
|
| |
Son Üye: |
<%=mahir("kadi")%> |
| Toplam Üye: |
<%=mahir.RecordCount%> |
| Özel işlemler: |
|
|
Kullanıcı Kredi Geri Dön |
|
Coded By
Mahir
<%
else
response.redirect "default.asp"
end if
%> |
|
 |
|
