<% Response.Buffer=True Response.Expires = -100 tarih=date %> <% 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 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 "" %> <% else %> <% if Rs("mode")=0 Then %> <% else %> <% Response.Write "" Session("Uyemi")=1 session("sitechat")=Rs("sitechat") session("rumuz")=rs("rumuz") session("sifre")=rs("sifre") if rs("Rrengi")="" then Session("Rrengi")=ayar("NewUyeRengi") else Session("Rrengi")=rs("Rrengi") end if if rs("cinsiyet")=0 then Session("cinsiyet")=ayar("NewUyeiconBayan") end if if rs("cinsiyet")=1 then Session("cinsiyet")=ayar("NewUyeiconBay") 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("yetki") Session("loglar")=rs("loglar") Session("logsil")=rs("logsil") Session("logbanla")=rs("logbanla") Session("banlar")=rs("banlar") Session("bansil")=rs("bansil") Session("rumuzyasakla")=rs("rumuzyasakla") session.timeout = 60 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_ADDR") mesajlar("uyemi")=1 mesajlar("yetki")=rs("mode") mesajlar("banlimi")=0 mesajlar.update Response.Redirect "yoneticiicon.asp" %> <% end if end if else %> <% end if %>