<%
dim kullanici,pass
kullanici = Request.form("kullanici")
pass = Request.form("pass")

if kullanici ="" or pass ="" then
response.write"Lütfen Form da boş alan bırakmayın"
response.end
end if

Set gir = baglan.Execute("select * from uyeler where kullanici= '"& kullanici &"' and pass = '"& pass &"'")

if gir.eof then

Response.Write "<script>alert('Hata !!! Veritabanında böyle bir kullanıcı yok...')</script>"
Response.Write "<yasak kod meda http-equiv='Refresh' content='0; URL=login.asp'>"
response.end
else
session("logindogrumu") = "evet"
session("id") = check("id")
session("kullanici") = check("kullanici")
end if
response.redirect"default.asp"

%>