<%@ Language=VBScript %>

<%
	set setObj = Server.CreateObject("SETUP.SetupCtrl.1")
	
	if setobj is nothing then
		Response.write "error could not create object"
		Response.clear
		Response.end
	end if
	Response.write "Create object success"
	'if setObj.parseRequest("c:\\kidsnet\\") = false then
        if setObj.parseRequest("c:\\kidsnet\\") = false then
		Response.clear
		Response.end
	end if
	
	if setObj.findParentID() = false then
		if setObj.findEmail() = false then
			setObj.setupAccount()
			setObj.setStatus(0)
	      	setObj.sendEncryptedResponse()
            Response.end
	   	else
            if setObj.getCode() = 1 then
	         	setObj.setupAccount()
	         	setObj.setStatus(0)
            else
	         	setObj.setStatus(3)
	      	end if
	      	
	      	setObj.sendEncryptedResponse()
	      	Response.end
	   	end if
	   	
	else
		if setObj.doPasswordsMatch() = true then
	      	setObj.setStatus(2)
	      	setObj.sendEncryptedResponse()
	      	setObj.UpdateEmail()	      	
	      	Response.end
	  	else
	      	setObj.setStatus(1)
	      	setObj.generateParentids()
	      	setObj.sendEncryptedResponse()
	      	Response.end
        end if
	end if
	
	set setObj = nothing
%>