%response.buffer=true%>
New Page 1
<%
a=Trim(Request.form("inputname"))
b=Trim(Request.form("pw"))
c=Trim(Request.form("sss"))
session ("lt")=c
sqlstr="select *from admin where Administrator='"+a+"' and Password='"+b+"';"
rs.open sqlstr,conn
if rs.bof and rs.eof then
session ("ad")=false
response.redirect "adminER.asp"
ELSE
session ("ad")=true
sqlxoa="DELETE FROM thanhvien WHERE stt='"+c+"'"
conn.execute sqlxoa
response.redirect"forum.asp"
end if
%>