<% Response.Buffer = True %> <% Dim name, password name = Request.Form("name") password = Request.Form("password") if name = "" and password = "" then Response.write "HATA : Yönetici Adınızı ve Şifrenizi Yazmadınız!
Lütfen yönetici adınızı ve şifrenizi yazarak tekrar deneyiniz..


Tekrar Dene" else if name = "" then Response.write "HATA : Yönetici Adınızı Yazmadınız!
Lütfen yönetici adınızı yazarak tekrar deneyiniz.


Tekrar Dene" else if password = "" then Response.write "HATA : Şifrenizi Yazmadınız!
Lütfen şifrenizi yazarak tekrar deneyiniz.


Tekrar Dene" else Set kontrol = Server.CreateObject("Adodb.RecordSet") sql_kontrol = "Select * from admin where name like '" & name & "'" kontrol.open sql_kontrol,bag,1,3 if kontrol.eof then Response.write "HATA : Girmiş olduğunuz yönetici adı ile ilgili herhangi bir kayıt bulunamadı!
Lütfen yönetici adınızı kontrol edip tekrar deneyiniz.


Tekrar Dene" else kontrol.movefirst if kontrol("password") <> password then Response.write "HATA : Şifreniz Yanlış!
Lütfen şifrenizi kontrol edip tekrar deneyiniz.


Tekrar Dene" else Response.cookies("kutimesaj")("id") = id Response.cookies("kutimesaj")("name") = name Response.cookies("kutimesaj")("id") = session.sessionid Response.cookies("kutimesaj").Expires = Now() + 365 Session("id") = kontrol("id") Session("name") = name Session("id") = Session.sessionid Response.redirect "session.aspx" end if end if end if end if end if %>