<!-- #INCLUDE FILE="doc.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_sucheck.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_member.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/formObj.asp" -->
<%
DIM ErrCode, Msg(59), MsgCount
DIM f, r
'v("RMID") = Session("RMID")
v.GetReqNum "RPID, RMID, POT, SKey, Team"
v.GetReq "RMLoginID, LoginID, Password, Password2, Name, NRIC, Sex, Tel, Fax, Email, Email2, Address, City, State, Zipcode, CountryID, BankName, BankBranch, BankACName, BankACNo, BankCountryID, BankSwift, RPLoginID"
v.GetReqDate "DOB"
v.TrimEx "RMLoginID, RPLoginID, LoginID", " *%'""<>"
v.TrimEx "Name, NRIC, Sex, Tel, Fax, Email, Email2, Address, City, State, Zipcode, CountryID, BankName, BankBranch, BankACName, BankACNo, BankCountryID, BankSwift, BankNRIC", "*%'""<>"
v("Address") = LEFT(v("Address"), 100)
IF v("RMLoginID") = "" THEN	Response.Redirect "signupForm1.asp"

ErrCode = 0
MsgCount = 0

OpenDatabase
SET r = db.LockRs
v.SetRs r.Rs
r.OpenRead "SELECT ID AS RMID, LoginID AS RMLoginID, Name AS RMName FROM Members WHERE LoginID='" & v("RMLoginID") & "'"
IF r.EOF THEN	Response.Redirect "signupForm1.asp"
v.ReadRs
r.Close

SU_CheckDetail
'SU_CheckPrepaid v("PIN"), v("Price")
'IF v("Email") <> v("Email2") THEN
'	ErrCode = 3
'	AddMsg "New user <b>Email</b> and <b>Confirm Email</b> must be identical."
'END IF

'IF v("SKey") <> Session("SKey") THEN
'	ErrCode = 99
'	AddMsg "Service key digits entered is different from required shown."
'END IF
'IF ErrCode = 0 THEN
'	IF v("RPLoginID") = "" THEN
'		r.OpenRead "SELECT LoginID FROM Members WHERE ID=" & v("RMID")
'		v("RPLoginID") = r("LoginID")
'		r.Close
'	END IF
'END IF
IF ErrCode = 0 THEN
	v.SetRs r.Rs
	IF (v("RPID") > 0) OR (v("RPLoginID") <> "") THEN
		IF v("RPID") > 0 THEN
			v("RPLoginID") = "???"
			r.OpenRead "SELECT ID AS RPID, LoginID AS RPLoginID, LL, LM, LR FROM Members WHERE ID=" & v("RPID")
		ELSE
			r.OpenRead "SELECT ID AS RPID, LoginID AS RPLoginID, LL, LM, LR FROM Members WHERE LoginID='" & v("RPLoginID") & "'"
		END IF
		IF NOT r.EOF THEN
			v.ReadRs
		ELSE
			ErrCode = 13
			AddMsg "Upline provided (<b>" & v("RPLoginID") & "</b>) does not exist or is invalid."
		END IF
		r.Close
	ELSE
		v("RPID") = 0
	END IF
END IF
IF ErrCode = 0 THEN
	IF v("RPID") > 1 THEN
		r.OpenRead "SELECT ID FROM Members WHERE MLID=" & v("RPID") & " OR MMID=" & v("RPID") & " OR MRID=" & v("RPID")
		IF r.EOF THEN
			ErrCode = 14
			AddMsg "Upline provided (<b>" & v("RPLoginID") & "</b>) is not in the Placement-Tree and thus not allowed."
		END IF
		r.Close
	END IF
END IF
IF ErrCode = 0 THEN
	IF v("RPID") > 0 THEN
		IF v("Team") = 0 THEN
			v("Team") = 1
			IF v("LL") > v("LR") THEN	v("Team") = 3
		END IF
	END IF
END IF

