<% 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") & "' and Aktif=1" Rs.Open Sorgu, Baglanti, 1, 3 If RS.BOF And RS.EOF Then Response.Write "" %> <% else %> <% Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from UYELER where rumuz = '" & request.form("rumuz") & "' and mode=0" Rs.Open Sorgu, Baglanti, 1, 3 If RS.BOF And RS.EOF Then Response.Write "" %> <% else %> <% Session("uyemi")=1 session("rumuz")=rs("rumuz") session("sifre")=rs("sifre") Session("sitechat")=rs("sitechat") if rs("Rrengi")="" then Session("Rrengi")=ayar("NewUyeRengi") else Session("Rrengi")=rs("Rrengi") end if if rs("cinsiyet")=0 then Session("cinsiyet")=ayar("NewUyeiconBayan") else Session("cinsiyet")=ayar("NewUyeiconBay") end if if rs("icon")<>"" then Session("cinsiyet")=rs("icon") end if Session("OzeleAlma")=rs("OzeleAlma") Session("Ozeleyazma")=rs("Ozeleyazma") Session("Yetki")=0 Session("uyeID")=rs("UyeID") Session("yetki")=0 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")=0 mesajlar.update Response.Redirect "ozendizayn.asp" end if end if else %> <% end if %>