<!-- #INCLUDE FILE="doc.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/formObj.asp" -->
<%
DIM f, r
IF Application("Site.Signup.Active") = 0 THEN	Response.Redirect "/noService.asp"
'IF Session("RM.LoginID") <> "" THEN	v("LoginID") = Session("RM.LoginID")
'IF v("LoginID") = "" THEN	v("LoginID") = Request.Cookies("RM.LoginID")
v.GetReq "RMLoginID, RPLoginID, Team"
IF v("RMLoginID") = "" THEN
	IF Session("RM.LoginID") <> "" THEN	v("RMLoginID") = Session("RM.LoginID")
	IF v("RMLoginID") = "" THEN	v("RMLoginID") = Request.Cookies("RM.LoginID")
	IF v("RMLoginID") = "" THEN	v("RMLoginID") = Session("Member.LoginID")
END IF
IF Session("MA") <> 1 THEN	Response.Redirect "agreeForm1.asp"

StartDoc "New Register"

	Print "To register, you need to have a referrer as your sponsor.<br>Please provide his/her Login ID as your sponsor to continue:<br><br>"

	OpenDatabase
	SET r = db.LockRs

	SET f = NEW MyForm
	f.SetRes v

	DXOpen ""
	f.Open "", "signupForm2.asp"
	COpen "Sponsor ID": f.Edit "RMLoginID", "", 30, 22
	COpen "": Print "<br>"
		'f.Button " Cancel ", "location.href='/'": Print " "
		f.Submit " Next &gt;&gt; "
		f.Close
	DXClose
	Print "<br><br>"

	'v.SetRs r.Rs
	'r.OpenRead "SELECT LoginID FROM Members WHERE ID<=10 ORDER BY LL, LR LIMIT 1"
	'v.ReadRs
	'r.Close
	'Print "If you do not have a sponsor, click <a href='signupForm2.asp?loginid=" & v("LoginID") & "'>here</a> to continue."

EndDoc
%>