<%response.buffer=true%>
<%
a=trim(ReQuest.form("ttc"))
b=trim(ReQuest.form("pw"))
c=trim(ReQuest.form("rpw"))
d=trim(ReQuest.form("ttv"))
e=trim(ReQuest.form("dc"))
f=trim(ReQuest.form("dt"))
g=trim(ReQuest.form("em"))
h=trim(ReQuest.form("dta"))
session ("ss")=d
s1=left(ReQuest.form("ttc"),2)
s2=left(ReQuest.form("ttv"),2)
s3=mid(ReQuest.form("ttv"),4,1)
s4=left(ReQuest.form("em"),3)
s5=left(ReQuest.form("dt"),2)
session ("ss1")=""+s1+""+s2+""+s3+""+s4+""+s5+""
if b=c then
sqlstr="select *from thanhvien where tentc='"+a+"';"
rs.open sqlstr,conn
if rs.bof and rs.eof then
session ("tv")=false
sqlthem="INSERT INTO thanhvien VALUES('"+s1+""+s2+""+s3+""+s4+""+s5+"','"+a+"','"+b+"','"+c+"','"+d+"','"+e+"','"+f+"','"+g+"','"+h+"')"
conn.execute sqlthem
response.redirect "dktc.asp"
else
session ("tv")=true
response.redirect "Login_frER.asp"
RS.CLOSE
CONN.CLOSE
SET RS=NOTHING
SET CONN=NOTHING
end if
end if
%>
Welcome + BÁCH KHOA ONLINE MUSIC
