<% Response.Buffer=True Response.Expires = -100 tarih=date %> <% Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="select * from Yonetici 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 %> <% end if %>