StartDoc "New Register"

	'PrintTitle "Register &gt; Confirm Details"
	IF ErrCode = 0 THEN
		v.SetRs r.Rs
		'r.OpenRead "SELECT ID AS RMID, LoginID AS RMLoginID, Name AS RMName FROM Members WHERE LoginID='" & Session("RM.LoginID") & "'"
		'v.ReadRs
		'r.Close
		r.OpenRead "SELECT Name AS Country FROM Countries WHERE ID='" & v("CountryID") & "'"
		v.ReadRs
		r.Close
		'r.OpenRead "SELECT Name AS BankCountry FROM Countries WHERE ID='" & v("BankCountryID") & "'"
		'v.ReadRs
		'r.Close
		v("PPID") = SU_GetPPID2(v("CountryID"), v("State"))

		SET f = NEW MyForm
		f.SetRes v

		DXOpen "Login Info"
		'CText "1. Please check your membership info:"
		f.Open "", "saveSignup.asp"
		f.HiddenEx "RMLoginID, RMID, LoginID, Password, Name, NRIC, Sex, Email, Tel, Fax, Address, City, State, Zipcode, CountryID, BankName, BankBranch, BankACName, BankACNo, BankCountryID, BankSwift, BankNRIC, RPID, PPID, POT, Team, RPLoginID"
		f.HiddenDate "DOB", v("DOB")
		DOpen "Sponsor ID", v("RMLoginID")
		'DOpen "Name", v("RMName")
		'DTitle "Member Info"
		DOpen "Date", DS_DateTime(NOW)
		IF v("LoginID") = "" THEN
			DOpen "Login ID", "(System defined)"
		ELSE
			DOpen "Login ID", v("LoginID")
		END IF
		'DOpen "Password", "*******"
		IF v("RPID") > 0 THEN
			DTitle "Placement Info"
			DOpen "Upline ID", v("RPLoginID")
			DOpen "Team", SU_Team(v("Team"))
		END IF

		DTitle "Personal Info"
		CText "Please check your personal details and contact info:"
		DOpen "Name", v("Name")
		'DOpen "NRIC", v("NRIC")
		DOpen "Sex", Sys_GetListItem("M=Male, F=Female, C=Company", v("Sex"))
		'DOpen "DOB", DS_Date(v("DOB"))
		DOpen "Email", v("Email")
		DOpen "Tel", v("Tel")
		DOpen "Address", REPLACE(v("Address"), vbCRLF, "<br>")
		DOpen "City", v("City")
		DOpen "State", v("State")
		DOpen "Zipcode", v("Zipcode")
		DOpen "Country", v("Country")
		DOpen "PPID", v("PPID")
		'DTitle "Bank Account Info"
		'DOpen "Bank Name", v("BankName")
		'DOpen "Bank Branch", v("BankBranch")
		'DOpen "Country", v("BankCountry")
		'DOpen "Swift Code", v("BankSwift")
		'DOpen "Account Name", v("BankACName")
		'DOpen "Account No", v("BankACNo")
		'DOpen "Payout", POTT(v("POT"))

		CText "Confirm with the details then click <i>Finish</i> to submit"

		COpen "": Print "<br>"
			f.Button " &lt;&lt; Back ", "history.back()": Print " "
			f.Submit " Finish "
			f.Close
		DXClose

		'Print "</center>"

		'PClose

	ELSE
		PrintErrorEx Msg, MsgCount
		'Print "Please click <a href='javascript:history.back()'>here</a> to redo your registeration.<br><br>"

		SET f = NEW MyForm
		f.SetRes v
		f.Open "", "signupForm3.asp"
		f.HiddenEx "RMLoginID, RPLoginID, RMID, LoginID, Password, Password2, Name, NRIC, Sex, Email, Email2, Tel, Fax, Address, City, State, Zipcode, CountryID, BankName, BankBranch, BankCountry, BankSwift, BankACName, BankACNo, BankNRIC, RPID, PPID, POT, Team"
		f.HiddenDate "DOB", v("DOB")
		Print "Please click <a OnClick='Form1.submit()'>here</a> to redo your registeration.<br><br>"
		f.Close

	END IF

EndDoc
%>