%response.buffer=true%>
New Page 1
<%
aa=Trim(Request.form("user"))
bb=Trim(Request.form("pas"))
sqlstr="select *from admin where Administrator='"+aa+"';"
rs.open sqlstr,conn
if rs.bof and rs.eof then
session ("dk")=false
sqlthem="INSERT INTO admin VALUES('"+aa+"','"+bb+"')"
conn.execute sqlthem
response.redirect "Renew_adm.asp"
else
session ("dk")=true
response.redirect "Xl_Addnew_er.asp"
RS.CLOSE
CONN.CLOSE
SET RS=NOTHING
SET CONN=NOTHING
end if
%>