<% 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 ""
%>
<script>alert("Bu Rumuz ve şifreniz yanlıştır yada üyelik kapatılmıştır...");history.go(-1)</script>

Kırmızı yerden sonra

<%
if Rs("mode")=0 Then
%>
<script>alert("Siz Normal Üyesiniz Lütfen Normal Üye Girişinden Yapınız...");history.go(-1)</script>

<%
else %>

bu kodu oraya nasıl yerleştirebilirim ne yaptıysam hata verdi kodların tamamını yollıcaktım karekter almadı .