<% Set FSO = CreateObject("Scripting.FileSystemObject")
IF Not (FSO.FileExists(Server.MapPath("include/ms_lisans.asp"))) = True Then
Response.Write "Lisans dosyası eksik."
Response.End
Else
End If %>
<%
Call Style : Call JavaScript
If admin = "" Then
If Not Session("Admin")="Girdi" Then %>
<% Call CopyRight
End If
End If
If admin = "yoneticigiris" Then
fldKullaniciAdi = Security(Trim(Request.Form("fldKullaniciAdi")))
fldSifre = Security(Trim(Request.Form("fldSifre")))
Set Rs = Vt.Execute("tblKullYonetim Where fldKullaniciAdi Like '"&fldKullaniciAdi&"' And fldSifre Like '"&fldSifre&"' And fldPanelGiris Like '0' ")
If Rs.EOF And Rs.BOF Then %>
<% Response.Write "_"
Response.End
End If
Session("Admin")="Girdi"
Session("User")=Rs("fldKullaniciAdi")
Session("UserID")=Rs("fldID")
Rs.Close : Set Rs = NoThing
If Request.Form("Hatirla")="on" Then
Response.Cookies("Panel")("User")=Session("User")
Response.Cookies("Panel").Expires = Now()+30
End If
IP=Request.ServerVariables("REMOTE_ADDR")
Vt.Execute("Update tblKullYonetim Set fldSonGiris = '"&Now()&"' , fldSonIP = '"&IP&"' , fldGirisSayisi = fldGirisSayisi + 1 Where fldKullaniciAdi Like '"&Session("User")&"'")
Response.Redirect "default.asp?admin=anasayfa"
End If
If Session("Admin")="Girdi" Then %>
<%
If admin = "anasayfa" Then %><% End If
If admin = "siteyonetimi" Then %><% End If
If admin = "dilyonetimi" Then %><% End If
If admin = "kullaniciyonetimi" Then %><% End If
If admin = "sayfayonetimi" then %><% End If
If admin = "makaleyonetimi" then %><% End If
If admin = "panelyetkileriniz" Then %><% End If
If admin = "resimgalerisi" Then %><% End If
If admin = "haberler" Then %><% End If
If admin = "formyonetimi" then %><% End If
If admin = "anketyonetimi" Then %><% End If
If admin = "bultenyonetimi" Then %><% End If
If admin = "istatistikler" Then %><% End If
If admin = "yardim" Then %><% End If
If admin = "cikis" Then
Session("Admin")=""
Session("User")=""
Session("UserID")=""
Session.Abandon
Response.Redirect "default.asp"
End If
%>
<% End If %>