En son olarak böyle denedim gene hata verdi
-----------------------------------------------------------------
<!--# include file="ayar.asp" -->

<%
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

dim kontrol
Set kontrol = Server.CreateObject("adodb.recordset")
sql = "select * from uyeler where kullanici= '"& kullanici &"' and pass = '"& pass &"'"
kontrol.open SQL,baglan,1,3

if not kont.eof then
session("logindogrumu") = "evet"
session("id") = kontrol("id")
session("kullanici") = kontrol("kullanici")

else

Response.Write "<script>alert('Hata !!! Veritabanında böyle bir kullanıcı yok...')</script>"
Response.Write "<meta http-equiv='Refresh' content='0; URL=login.asp'>"
response.end
end if
%>
-----------------------------------------------------------------------------------
verdiği hata :
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/login_check.asp, line 16