<!-- #include file = "connection.inc" -->
<!-- #include file = "adovbs.inc" -->

<%
	dim rs 
	set rs = server.CreateObject("ADODB.RecordSet")
	
	rs.open "userTable",conn, adOpenForwardOnly,adLockOptimistic,adCmdTable  
	
	dim uname 
	if not request("update")= "1" then
	  uname = request.form("username")
	else
		uname = session("username")
	end if
	
	rs.Filter = "username = '" & uname & "'"
	
	
	
	if rs.EOF then 
		dim date_value 
		date_value = request("day") + "/" + request("Month") + "/" + request("year")
		set rss = Server.CreateObject("Adodb.recordset")
			rss.open "select * from usertable where emailaddress = '" & request.form("emailaddress") & "'",conn
				if not rss.eof then
					response.Redirect("register.asp?e=1")
				end if
		rs.AddNew
	
		'Adding New Values in User Table
		rs("username")		= request.form("userName")
		rs("FirstName")		= request.form("firstName")
		rs("LastName")		= request.form("LastName")
		rs("EmailAddress")	= request.form("emailaddress")
		rs("Password")		= request.form("Password")
		rs("address1")		= request.form("address1")
		rs("Address2")		= request.form("address2")
		rs("City")			= request.form("city")
		rs("zipcode")		= CDbl(request.form("zipcode"))
		rs("phone")			= request.form("phoneno")
		rs("Country")		= request.form("Country")
		rs("state")			= request.form("state")
		rs("Gender")		= request.form("gender")
		rs("dateOfBirth")	= CDate(date_value)
		rs("Activation")	= "No"
		rs("moneyLeft")		= "100"
		rs("FamilyName")	= Request.Form("familyname")
		

		rs.Update 'Record Field is inserted into the database.

		dim strName,value
		
		'Assigning everything in user table to a session object.

		for each sfields in rs.Fields
			strName = sfields.Name
			Value   = sFields.Value
			session(strName) = Value
		next
	
		session("bValidUser") = True
		response.redirect "mainPage.asp"
	
	elseif Request("update") = "1" then
	
		'Updating Values
		date_value = request("day") + "/" + request("Month") + "/" + request("year")
		rs("FirstName")		= request.form("firstName")
		rs("LastName")		= request.form("LastName")
		rs("EmailAddress")	= request.form("emailaddress")
		rs("address1")		= request.form("address1")
		rs("Address2")		= request.form("address2")
		rs("City")			= request.form("city")
		rs("zipcode")		= CDbl(request.form("zipcode"))
		rs("phone")			= request.form("phoneno")
		rs("Country")		= request.form("Country")
		rs("State")			= request.form("State")
		rs("Gender")		= request.form("gender")
		rs("dateOfBirth")	= CDate(date_value)
		rs("FamilyName")	= Request.Form("familyname")
		
		rs.Update 'REcords are updated in DB.
		
		response.redirect "mainPage.asp"
	
	else 
		response.redirect "register.asp?alreadyexist=1"

	End if
rs.close
%>