asp kodunda sorun nedir niye çalışmıyor

<%  

Dim baglan  
Dim hocam  

Set baglan = Server.CreateObject("ADODB.Connection" )  
baglan.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & Server.MapPath("uyeler.mdb" )  

response.write "bağlandın"   

Set hocam = Server.CreateObject ("ADODB.RecordSet" )  
sql="select * From uyelerim "   
hocam.Open sql,baglan,1,3  

response.write "baglandın"   


Session("kullanici" ) = hocam("kullanici" )  


If session("kullanici" )="ahmet" Then  
     response.write"BURASI SADECE ahmete GÖRÜNÜR..İĞERLERİNE GÖRÜNMEZ "   

Else  

response.write "diğerlerine gözüksün"   

     End If  
%>

<%
Dim baglan
Dim hocam

Set baglan = Server.CreateObject("ADODB.Connection")
baglan.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("uyeler.mdb")


%> 

<%
Set hocam = Server.CreateObject ("ADODB.RecordSet" )  
sql="select * From uyelerim "
hocam.Open sql,baglan,1,3 
%> 



<% 

Session("yetki") = hocam("yetki")  
    
%> 

      
     <% if session("yetki")="1" then %> 
     BURASI SADECE ADMİNDE GÖRÜNÜR..İĞERLERİNE GÖRÜNMEZ 
     <% end if %> 

     <% if session("yetki" )="0" then %> 
     BURASI SADECE Maderatörlere GÖRÜNÜR..İĞERLERİNE GÖRÜNMEZ 
     <% end if %>

<%  
Dim baglan  
Dim hocam  
dim kimiariyon

kimiariyon= Trim (Request.form("isim"))
' veya böyle yap
kimiariyon = "Ahmet"


Set baglan = Server.CreateObject("ADODB.Connection" )  
baglan.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & Server.MapPath("uyeler.mdb" )  

response.write "bağlandın"   

Set hocam = Server.CreateObject ("ADODB.RecordSet" )  
sql="select * From uyelerim WHERE kullanici='"&kimiariyon&"' ;"   
hocam.Open sql,baglan,1,3  

if not hocam.Eof then 
 response.write "Buldun"   
 Session("yeki" ) = hocam("yetki" ) 
 Session("kullanici" ) = hocam("kullanici" )  
End IF   ' 


' kullanıcı isimi me yetkisi tutuyormu bakalım 
If session("yeki" )=1 and Session("kullanici" ) ="ahmet" Then  
     response.write"BURASI SADECE ahmete GÖRÜNÜR..İĞERLERİNE GÖRÜNMEZ "   

Else  

response.write "diğerlerine gözüksün"   

     End If  
%>

<% 
Dim baglan 
Dim rs , oturumlu_uye 

Set baglan = Server.CreateObject("ADODB.Connection") 
baglan.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("uyeler.mdb") 

oturumlu_uye=session("kullanici")

Set rs = Server.CreateObject ("ADODB.RecordSet")     
sql="select * From uyelerim where kullanici='"&oturumlu_uye&"'"
rs.Open sql,baglan,1,3 

Session("yetki")=rs("yetki") 

if session("yetki")=1 Then 
response.write "yetkisi 1 olana görünür" 
end if
if session("yetki")=0 Then 
response.write "yetkisi 0 olana gözükür" 
end if 

%>