inc diye bir bolumde bu var burdan bi ayar olabilirmi acaba bi incelermisiniz

<% Vt_Pth=Server.Mappath(""&data&".mdb")
Cumle= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}" %>
<%

Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Cumle



Set Rss=Server.CreateObject("Adodb.Recordset")
Sorgu="select * from Yrumuzlar where rumuz = '" & request.form("rumuz")& "' "
Rss.Open Sorgu,connect, 1, 3
Set Rss=Server.CreateObject("Adodb.Recordset")
Sorgu="select * from acik where rumuz = '" & request.form("rumuz")& "' "
Rss.Open Sorgu,connect, 1, 3
Set Rss=Server.CreateObject("Adodb.Recordset")
Sorgu="select * from acik where sifre = '" & request.form("sifre")& "' "
Rss.Open Sorgu,connect, 1, 3
If RSs.BOF And RSs.EOF Then
Response.Write ""


Set Rs=Server.CreateObject("Adodb.Recordset")
Sorgu="select * from UYELER where rumuz = '" & request.form("rumuz") & "' and sifre = '" & Request.form("sifre") & "'"
Rs.Open Sorgu,connect, 1, 3
If RS.BOF And RS.EOF Then
Response.Write ""
%>
<script>alert("Şifreni Yada Kulanıcı Adınız Yanlış Yada Daha Onaylanmış...");history.go(-1)</script>
<%
else %>
<%
if Rs("mode")=0 Then
%>
<script>alert("Siz Normal Üyesiniz Lütfen Normal Üye Girişinden Yapınız...");history.go(-1)</script>
<% else %>
<%
if Rs("mode")=1 Then %>
<script>alert("Siz Operatorsunuz Lütfen Yetkili Girisi Yapiniz...");history.go(-1)</script>

<%
else %>
<%
if Rs("mode")=2 Then %>
<script>alert("Siz Adminsiniz Lütfen Yetkili Girisi Yapiniz...");history.go(-1)</script>

<%
else %>
<%
if Rs("mode")=3 Then %>
<script>alert("Siz CoAdminsiniz Lütfen Yetkili Girisi Yapiniz...");history.go(-1)</script>

<%
else %>
<%
if Rs("mode")=4 Then %>
<script>alert("Siz Super Adminsiniz Lütfen Yetkili Girisi Yapiniz...");history.go(-1)</script>

<%
else %>

<%
if Rs("mode")=9 Then
%>
<script>alert("Siz Mavi rumuz uyesisiniz Lütfen Mavi Rumuz Girisi Yapınız...");history.go(-1)</script>
<%
else %>
<%
if request.form("rumuz")="'or'" Then
%>
<script>alert("ne yapmaya calisiyon laaaaaaaaaaaa");history.go(-1)</script>
<%
else %>
<%
if Rs("aktif")=0 Then %>
<script>alert("yetkiniz Dondurulmus yonetici ile irtibata gecin...");history.go(-1)</script>

<%
else %>
<%
Response.Write ""
Session("Uyemi")=1
session("sitechat")=Rs("sitechat")

session("rumuz")=rs("rumuz")
session("sifre")=rs("sifre")
if ayar("coklurenky")=0 then
Session("Rrengi")=request.form("ozelrenk")
end if
if ayar("coklurenky")=1 then
Session("Rrengi")=ayar("yetkiRengi")
end if
if rs("Rrengi")<>"" then
Session("Rrengi")=rs("Rrengi")
end if


if rs("cinsiyet")=0 then
Session("cinsiyet")=1
end if
if rs("cinsiyet")=1 then
Session("cinsiyet")=0
end if
if ayar("cokluikonY")=0 then
Session("cinsiyet")=request.form("ikon")
end if
if rs("icon")<>"" then

Session("cinsiyet")=rs("icon")
end if
Session("OzeleAlma")=rs("OzeleAlma")
Session("Ozeleyazma")=rs("Ozeleyazma")
Session("uyeID")=rs("UyeID")
Session("yetki")=rs("mode")
Session("yetki1")=rs("yetki1")


Session("loglar")=rs("loglar")
Session("logsil")=rs("logsil")
Session("logbanla")=rs("logbanla")
Session("banlar")=rs("banlar")
Session("bansil")=rs("bansil")
Session("bankayit")=1
Session("rumuzyasakla")=rs("rumuzyasakla")
session.timeout = 999

rs("sonIP")=Request.ServerVariables("REMOTE_ADDR" )
rs("sontarih")=now()
rs.update

set Mesajlar = Server.CreateObject("ADODB.RecordSet")
SQL="select * from LOGLAR"
Mesajlar.open SQL,connect,1,3
mesajlar.addnew
mesajlar("rumuz")=request.form("rumuz")
mesajlar("tarih")=now()
mesajlar("IP")=Request.ServerVariables("REMOTE_ADD R")
mesajlar("uyemi")=1
mesajlar("yetki")=rs("mode")
mesajlar("banlimi")=0
mesajlar.update
Response.Redirect "sohbet.asp"
%>
asdsad
<%
end if
end if
end if
end if
end if
end if
end if
end if
end if
else

%>
<script>alert("Bu Rumuz Yöneticiler Tarafından yasaklanmıştır...");history.go(-1)</script>
<%
end if
%>