<!-- #INCLUDE FILE="doc.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_member.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/formObj.asp" -->
<%
DIM f, r
IF Application("Site.Signup.Active") = 0 THEN	Response.Redirect "/noService.asp"
'IF Session("MA") <> 1 THEN	Response.Redirect "agreeForm1.asp"
'IF Session("RM.LoginID") = "" THEN	Response.Redirect "signupForm1.asp"
v.GetReqNum "RPID, RMID, POT, SKey, Team"
v.GetReq "RMLoginID, RPLoginID, LoginID, Password, Password2, Name, NRIC, Sex, Tel, Fax, Email, Email2, Address, City, State, Zipcode, CountryID, BankName, BankBranch, BankCountryID, BankSwift, BankACName, BankACNo, BankNRIC"
v.GetReqDate "DOB"
IF v("RMLoginID") = "" THEN	v("RMLoginID") = Session("RM.LoginID")

HTTPSLogin

SUB CNeed(s)
	COpen s & " <font color=red>*</font>"
END SUB
SUB CInfo(s)
	Print "<font size=1> " & s & "</font>"
END SUB

StartDoc "New Register"

	'PrintTitle "Register &gt; Member Details"
	Print "Please fill up your personal details and required fields below."

	OpenDatabase
	SET r = db.LockRs
	v.SetRs r.Rs
	r.OpenRead "SELECT ID AS RMID, LoginID AS RMLoginID, Name AS RMName, CountryID FROM Members WHERE LoginID='" & v("RMLoginID") & "'"
	v.ReadRs
	r.Close
	'r.OpenRead "SELECT LoginID AS RPLoginID, LL, LM, LR FROM Members WHERE ID=" & v("RMID")
	'IF NOT r.EOF THEN
	'	v.ReadRs
	'	v("Team") = 1
	'	IF r("LL") > r("LR") THEN	v("Team") = 3
	'ELSE
	'	v("RPLoginID") = v("RMLoginID")
	'	v("Team") = ""
	'END IF
	'r.Close

	v("ID") = 0
	IF v("Sex") = "" THEN	v("Sex") = "M"
	IF YEAR(v("DOB")) < 1940 THEN	v("DOB") = DATE
	IF v("BankCountryID") = "" THEN	v("BankCountryID") = v("CountryID")
	IF v("POT") = 0 THEN	v("POT") = 2
	IF v("RPLoginID") = "" THEN	v("RPLoginID") = v("RMLoginID")

	SET f = NEW MyForm
	f.SetRes v

	DXOpen "Login Info"
	f.Open "", "signupForm4.asp"
	f.HiddenEx "ID, RMLoginID"
	DOpen "Sponsor ID", v("RMLoginID")
	'DOpen "Name", v("RMName")
	'DTitle "Login Info"
	CText "Please enter a unique Login ID with min 4 characters"
	CNeed "New Login ID": f.Edit "LoginID", "", 30, 16: CClose
	''DOpen "New Login ID", "(System defined)"
	CText "Please enter a hard to guess password"
	CNeed "Password": f.Password "Password", "", 30, 16: CClose
	CNeed "Confirm Password": f.Password "Password2", "", 30, 16: CClose
	''CText "Please select an upline for your account placement"
	'DTitle "Placement Info"
	'COpen "Upline ID": f.Edit "RPLoginID", "", 30, 24: CClose
	'COpen "Team": f.Radio "Team", "1=/ Left, 3=\ Right", "": CClose
	''CText "You can leave Placement info blank for later placement fill up"

	DTitle "Personal Info"
	'CText "Please enter your personal details and contact information"
	CNeed "Name": f.Edit "Name", "", 30, 50: CClose
	CNeed "NRIC": f.Edit "NRIC", "", 40, 20: CClose
	CNeed "Sex": f.Radio "Sex", "M=Male, F=Female", "": CClose
	'COpen "DOB": f.DateListBox "DOB", YEAR(DATE) - 18, YEAR(DATE) - 80, "": CClose
	CText "Email must be provided to retrieve your login password"
	CNeed "Email": f.Edit "Email", "", 30, 64: CClose
	'COpen "Confirm Email": f.Edit "Email2", "", 30, 64: CNeed: CClose
	COpen "Tel": f.Edit "Tel", "", 30, 20: CClose
	COpen "Address": f.Memo "Address", "", 3, 30: CClose
	COpen "City": f.Edit "City", "", 30, 36: CClose
	CNeed "State": f.Edit "State", "", 30, 36: CClose
	CNeed "Zipcode": f.Edit "Zipcode", "", 30, 20: CClose
	CNeed "Country": f.DBListBox "CountryID", "SELECT ID, Name FROM Countries ORDER BY Name", "ID", "Name", "": CClose
	'COpen "Country": f.ListBox "CountryID", "MY=Malaysia, ID=Indonesia, BN=Brunei, PH=Philipines, SG=Singapore, TH=Thailand, US=United States", "": CClose

	'DTitle "Bank Account Info"
	'CText "Please enter your Bank account details for bonus withdrawal"
	'COpen "Bank Name": f.Edit "BankName", "", 30, 30: CClose
	''COpen "Bank Name": f.ListBox "BankName", "Maybank, CIMB, RHB, Public Bank", "": CClose
	'COpen "Bank Branch": f.Edit "BankBranch", "", 30, 30: CClose
	'COpen "Country": f.DBListBox "BankCountryID", "SELECT ID, Name FROM Countries ORDER BY Name", "ID", "Name", "": CClose
	''COpen "Country": f.ListBox "BankCountryID", "MY=Malaysia, ID=Indonesia, BN=Brunei, PH=Philipines, SG=Singapore, TH=Thailand, US=United States", "": CClose
	'COpen "Swift Code": f.Edit "BankSwift", "", 30, 20: CClose
	'COpen "Account Name": f.Edit "BankACName", "", 30, 50: CClose
	'COpen "Account No": f.Edit "BankACNo", "", 30, 30: CClose
	'COpen "NRIC": f.Edit "BankNRIC", "", 30, 20: CNeed: CClose
	'COpen "Payout": f.ListBox "POT", X_POT, "": CClose

	'DTitle "Authentication"
	'COpen "Secret": f.Edit "SKey", "", 30, 20: CNeed: CInfo "<br>Please enter the secret key in numeric format as shown in below": CClose
	'DOpen "Secret Key", X_GetScramKey(Session("SKey"))

	COpen "": Print "<br>"
	f.Button " &lt;&lt; Back ", "history.back()": Print " "
	'f.Reset " Reset ": Print " "
	f.Button " Next &gt;&gt; ", "VerifyForm()"
	f.Close
	DXClose

%>
<script language="javascript">
<!--
function VerifyForm()
{
	var Err, Msg;
	Err = 0;

	if (document.Form1.LoginID.value == "")
	{
		Err = 2;
		Msg = "New Login ID must be provided.";
	}
	//if (document.Form1.Password.value == "")
	//{
	//	Err = 3;
	//	Msg = "Login Password must be provided.";
	//}
	//if (document.Form1.Password.value != document.Form1.Password2.value)
	//{
	//	Err = 4;
	//	Msg = "Password & Confirm Password must be identical.";
	//}

	if (document.Form1.Name.value == "")
	{
		Err = 5;
		Msg = "New member Name must be provided.";
	}

	if (document.Form1.Email.value == "")
	{
		Err = 6;
		Msg = "New member Email must be provided.";
	}
	//if (document.Form1.Email.value != document.Form1.Email2.value)
	//{
	//	Err = 4;
	//	Msg = "Email & Confirm Email must be identical.";
	//}

	if (Err > 0)
	{
		window.alert("Error:\n" + Msg);
	}
	else
	{
		document.Form1.submit();
	}

}
//-->
</script>
<%

EndDoc
%>