<!-- #INCLUDE FILE="doc.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_pwd.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_sucheck.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_invoice.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_member.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_mlx.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/mail.asp" -->
<%
DIM s
DIM ErrCode, Msg(59), MsgCount
DIM r
IF Application("Site.Signup.Active") = 0 THEN	Response.Redirect "/noService.asp"
'IF Session("MA") <> 1 THEN	Response.Redirect "agreeForm1.asp"
v.GetReqNum "RMID, Race, RPID, POT, Team"
v.GetReq "RMLoginID, LoginID, Password, Name, NRIC, Sex, Tel, Fax, Email, Address, City, State, Zipcode, CountryID, BankName, BankBranch, BankACName, BankACNo, BankCountryID, BankSwift, BankNRIC, RPLoginID"
v.GetReqDate "DOB"
v.TrimEx "RMLoginID, RPLoginID, LoginID", " *%'""<>"
v.TrimEx "Name, NRIC, Sex, Tel, Fax, Email, Address, City, State, Zipcode, CountryID, BankName, BankBranch, BankACName, BankACNo, BankCountryID, BankSwift, BankNRIC", "*%'""<>"
v("Address") = LEFT(v("Address"), 100)

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, MTX FROM Members WHERE LoginID='" & v("RMLoginID") & "'"
IF r.EOF THEN	Response.Redirect "signupForm1.asp"
v.ReadRs
r.Close

Server.ScriptTimeout = 1000

SU_CheckDetail

IF ErrCode = 0 THEN
	v.SetRs r.Rs
	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")
		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
'			Msg = "Placement 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("Team") = 0 THEN
		v("Team") = 1
		IF v("LL") > v("LR") THEN	v("Team") = 3
	END IF
END IF

SUB WriteBTeam(ID, RPID, Team)
	DIM r
	SET r = db.LockRs
	r.OpenWrite "SELECT * FROM BTeams WHERE ID=" & ID
	IF r.EOF THEN
		r.Insert "BTeams"
		r("ID") = ID
	END IF
	r("RPID") = RPID
	r("Team") = Team
	r.Update
	r.Close
	db.UnlockRs r
END SUB

StartDoc "New Register"

	IF ErrCode = 0 THEN
		v.SetRs r.Rs
		IF v("Address") = "" THEN
			r.OpenRead "SELECT Sex AS RSex, DOB AS RDOB, Address, City, State, Zipcode FROM Members WHERE ID=" & v("RMID")
			v.ReadRs
			r.Close
		END IF
		IF v("BankCountryID") = "" THEN
			r.OpenRead "SELECT BankName, BankCountryID FROM Members WHERE ID=" & v("RMID")
			v.ReadRs
			r.Close
		END IF
		IF v("Sex") = "" THEN	v("Sex") = v("RSex")
		IF YEAR(v("DOB")) < 1945 THEN	v("DOB") = v("RDOB")
		IF v("NRIC") = "" THEN	v("NRIC") = LEFT(v("LoginID"), 20)

		'IF v("LoginID") = "" THEN	v("LoginID") = SU_GetLoginID("")
		IF v("Password") = "" THEN	v("Password") = SU_GetPassword
		IF v("POT") = 0 THEN	v("POT") = 1
		v("PPID") = SU_GetPPID2(v("CountryID"), v("State"))

		v("JDate") = NOW
		'PTS "X_WriteMember"
		X_WriteMember v
		'PTS "X_WriteMember OK"
		v("MemberID") = X_MemberID
		v("PasswordEx") = v("Password")
		PW_WriteM X_MemberID, 1, v("Password")
		PW_WriteM X_MemberID, 2, v("PasswordEx")

		IF v("RPID") > 0 THEN
			WriteBTeam X_MemberID, v("RPID"), v("Team")
			v("RPID") = ML_Attach(v("RPID"), X_MemberID, v("Team"))
		END IF

		WriteLog "Add member: " & X_MemberID & " / " & v("LoginID")

		PrintHeadline "Your new Member account is Registered."

		v.SetRs r.Rs
		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

		'POpen

		DXOpen "Login Info"
		DOpen "Sponsor ID", v("RMLoginID")
		'DOpen "Name", v("RMName")
		'DTitle "Member Info"
		DOpen "Date", DS_DateTime(NOW)
		'DOpen "Login ID", v("MemberID")
		DOpen "Login ID", "<b>" & v("LoginID") & "</b>"
		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"
		DOpen "Name", v("Name")
		'DOpen "NRIC", v("NRIC")
		DOpen "Sex", Sys_GetListItem("M=Male, F=Female, C=Company", v("Sex"))
		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 "Account NRIC", v("BankNRIC")
		'DOpen "Payout", POTT(v("POT"))
		DXClose
		Print "<br>"

		'Print "</center>"

		Print "Please take down and remember your own Login ID for future references and login.<br>You will also use it for customer service and support.<br><br>"

		Print "Now you can login to the <a href='memberLogin.asp?loginID=" & v("LoginID") & "'>member</a> site and start the business.<br>"
		Print "Or you can click <a href='/'>here</a> to continue.<br>"

	ON ERROR RESUME NEXT

		s =     "Dear " & v("LoginID") & "," & vbCRLF & vbCRLF
		s = s & "You have successfully signed up in SSP2u.com program. Below are your sign up details:" & vbCRLF & vbCRLF
		s = s & "Date: " & DS_DateTime(NOW) & vbCRLF
		s = s & "Login ID: " & v("LoginID") & vbCRLF
		s = s & "Password: " & v("Password") & vbCRLF
		s = s & "Name: " & v("Name") & vbCRLF
		s = s & "Email: " & v("Email") & vbCRLF & vbCRLF
		's = s & "You may login at http://www.SSP2u.com/mylogin.asp" & vbCRLF & vbCRLF
		s = s & "Thank you." & vbCRLF & vbCRLF
		s = s & "* Please change your Password upon first login." & vbCRLF
		s = s & "SSP2u Customer Service" & vbCRLF & vbCRLF
		s = s & "This is a system generated email. Please do not reply." & vbCRLF
		s = s & "********************************************************************" & vbCRLF & "DISCLAIMER:" & vbCRLF
		s = s & "This email and any attachments transmitted with it are intended solely for the addressee(s), and may contain information that are privileged and/or confidential. If you are not the intended recipient, or responsible for delivery of this message to the addressee, please notify the sender immediately by reply email and delete all copies of the transmission. The contents of this email may represent the author/sender's personal opinions, and not necessarily those of SSP2u group. As the email may have been intercepted, corrupted, lost, destroyed, arrive late, incomplete or contain viruses, no liability is accepted as a result."
		Email_Send "SSP2u", "support@SSP2u.com", v("Email"), "", "SSP2u.com - Member Registration", s

	IF Err.Number <> 0 THEN
		Print "<br><br>"
		Print "<font size=3 color=red><i><b>Error:</b></i></font><br>"
		Print Err.Description & "<br>"
	END IF
	ON ERROR GOTO 0

	ELSE
		PrintErrorEx Msg, MsgCount
		PLFBack

	END IF
EndDoc
%>