<% Response.Buffer=True Response.Expires = -100 tarih=date %> <% 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 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") end if if rs("cinsiyet")=1 then Session("cinsiyet")=ayar("NewUyeiconBay") end if if ayar("cokluikonU")=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("Yetki")=0 Session("Yetki1")=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("banlimi")=0 mesajlar.update Response.Redirect "uyeicon.asp" end if else %> <% end if %>