
<!-- #include file = "connection.inc" -->
<!-- #include file = "adovbs.inc" -->


<%if session("username") ="" then
	Response.Redirect("Login.asp")
End if

   set rs = Server.CreateObject("ADODB.RECORDSET")
					 rs.open "select accno,userid,familyname,initmoney,acctype from createaccount where userid="& session("UserId"),conn
  

 if rs("initmoney") = 0 then
strSql = "delete from createaccount where userid=" & rs("accno")
conn.execute(strSql)
response.Write("delted")
response.redirect("muchoinfo.asp")
else
set rs2 = Server.CreateObject("ADODB.RECORDSET")
					 rs2.open "select moneyleft from UserTable where userid="& session("UserId"),conn
strSql2= "update usertable set moneyleft = " & clng(rs("initmoney"))+clng(rs2("moneyleft")) & " where userid = " & session("UserId")
			conn.execute(strSql2)
strSql = "delete from createaccount where accno=" & rs("accno")
conn.execute(strSql)
response.Write("delted")
response.redirect("muchoinfo.asp")
end if


%>