<%
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 kontrol = Server.CreateObject("ADODB.RecordSet")
sql = "select * from uyeler where kullanici= '"& kullanici &"' and pass = '"& pass &"'"
kontrol.open sql,baglan,1,3
if kontrol.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"

%>

Şu Şekil Denermisiniz