<%response.buffer=true%> <% s="select *from Amnhac;" rs.open s,conn RS.MOVEFIRST %> <% dem=0 %> <%DO WHILE NOT RS.EOF%> <% dem=dem+1 %> <% RS.MOVENEXT LOOP %> <% tong=dem+1 so = trim(tong) %> <%=tong%> <% conn.close set conn=nothing %> <%response.buffer=true%> <% us=session ("user") ps=session ("pass") ntn=date() ngay=trim(Day(ntn)) thang=trim(Month(ntn)) nam=trim(Year(ntn)) pc="/" ma=Request.form("sttt") a=Request.form("tb") b=Request.form("ns") c=Request.form("cs") d=Request.form("tl") e=Request.form("dd1") f=Request.form("dd2") session ("add")=b session ("add1")=c Randomize RD = trim(Int((6 * Rnd) + 1)) bk=trim(Int((4 * Rnd) + 3)) m=trim(Int((5 * Rnd) + 2)) m1=trim(Int((2 * Rnd) + 7)) m2=trim(Int((7 * Rnd) + 1)) m3=trim(Int((10 * Rnd) + 4)) m4=trim(Int((9 * Rnd) + 1)) m5= trim(Int((100 * Rnd) + 100)) m6= Int((10 * Rnd) + 100) m7= Int((100 * Rnd) + 10) m8=trim(m6+m7) sqlstr="select *from Amnhac where Duongdan='"+e+""+f+"';" rs.open sqlstr,conn if rs.bof and rs.eof then session ("ktnk")=false sqlthem="INSERT INTO Amnhac VALUES('"+so+""+m+""+m1+""+m2+""+m3+""+m4+""+m5+""+m8+""+rd+"','"+a+"','"+b+"','"+c+"','"+d+"','"+e+""+f+"','"+ngay+""+pc+""+thang+""+pc+""+nam+"','"+us+"','"+ps+"')" conn.execute sqlthem response.redirect "addnew.asp" else session ("ktnk")=true response.redirect "addnew_ER.asp" end if %>