<% 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") & "'" Rs.Open Sorgu,connect, 1, 3 If RS.BOF And RS.EOF Then Response.Write "" %> <% if request.form("cinsiyet")=1 then Session("cinsiyet")=ayar("Mbay") end if if request.form("cinsiyet")=0 then Session("cinsiyet")=ayar("Mbayan") end if if ayar("cokluikonM")=0 then Session("cinsiyet")=request.form("ikon") end if Session("Uyemi")=0 Session("rumuz")=request.form("rumuz") Session("Rrengi")=ayar("MRrengi") Session("OzeleAlma")=0 Session("Ozeleyazma")=0 Session("yetki")=0 Session("sitechat")=0 session.timeout = 60 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")=0 mesajlar("yetki")=5 mesajlar("banlimi")=0 mesajlar.update Response.Redirect "misafiricon.asp" else %> <% end if else %> <% end if %>