<% if Request.form("t1")="" then Response.Redirect "admin.asp?mesaj=Kullanıcı Adı Yazmadınız !" if Request.form("t2")="" then Response.Redirect "admin.asp?mesaj=Parola Yazmadınız !" kul=Request.form("t1") Set baglanti= Server.CreateObject("ADODB.Connection") baglanti.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data4455.mdb")) Set banka = Server.CreateObject("ADODB.Recordset") baglandir = "select * from user where nick='"&kul&"'" banka.Open baglandir,baglanti,3,3 if banka.recordcount=0 then Response.Redirect "admin.asp?mesaj=Geçersiz Giriş !" if Request.form("t1")<>banka("nick") then Response.Redirect "admin.asp?mesaj=Geçersiz Giriş !" if Request.form("t2")<>banka("pass") then Response.Redirect "admin.asp?mesaj=Geçersiz Giriş !" nick2 = Request.form("t1") pass2 = Request.Form("t2") Response.Cookies("cm")("nick") = nick2 Response.Cookies("cm")("pass") = pass2 Response.Cookies("cm").Expires = Now()+7 Response.Redirect "edit.asp" %>